##push:runsub isitme;
##isitme:
if $target eq $actor then itsme else end;
##itsme:
clear $actor,all;
say 'bounces',"[$actor] bounces 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] bounces away via [$found_id]";
clear $actor,all;
msg $loc,$actor,0,0,'force',"force:look $loc";
set $actor's loc to $tloc;
var $loc to $tloc;
msg $tloc,$actor,0,0,'arrives',"[$actor] bounces in from [$tlink] and settles on the ground";
rem say 'arrives',"[$actor] bounces in from [$tlink] and settles on the ground";
msg $tloc,$actor,0,0,'force',"force:look $tloc";