##push:runsub moveit;
##wish:runsub findone;

##findone:
find $loc,random not doorway not me not player;
var $target to $found_id;
runsub moveit;

##moveit:
var $ln to $actor's link;
var $ds to $ln's loc;

set $target's loc to $ds;
say 'msg',"[$target] was sent to [$ds] from [$ln]";