##use:runsub isitme;

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

##sleepinit:
say 'sound',"ZAP! ZAP! ZAP!";

say 'sound',"[$init_obj] waves around [$actor] and then considers stopping because of the inevitable danger";