##use:runsub isitme;

##isitme:
if $actor eq $target then harvestit;

##harvestit:
say 'sound',"[$init_obj] plucks a freshly plucked tomato off [$actor]";

say 'sound',"[$init_obj] and [928] help each other water [$actor] because it is a very difficult job";