##use:runsub aisitme;

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

##angryit:
say 'sound',"[$actor] says 'Young/old sir/madam would you like me to hang up your coat?'";

say 'sound',"[$init_obj] gives [$actor] a coat (not necessarily theirs) and the says 'yes please'";