##tickloc:runsub whattodo;
##whattodo:
runsub actit/9;
##actit:
find $loc,random not me;
var $how to (quickly,shyly,carfully,astonishingly,amazingly,gingerly,squiftly,softly,gently,nimbly);
var $this_action to (jumps over,jumps on,hides behind,glances at,looks at,tries to nubble,scampers over,scampers under,flies behind);
say 'acts',"[$actor] $how $this_action [$found_id]";