##tickloc: runsub whattodo;
##think: runsub talk;
##whattodo: runsub talk/2 or dosth/2 or moveme/5;
##talk:
var $word1 to (omirmarast,arenornfin,orth,kemen,valagonsud,pal,Ethorband,thoniontoliquetiltil,falasvardethegrin,tirgalorthelan,lor,ingal,edthoron,mer,duralquaneldor,eregistgal,italtirhith,
bashal, ,romkasvalavan);
var $word2 to (omirmarast,arenornfin,orth,kemen,valagonsud,pal,Ethorband,thoniontoliquetiltil,falasvardethegrin,tirgalorthelan,lor,ingal,edthoron,mer,duralquaneldor,eregistgal,italtirhith,
bashal, ,romkasvalavan);
var $word3 to (omirmarast,arenornfin,orth,kemen,valagonsud,pal,Ethorband,thoniontoliquetiltil,falasvardethegrin,tirgalorthelan,lor,ingal,edthoron,mer,duralquaneldor,eregistgal,italtirhith,
bashal, ,romkasvalavan);
var $word4 to (omirmarast,arenornfin,orth,kemen,valagonsud,pal,Ethorband,thoniontoliquetiltil,falasvardethegrin,tirgalorthelan,lor,ingal,edthoron,mer,duralquaneldor,eregistgal,italtirhith,
bashal, ,romkasvalavan);

say 'msg',"[$actor] says '$word1 $word2 $word3 $word4.'";

##dosth:
find $loc, random not me;
var $how to (quickly,,suddenly,unnoticeably,casually,slowly,carefully);
say 'msg',"[$actor] $how looks at [$found_id]";

##moveme:
find $loc,random doorway;

if $found_id's class eq 'narrow trail' 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";