##use:runsub isitme;

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

##sitonit:
say 'sound',"'Aaaaah...' says [init_obj]";

say 'sound',"[$init_obj] moans sadly as they realise they have other buisness to attend to";