##tickloc:runsub pythonacts;
##pythonacts:
if $actor's health > 0 then python2;
##python2:
runsub forage/20 or roam/30;
##forage:
find $loc,random;
if $found_id's host > 0 then continue else forage2;
##forage2:
$getgender $actor;
$looks = (searches,forages,flicks $hisher tongue,scans,slithers to the area);
$at = (at,behind,near,before,next to,under);
print "[$actor] $looks $at [$found_id]";
multiset $actor to "host='$found_id',hosthow='$at',pose='foraging'";
relook $loc;
##roam:
call "roam";