##use:runsub isitme;

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

##pourit:
say 'sound',"You hear the sounds of water being poured out of a pitcher";

say 'sound',"[$init_obj] pours some of the water in [$actor] and their hands become sloppy and wet";