##use:runsub isitme;

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

##sleepinit:
say 'sound',"TWANG! POOF!";

say 'sound',"[$actor] shoots out an arrow which hits something, it was all very sudden";

say 'sound',"[$init_obj]. o 0 ( I wonder what I hit! )";