##use:runsub isitme;

##isitme: if $actor eq $target then findbucket else end;

##findbucket:
find $loc,'bucket';
var $how to (gushes,flow,dribbles,cascades,splutters,pours,comes);
if $found_id > 0 then fillbucket else nobucket;

##fillbucket:
set $found_id's extra to 'which is full of water';
set $found_id's slot1 to 'full';
say 'actn',"water $how out of [$actor] and fills up [$found_id]";
msg $loc,$actor,0,0,'force',"force:look $loc";

##nobucket:
say 'actn',"water $how out of [$actor] and soaks into the ground";