if target of use then used;

##used:
$mm = $init_obj's manamax;
$mana = $init_obj's mana;
if $mana < $mm then increaseit;
getgender $init_obj;
print "[$init_obj] smacks $hisher lips.";
set $actor's loc to 0;
relook $loc;

##increaseit:
take $mana from $mm;
divide $mm by 2;
add $mm to $mana;
set $init_obj's mana to $mana;