##use:runsub whattodo;
##whattodo:if $actor eq $target then washit else end;
##washit:
say 'msg',"Water starts running";
say 'msg',"[$init_obj] washes their hands";