[Release] Re-Writen Kael'Thas script Blizzlike

[AzolexX]

Hello people, this is my re-writen Kael'thas the broken script, last boss encounter in Magister's Terrace 5 man instance. This is for normal mode only!

My log:

-Summoning phoenix Only where he stands
-He is rooted
-Scripted his 36 seconds long speach
-Phoenix's have spell's
-Phoenix's spawn eggs
-Egg's spawn Phoenix after 10 seconds
-Gravity phase
-Stun phase

--Defines
local UNIT_FLAG_NOT_ATTACKABLE_9           = 0x00000100
local CHAT_MSG_MONSTER_YELL							= 14
local LANG_UNIVERSAL				= 0
local plr = pUnit:GetRandomPlayer(7)
local play = pUnit:GetRandomPlayer(3)

--[[ Sound ID's
Sound\Creature\PrinceKaelthasSunstrider [12413] name=A_MTERRACE_BROKENKAELAGGRO file1=BROKENKAELAGGRO.wav 
Sound\Creature\PrinceKaelthasSunstrider [12415] name=A_MTERRACE_BROKENKAELPHOENIX 
Sound\Creature\PrinceKaelthasSunstrider [12417] name=A_MTERRACE_BROKENKAELFLAMESTRIK 
Sound\Creature\PrinceKaelthasSunstrider [12418] name=A_MTERRACE_BROKENKAELPHASE2 
Sound\Creature\PrinceKaelthasSunstrider [12419] name=A_MTERRACE_BROKENKAELWEAKENED 
Sound\Creature\PrinceKaelthasSunstrider [12420] name=A_MTERRACE_BROKENKAELMOREAIR 
Sound\Creature\PrinceKaelthasSunstrider [12421] name=A_MTERRACE_BROKENKAELDEATH 
]]

--I am not sure about sound id's i will test them maybe if i have time

function Kaelthas_OnEnterCombat(pUnit,Event)
    pUnit:Root()
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL,LANG_UNIVERSAL,"Don't look so smug! I know what you're thinking, but Tempest Keep was merely a set back. Did you honestly believe I would trust the future to some blind, half-night elf mongrel? Hahahaha... Oh no, no, no, he was merely an instrument, a stepping stone to a much larger plan! It has all led to this...and this time, you will not interfere!")
	pUnit:PlaySoundToSet(12413)
	pUnit:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_ATTACKABLE_9)	
	pUnit:RegisterEvent("Kaelthas_Phase1", 38000, 1) -- This is blizzlike timing
end

function Kaelthas_Phase1(pUnit,Event)
	pUnit:RemoveEvents()
	pUnit:Root()
	pUnit:RegisterEvent("Kaelthas_FireBolt", 2500, 0)
	pUnit:RegisterEvent("Kaelthas_PhoenixSummon", 25000, 2)
	pUnit:RegisterEvent("Kaelthas_FlameStrike", 21000, 0)	
	if pUnit:GetHealthPct() > 50 then
 	pUnit:RegisterEvent("Kaelthas_Gravity", 1000, 0)
	end
end

function Kael_Fireball(pUnit,Event)
	pUnit:FullCastSpellOnTarget(46164,pUnit:GetMainTank())
end

function Kael_PhoenixSummon(pUnit,Event)
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL,LANG_UNIVERSAL,"Vengeance burns!")
	pUnit:PlaySoundToSet(12415)
    if type(plr) == "userdata" then
	pUnit:SpawnCreature(24674 , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) -- i will add choices 
	end
end

function Kael_FlameStrike(pUnit,Event)
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL,LANG_UNIVERSAL,"Felomin ashal! ")
	pUnit:PlaySoundToSet(12417)
	if type(play) == "userdata" then
	pUnit:SpawnCreature(24666 , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 5) -- Should add his insane AI!
	end
end	

function Kael_Gravity(pUnit,Event) -- Fly Phase.	 No more basic spells. I need spell handeler for it!
	pUnit:RemoveEvents()
	pUnit:Root()
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL,LANG_UNIVERSAL,"I'll turn your world...upside...down.")
	pUnit:PlaySoundToSet(12418)
	pUnit:FullCastSpell(44224)
	pUnit:RegisterEvent("Kaelthas_Week", 30000, 1)
end

function Kael_Week(pUnit,Event)
	pUnit:Root()
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL,LANG_UNIVERSAL,"Master, grant me strength.")
	pUnit:PlaySoundToSet(12419)
	pUnit:FullCastSpell(36185) -- stun fest, this is Dummy on wowhead, i dont know will it work
	pUnit:RegisterEvent("Kaelthas_Again", 10000, 1) -- again Gravity
end

function Kael_Again(pUnit,Event) -- this is gravity phase
	pUnit:Root()
	pUnit:RemoveEvents()
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL,LANG_UNIVERSAL,"Do not get...too comfortable.")
	pUnit:PlaySoundToSet(12420)
	pUnit:FullCastSpell(44224)
	pUnit:RegisterEvent("Kaelthas_Week", 30000, 1)
end

function Kael_OnDied(pUnit, event, player)
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL,LANG_UNIVERSAL,"My demise accomplishes nothing! The Master will have you! You will drown in your own blood! The world shall burn! Aaaghh!")
	pUnit:PlaySoundToSet(12421)
	pUnit:RemoveEvents()
end

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

RegisterUnitEvent(24664, 1, "Kael_OnEnterCombat")
RegisterUnitEvent(24664, 2, "Kael_OnLeaveCombat")
RegisterUnitEvent(24664, 3, "Kael_OnDied")

-- ################################## PHOENIX AI ############################################

function Phoenix_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("Phoenix_HellFire", 2500, 0)
end

function Phoenix_HellFire(pUnit,Event)
	pUnit:FullCastSpell(44199)
end
	
function Phoenix_OnDied(pUnit, event, player)
	local x,y,z,o = pUnit:GetX(),pUnit:GetY(),pUnit:GetZ(),pUnit:GetO()
	pUnit:SpawnCreature(24675 , x, y, z, o, 14, 11000) -- SUMMON EGG
	pUnit:RemoveEvents()
end

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

RegisterUnitEvent(24674, 1, "Phoenix_OnEnterCombat")
RegisterUnitEvent(24674, 2, "Phoenix_OnLeaveCombat")
RegisterUnitEvent(24674, 3, "Phoenix_OnDied")

-- ########################## EGG ##########################

function Phoenix_OnEnterCombat(pUnit,Event)
	local x,y,z,o = pUnit:GetX(),pUnit:GetY(),pUnit:GetZ(),pUnit:GetO()
	pUnit:SpawnCreature(24674 , x, y, z, o, 14, 10000) -- Summon Phoenix if not killed after 10 seconds 
end
	
function Egg_OnDied(pUnit, event, player)
	pUnit:RemoveEvents()
end

RegisterUnitEvent(24675, 1, "Egg_OnEnterCombat")
RegisterUnitEvent(24675, 3, "Egg_OnDied")

Find this and many more awsome scripts on Blua SVN:Blua - Revision 446: /

[Etna]

Zomg That's nice +rep x2

EDIT: omg :P need to spread xD

[Grevs]

Nice mate.

[stoneharry]

Somone went to the effert to make this script even though wotlk is coming out +Rep

[AzolexX]

Here is another Updated:

More works on Kael'thas:

*Added Flame Strike Trigger.(flame strike still not working!)
*Changed phoenix spawn's at players big thanks to Paroxysm!
*some small in egg fix.

[Lauren]

This is epic, mate. +Rep

[cryoxis]

umm...can someone help me...it wont work...or probably im doing something wrong...