##tickloc:
runsub whatto;
##whatto:
runsub checkloc/10;

##checkloc:
var $hostee to $actor's loc;
var $what to $hostee's class;
if $what eq player then checkit else end;

##checkit:
$creator = $actor's creator;
if $hostee's loc = $creator's loc then done else doit;
##doit:
relocate $hostee to $creator print "[$hostee] vanishes in a flash of light!" then "[$hostee materializes in a puff of smoke!";
refresh $hostee;
msg $loc,$actor,0,0,'force',"force:guard $creator";