##throw:runsub isitme;

##isitme:if $actor eq $target then chkrand else end;

##chkrand:
find $loc,random;
var $how to (flies through the air,wobbles precariously,does a loop-the-loop,bounces effortlessly);
var $near to (around,over,straight towards,nowhere near);
var $land to (lands on,crashes into,drops beside,slams into,grazes,continues on towards,completely misses);

say 'actn',"[$actor] $how $near [$found_id] then $land [$second]";
runsub transmoveme/2;

##transmoveme:
find $loc,random doorway;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
say 'leaves',"[$actor] skims past [$second] and rolls 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";
msg $tloc,$actor,0,0,'force',"force:look $tloc";