##tickloc:runsub eatcorpse;

##eatcorpse:
if $actor's health > 0 then eatcorpse2;
##eatcorpse2:
find $loc,'corpse';
if $found_id > 0 then eatcorpse3;

##eatcorpse3:
runsub eatit/10;

##eatit:
$eats = (snacks on,chews on,picks at,drools over,takes a bite from);
print "[$actor] $eats [$found_id].";