##use:runsub isitme;

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

##washit:
say 'sound',"BOING!! BOING!! BOING!!";

say 'sound',"[$init_obj] throws [$actor] around the room, it eventually bounces back to where it was when this all started";