##tickloc:runsub whattodo;

##whattodo:runsub runaround/3 or squeekit/3;

##runaround:
find $loc, random not me;
var $how to (behind,under,beside,over,towards,away from);
say 'msg',"[$actor] scurries $how [$found_id]";

##squeekit:
var $act to (squeeks,twitches,curls up and goes to sleep,sneezes,blinks at you,sniffs the air);

say 'msg',"[$actor] $act";