##tickloc:runsub whattodo;
##whattodo:runsub actit/3;
##actit:
find $loc,random not me;
var $actn to (smiles at [$found_id], sniffs [$found_id],eats some soup,eats some pudding,paces in a circle around [$found_id]);
say 'acts',"[$actor] $actn";