##use:runsub isitme;

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

##drinkit:
say 'sound',"Sluuuuuurp!!";

say 'sound',"[$init_obj] drinks out of [$actor] and takes a large gasp afterwards";