if target of drink then drinkfromit;

##drinkfromit:
$health = $actor's health;
if $health > 0 then candrink else empty;
stats
##candrink:
$mana = $init_obj's mana;
$mm = $init_obj's manamax;
if $mana < $mm then increasemana else noeffect;

##noeffect:
sayto $init_obj,"You feel no effect."

##increasemana:
add 1 to $mana;
take 1 from $health;
set $init_obj's mana to $mana;
set $actor's health to $health;
sayto $init_obj,"You feel slightly charged with magical energy.";

##empty:
say 'msg',"[$init_obj] looks at [$actor] and notices it is empty.";
set $actor's extra to 'empty';