if target of use then used;

if target of drink then used;

##used:
say 'msg',"[$init_obj] drinks from [$actor].";
if $init_obj's health < $init_obj's healthmax then givehealth else nohealth;

if $init_obj's manamax = 0 then nomanamax else continue;

if $init_obj's mana < $init_obj's manamax then givemana else nomana;

delete $actor

##givehealth:
set $init_obj's health to $init_obj's healthmax;
sayto $init_obj,"You become fully healed.";

##nohealth;
sayto $init_obj,"You're already at full health.";

##nomanamax:
$mna = $init_obj's mna;
add 1 to $mna;
set $init_obj's mana to $mna;
sayto $init_obj,"You feel a bit of magical energy welling within you.";

##givemana:
set $init_obj's mana to $init_obj's manamax;
sayto $init_obj,"You become full of magic.";

##nomana:
sayto $init_obj,"You already have full mana.";