##txick:
runsub isitme;

##isitme:

if $target eq $actor then itsme else end;

##itsme:

clear $actor,all;

say 'zooms',"[$actor] zooms away";

runsub transmoveme;

##transmoveme:

find $loc,random doorway;

var $tlink to $found_id's link;

var $tloc to $tlink's loc;

say 'leaves',"[$actor] zooms away via [$found_id]";

clear $actor,all;


var $loc to $tloc;

rem say 'arrives',"[$actor] zooms in from [$tlink] and stops quickly on the ground";