if target of eat then eaten;
##eaten:
print "[$init_obj] gobbles up [$actor]";
unhost $actor;
delete $actor to 0 internals $loc;
set $actor's loc to 0;