if reacting to changemandibs then isitme;
if second of hit then doit;
if second of hit then maybefire;

##maybefire:
runsub fireballit/5;

##fireballit:
print "Smoke begins to billow from [$init_obj]'s nostrils.";
print "[$init_obj] opens its mouth and blasts a massive ball of fire at [$target]!";
$burnt = (burned, charred, cooked, roasted, incinerated);
print "[$target] is $burnt by the flames!";
$hlth = $target's health;
$hlthm = $target's healthmax;
take 11 from $hlth;
set $actor's health to $hlth;

##doit:
var $hit1 = (slices,impales,eviscerates);
print "[$init_obj] $hit1 [$target] with [$actor]!";
$hh = $init_obj's health;
$hm = $init_obj's healthmax;
take 6 from $hm;
if $hh < $hm then healit else fullme;
$th = $target's health;
$tm = $target's healthmax;
if $th < 6 then deadit else hurtit;

##healit:
add 6 to $hh;
set $init_obj's health = $hh;
print "[$init_obj] drains some of [$target]'s life force";
print "[$init_obj] seems healthier";

##fullme:
print "[$init_obj] is fully replenished";
set $init_obj's health to $init_obj's healthmax;

##deadit:
set $th = 0;
say 'ometlifedrained',"[$target] falls to the floor, drained of all life";

##hurtit:
take 6 from $th;
print "[$target] feels weakened.";
set $target's health = $th;

##isitme:
if $actor's host = $init_obj then changemenow else nope;

##changemenow:
set $actor's healthmax = 250;
set $actor's health = 250;
$mat = $actor's material;
swap $mat take "_omegamandibs_";
swap $mat add "_queenmandibs_";
set $actor's material to $mat;
set $actor's class to 'gaping maw';
set $actor's class to 'gaping maws';