if target of use then doit;

##doit:
$hlth = $second's health;
$hlthm = $second's healthmax;
if $hlth > 1 then harmit else killit;

##harmit:
getgender $init_obj;
take 4 from $hlth;
print "[$init_obj] raises [$actor] up above $hisher head";
$what = (murmurs, mutters, whispers, chants);
$how = (strange, foreign, archaic, inaudible);
print "[$init_obj] $what some $how words, and points [$actor] at [$second]!";
set $second's health to $hlth;
print "A blast of flames issues from [$actor]'s tip, engulfing [$second] in moments!";
$burnt = (burned, charred, cooked, roasted, incinerated);
print "[$second] is $burnt by the flames!";

##killit:
set $second's health to 0;
print "[$second]'s charred corpse falls to the ground";