--=---------------------------------------------------------------=--
--= Neuz -==- This script is not for sale -==- Free for all Users! ==--
 --=---------------------------------------------------------------=--
function OnCombat(pUnit, Event)
    pUnit:RegisterEvent("Phase1", 1000, 1)
    pUnit:SendChatMessage(12, 0, "You dare enter my cave uninvited! For this you will pay with your life's!")
end

function Phase1(pUnit, Event)
    if pUnit:GetHealthPct(98)
        then pUnit:RegisterEvent("Phase1_Minion", 120000,5)
             pUnit:SendChatMessage(12, 0, " Let's even out the odds abit! hahaha!")
                else
    end

    if pUnit:GetHealthPct(86)
        then pUnit:RegisterEvent("Phase1_Minion", 120000,5)
             pUnit:SendChatMessage(12, 0, " The best feeling in the world is when you kill somone!")
                else
    end

    if pUnit:GetHealthPct(77)
        then pUnit:RegisterEvent("Phase1_Minion", 120000,5)
             pUnit:SendChatMessage(12, 0, " You might think im crazy... And you are complitly correct!")
                else
    end
end

function Phase1_Minion(pUnit, Event)
    local x = pUnit:GetX(pUnit:GetRandomPlayer(0))
    local y = pUnit:GetY(pUnit:GetRandomPlayer(0))
    local z = pUnit:GetZ(pUnit:GetRandomPlayer(0))
        pUnit:SpawnCreature(74001, x, y, z, 0, 18)
        pUnit:RegisterEvent("Phase1_Poison", 14000, 0)
end

function Phase1_Minion(pUnit, Event)
    local x = pUnit:GetX(pUnit:GetRandomPlayer(0))
    local y = pUnit:GetY(pUnit:GetRandomPlayer(0))
    local z = pUnit:GetZ(pUnit:GetRandomPlayer(0))
        pUnit:SpawnCreature(74001, x, y, z, 0, 18)
        pUnit:RegisterEvent("Phase1_Poison", 14000, 0)
end

function Phase1_Minion(pUnit, Event)
    local x = pUnit:GetX(pUnit:GetRandomPlayer(0))
    local y = pUnit:GetY(pUnit:GetRandomPlayer(0))
    local z = pUnit:GetZ(pUnit:GetRandomPlayer(0))
        pUnit:SpawnCreature(74001, x, y, z, 0, 18)
        pUnit:RegisterEvent("Phase1_Poison", 14000, 0)
end

function Phase1_Poison(pUnit, Event)
    pUnit:GetRandomPlayer(0, pUnit:CastSpellOnTarget(64157))
    pUnit:RegisterEvent("Phase1_Change1", 1000, 1)
end

function Phase1_Change1(pUnit, Event)
    if pUnit:GetHealthPct (75)
    then pUnit:RegisterEvent("Phase2", 1000, 1)
        else
            end
end

------------------------------------------
--=--------------PHASE 2---------------=--
------------------------------------------

function Yx_Phase2(pUnit, Event)
    pUnit:RegisterEvent("Phase2_Flame", 14000, 0)
    if pUnit:GetHealthPct(74)
        then pUnit:SendChatMessage(12, 0, " Prepair youself for disepointment! ")
            else
    end

    if pUnit:GetHealthPct(68)
        then pUnit:SendChatMessage(12, 0, " You are such a hot heads! Now die! ")
            else
    end

    if pUnit:GetHealthPct(57)
        then pUnit:SendChatMessage(12, 0, " ohh, forgot that you guy's were here! So Weak! ")
            else
    end
end

function Phase2_Flame(pUnit, Event)
    local x = pUnit:GetX(pUnit:GetRandomPlayer(0))
    local y = pUnit:GetY(pUnit:GetRandomPlayer(0))
    local z = pUnit:GetZ(pUnit:GetRandomPlayer(0))
        pUnit:CastSpellOnTarget(x,y,z,25786)
        pUnit:RegisterEvent("Phase2_FireBreath", 7000, 0)
end

function Phashe2_FireBreath(pUnit, Event)
    pUnit:GetRandomPlayer(0, pUnit:CastSpellOnTarget(36921))
    pUnit:RegisterEvent("Phase2_FlameKnock", 9000, 0)
end

function Phase_FlameKnock(pUnit, Event)
    pUnit:GetRandomPlayer(0, pUnit:CastSpellOnTarget(90693))
    pUnit:RegisterEvent("Phase2_Change2", 1000, 1)
end

function Phase2_Change2(pUnit, Event)
    if pUnit:GetHealthPct (50)
    then pUnit:RegisterEvent("Phase3", 1000, 1)
        else
            end
end

------------------------------------------
--=--------------PHASE 3---------------=--
------------------------------------------

function Phase3(pUnit, Event)
    pUnit:RegisterEvent("Phase3_Blizzard", 18000, 1)
    if pUnit:GetHealthPct(50)
        then pUnit:SendChatMessage(12, 0, " What happen's to iron when it's expsed to too much heat, and then gets cooled? Lets finde out! ")
            else
    end

    if pUnit:GetHealthPct(37)
        then pUnit:SendChatMessage(12, 0, " Die! I feel your weakness! you are an inbarresment!")
            else
    end

    if pUnit:GetHealthPct(26)
        then pUnit:SendChatMessage(12, 0, " Flee while you have the chanse! ")
            else
    end
end

function Phase3_Blizzard(pUnit, Event)
    local x = pUnit:GetX(pUnit:GetRandomPlayer(0))
    local y = pUnit:GetY(pUnit:GetRandomPlayer(0))
    local z = pUnit:GetZ(pUnit:GetRandomPlayer(0))
        pUnit:CastSpellOnTarget(x,y,z,71118)
        pUnit:RegisterEvent("Phase3_Chill", 20000, 1)
end

function Phase3_Chill(pUnit, Event)
    local x = pUnit:GetX(pUnit:GetRandomPlayer(0))
    local y = pUnit:GetY(pUnit:GetRandomPlayer(0))
    local z = pUnit:GetZ(pUnit:GetRandomPlayer(0))
        pUnit:CastSpellOnTarget(x,y,z,28547)
        pUnit:RegsiterEvent("Phase3_Shield", 10000, 1)
end

function Phase3_Shield(pUnit, Event)
    pUnit:CastSpell(31256)
    pUnit:RegsiterEvent("Phase3_ChillingBreath", 17000, 1)
end

function Phase3_ChillingBreath(pUnit, Event)
    pUnit:CastSpell(88308)
    pUnit:RegisterEvent("Phase3_Change3", 1000, 1)
end
function Phase3_Change3(pUnit, Event)
    if pUnit:GetHealthPct (25)
    then pUnit:RegisterEvent("Phase4", 1000, 1)
        else
            end
end

------------------------------------------
--=--------------PHASE 4---------------=--
------------------------------------------

function Phase4(pUnit, Event)
    pUnit:RegisterEvent("Phase4_MagicProtection", 300000, 1)
    if pUnit:GetHealthPct(24)
        then pUnit:SendChatMessage(12, 0, " Your armor wont protect you from this! ")
            else
    end

    if pUnit:GetHealthPct(16)
        then pUnit:SendChatMessage(12, 0, " Now you will die! Hahaha... ")
            else
    end

    if pUnit:GetHealthPct(5)
        then pUnit:SendChatMessage(12, 0, " I see your mana is running low! hahaha ")
            else
    end
end

function Phase4_MagicProtection(pUnit, Event)
    pUnit:CastSpell(20620)
    pUnit:RegisterEvent("Phase4_Minions", 700000, 1)
end

function Phase4_Minions(pUnit, Event)
    local x = pUnit:GetX(pUnit:GetRandomPlayer(0))
    local y = pUnit:GetY(pUnit:GetRandomPlayer(0))
    local z = pUnit:GetZ(pUnit:GetRandomPlayer(0))
        pUnit:SpawnCreature(74002, x, y, z, 0, 18)
        pUnit:SpawnCreature(74002, x, y, z, 0, 18)
        pUnit:SpawnCreature(74002, x, y, z, 0, 18)
        pUnit:RegisterEvent("Phase4_Stab", 4000, 1)
end

function Phase4_Stab(pUnit, Event)
    pUnit:GetMainTank(0, pUnit:CastSpellOnTarget(70400))
    pUnit:RegisterEvent("Phase4_Stun", 10000, 1)
end

function Phase4_stun(pUnit, Event)
    pUnit:GetRandomPlayer(0, pUnit:CastSpellOnTarget(90719))
    pUnit:RegisterEvent("Phase4_Protection", 300000, 1)
end

function Phase4_protection(pUnit, Event)
    if  pUnit:GetHealthPct(3)
        then pUnit:CastSpell(66010)
             pUnit:SendChatMessage(12, 0, "You dont know what you have gotten yourself into!")
             pUnit:CastSpell(67874)
             pUnit:RegisterEvent("Phase4_OnDeath" 1000, 0)
            else
                end
end



function OnLeaveCombat(pUnit, Event)
    pUnit:SendChatMessage(12, 0, "Make it a challange next time!")
end

function OnKilledTarget(pUnit, Event)
    pUnit:SendChatMessage(12, 0, "Hahaha! U Mad Bro?!")
end

function OnDied(pUnit, Event)
    pUnit:SendChatMessage(12, 0, "You win this time! But I will Retur...n!!")
end

RegisterUnitEvent(97780, 1, "OnCombat")
RegisterUnitEvent(97780, 2, "OnLeaveCombat")
RegisterUnitEvent(97780, 3, "OnKilledTarget")
RegisterUnitEvent(97780, 4, "OnDied")