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

##maybeparit:
runsub paralyzit/3;

##paralyzit:
include 58416;
multivar $skiller=$target,$skillname='dodge',$modname='paralysis',$modval='-20',$moddur='50',$modtick='$actor',$modend='$actor';
runsub addmod;
multivar $skiller=$target,$skillname='aim',$modname='paralysis',$modval='-10',$moddur='40',$modtick='$actor',$modend='$actor';
runsub addmod;
getgender $target;
print "[$init_obj] catches [$target] between its horns, and beams of electricity surge through $himher, shocking $himher into near paralysis!";
##modtickeffect:
if $skiller's health > 0 then modtickeffect2;
##modtickeffect2:
runsub modeffectx/10;
##modeffectx:
$what = (struggles,has trouble controlling their limbs,stumbles,staggers,moves with difficulty);
print "[$skiller] $what";
##modendeffect:
sayto $skiller,"Your $skillname is no longer impaired by the paralysis.";

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

##healit:
add 5 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 5 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 = 65;
set $actor's health = 65;
$mat = $actor's material;
swap $mat take "_gammamandibs_";
swap $mat add "_zetamandibs_";
set $actor's material to $mat;
set $actor's class to 'vicious claws';
set $actor's class to 'vicious clawses';