molten/deathwing Fixed lich king 25m

#Created by Nikola ristevski

     

    #

    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

    #