Stoneharry

------------------------------------------------------------------
--[[
This script was made by Stoneharry of www.MMOwned.com
This script may be edited and changed at will, but credits must be provided.
Thank you.

Please note the following has not been included within this script:
- Defile
- Frostmourne Chamber
Please note that this is the 25man version and will conflict if the 10man version is used as well.
]]
------------------------------------------------------------------

local Lich = nil
local Tirion = nil
local package = nil
local Terenas = nil
local Garfield = nil
local Object = nil
local Count = 0
local Phase = 0
local Players_Wiped = 0
local CheatMode = true -- If this is set to true then you can use #startlk and #endlk to to the intro and outro without actually fighting him. :) CAN BE VERY BUGGY!

---- Checkers ----------------------------------------------------

if GetLuaEngine() ~= "LuaHypArc" then -- Make sure we are using LuaHypArc
    print("-------------------------------------------------------------------")
    print("LuaHypArc is not installed. This script may not function correctly.")
    print("LuaHypArc comes with ArcEmu by default.")
    print("-------------------------------------------------------------------")
    else
    print("-------------------------------------------------------")
    print("-- The Lich King - Made by Stoneharry of MMOwned.com --")
    print("--                     Enjoy                         --")
    print("-------------------------------------------------------")
end

---- Lich King ---------------------------------------------------

function LichKing_OnSpawn(pUnit, Event)
    pUnit:RegisterEvent("LichKing_OnSpawn_Go", 1000, 1)
end

function LichKing_OnSpawn_Go(pUnit, Event)
    if Lich ~= nil then -- Do a check
    Lich:RemoveFromWorld()
    end
    Lich = pUnit
    Lich:SetFaction(35)
end

RegisterUnitEvent(3072112, 18, "LichKing_OnSpawn")

function LichKing_OnLeaveJewCombat(pUnit, Event)
    if Players_Wiped == 1 then
    Players_Wiped = 0
    Lich:SetHealthPct(10)
    else
    pUnit:RemoveEvents()
    end
end

RegisterUnitEvent(3072111, 2, "LichKing_OnLeaveJewCombat")

---- Tirion ------------------------------------------------------

function TirionFordring_OnSpawn(pUnit, Event)
        Tirion = pUnit
    pUnit:RegisterEvent("TirionFordring_OnSpawn_Go", 5000, 0)
end

function TirionFordring_OnSpawn_Go(pUnit, Event)
    if Lich ~= nil then -- If theres no lich king we can't start the event
        local plr = pUnit:GetClosestPlayer()
        if plr ~= nil then -- we need a player
            if pUnit:GetDistanceYards(plr) < 5 then -- we are close enough to start
                local PlayersAllAround = pUnit:GetInRangePlayers()
                for a, players in pairs(PlayersAllAround) do
                players:CastSpell(69127)
                end
            pUnit:PlaySoundToSet(17458)
            pUnit:RemoveEvents() -- Stop repeating
            Lich:MoveTo(461.47, -2123.73, 1572.1, 0)
            pUnit:Emote(375, 60000)
            pUnit:PlaySoundToSet(17349) -- pUnit since players are closer to him
            Lich:SendChatMessage(14, 0, "So...the Light's vaunted justice has finally arrived. Shall I lay down Frostmourne and throw myself at your mercy, Fordring?")
            pUnit:RegisterEvent("TirionFordring_OnSpawn_Goz", 13500, 1)
            end
        end
    end
end

RegisterUnitEvent(26529762, 18, "TirionFordring_OnSpawn")

function TirionFordring_OnSpawn_Goz(pUnit, Event)
    pUnit:SendChatMessage(14,0,"We will grant you a swift death, Arthas. More than can be said for the thousands you've tortured and slain.")
    pUnit:PlaySoundToSet(17390)
    local PlayersAllAround = pUnit:GetInRangePlayers()
    for a, players in pairs(PlayersAllAround) do
    players:CastSpell(69127)
    end
    pUnit:RegisterEvent("TirionFordring_OnSpawn_Gozz", 9000, 1)
end

function TirionFordring_OnSpawn_Gozz(pUnit, Event)
    Lich:SendChatMessage(14,0,"You will learn of that first hand. When my work is complete, you will beg for mercy -- and I will deny you. Your anguished cries will be testament to my unbridled power.")
    pUnit:PlaySoundToSet(17350)
    Lich:Emote(397, 4000)
    pUnit:RegisterEvent("zTirionFordring_OnSpawn_Gozzz", 4500, 1)
    pUnit:RegisterEvent("zzTirionFordring_OnSpawn_Gozzz", 12000, 1)
    pUnit:RegisterEvent("TirionFordring_OnSpawn_Gozzz", 22000, 1)
end

function zTirionFordring_OnSpawn_Gozzz(pUnit, Event)
    Lich:Emote(1, 6000)
end

function zzTirionFordring_OnSpawn_Gozzz(pUnit, Event)
    Lich:Emote(392, 3500)
end

function TirionFordring_OnSpawn_Gozzz(pUnit, Event)
    Lich:SendChatMessage(14,0,"So be it. Champions, attack!")
    pUnit:PlaySoundToSet(17391)
    pUnit:Emote(397, 2000)
    pUnit:RegisterEvent("PATHETIC_RUN_TIRION", 2000, 1)
    pUnit:RegisterEvent("TirionFordring_OnSpawn_Gozzzz", 3000, 1)
    pUnit:RegisterEvent("TirionFordring_zzz_Gozzzz", 4500, 1)
end

function PATHETIC_RUN_TIRION(pUnit, Event)
    pUnit:SetMovementFlags(1)
    pUnit:MoveTo(485.92, -2123.2, 1572.1, 3.17)
end

function TirionFordring_OnSpawn_Gozzzz(pUnit, Event)
    Lich:SendChatMessage(14,0,"I'll keep you alive to witness the end, Fordring. I would not want the Light's greatest champion to miss seeing this wretched world remade in my image.")
    pUnit:PlaySoundToSet(17351)
    local PlayersAllAround = pUnit:GetInRangePlayers()
    for a, players in pairs(PlayersAllAround) do
    players:CastSpell(69127)
    end
    Tirion = pUnit
end

function TirionFordring_zzz_Gozzzz(pUnit, Event)
    Tirion:CastSpell(71614)
    Lich:SetFaction(22)
end

-------- Rage Counter ---------------------------------------------

function Rage_Counter_Lich_King(pUnit, Event)
    if Lich == nil then
    pUnit:RemoveEvents()
    else
        if Count == 300 then
            if Phase == 2 then
            Count = 0
            Phase = 0
            Lich:RemoveEvents()
            Lich:SendChatMessage(14,0,"Face now your tragic end!")
            Lich:PlaySoundToSet(17365)
            else
            Lich:FullCastSpell(61714) -- Enrage, basic enrage spell used for all wrath bosses
            Phase = Phase + 1
            end
        else
        Count = Count + 5
        end
    end
end

-------- Fight ----------------------------------------------------

function LichKingHasEnteredCombatLawl_Phase_One(pUnit, Event)
    if Tirion == nil then
    pUnit:Despawn(1, 10000) -- Where the F is he
    Lich = nil -- Reset
    else
        if Players_Wiped == 1 then
        --Players_Wiped = 0
        Lich:SetHealthPct(10)
        else
        Lich:SetCombatCapable(0)
        Lich:RegisterEvent("Rage_Counter_Lich_King", 5000, 0)
        Lich:RegisterEvent("Adds_Spawning_Incoming_Dredge_Ghouls", 19000, 0) -- Every 20 seconds (19 + 1 for next)
        Lich:RegisterEvent("Adds_Spawning_Incoming_Shambling_Horror", math.random(60000,70000), 0) -- Every 60-70 seconds (changes each match)
        Lich:RegisterEvent("Necrotic_Plague_Incoming", 20000, 0)
        Lich:RegisterEvent("Infest_Big_AOE_Incoming", 30000, 0)
        Lich:RegisterEvent("Phase_Two_Checker", 2500, 0)
        end
    end
end

function Adds_Spawning_Incoming_Dredge_Ghouls(pUnit, Event)
    Lich:RegisterEvent("Adds_Spawning_Incoming_Dredge_Ghoulsz", 1000, 3) -- 3 times
end

function Adds_Spawning_Incoming_Dredge_Ghoulsz(pUnit, Event)
    local x = Lich:GetX()
    local y = Lich:GetY()
    local z = Lich:GetZ()
    local o = Lich:GetO()
    if math.random(1,2) == 1 then -- Spawn in different locations basically
    Lich:SpawnCreature(3769511, x+math.random(1,6), y+math.random(1,6), z, o, 15, 360000)
    else
    Lich:SpawnCreature(3769511, x-math.random(1,6), y-math.random(1,6), z, o, 15, 360000)
    end
end

function Adds_Spawning_Incoming_Shambling_Horror(pUnit, Event)
    local x = Lich:GetX()
    local y = Lich:GetY()
    local z = Lich:GetZ()
    local o = Lich:GetO()
    if math.random(1,2) == 1 then -- Spawn in different locations basically
    Lich:SpawnCreature(3769811, x+math.random(1,6), y+math.random(1,6), z, o, 15, 360000)
    else
    Lich:SpawnCreature(3769811, x-math.random(1,6), y-math.random(1,6), z, o, 15, 360000)
    end
end

function Necrotic_Plague_Incoming(pUnit, Event)
    local plr = Lich:GetRandomPlayer(0) -- I think this is correct
    if plr ~= nil then
    Lich:FullCastSpellOnTarget(73912, plr) -- ^ ^ ^ ^ ^ ^ ^ ^ ^
    end
end

function Infest_Big_AOE_Incoming(pUnit, Event)
    Lich:FullCastSpell(73779)
end

RegisterUnitEvent(3072111, 1, "LichKingHasEnteredCombatLawl_Phase_One")

function Phase_Two_Checker(pUnit, Event)
    if Lich:GetHealthPct() < 71 then
    Lich:RemoveEvents()
    Lich:MoveTo(512.7, -2120.5, 1572.1, 0)
    Lich:SetMovementFlags(1)
    Lich:SetCombatCapable(1)
    Lich:RegisterEvent("Test_Debug_MoveToCentreOfRoom", 100, 0)
    Lich:RegisterEvent("Test_Debug_MoveToCentreOfRoom_z", 4005, 1)
    end
end

function Test_Debug_MoveToCentreOfRoom(pUnit, Event)
    Lich:MoveTo(512.7, -2120.5, 1572.1, 0)
    Lich:SetMovementFlags(1)
end

function Test_Debug_MoveToCentreOfRoom_z(pUnit, Event)
    Lich:RemoveEvents()
    Lich:Root()
    Lich:FullCastSpell(74270)
    Lich:SendChatMessage(14,0,"I will freeze you from within until all that remains is an icy husk!")
    Lich:PlaySoundToSet(17369)
    Lich:RegisterEvent("weaiyhoahg_delay", 6000, 1)
end

function weaiyhoahg_delay(pUnit, Event)
    local x = Lich:GetX()
    local y = Lich:GetY()
    Lich:SpawnCreature(3769812, x+math.random(3,6), y+math.random(3,6), Lich:GetZ(), Lich:GetZ(), 21, 10000)
    Lich:RegisterEvent("Spam_Of_Lightning_That_Looks_Crap_But_Is_Blizzlike", 1500, 0)
    Lich:RegisterEvent("NeedToWaitBecauseAddsBreakAndShizzleOrSomething", 3005, 1)
    Lich:RegisterEvent("RandomRagingSpiritAddsThatAreNotRandom", 19990, 3) -- So we can get 3 in a minute without removing events
    Lich:RegisterEvent("Test_Despawn_Outer_Shell", 59000, 0)
end

function NeedToWaitBecauseAddsBreakAndShizzleOrSomething(pUnit,Event)
    local x = Lich:GetX()
    local y = Lich:GetY()
    Lich:SpawnCreature(3769812, x-math.random(3,6), y-math.random(3,6), Lich:GetZ(), Lich:GetZ(), 21, 10000)
end

function RandomRagingSpiritAddsThatAreNotRandom(pUnit, Event)
    local plr = Lich:GetRandomPlayer(0)
    if plr ~= nil then
    local x,y,z,o = plr:GetX(),plr:GetY(),plr:GetZ(),plr:GetO()
    Lich:SpawnCreature(3769813, x,y,z,o , 21, 360000)
    end
end

function Spam_Of_Lightning_That_Looks_Crap_But_Is_Blizzlike(pUnit, Event)
    local plr = Lich:GetRandomPlayer(0)
    if plr ~= nil then
    Lich:FullCastSpellOnTarget(73788, plr)
    end
end

function Test_Despawn_Outer_Shell(pUnit, Event)
    Lich:RemoveEvents()
    Lich:SendChatMessage(14,0,"Watch as the world around you collapses!")
    Lich:PlaySoundToSet(17370)
    --Lich:CastSpell(59084) -- temporary solution to no destructable object support on ArcEmu
    Lich:SpawnCreature(2626262, 476.2, -2083.56, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 505.1, -2074.47, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 523.35, -2077.77, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 541, -2086.36, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 552.7, -2111.2, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 554, -2137, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 545.9, -2153.1, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 528, -2164, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 508.25, -2169.5, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 488.2, -2168, 1573.1, 0, 814, 20000)
    Lich:RegisterEvent("DelayForDespawnSinceVisualTakesSomeTimeTehe_Zieghoszho", 1000, 1)
    Lich:RegisterEvent("DelayForDespawnSinceVisualTakesSomeTimeTehe", 2500, 1)
end

function DelayForDespawnSinceVisualTakesSomeTimeTehe_Zieghoszho(pUnit, Event)
    Lich:FullCastSpell(72262) -- Epic shit I got working :D
end

function DelayForDespawnSinceVisualTakesSomeTimeTehe(pUnit, Event)
    Object = Lich:GetGameObjectNearestCoords(pUnit:GetX(),pUnit:GetY(),pUnit:GetZ(), 2957197)
    if Object ~= nil then
    Object:SetScale(0.01)
    --Object:Despawn(1,0)
    --Lich:CastSpell(46853) -- Shakes camera
    end
    Lich:SetCombatCapable(0)
    Lich:Unroot()
    -- Phase 2
    Lich:RegisterEvent("Infest_Big_AOE_Incoming", 22000, 0)
    Lich:RegisterEvent("Summon_Valkyr_Shadowguard", 19500, 0)
    Lich:RegisterEvent("Soul_Reaper_On_Main_Tank", 30000, 0)
    Lich:RegisterEvent("Phase_TwoPointFive_Checker", 2500, 0)
    -- I cba to script defile :3
end

function Soul_Reaper_On_Main_Tank(pUnit, Event)
    local tank = Lich:GetMainTank()
    if tank ~= nil then
    Lich:FullCastSpellOnTarget(73798, tank)
    end
end

function Summon_Valkyr_Shadowguard(pUnit, Event)
    local x, y, z, o = Lich:GetX()+3, Lich:GetY(), Lich:GetZ(), Lich:GetO()
    Lich:SpawnCreature(25452151, x, y, z, o, 22, 0)
    Lich:SendChatMessage(14,0,"Val'kyr, your master calls!")
    Lich:PlaySoundToSet(17373)
end

function Phase_TwoPointFive_Checker(pUnit, Event)
    if Lich:GetHealthPct() < 41 then
    Lich:RemoveEvents()
    Lich:MoveTo(512.7, -2120.5, 1572.1, 0)
    Lich:SetMovementFlags(1)
    Lich:SetCombatCapable(1)
    Lich:RegisterEvent("hhTest_Debug_MoveToCentreOfRoom", 100, 0)
    Lich:RegisterEvent("hhTest_Debug_MoveToCentreOfRoom_z", 4005, 1)
    end
end

function hhTest_Debug_MoveToCentreOfRoom(pUnit, Event)
    Lich:MoveTo(512.7, -2120.5, 1572.1, 0)
    Lich:SetMovementFlags(1)
end

function hhTest_Debug_MoveToCentreOfRoom_z(pUnit, Event)
    Lich:RemoveEvents()
    Lich:Root()
    Lich:FullCastSpell(74270)
    Lich:SendChatMessage(14,0,"I will freeze you from within until all that remains is an icy husk!")
    Lich:PlaySoundToSet(17369)
    Lich:RegisterEvent("jjweaiyhoahg_delay", 6000, 1)
end

function jjweaiyhoahg_delay(pUnit, Event)
    local x = Lich:GetX()
    local y = Lich:GetY()
    Lich:SpawnCreature(3769812, x+math.random(3,6), y+math.random(3,6), Lich:GetZ(), Lich:GetZ(), 21, 10000)
    Lich:RegisterEvent("Spam_Of_Lightning_That_Looks_Crap_But_Is_Blizzlike", 1500, 0)
    Lich:RegisterEvent("NeedToWaitBecauseAddsBreakAndShizzleOrSomething", 3005, 1)
    Lich:RegisterEvent("RandomRagingSpiritAddsThatAreNotRandom", 14000, 3)
    Lich:RegisterEvent("zzzTest_Despawn_Outer_Shell", 59000, 0)
end

function zzzTest_Despawn_Outer_Shell(pUnit, Event)
    Lich:RemoveEvents()
    Lich:SendChatMessage(14,0,"Watch as the world around you collapses!")
    Lich:PlaySoundToSet(17370)
    if Object ~= nil then
    Object:SetScale(1)
    end
    --Lich:CastSpell(59084) -- temporary solution to no destructable object support on ArcEmu
    Lich:SpawnCreature(2626262, 476.2, -2083.56, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 505.1, -2074.47, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 523.35, -2077.77, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 541, -2086.36, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 552.7, -2111.2, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 554, -2137, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 545.9, -2153.1, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 528, -2164, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 508.25, -2169.5, 1573.1, 0, 814, 20000)
    Lich:SpawnCreature(2626262, 488.2, -2168, 1573.1, 0, 814, 20000)
    Lich:RegisterEvent("DelayForDespawnSinceVisualTakesSomeTimeTehe_Zieghoszho", 1000, 1)
    Lich:RegisterEvent("zzzDelayForDespawnSinceVisualTakesSomeTimeTehe", 2500, 1)
end

function zzzDelayForDespawnSinceVisualTakesSomeTimeTehe(pUnit, Event)
    if Object ~= nil then
    Object:Despawn(1,0)
    end
    Lich:SetCombatCapable(0)
    Lich:Unroot()
    -- Phase 3
    Lich:RemoveEvents()
    Lich:RegisterEvent("Soul_Reaper_On_Main_Tank", 30000, 0)
    Lich:RegisterEvent("Harvest_Soul_Random_Raid_Member", 66000, 0)
    Lich:RegisterEvent("Vile_Spirits_Spawning_Inc", 28000, 0)
    Lich:RegisterEvent("Phase_Four_The_Ending_tehe", 1500, 0)
end

function Harvest_Soul_Random_Raid_Member(pUnit, Event)
    local plr = Lich:GetRandomPlayer(0)
    if plr ~= nil then
    Lich:SendChatMessage(14,0,"Frostmourne hungers...")
    Lich:PlaySoundToSet(17366)
    Lich:FullCastSpellOnTarget(74325, plr)
    end
end

function Vile_Spirits_Spawning_Inc(pUnit, Event)
    Lich:RegisterEvent("Spawning_The_Vile_spirits_NoW", 1000, 10)
end

function Spawning_The_Vile_spirits_NoW(pUnit, Event)
    local pla = Lich:GetRandomPlayer(0)
    if pla ~= nil then
    local x, y, z, o = pla:GetX(), pla:GetY(), pla:GetZ(), pla:GetO()
    Lich:SpawnCreature(5078151, x, y, z, o, 22, 60000)
    end
end

function Phase_Four_The_Ending_tehe(pUnit, Event)
    if Lich:GetHealthPct() < 11 then
    Count = 0
    Phase = 0
    Lich:RemoveEvents()
    Lich:SendChatMessage(14,0,"You gnats actually hurt me! Perhaps I've toyed with you long enough, now taste the vengeance of the grave!")
    Lich:PlaySoundToSet(17359)
    Lich:MoveTo(512.7, -2120.5, 1572.1, 0)
    Lich:SetMovementFlags(1)
    Lich:SetCombatCapable(1)
    Lich:RegisterEvent("hhTest_Debug_MoveToCentreOfRoom", 100, 0)
    Lich:RegisterEvent("hggzhTest_Debug_MoveToCentreOfRoom_z", 5005, 1)
    end
end

function hggzhTest_Debug_MoveToCentreOfRoom_z(pUnit, Event)
    Lich:RemoveEvents()
    Lich:FullCastSpell(72350)
    Players_Wiped = 1
    -- Most of the visuals needed are not in game due to ArcEmu's screwed up extractors
    Lich:RegisterEvent("Debug_Send_Next_Message_LichKing", 10000, 1)
end

function Debug_Send_Next_Message_LichKing(pUnit, Event)
    Lich:SendChatMessage(14,0,"No question remains unanswered. No doubts linger. You are Azeroth's greatest champions! You overcame every challenge I laid before you. My mightiest servants have fallen before your relentless onslaught, your unbridled fury...")
    Lich:PlaySoundToSet(17353)
    Lich:RegisterEvent("zzDebug_Send_Next_Message_LichKing", 25000, 1)
end

function zzDebug_Send_Next_Message_LichKing(pUnit, Event)
    Lich:SendChatMessage(14,0,"You trained them well, Fordring. You delivered the greatest fighting force this world has ever known... right into my hands -- exactly as I intended. You shall be rewarded for your unwitting sacrifice.")
    Lich:PlaySoundToSet(17355)
    local plr = Lich:GetRandomPlayer(0)
    if plr ~= nil then
    Lich:ChannelSpell(71769, plr)
    end
    local DeadGuys = Lich:GetInRangePlayers()
    for k, plrs in pairs(DeadGuys) do
    plrs:ChannelSpell(47855, Lich)
    end
    Lich:RegisterEvent("zzzzDebug_Send_Next_Message_LichKing", 24000, 1)
end

function zzzzDebug_Send_Next_Message_LichKing(pUnit, Event)
    Lich:SendChatMessage(14,0,"Watch now as I raise them from the dead to become masters of the Scourge. They will shroud this world in chaos and destruction. Azeroth's fall will come at their hands -- and you will be the first to die.")
    Lich:PlaySoundToSet(17356)
    Lich:RegisterEvent("zzzzDebug_Send_Next_Message_LichKingzz", 26000, 1)
end

function zzzzDebug_Send_Next_Message_LichKingzz(pUnit, Event)
    Lich:PlaySoundToSet(17357)
    Lich:SendChatMessage(14,0,"I delight in the irony.")
    Lich:RegisterEvent("zzzzDebug_Send_Next_Message_LichKingzzzz", 6000, 1)
    --Lich:StopChannel()
end

function zzzzDebug_Send_Next_Message_LichKingzzzz(pUnit, Event)
    if Tirion == nil then
    Lich:Despawn(1,0)
    else
    Tirion:SendChatMessage(14,0,"LIGHT, GRANT ME ONE FINAL BLESSING. GIVE ME THE STRENGTH... TO SHATTER THESE BONDS!")
    Tirion:PlaySoundToSet(17392)
    Lich:RegisterEvent("Breakoutofice", 9000, 1)
    end
end

function Breakoutofice(pUnit, Event)
    Tirion:RemoveAura(71614) --(Remove IceBlock, to cast the Spell under this Line :>)
    Tirion:CastSpell(71797)
    Tirion:CastSpell(71614) --(Get the IceBlock Again :>, You cannot see that he was out :>) -- Stays in ice block? lol
    Lich:RegisterEvent("zzzzDebug_Send_Next_Message_LichKingzzzzgg", 5000, 1)
end

function zzzzDebug_Send_Next_Message_LichKingzzzzgg(pUnit, Event)
    Tirion:RemoveAura(71614) -- Ice Block
    Tirion:CastSpell(71773)
    Lich:RegisterEvent("zzzzDebug_Send_Next_Message_LichKingzzzzgzg", 1500, 1)
    -- jumps and destroys frostmourne
end

function zzzzDebug_Send_Next_Message_LichKingzzzzgzg(pUnit, Event)
    Tirion:SetMovementFlags(2)
    Tirion:SetFlying()
    Tirion:Emote(375, 60000)
    Tirion:MoveTo(511, -2121, 1575, 14)
    Tirion:Emote(375, 60000)
    Lich:StopChannel()
    Lich:RegisterEvent("zagazzzDebug_Send_Next_Message_LichKingzzzzgzg", 3000, 1)
end

function zagazzzDebug_Send_Next_Message_LichKingzzzzgzg(pUnit, Event)
    Tirion:SetMovementFlags(1)
    Tirion:MoveTo(536.5, -2121, 1572.1, 3.15)
    Lich:PlaySoundToSet(17459)
    Lich:SpawnCreature(2626269, Lich:GetX(), Lich:GetY(), Lich:GetZ(), 0, 35, 0) -- Invisible trigger
    Lich:RegisterEvent("zagazzzDebug_Send_Next_Message_LichKingzgeazzzzgzg", 1900, 1)
    Tirion:RegisterEvent("lichisdead", 1900, 1)
end

function lichisdead(pUnit, Event)
    Tirion:MoveTo(514.135254, -2122.514160, 1572)
end

function zagazzzDebug_Send_Next_Message_LichKingzgeazzzzgzg(pUnit, Event)
    Lich:CastSpell(37592) -- Knockdown
    --Lich:CastSpell(72726) -- Boom visual
    local DeadGuys = Lich:GetInRangePlayers()
    for k, plrs in pairs(DeadGuys) do
    plrs:StopChannel()
    end
    if Garfield ~= nil then
    Garfield:CastSpell(72405) -- THE CORRECT VISUAL ;D
    end -- I cba to add a debugger, if it screws up at this point SCREW YOU BLIZZARD AND EMULATION
    --Lich:FullCastSpell(72406) -- The drop frostmourne visual thing (it fucks up his animations so I cba with this :D)
    Lich:CastSpell(73017) -- The soul free thing
    Lich:FullCastSpell(72398) -- Frostmourne on floor
    Lich:EquipWeapons(0,0,0)
    Lich:SendChatMessage(14,0,"Impossible...")
    Lich:PlaySoundToSet(17358)
    Lich:Emote(473, 120000)
    --Lich:CastSpell(72523)
    Lich:RegisterEvent("zagazzzDebug_Send_Next_Message_LichKingzgeazzzzedhezgzg", 1500, 1)
end

function zagazzzDebug_Send_Next_Message_LichKingzgeazzzzedhezgzg(pUnit, Event)
    Tirion:SendChatMessage(14,0,"No more, Arthas! No more lives will be consumed by your hatred!")
    Tirion:PlaySoundToSet(17393)
    Tirion:SetMovementFlags(1)
    Lich:Emote(473, 120000)
    Lich:SpawnCreature(31021151, 518.8, -2115.8, 1572.1, 3.780169, 35, 0)
    Tirion:MoveTo(526, -2120.5, 1572.1, 3)
    Lich:RegisterEvent("zagazzzDebug_Send_Next_Message_LichKingzgeazzzzedhezgzzzzsay", 5500, 1)
end

function zagazzzDebug_Send_Next_Message_LichKingzgeazzzzedhezgzzzzsay(pUnit, Event)
    if Terenas == nil then -- Dunno why this would happen
    Lich:Despawn(1,0)
    Lich = nil
    Tirion:Despawn(1,0)
    Tirion = nil
    else
    Lich:Emote(473, 120000)
    Terenas:EquipWeapons(23456, 18825, 0)
    Terenas:SendChatMessage(14,0,"Free at last! It is over, my son. This is the moment of reckoning.")
    Terenas:PlaySoundToSet(17397)
    Terenas:ChannelSpell(51361, Terenas)
    Lich:RegisterEvent("epiashgyophopapea_Lich_King_Is_Not_A_Happy_Bunny", 10000, 1)
    end
end

function epiashgyophopapea_Lich_King_Is_Not_A_Happy_Bunny(pUnit, Event)
    Terenas:SendChatMessage(14,0,"Rise up, champions of the Light!")
    Terenas:PlaySoundToSet(17398)
    Terenas:StopChannel()
    Terenas:CastSpell(37755)
    Lich:Emote(473, 120000)
    local PlayersAllAround = Terenas:GetInRangePlayers()
    for a, players in pairs(PlayersAllAround) do
    players:ResurrectPlayer(players)
    players:CastSpell(24171)
    end
    --Terenas:FullCastSpell(72429) -- Failure
    Lich:RegisterEvent("zLich_King_Is_Not_A_Happy_Bunny", 5000, 1)
end

function zLich_King_Is_Not_A_Happy_Bunny(pUnit, Event)
    Terenas:Despawn(500,0)
    Lich:Emote(473, 120000)
    Lich:SendChatMessage(14,0,"Now I stand, the lion before the lambs... and they do not fear.")
    Lich:PlaySoundToSet(17361)
    Lich:RegisterEvent("zLich_King_Is_Not_A_Happy_Bunnyz", 8000, 1)
end

function zLich_King_Is_Not_A_Happy_Bunnyz(pUnit, Event)
    Lich:SendChatMessage(14,0,"They cannot fear.")
    Lich:PlaySoundToSet(17362)
    Lich:Emote(473, 120000)
    Lich:SetHealthPct(10)
    -- The end, poor arthas, Q_Q, lets all go do a rain dance, ~Stoneharry
end

---- Terenas -----------------------------------------------------

function Terenas_Spawned_root_Hes_the_realm_of_My_RETAIL_Char(pUnit, Event)
    if Tirion == nil or Lich == nil then
    pUnit:Despawn(1,0)
    else
    Terenas = pUnit
    end
end

RegisterUnitEvent(31021151, 18, "Terenas_Spawned_root_Hes_the_realm_of_My_RETAIL_Char")

-------------------------------------------------------------------

function LichKingHasDiedSoWePlayMovie(pUnit, Event)
    if Garfield ~= nil then
    Garfield:Despawn(1,0)
    end
    local PlayersAllAround = pUnit:GetInRangePlayers()
    for a, players in pairs(PlayersAllAround) do
        if players:HasAchievement(4579) == false then
        players:AddAchievement(4579)
        end
    end
    Lich = nil
    pUnit:RemoveEvents()
    pUnit:PlaySoundToSet(17374) -- Freak makes dying sound
    pUnit:SpawnCreature(3072110, pUnit:GetX(), pUnit:GetY(), pUnit:GetZ(), pUnit:GetO(), 35, 10000)
end

RegisterUnitEvent(3072111, 4, "LichKingHasDiedSoWePlayMovie")

function TriggerHasSpawnedSoPlayMovie(pUnit, Event)
    pUnit:RegisterEvent("PlayMovieOnceDeathAnimationHasPlayed", 9000, 1)
end

function PlayMovieOnceDeathAnimationHasPlayed(pUnit, Event)
    -- Reset Fight
    Garfield = nil
    Tirion = nil
    Lich = nil
    Terenas = nil
    package = nil
    Phase = 0
    Count = 0
    -- Movie
    Players_Wiped = 0
    local PlayersAllAround = pUnit:GetInRangePlayers()
    for a, players in pairs(PlayersAllAround) do
    --SMSG_TRIGGER_MOVIE = 0x464
    local packet = LuaPacket:CreatePacket(0x464, 4) -- Move type 4
    packet:WriteULong(16) -- Id 16
    players:SendPacketToPlayer(packet) -- Send to players
    end
    -- Bolvar
    local Bolvar = pUnit:GetGameObjectNearestCoords(428.758, -2124.4, 1594.69, 2508221) -- Bolvar in chains
    if Bolvar ~= nil then
    Bolvar:Despawn(1,0)
    pUnit:SpawnGameObject(2508220, 428.758, -2124.4, 1594.69, 0, 360000) -- Chains
    pUnit:SpawnGameObject(2508219, 430.103, -2124, 1595.93, 3.3, 360000) -- Bolvar
    end
end

RegisterUnitEvent(3072110, 18, "TriggerHasSpawnedSoPlayMovie")

------- Adds ------------------------------------------------------

function Dredge_Ghouls_OnSpawn(pUnit, Event)
    pUnit:RegisterEvent("TestRootFunctionNextSecond", 1, 1)
end

function TestRootFunctionNextSecond(pUnit, Event)
    if Lich == nil then -- This way when the ghoul spawns, if the fight is not happening for some reason it will just disapear again instantly as if nothing happened ;)
    pUnit:RemoveFromWorld()
    else -- Well if he is here
    pUnit:Emote(449, 4000) -- spawn animation
    pUnit:Root() -- Root him while he spawns
    pUnit:RegisterEvent("Delay_A_Second_And_See_WhatHappens_Tehe", math.random(1,1000), 1)
    pUnit:RegisterEvent("SetFactionToHostileForTheEmote", 4500, 1)
    end
end

function Delay_A_Second_And_See_WhatHappens_Tehe(pUnit, Event)
    pUnit:CastSpell(55719)
end

function SetFactionToHostileForTheEmote(pUnit, Event)
    pUnit:Unroot() -- let him run free
    pUnit:SetFaction(21) -- hostile
end

RegisterUnitEvent(3769511, 18, "Dredge_Ghouls_OnSpawn")

---------------------------------------------------------------------

function Shambling_Horrors_OnSpawn(pUnit, Event)
    pUnit:RegisterEvent("zzTestRootFunctionNextSecond", 1, 1)
end

function zzTestRootFunctionNextSecond(pUnit, Event)
    if Lich == nil then -- This way when the ghoul spawns, if the fight is not happening for some reason it will just disapear again instantly as if nothing happened ;)
    pUnit:RemoveFromWorld()
    else -- Well if he is here
    pUnit:Emote(449, 4000) -- spawn animation
    pUnit:Root() -- Root him while he spawns
    pUnit:CastSpell(55719)
    pUnit:RegisterEvent("zzSetFactionToHostileForTheEmote", 4500, 1)
    end
end

function zzSetFactionToHostileForTheEmote(pUnit, Event)
    pUnit:Unroot() -- let him run free
    pUnit:SetFaction(21) -- hostile
end

RegisterUnitEvent(3769811, 18, "Shambling_Horrors_OnSpawn")

function Shambling_Horrors_OnCombat(pUnit, Event)
    if Lich == nil then -- This way when the ghoul spawns, if the fight is not happening for some reason it will just disapear again instantly as if nothing happened ;)
    pUnit:RemoveFromWorld()
    else -- Well if he is here
    pUnit:RegisterEvent("Enrage_Spam_Incoming_Varied_Time", math.random(20000,25000), 0) -- Varied time depending on add
    pUnit:RegisterEvent("Shockwave_thingy_time_notsure_on_timer", 15000, 0)
    end
end

function Enrage_Spam_Incoming_Varied_Time(pUnit, Event)
    pUnit:FullCastSpell(72143)
end

function Shockwave_thingy_time_notsure_on_timer(pUnit, Event)
    pUnit:FullCastSpell(72149)
end

function Shambling_Horrors_OnLeave(pUnit, Event)
    pUnit:RemoveEvents()
end

function Shambling_Horrors_OnDead(pUnit, Event)
    pUnit:RemoveEvents()
end

RegisterUnitEvent(3769811, 1, "Shambling_Horrors_OnCombat")
RegisterUnitEvent(3769811, 2, "Shambling_Horrors_OnLeave")
RegisterUnitEvent(3769811, 4, "Shambling_Horrors_OnDead")

----- Ice Sphere --------------------------------------------------

-- 69090 on spawn -- only 2 on phase 1.5, head towards player and explode if hit

function IceShard_OnSpawn(pUnit, Event)
    pUnit:RegisterEvent("rage_rage_rage_rage_Rage_rage", 1, 1)
end

function rage_rage_rage_rage_Rage_rage(pUnit, Event)
    if Lich == nil then
    pUnit:RemoveFromWorld() -- may cause crash if he tries to despawn but variable broke
    else
        pUnit:FullCastSpell(69090) -- Visual
        local pla = pUnit:GetRandomPlayer(0)
        if pla ~= nil then
        pUnit:MoveTo(pla:GetX(), pla:GetY(), pla:GetZ(), pla:GetO())
        pUnit:SetMovementFlags(1)
        pUnit:RegisterEvent("rage_rage_rage_rage_Rage_rage_r", 1000, 8)
        else
        pUnit:RemoveFromWorld()
        end
    end
end

function rage_rage_rage_rage_Rage_rage_r(pUnit, Event)
    local plm = pUnit:GetClosestPlayer()
    if plm ~= nil then
        pUnit:FullCastSpell(69090) -- Visual
        if pUnit:GetDistanceYards(plm) < 4 then
        --pUnit:FullCastSpellOnTarget(70827, plm) -- May be buggy if player dies, maybe not knockbacked and players try to exploit by ressing?
        pUnit:FullCastSpellOnTarget(11027, plm) -- Knockback
        pUnit:CastSpell(56135)
        pUnit:RemoveEvents()
        end
    end
end

RegisterUnitEvent(3769812, 18, "IceShard_OnSpawn")

---- Raging Spirit ------------------------------------------------

function RagingSpirit_OnCombat(pUnit, Event)
    if Lich == nil then
    pUnit:RemoveFromWorld()
    else
    pUnit:RegisterEvent("Soul_Shriek_Random_Time_Depending_On_Mob", math.random(7500, 15000), 0)
    pUnit:RegisterEvent("Soul_Shriek_Random_Visual", 1000, 1)
    end
end

function Soul_Shriek_Random_Visual(pUnit, Event)
    pUnit:FullCastSpell(69198) -- Visual
end

function Soul_Shriek_Random_Time_Depending_On_Mob(pUnit, Event)
    pUnit:FullCastSpell(69242) -- Shriek
end

function RagingSpirit_OnLeave(pUnit, Event)
    pUnit:RemoveEvents()
end

function RagingSpirit_OnDead(pUnit, Event)
    pUnit:RemoveEvents()
end

RegisterUnitEvent(3769813, 1, "RagingSpirit_OnCombat")
RegisterUnitEvent(3769813, 2, "RagingSpirit_OnLeave")
RegisterUnitEvent(3769813, 4, "RagingSpirit_OnDead")

---- Flying Dudes ------------------------------------------------------

function zhgzFlying_Dude_OnCombat(pUnit, Event)
        if Lich == nil then
        pUnit:RemoveFromWorld()
        else
        pUnit:RegisterEvent("zhgzFlying_Dude_Find_Player", 1, 1)
        end
end

function zhgzFlying_Dude_Find_Player(pUnit, Event)
        package = pUnit:GetClosestPlayer()
        if package ~= nil then
        pUnit:SetCombatCapable(1) -- Stop npc running around
        package:SetPlayerLock(1) -- Stop player doing stuff :3
        pUnit:SetMovementFlags(2) -- Flying Mode On
        pUnit:ChannelSpell(55520, package) -- visual
        pUnit:MoveTo(pUnit:GetX(), pUnit:GetY(), pUnit:GetZ()+6, pUnit:GetO(), 12288)
        package:MovePlayerTo(package:GetX(), package:GetY(), package:GetZ()+6, package:GetO(), 12288)
        pUnit:RegisterEvent("now_we_have_loaded_preset_We_can_move_on", 2000, 1)
        else
        pUnit:RemoveFromWorld()
        end
end

function now_we_have_loaded_preset_We_can_move_on(pUnit, Event)
        if package ~= nil then
        package:CastSpell(52241) -- Choke visual
        package:CastSpell(53658) -- Bubble to stop stupid animations
        pUnit:ChannelSpell(29172, package) -- visual
        pUnit:RegisterEvent("now_we_have_loaded_preset_We_can_move_on_two", 1500, 0)
        else
        pUnit:RemoveEvents()
        pUnit:RemoveFromWorld()
        end
end

function now_we_have_loaded_preset_We_can_move_on_two(pUnit, Event)
        if package ~= nil then
                if pUnit:GetX() == 572 and pUnit:GetY() == -2121.5 then -- Don't use Z, blizzard don't, POI's don't, why should we? It will just screw up and we don't need it :)
                pUnit:RemoveEvents()
                pUnit:StopChannel()
                package:RemoveAura(52241) -- choke
                package:RemoveAura(53658) -- buble
                package:SetPlayerLock(0)
                package = nil
                --pUnit:RemoveFromWorld() -- Causes crash :(
                else
                pUnit:SetMovementFlags(2)
                package:ModifyFlySpeed(2.5)
                pUnit:MoveTo(572, -2121.5, 1577.2, 0, 12288, 2.5)
                package:MovePlayerTo(pUnit:GetX(), pUnit:GetY(), pUnit:GetZ() ,pUnit:GetO(), 12288)
                end
        else
        pUnit:RemoveEvents()
        pUnit:RemoveFromWorld()
        end
end

function zhgzFlying_Dude_OnDead(pUnit, Event)
        pUnit:RemoveEvents()
        pUnit:StopChannel()
        package:RemoveAura(52241) -- choke
        package:RemoveAura(53658) -- buble
        package:SetPlayerLock(0)
        package = nil
        --pUnit:RemoveFromWorld() -- Causes crash :(
end

RegisterUnitEvent(25452152, 1, "zhgzFlying_Dude_OnCombat")
RegisterUnitEvent(25452152, 4, "zhgzFlying_Dude_OnDead")

---- Vile Spirits ------------------------------------------------------

function VileSpiirt_OnCombat(pUnit, Event)
    if Lich == nil then
    pUnit:RemoveFromWorld()
    else
    pUnit:RegisterEvent("deoaopighophgeoaugozh_delay", 500, 1)
    end
end

function deoaopighophgeoaugozh_delay(pUnit, Event)
    pUnit:Root()
    pUnit:SetCombatCapable(1)
    pUnit:RegisterEvent("Tick_Tick_Tick_dot_dot_dot_BOOM", 29000, 1)
end

function Tick_Tick_Tick_dot_dot_dot_BOOM(pUnit, Event)
    pUnit:RemoveEvents()
    pUnit:CastSpell(37106)
    pUnit:RegisterEvent("Kill_Self_Suicide_Or_Whathaveyou_vile", 1000, 1)
end

function Kill_Self_Suicide_Or_Whathaveyou_vile(pUnit, Event)
    pUnit:Despawn(1,0)
end

function VileSpiirt_OnLeave(pUnit, Event)
    pUnit:RemoveEvents()
end

function VileSpiirt_OnDead(pUnit, Event)
    pUnit:RemoveEvents()
end

RegisterUnitEvent(5078151, 1, "VileSpiirt_OnCombat")
RegisterUnitEvent(5078151, 2, "VileSpiirt_OnLeave")
RegisterUnitEvent(5078151, 4, "VileSpiirt_OnDead")

------------------------------------------------------------------------

function Garfield_On_Spawn_Trigger_Define(pUnit, Event)
    Garfield = pUnit
end

RegisterUnitEvent(2626269, 18, "Garfield_On_Spawn_Trigger_Define")

------------------------------------------------------------------------

if CheatMode == true then
    function zczz_OnChat(event, plr, message, type, language)
        local message = string.lower(message)
        if (message == "#startlk") then
            if plr:IsGm() == true then
                if Lich ~= nil and Tirion ~= nil then
                Tirion:PlaySoundToSet(17458)
                Tirion:RemoveEvents() -- Stop repeating
                Lich:RemoveEvents()
                Lich:MoveTo(461.47, -2123.73, 1572.1, 0)
                Tirion:Emote(375, 60000)
                Tirion:PlaySoundToSet(17349) -- pUnit since players are closer to him
                Lich:SendChatMessage(14, 0, "So...the Light's vaunted justice has finally arrived. Shall I lay down Frostmourne and throw myself at your mercy, Fordring?")
                Tirion:RegisterEvent("TirionFordring_OnSpawn_Goz", 13500, 1)
                end
            end
        end
        if (message == "#endlk") then
            if Lich ~= nil and Tirion ~= nil then
                if plr:IsGm() == true then
                Count = 0
                Phase = 0
                Lich:RemoveEvents()
                Tirion:RemoveEvents()
                Lich:SendChatMessage(14,0,"You gnats actually hurt me! Perhaps I've toyed with you long enough, now taste the vengeance of the grave!")
                Lich:PlaySoundToSet(17359)
                Lich:MoveTo(512.7, -2120.5, 1572.1, 0)
                Lich:SetMovementFlags(1)
                Lich:SetCombatCapable(1)
                Lich:RegisterEvent("hhTest_Debug_MoveToCentreOfRoom", 100, 0)
                Lich:RegisterEvent("hggzhTest_Debug_MoveToCentreOfRoom_z", 5005, 1)
                end
            end
        end
    end
    RegisterServerHook(16, "zczz_OnChat")
end

------------------------------------------------------------------------