##open:runsub whattodo;
##whattodo:if $actor eq $target then blah else end;
##blah:
say 'msg',"Fake peanuts fly out at [$init_obj] from all directions!";