if target of use then whoisit;

##whoisit:
if $actor's host = $init_obj then checkagain else end;
##checkagain:
if $second's material like '_living_' then noway else checkp;
##checkp:
if $second's material like '_player_' then noway else goahead;
##noway:
sayto $init_obj,"(You can only use this on inanimate objects)";
##goahead:
$mana = $init_obj's mana;
$mmana = $init_obj's manamax;
if $mana < 15 then stopit else continue;
##stopit:
sayto $init_obj,"(You don't have enough mana!)";
##continue:
take 15 from $mana;
set $init_obj's mana to $mana;
getgender $init_obj;
print "[$init_obj] feels slightly weakened as [$actor] absorbs $hisher energy to power itself";
runsub doit;
##doit:
print "[$init_obj] points [$actor] at [$second]!";
$hlth = $second's health;
$ohlth = $second's host's health;
$mohlth = $second's host's healthmax;
print "[$second] begins to glow brightly!";
take $hlth from $ohlth;
print "[$second] explodes violently!";
set $second's health to 1;
set $second's host's health to $ohlth;
$what = (badly,harshly,critically,fiercely,severely);
$how = (burned,blasted,smashed,crushed,torched);
$hoster = $second's host;
print "[$hoster] is $what $how!";
if $ohlth < 1 then killit else end;
##killit:
set $second's host's health = 0;
$what2 = (incinerated,carbonized,vaporized)
print "[$hoster] is $what!";