if reacting to push then finddoorway;

##finddoorway:
find $loc,random doorway;
if $found_id > 0 then moveme;

##moveme:
#$oldmsg = '[$actor] departs through';
$newmsg = "[$actor] stumbles in from";

$sendto = 39333;

rem relocate $actor through $found_id print "[$actor] departs through" then $newmsg;
relocate $actor to $sendto print "[$actor] vanishes" then "[$actor] falls from the sky";