if target of drink then givemana;

##givemana:
$mm = $init_obj's mana;
if $mm < $init_obj's manamax then raiseit else maxed;

##raiseit:
add 1 to $mm;
set $init_obj's mana = $mm;
$qq = (a little bit,some what,a bit,a modicum,slightly);
$how = (tingly,magical,special,mystical);
print "[$init_obj] feels $qq more $how";

##maxed:
print "[$init_obj] feels quite refreshed";