roaming eater - version 1.01
Eats everything in a location that is withered and not locked or a doorway, then roams. It also slowly digests what it has eaten (send to the rubbish bin);

##tickloc: runsub whattodo;
##tickhour2: runsub whattodo;

##whattodo:runsub findweed or digestfood;

##findweed:
foreach in $loc do checkweed not locked not doorway;
if $weed_id > 0 then eatit else roamme;

##checkweed: if $for_id's colour = "chocolate" then usethisweed;

##usethisweed: $weed_id = $for_id;

##eatit: call "eat $weed_id";

##roamme: call "roam";

##digestfood:
find $actor,random not locked not doorway;
if $found_id > 0 then digestit;

##digestit:
$janitor = 7213;
$rubbish = $janitor's loc;
relocate $found_id to $rubbish print "[$found_id] is digested" then "[$found_id] falls from the sky";