##use:runsub aisitme;

##aisitme:
if $actor eq $target then angryit;

##angryit:
say 'sound',"[$actor] says 'Heey!! watcha doing?'";

say 'sound',"[$init_obj] wacks [$actor] over the head because she is rude";