##tickloc:
runsub whattodo;
##whattodo:
runsub whereami;
##whereami:
if $actor's host > 0 then end else begoe;
##begoe:
set $found_id's loc to 0;
set $found_id's host to "";
set $found_id's code to "";
set $found_id's extra to "";
print "[$actor] vanishes";
relook $loc;