##txickloc:runsub whattodo;

##whattodo:runsub eatit/3;

##eatit:
find $loc, random not me not exit;
$move = (lumbers,stumbles,galumphs);
$eat = (gobble up,swallow,eat);
print "[$actor] $move over to [$found_id] and tries to $eat it, but soon chokes and spits it out";