##use:runsub isitme;

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

##patit:
say 'sound',"[$init_obj] hugs [$actor] warmly";

say 'sound',"[$init_obj] feels much more content and joyful";