#Crushbone Revamp - Orc Trainer npc id 999446
#NPCID: 304021

sub EVENT_SPAWN {
quest::modifynpcstat("special_attacks", "ERFTrMCNIDfdL");
quest::shout("HA!  I am the master of arms for all of clan Crushbone.  You believe you can defeat me $name?!");
}

sub EVENT_COMBAT {
if ($combat_state == 1) {
    quest::emote("Laughs Loudly");
    quest::shout("You will never defeat this form!  Let alone my True form!");
    quest::settimer("fear",25);
    quest::setnexthpevent(85);
    }
if ($combat_state == 0) {
    quest::stoptimer("fear");
    quest::stoptimer("reengage");
    quest::stoptimer("pbaekb");
    quest::stoptimer("lifetap");

    }
}

sub EVENT_TIMER {
if ($timer eq "fear") {
    my $RTarget = $npc->GetHateRandom();
    if ($RTarget) {
        $npc->SpellFinished(9091,$RTarget);
        }
    }
if ($timer eq "reengage") {
    quest::shout("You were fools to come here!");
    quest::modifynpcstat("special_attacks","SERFTrMCNIDfdL");
    quest::stoptimer("reengage");
    }
if ($timer eq "pbaekb") {
    my $TTarget = $npc->GetHateTop();
    my $RTarget = $npc->GetHateRandom();
        if ($RTarget ne $TTarget) {
            $npc->SpellFinished(7912,$RTarget);
            }
        }
if ($timer eq "lifetap") {
my $TTarget = $npc->GetHateTop();
    if ($TTarget) {
        $npc->SpellFinished(11423,$TTarget);
        }
    }
if ($timer eq "heal") {
    my $hpz = $npc->GetHP();
    $npc->SetHP($hpz + 25000)
    }
}

sub EVENT_HP {

if ($hpevent <= 85 && $hpevent >= 84) {
    quest::emote("Begins to Shimmer and Split..");
    quest::spawn2 (304029,0,0,-161.97,383.79,58.95,142.5);
    quest::spawn2 (304030,0,0,-252.29,380.81,58.95,107.8);
    quest::spawn2 (304031,0,0,-251.00,164.07,58.95,15.3);
    quest::spawn2 (304032,0,0,-160.63,164.25,58.95,240.3);
    quest::modifynpcstat("special_attacks","ABERFTrMCNIDfdL");
    quest::settimer("reengage",120);
    }
}

sub EVENT_SIGNAL {
if ($signal == 0) {
    quest::settimer("pbaekb",13);
    quest::emote("Begins to Radiate with Energy");
    }
if ($signal == 1) {
    quest::emote("Appears to Writhe in pain");
    quest::shout("No!");
    my $hpz = $npc->GetHP();
    $npc->SetHP($hpz - 25000);
    }
if ($signal == 2) {
    quest::settimer("lifetap",15);
    quest::emote("Begins to channel Dark Energy");
    }
if ($signal == 3) {
    quest::emote("Appears to Writhe in pain");
    quest::shout("No!");
    my $hpz = $npc->GetHP();
    $npc->SetHP($hpz - 25000);
    }
if ($signal == 4) {
    quest::modifynpcstat("special_attacks","AERFTrMCNIDfdL");
    quest::emote("Roars in Delight as his Skin takes a metallic Sheen");
    }
if ($signal == 5) {
    quest::emote("Appears to Writhe in pain");
    quest::shout("No!");
    my $hpz = $npc->GetHP();
    $npc->SetHP($hpz - 25000);
    }
if ($signal == 6) {
    quest::settimer("heal",20);
    }
if ($signal == 7) {
    quest::emote("Appears to Writhe in pain");
    quest::shout("No!");
    my $hpz = $npc->GetHP();
    $npc->SetHP($hpz - 25000);
    }
}

sub EVENT_KILLED_MERIT
{
    $client->AddCrystals(0, 25);
}

sub EVENT_DEATH_COMPLETE
{
    {
    quest::spawn2 (304022,0,0,($x + 20),$y,$z,$h);
    }
}