if target of use then used;
if target of drink then used;

##used:
$health = $actor's health;
if $health > 0 then drinksome else empty;

##drinksome:
take 1 from $health;
$sound =

(loudly,rudely,abruptly,abusively,barbarically,bluntly,cheekily,coarsely,crudely,discourteousl

y,gruffly,impolitely,savagely,uncivily,uncouthly,ungraciously,vulgarly);
$verb = (burps $sound,belches $sound,hiccups);

case $health do nowempty,almostempty,halfempty,halffull,almostfull,full;

say 'msg',"[$init_obj] $verb. (It is now $pose)";
set $actor's health to $health;
set $actor's pose to $pose;

##nowempty:
$pose = 'empty';

##almostempty:
$pose = 'almost empty';

##halfempty:
$pose = 'half empty';

##halffull:
$pose = 'half full';

##almostfull:
$pose = 'almost full';

##full:
$pose = 'full';

##empty:
say 'msg',"[$init_obj] wishes there was ale in [$actor].";