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 plume of fog issues from [$actor]'s tip, obscuring [$second] from view!";
$chilld = (chilled, frozen, coated with a layer of ice, numbed);
print "[$second] is $chilled by the fog!";

##killit:
set $second's health to 0;
print "[$second]'s frozen corpse falls to the ground with a thud.";