##push:runsub isitme;
##isitme:
if $target eq $actor then itsme else end;
##itsme:
clear $actor,all;
say 'bounces',"[$actor] rolls away";
runsub transmoveme/1;

##transmoveme:
find $loc,random doorway;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
say 'leaves',"[$actor] rolls away via [$found_id]";
clear $actor,all;
set $actor's loc to $tloc;
var $loc to $tloc;
say 'arrives',"[$actor] rolls in from [$tlink] and settles on the ground";