##use:runsub isitme;

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

##engraveit:
say 'sound',"SCRAAAATCH!!!";

say 'sound',"[$init_obj] scratches a beloved one's name in the [$actor]";