##use:runsub isitme;

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

##wearit:
say 'sound',"BEEP!! BEEP!! BEEP!!";

say 'sound',"[$init_obj] backs away slowly from [$actor] in a combination of shock and fear";