##tickloc:runsub whattodo;
##wish:runsub whattodo;
##talk:runsub isitme;

##txickhour:runsub moveme;

##moveme:
call roam;

##isitme:
if $target eq $actor then talkback;
##talkback:
runsub smiles/2 or speaks/2;
##speaks:
var $msg to 'the profound joy of interior peace only matters.';
say 'reply',"[$actor] look friendly at [$init_obj] and says '$msg'";
##smiles:
say 'reply',"[$actor] smiles in your direction and returns to its meditation";


##whattodo:runsub run/3;

##run:
find $loc,random doorway;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
say 'leaves',"[$actor] walks off via [$found_id]";
clear $actor,all;
set $actor's loc to $tloc;
msg $tloc,$actor,$tlink,0,'arrives',"[$actor] walks in from [$tlink] meditating, as usual";