[LUA Release] Arthas/Kel'thuzad

[Pimpin_N0ob]

Hello, these are 2 scripts I put together some time ago and they never got released. I am pretty sure they work but I never got to test them out.

The Arthas/Lich King fight is a custom fight, but the Ke'thuzad figh it almost identical to the real Naxx fight. Hope you enjoy

Arthas

function Arthas_OnCombat(Unit, Event) 
Unit:SendChatMessage(12, 0, "Foolish mortal, you dare to challenge the great? You will regret this day!!")
Unit:RegisterEvent("Arthas_SolarStrike", 60000, 5)
Unit:RegisterEvent("Arthas_Grow", 15000, 20)
Unit:RegisterEvent("Arthas_Icebolt", 45000, 50)
end

function Arthas_OnKilledTarget(Unit, Event) 
Unit:SendChatMessage(12, 0, "Muahaha! This is what you get for challenging the Lich King!") 
end

function Arthas_SolarStrike(pUnit, Event) 
pUnit:FullCastSpellOnTarget(35189, pUnit:GetMainTank()) 
end

function Arthas_Grow(pUnit, Event) 
pUnit:CastSpell(35180) 
end

function Arthas_Icebolt(pUnit, Event) 
pUnit:FullCastSpellOnTarget(31249, pUnit:GetRandomPlayer(0))
end

function Arthas_Spawn(pUnit, Event) 
if pUnit:GetHealthPct() < 25 then 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
Unit:SendChatMessage(12,0, "Come my minions")
pUnit:RemoveEvents(); 
end
end

function Arthas_Yell(pUnit, Event) 
if pUnit:GetHealthPct() < 10 then 
Unit:SendChatMessage(12,0, "Noo, I am losing my power!!")
Unit:CastSpell(35179)
end
end


function Arthas_OnDied(Unit, Event) 
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "No... It cannot be possible. I will return to see another day.") 
end
end

RegisterUnitEvent(0000, 1, "EnterCombat_OnCombat")
RegisterUnitEvent(0000, 2, "KilledTarget_OnKilledTarget")
RegisterUnitEvent(0000, 3, "OnDeath_OnDied")

For this, he spawns some mobs to help him, you need to change the ID from 00000 to what ever the mob ID that you want him spawning is. Also remember to change the entry ID at the bottom.



Kel'thuzad

function Kel'Thuzad_OnCombat(Unit, Event) 
Unit:SendChatMessage(11, 0, "What is this? Someone trying to defeat me? Think again!")
Unit:RegisterEvent("Kel'Thuzad_Frostbolt", 12500, 0)
Unit:RegisterEvent("Kel'thuzad_FrostboltVolley", 15000, 0)
Unit:RegisterEvent("Kel'Thuzad_Chains", 45000, 0)
Unit:RegisterEvent("Kel'Thuzad_Detonate", 35000, 0)
Unit:RegisterEvent("Kel'Thuzad_FrostBlast", 100000, 0)
end


function Kel'Thuzad_Frostbolt(pUnit, Event) 
pUnit:FullCastSpellOnTarget(28478, pUnit:GetRandomPlayer(7)) 
end

function Kel'thuzad_FrostboltVolley(pUnit, Event) 
pUnit:FullCastSpellOnTarget(29957, pUnit:GetMainTank()) 
end

function Kel'Thuzad_Chains(pUnit, Event) 
pUnit:FullCastSpellOnTarget(28410, pUnit:GetRandomPlayer(5)) 
end

function Kel'Thuzad_Detonate(pUnit, Event) 
pUnit:FullCastSpellOnTarget(27819, pUnit:GetRandomPlayer(0)) 
end

function Kel'Thuzad_FrostBlast(pUnit, Event) 
pUnit:FullCastSpellOnTarget(27808, pUnit:GetRandomPlayer(0)) 
end

function Kel'Thuzad_Phase2(pUnit, Event) 
if pUnit:GetHealthPct() < 40 then 
pUnit:RemoveEvents();
Unit:SendChatMessage(11, 0, "I am getting weak! Come my minions, help me fend of these intruders.")
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
end

function Kel'Thuzad_onDied(Unit, Event)
Unit:SendChatMessage(11, 0, "Do not rejoice... your victory is a hollow one... for I shall return with powers beyond your imagining!")
end
end

RegisterUnitEvent(0000, 1, "EnterCombat_OnCombat")
RegisterUnitEvent(0000, 2, "OnDeath_OnDied")

For this, Kel'thuzad will spawn 5 mobs, at the moments I believe they are attuned for level 70, you can make a new mob and but the ID in there... Also remember to change the entry ID at the end.


If you have any corrections, suggestions, criticism let me know, I will fix it.

--Pimpin_N0ob

[Succy]

Nice, Nice I'll try it later +Rep x3 for a good effort.

[Gunzarles]

You should put in a SQL for Arthas Some people is lazy like me

[stoneharry]

Ermmm... To be honoust thats nothing like the actual fight...
But it's a nice script and I see effert +Rep

[BrantX]

There is no "end" at

function Arthas_Yell(pUnit, Event)
if pUnit:GetHealthPct() < 10 then
Unit:SendChatMessage(12,0, "Noo, I am losing my power!!")
Unit:CastSpell(35179)

[Etna]

hehe this is Nice mate

[Pimpin_N0ob]

Ermmm... To be honoust thats nothing like the actual fight...
But it's a nice script and I see effert +Rep

Weird because I went on WoWWiki and looked up the fight and those are most of the spells he uses... oh well XD..


BrantX- Thanks for spotting this.

[stoneharry]

Weird because I went on WoWWiki and looked up the fight and those are most of the spells he uses... oh well XD..


BrantX- Thanks for spotting this.

Not the spells, the fight. One spell not correct - Chains of kel'thuzad is supposed to mind controll not make you overpowered, but thats core.
And on retail, you walk into room, kel'thuzad you cant attack for 5mins and you have to survive endless waves of monsters. Then you fight kel'thuzad with spells till 30% then he calls for help from lich king, and loads of beetles come out of the portal and you continue. Thats a brief description of it =p

[Pimpin_N0ob]

Not the spells, the fight. One spell not correct - Chains of kel'thuzad is supposed to mind controll not make you overpowered, but thats core.
And on retail, you walk into room, kel'thuzad you cant attack for 5mins and you have to survive endless waves of monsters. Then you fight kel'thuzad with spells till 30% then he calls for help from lich king, and loads of beetles come out of the portal and you continue. Thats a brief description of it =p

I would do the 5 minutes and waves thing, but I'm not that good at LUA yet =(

[stoneharry]

It would be really hard to be done in Lua. Trust me. I wouldn't attempt it.
Although It has been done in C++.

[Pimpin_N0ob]

It would be really hard to be done in Lua. Trust me. I wouldn't attempt it.
Although It has been done in C++.

Not much knowledge of C++ here XD

[stoneharry]

Not much knowledge of C++ here XD

Thats no problem, not many people do. I'm not going to reply again to this post because... I have lots of posts in here now :P

It's a nice script and i'm glad your putting effert in, not everyone would go onto wowwiki and look up a fight. They would just randomly make one!

[BrantX]

There is suppost to be 2 "ends" or it will give you an error because you have the "if pUnit..."
So the below text needs 2 ends.

function Arthas_Yell(pUnit, Event) 
if pUnit:GetHealthPct() < 10 then 
Unit:SendChatMessage(12,0, "Noo, I am losing my power!!")
Unit:CastSpell(35179)
end


function Arthas_Spawn(pUnit, Event) 
if pUnit:GetHealthPct() < 25 then 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
Unit:SendChatMessage(12,0, "Come my minions")
pUnit:RemoveEvents(); 
end

function Kel'Thuzad_Phase2(pUnit, Event) 
if pUnit:GetHealthPct() < 40 then 
pUnit:RemoveEvents();
Unit:SendChatMessage(11, 0, "I am getting weak! Come my minions, help me fend of these intruders.")
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
end

[Pimpin_N0ob]

There is suppost to be 2 "ends" or it will give you an error because you have the "if pUnit..."
So the below text needs 2 ends.

function Arthas_Yell(pUnit, Event) 
if pUnit:GetHealthPct() < 10 then 
Unit:SendChatMessage(12,0, "Noo, I am losing my power!!")
Unit:CastSpell(35179)
end


function Arthas_Spawn(pUnit, Event) 
if pUnit:GetHealthPct() < 25 then 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000)
pUnit:SpawnCreature(00000) 
pUnit:SpawnCreature(00000) 
Unit:SendChatMessage(12,0, "Come my minions")
pUnit:RemoveEvents(); 
end

function Kel'Thuzad_Phase2(pUnit, Event) 
if pUnit:GetHealthPct() < 40 then 
pUnit:RemoveEvents();
Unit:SendChatMessage(11, 0, "I am getting weak! Come my minions, help me fend of these intruders.")
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
pUnit:SpawnCreature(16441)
end

Again, thanks =)

[igor1222]

Well the scripts looks ok actually.
I am not the best at LUA either, but the fight can actually be done in LUA stoneHarry.

I saw the first Mount Hyjal encounter (Rage Winterchill) completely made in LUA and that wasn't an easy script either! But deffo possible.
Basically you will need a good set of Coordinates, and make some custom waypoint and movement maps within the LUA script, which it deletes upon Kel'Thuzad dead. I don't know about a time limit since I have't worked with that, but then you could think in another way:
"How many waves did it usually take before the fight against Kel'Thuzad began?"
And then base it on that...

But well.
It would be complicated if you did make it in LUA but not impossible really. But it would take more than a Common LUA to just make it. You would need a good portion of Knowledge in LUA. I know I have "Leecher rank", but really I just never posted or anything. I rather just read the forums so ^^
Well nice that you tried at least. I am giving you 1 rep for that