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;

##givehealth:
sayto $init_obj,"You recover some health.";

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