##push: runsub isitme;
##isitme:
if $actor eq $target then whattodo else end;

##whattodo:
runsub drop or nodrop;

##nodrop:
say 'msg',"[$init_obj] tries to get some bananas from the [$actor] without any effect.";

##drop:
new banana;
set $new_id's colour to 'khaki';
set $new_id's qty to 1;
set $new_id's worth to "4";
set $new_id's info to "It looks fresh and tasty.";
say 'msg',"[$init_obj] shakes [$actor]";
say 'msg',"[$new_id] falls from [$actor]!";
say 'force',"force:look";