if target of use then used;

##used:
if $actor's owner eq $init_obj then drink else notyours;

##drink:
$health = $actor's health;
if $health > 0 then drink2 else empty2;

##drink2:
$verb = (sips,drinks,chugs,drains,quaffs);
say 'msg',"[$init_obj] $verb some beer";
take 1 from $health;
set $actor's health to $health;
say 'msg',"[$init_obj] $verb some beer.";
if $health > 0 then continue else empty1;

##empty1:
say 'msg',"[$init_obj] leaves behind an empty glass.";
set $actor's pose to 'empty';

##empty2:
sayto $init_obj,"It's empty";