get $text,$target in $loc;
if $target > 0 then drinkfrom else checkone;

##checkone:
get $target in $loc;
if $target > 0 then checkpw else fail;
##checkpw:
if $pw like $target's pwd then moveobj else itslocked;

##drinkfrom:
$how = (takes a delicate sip,gumps,drinks,has a mouthful,sips);
say 'drink',"[$actor] $how from [$target]";

##moveobj:
unhost $target;
clear $target,all;
set $target's loc to $actor;
set $target's pose to "hidden";
say 'msg',"SLUUUURP SLUURP SCHLOOSH";
say 'drink',"[$actor] drinks [$target]";
msg $actor,$target,$target,$second,'arrives',"[$target] appears from nowhere";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";

##fail:
var $click_cmd to 'drink';
var $desc_intro to 'Click on the object you want to drink:

';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";