sub EVENT_SAY{
    if($text=~/hail/i && ($npc->GetRace() <= 12 || $npc->GetRace() == 522)){
        quest::say("I want nothing to do with you");
        plugin::DoAnim(quest::ChooseRandom("shakeno", "disgusted"));
    }
    if($text=~/hail/i){
        if($npc->GetCleanName()=~/mournful/i){
            quest::say("Please help me ". $name . " I've been trapped here for sooo long....");
            plugin::DoAnim("plead");
        }
    }
    if($text=~/hail/i && (substr($npc->GetName(), 0, 1) eq "#" && substr($npc->GetName(), 1, 2) ne "#")){
        quest::say("Yes, we know...");
    }
}

$dpsType = 0;
$spawnTimes = 0;
$SecBase = 550000;
$tempus = 0;

sub EVENT_AGGRO {
    ### Named NPC
    if(substr($npc->GetName(), 0, 1) eq "#" && substr($npc->GetName(), 1, 2) ne "#"){
        quest::setnexthpevent(5);
    }
}

sub EVENT_COMBAT{
    quest::emote("gives you a disgusting look");
    #plugin::NPCCombat();
    my $npc_name = $npc->GetCleanName();
    if($combat_state == 1){
        $RandInt = plugin::RandomRange(1, 100);
        if($RandInt < 99){
            quest::setnexthpevent(50);
        }
        ###Break down aggro messages...
        if($npc_name=~//i){
            quest::say(quest::ChooseRandom("What are you doing here! I am going to make you pay for what you've done!",
            "You will pay dearly $race!",
            "Why can't we be left alone?",
            "Our kind will take care of you...",
            "All will be greatful after I am done with you",
            "Our kind won't be trampled by the likes of you anymore..."
            ));
        }
        ### Named NPC
        if(substr($npc->GetName(), 0, 1) eq "#" && substr($npc->GetName(), 1, 2) ne "#"){
            if ($combat_state == 1) {
               quest::settimer(1,5); ## Fast DPS
               quest::settimer(2,60); ## Med DPS
               quest::settimer(3,90); ## Low DPS
            }
        }
    }
}

sub EVENT_TIMER {
    ### Named NPC
    if(substr($npc->GetName(), 0, 1) eq "#" && substr($npc->GetName(), 1, 2) ne "#"){
        if ($tempus == 0) {
            if ($timer == 1) {
                $dpsType = 1;
                $spawnTimes = 5;
                quest::stoptimer(1);
            }
            elsif ($timer == 2) {
                $dpsType = 2;
                $spawnTimes = 4;
                quest::stoptimer(2);
            }
            elsif ($timer == 3){
                $dpsType = 3;
                $spawnTimes = 3;
                quest::stoptimer(3);
            }
        }
    }
}

sub EVENT_HP {
    ### Named NPC
    my $npc_name = $npc->GetCleanName();
    if($hpevent == 50 && $npc_name =~/a_/i){
        CloneAppearanceEXP();
        quest::addloot(1079);
    }
    if(substr($npc->GetName(), 0, 1) eq "#" && substr($npc->GetName(), 1, 2) ne "#"){
        if ($spawnTimes > 1)  {
            if ($hpevent == 5) {
                if ($dpsType == 1) {
                    $npc->SetHP($SecBase);
                    quest::stoptimer(1);
                    quest::stoptimer(2);
                    quest::stoptimer(3);
                    quest::setnexthpevent(5);
                    $tempus = 1;
                    $spawnTimes = $spawnTimes-1;
                }
                elsif ($dpsType == 2) {
                    quest::shout("HP EVENT - dpsType = 2");
                    $npc->SetHP($SecBase);
                    quest::stoptimer(1);
                    quest::stoptimer(2);
                    quest::stoptimer(3);
                    quest::setnexthpevent(5);
                    $tempus = 1;
                    $spawnTimes = $spawnTimes-1;
                }
                elsif ($dpsType == 3) {
                    quest::shout("HP EVENT - dpsType = 3");
                    $npc->SetHP($SecBase);
                    quest::stoptimer(1);
                    quest::stoptimer(2);
                    quest::stoptimer(3);
                    quest::setnexthpevent(5);
                    $tempus = 1;
                    $spawnTimes = $spawnTimes-1;
                }
                else {
                    quest::depop();
                }
            }
        }
    }
}

sub EVENT_DEATH {
    ### Named NPC
    if(substr($npc->GetName(), 0, 1) eq "#" && substr($npc->GetName(), 1, 2) ne "#"){
        quest::stoptimer(1);
        quest::stoptimer(2);
        quest::stoptimer(3);
        $dpsType = 0;
        $spawnTimes = 0;
        $tempus = 0;
    }
}

sub CloneAppearanceEXP{
    quest::npcrace(549);
    quest::npctexture(quest::ChooseRandom(1, 2, 3, 4, 5));
    quest::npcsize(12);
    $npc->TempName("Plasma Remains");
    quest::emote("convulses and reveals its true identity... ");
    ##quest::say("transforming");
}