##tickloc:runsub dothisfirst;
##wish:runsub moveme;

##dothisfirst: runsub whattodo/3 or moveme/3;

##whattodo:
var $how to (mews,miows,smiles at you,licks itself);
say 'msg',"[$actor] $how";

##moveme:
find $loc,random doorway;

if $found_id's class eq 'portal' then end else continue;
##continue:
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
var $how to (walks,goes);
say 'leaves',"[$actor] $how away through [$found_id]";

clear $actor,all;
set $actor's loc to $tloc;
msg $loc,$actor,0,0,'force',"force:look $loc";

msg $tloc,$actor,$tlink,0,'arrives',"[$actor] $how in through [$tlink]";
msg $tloc,$actor,0,0,'force',"force:look $tloc";