#second priest of the nameless
#63147
#spawns in courtyard

sub EVENT_SPAWN {
quest::modifynpcstat("special_attacks","SERFTMCNIDf");
quest::shout("Behold!  The power of The Nameless.");
$counter = 0;
}

sub EVENT_COMBAT {
if ($combat_state == 1) {
    quest::shout("I will destroy you fools!  How dare you challenge me!");
    quest::settimer("race",10);
    quest::settimer("leach",50);
    quest::settime("ae",70);
    quest::setnexthpevent(80);
    }
if ($combat_state == 0) {
    quest::stoptimer("race");
    quest::stoptimer("leach");
    quest::depopall(63149);
    quest::depopall(63148);
    quest::npcrace(1);
    $npc->ChangeSize(5);
    quest::shout("Foolish Mortals!");
    $counter = 0;
    quest::modifynpcstat("special_attacks","SERFTMCNIDf");
    }
}

sub EVENT_TIMER {
if ($timer eq "leach") {
my $TTarget = $npc->GetHateTop();
quest::ze(4,"You feel your soul being ripped away...");
    if ($TTarget) {
        $npc->SpellFinished(4165,$TTarget);
        }
    }
if ($timer eq "race") {
    quest::npcrace(452);
    $npc->ChangeSize(75);
    quest::stoptimer("race");
    }
if ($timer eq "debuffirst") {
    quest::stoptimer("debuffirst");
    quest::settimer("debuff",70);
    my @Hatelist = $npc->GetHateList();
    foreach $i(@Hatelist) {
        if ($i) {
            my $hent = $i->GetEnt();
            if ($hent) {
                $npc->SpellFinished(3496,$hent);
                }
            }
        }
    }
if ($timer eq "ae") {
my @Hatelist = $npc->GetHateList();
foreach $i(@Hatelist) {
    if ($i) {
        my $hent = $i->GetEnt();
        if ($hent) {
            $npc->SpellFinished(3498,$hent);
            }
        }
    }
}
if ($timer eq "debuff") {
    my @Hatelist = $npc->GetHateList();
    foreach $i(@Hatelist) {
        if ($i) {
            my $hent = $i->GetEnt();
            if ($hent) {
                $npc->SpellFinished(3496,$hent);
                }
            }
        }
    }
if ($timer eq "pull") {
    my @Hatelist = $npc->GetHateList();
    foreach $i(@Hatelist) {
        if ($i) {
            my $hent = $i->GetEnt();
            if ($hent) {
                $npc->SpellFinished(2080,$hent);
                }
            }
        }
    }
}

sub EVENT_HP {
if ($hpevent <= 80 && $hpevent >= 79) {
    quest::shout("Feel my wraith!");
    quest::settimer("debuffirst",3);
    quest::setnexthpevent(60);
    }
if ($hpevent <= 60 && $hpevent >= 59) {
    quest::shout("Tremble before my power!");
    quest::ze(14,"The Ground begins to shake, Crystals rise out of the ground");
    quest::spawn2(63148,0,0,255.6, 832.7,6.8,165.3);
    quest::spawn2(63148,0,0,160.0,750.2,6.9,40.6);
    quest::spawn2(63148,0,0,239.2,681.5,6.9,6.0);
    quest::modifynpcstat("special_attacks","ABSERFTMCNIDf");
    quest::setnexthpevent(30);
    }
if ($hpevent <= 30 && $hpevent >= 29) {
    quest::ze(14,"You feel you skin rip away from you");
    my @Hatelist = $npc->GetHateList();
    foreach $i(@Hatelist) {
    if ($i) {
        my $hent = $i->GetEnt();
        if ($hent) {
            my $dmgamt = ($hent->GetHP() * .25);
            $hent->Damage($npc,$dmgamt, 0, 1, 'FALSE', -1, 'FALSE');
            $hent->Message(16, "The Priest's Eyes glow red.  You have taken $dmgamt of Non-Melee damage.");
            }
        }
    }
}
}

sub EVENT_SIGNAL {
if ($signal == 1) {
    $counter += 1;
    if ($counter == 3) {
        quest::modifynpcstat("special_attacks","SERFTMCNIDf");
        quest::ze(14,"The Priest of the Nameless roars with rage");
        quest::depopall(63149);
        $counter = 0;
        }
    }
}

sub EVENT_DEATH {
quest::stoptimer("pull");
quest::stoptimer("debuff");
quest::stoptimer("ae");
quest::shout2("I will have my revenge!");
quest::signalwith(63146,3,0);
}

sub EVENT_KILLED_MERIT {
my $globalname = "raidevent";

if (!defined $qglobals{$globalname}) {
    quest::setglobal("$globalname",1,5,'H8');
    }
}