ICC not re-spawning.

[Sokoloft]

So, I have a script to put all the mobs in ICC. Here it is

local Lich = nil
local Tirion = nil
local package = nil
local Terenas = nil
local Count = 0
local Phase = 0
local Players_Wiped = 0
 
---- 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(3072111, 18, "LichKing_OnSpawn")
 
---- Tirion ------------------------------------------------------
 
function TirionFordring_OnSpawn(pUnit, Event)
        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(45776)
        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(72143) -- Enrage, dunno real spell so we use this method :3
                        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(70337, plr) -- ^ ^ ^ ^ ^ ^ ^ ^ ^
        end
end
 
function Infest_Big_AOE_Incoming(pUnit, Event)
        Lich:FullCastSpell(70541)
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(68981)
        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(72133, 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)
        local Object = Lich:GetGameObjectNearestCoords(pUnit:GetX(),pUnit:GetY(),pUnit:GetZ(), 2957197)
        if Object ~= nil then
        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(69409, 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(68981)
        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)
        --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)
        -- No object to despawn this time - Outer shell part already there
        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(68980, 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(70063)
        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
        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 :>)
        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)
        local x, y, z, o = Lich:GetX(), Lich:GetY(), Lich:GetZ(), Lich:GetO()
        Tirion:SetMovementFlags(1)
        Tirion:MoveTo(x, y, z, o)
        Lich:StopChannel()
        Lich:RegisterEvent("zagazzzDebug_Send_Next_Message_LichKingzzzzgzg", 3000, 1)
end
 
function zagazzzDebug_Send_Next_Message_LichKingzzzzgzg(pUnit, Event)
        Lich:CastSpell(37592) -- Knockdown
        Lich:CastSpell(72726) -- Boom visual
        Lich:EquipWeapons(0,0,0)
        Tirion:SetMovementFlags(1)
        Tirion:MoveTo(536.5, -2121, 1572.1, 3.15)
        Lich:RegisterEvent("zagazzzDebug_Send_Next_Message_LichKingzgeazzzzgzg", 1000, 1)
end
 
function zagazzzDebug_Send_Next_Message_LichKingzgeazzzzgzg(pUnit, Event)
        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: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
        Lich:RegisterEvent("zLich_King_Is_Not_A_Happy_Bunny", 5000, 1)
end
 
function zLich_King_Is_Not_A_Happy_Bunny(pUnit, Event)
        Terenas:Despawn(1,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)
        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
        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(25452151, 1, "zhgzFlying_Dude_OnCombat")
RegisterUnitEvent(25452151, 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")

But the problem is that they don't respawn. Even if I press on my name
"reset all instances". Please help. Thanks

[stoneharry]

Huge, quite poor, script which I assume is my version of the Lich King by the looks of it.

This is ONLY for The Lich King encounter, and requiores you to spawn Tirion and The Lich King beforehand in the correct place. Once they are spawned restart the server and they should become permanent spawns within the instance. Because it's a raid it may not let you reset it till next week, in which case you can change it to a instance by changing the info in worldmap_info table.

[Sokoloft]

Ya, I noticed it was your script when I started looking for places to edit. Ya, il look in to that

[Sokoloft]

What is the id of the raid?

---------- Post added at 04:56 PM ---------- Previous post was at 04:42 PM ----------

nvm i found it, so edit what tables? Type and flags?

---------- Post added at 05:22 PM ---------- Previous post was at 04:56 PM ----------

nvm, i got it, but what should i change the type or flags?

[stoneharry]

http://arcemu.org/wiki/index.php?title=Worldmap_info

Read it.