##txickloc: runsub whattodo;

##whattodo: runsub scamperit/5 or blinkme/3;

##blinkme;
print "[$actor] blinks";

##scamperit:
find $loc,random not me;
$move = (scampers,crawls,scuttles,scurries,clambers);
$pose = (over,behind,infront of,towards,away from);
print "[$actor] $move $pose [$found_id]";