##txickloc:runsub whattodo;
##feeds:runsub feedme;

##whattodo:runsub runaround/3 or chirpit/3 or jumparound/3;

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

##jumparound:
find $loc, random not me;
var $how to (behind,on,next to,over,towards,away from);
say 'msg',"[$actor] jumps $how [$found_id]";

##chirpit:
var $act to (chirps,shakes,curls up and goes to sleep,sneezes,blinks at you,sniffs the air,nips at you,yawns,grooms itself,eats an insect);

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

##feedme:
if $actor eq $target then devour else end;

##devour:
say 'act',"[$actor] ravenously rips it to pieces";