[RELEASE] High Paladin Kayden

[Hardball]

5 man boss encounter on the Serenade of Sorrow server. It is the final boss of the Scarlet Cathedral. Here is a video of the fight. The SQL can be whatever you want and he can be spawned wherever you want so you can easily make your own SQL for this encounter.

[ame="http://www.youtube.com/watch?v=Crs6yPKkS0I"]YouTube - High Paladin Kayden[/ame]

--Scripted by HalestormXV--
--High Paladin Kayden--
--Scarlet Monastery Cathedral--
--Give Credit where Credit is due--

--High Paladin Kayden
function KaydenVolley(pUnit, event)
	pUnit:FullCastSpell(38838)
end

function KaydenHolyWrath(pUnit, event)
	local holy = pUnit:GetRandomPlayer(0)
		if holy ~= nil then
		pUnit:FullCastSpellOnTarget(57466, holy)
		else
	end
end

function KaydenThunderClap(pUnit, event)
	pUnit:CastSpell(58975)
end

--function KaydenDeclareObject(pUnit, Event, pMisc, pGameObject, player)
--	FlameDoor = pGameObject
--end

function KaydenAggro(pUnit, event)
	--pUnit:SpawnGameObject(1234636, 1179.295410, 1398.709106, 31.971283, 6.234664, 0)
	pUnit:PlaySoundToSet(13472)
	pUnit:SendChatMessage(14, 0, "Ahh...The entertainment has arrived.")
	pUnit:RegisterEvent("KaydenThunderClap", 12000, 0)
	pUnit:RegisterEvent("KaydenVolley", 17000, 0)
	pUnit:RegisterEvent("KaydenHolyWrath", 23000, 0)
	pUnit:RegisterEvent("Kayden2", 1000, 0)
end

function Kayden2(pUnit, event)
	if pUnit:GetHealthPct() <= 75 then
	pUnit:RemoveEvents()
	pUnit:PlaySoundToSet(13473)
	pUnit:SendChatMessage(14, 0, "The fun is just beginning!")
	pUnit:RegisterEvent("Kayden2Moves", 1000, 1)
	end
end

function KaydenSpecial(pUnit, event)
	pUnit:SetCombatCapable(1)
	pUnit:RemoveEvents()
	pUnit:CastSpell(40733)
	pUnit:PlaySoundToSet(13478)
	pUnit:SendChatMessage(14, 0, "BOOM! Hahahahaha...")
	pUnit:FullCastSpell(29973)
	pUnit:RegisterEvent("KaydenSpecialP2", 2000, 5)
	pUnit:RegisterEvent("Kayden2Moves", 11000, 1)
end
function KaydenSpecialP2(pUnit, event)
	pUnit:CastSpell(36278)
end

function Kayden2Moves(pUnit, event)
	pUnit:SetCombatCapable(0)
	pUnit:RemoveAura(40733)
	pUnit:RegisterEvent("KaydenThunderClap", 8000, 0)
	pUnit:RegisterEvent("KaydenVolley", 13000, 0)
	pUnit:RegisterEvent("KaydenHolyWrath", 22000, 0)
	pUnit:RegisterEvent("KaydenSpecial", 25000, 0)
	pUnit:RegisterEvent("Kayden3", 1000, 0)
end

function KaydenPower(pUnit, event)
	pUnit:PlaySoundToSet(13481)
	pUnit:SendChatMessage(14, 0, "Such strength...IT MUST BE MINE!")
	pUnit:CastSpell(59354)
	pUnit:CastSpell(59355)
end

function Kayden3(pUnit, event)
	if pUnit:GetHealthPct() <= 50 then
	pUnit:RemoveEvents()
	pUnit:PlaySoundToSet(13474)
	pUnit:SendChatMessage(14, 0, "Ahhh....Quality materials.")
	pUnit:RegisterEvent("Kayden3Moves", 1000, 1)
	end
end


function KaydenSpecialP3(pUnit, event)
	pUnit:RemoveEvents()
	pUnit:SetCombatCapable(1)
	pUnit:PlaySoundToSet(13479)
	pUnit:SendChatMessage(14, 0, "Blood! Desturction! EXHILARATING!!!!")
	pUnit:CastSpell(40733)
	pUnit:RegisterEvent("KaydenSpecialP3Visual", 1000, 4)
	pUnit:RegisterEvent("KaydenSpecialP3Cast", 5000, 1)
end
function KaydenSpecialP3Visual(pUnit, event)
	pUnit:CastSpell(58854)
end
function KaydenSpecialP3Cast(pUnit, event)	
	local X = pUnit:GetX()
	local Y = pUnit:GetY()
	local Z = pUnit:GetZ()
	local O = pUnit:GetO()
	pUnit:CastSpell(53658)
	pUnit:MoveTo(X, Y, Z + 10, O)
	pUnit:RegisterEvent("KaydenSpecialP3CastSpell", 4000, 1)
end
function KaydenSpecialP3CastSpell(pUnit, event)	
	pUnit:RegisterEvent("KaydenSpecialP3CastSpell1", 1500, 6)
	pUnit:RegisterEvent("KaydenSpecialP3Reset", 7000, 1)
end
function KaydenSpecialP3CastSpell1(pUnit, event)	
	pUnit:CastSpell(38838)
end
function KaydenSpecialP3Reset(pUnit, event)
	local X2 = pUnit:GetX()
	local Y2 = pUnit:GetY()
	local Z2 = pUnit:GetZ()
	local O2 = pUnit:GetO()
	pUnit:MoveTo(X2, Y2, Z2 - 10, O2)
	pUnit:RegisterEvent("Kayden3Moves", 3000, 1)
end

function Kayden3Moves(pUnit, event)
	pUnit:RemoveEvents()
	pUnit:SetCombatCapable(0)
	pUnit:RemoveAura(53658)
	pUnit:RemoveAura(40733)
	pUnit:RegisterEvent("KaydenThunderClap", 8000, 0)
	pUnit:RegisterEvent("KaydenVolley", 13000, 0)
	pUnit:RegisterEvent("KaydenHolyWrath", 22000, 0)
	pUnit:RegisterEvent("KaydenSpecialP3", 24000, 0)
	pUnit:RegisterEvent("KaydenP4", 1000, 0)
end

function KaydenAvenging(pUnit, event)
	pUnit:CastSpell(50837)
end

function KaydenP4(pUnit, event)
	if pUnit:GetHealthPct() <= 30 then
		pUnit:RemoveEvents()
		pUnit:PlaySoundToSet(13475)
		pUnit:SendChatMessage(14, 0, "Don't worry. I'll make good use of you.")
		pUnit:RegisterEvent("KaydenThunderClap", 8000, 0)
		pUnit:RegisterEvent("KaydenVolley", 11000, 0)
		pUnit:RegisterEvent("KaydenHolyWrath", 18000, 0)
		pUnit:RegisterEvent("KaydenPower", 28000, 0)
		pUnit:RegisterEvent("KaydenAvenging", 26000, 0)
	end
end

function KaydenLeave(pUnit, event, pMisc, pGameObject, player)
	pUnit:RemoveEvents()
	pUnit:SetCombatCapable(0)
	pUnit:RemoveAura(53658)
	pUnit:RemoveAura(40733)
	--FlameDoor:Despawn(1000, 0)
end

function KaydenDeath(pUnit, event, pMisc, pGameObject, player)
	pUnit:RemoveEvents()
	pUnit:PlaySoundToSet(13483)
	pUnit:SendChatMessage(14, 0, "You only advance...the master's plan.")
	pUnit:SetCombatCapable(0)
	pUnit:RemoveAura(53658)
	pUnit:RemoveAura(40733)
	--FlameDoor:Despawn(1000, 0)
end

RegisterUnitEvent(40037, 1, "KaydenAggro")
RegisterUnitEvent(40037, 2, "KaydenLeave")
RegisterUnitEvent(40037, 4, "KaydenDeath")
--RegisterGameObjectEvent(1234636, 2, "KaydenDeclareObject")

[Parog]

Your video link is broken. If you copy paste it it works though. Might want to check that.

[Hardball]

ITs broke? I can see it rite here on the forums? Okay i re-pasted the link. Hopefully it works now.

[bsod-staff14]

Nice man +Rep this script rocks!

[Zudrik]

Very nice +Rep

[Vindicated]

Nice, been looking for more SM scripts? Is this Blizzlike?

[Appled]

Great boss, gonna test it out Which is the music in your video? The first one

[stoneharry]

Looks nice, although if it's supposed to be blizzlike it's not :P Don't think it is. Posting a youtube vid is so much better than doing pictures +Rep
Edit: Got to spread, sorry

[svedin]

Nice work :P +Rep

[lesone]

lmao. this script is made by HalestormXV ( Moderator from Arcemu ) :O

credits for him lol

[Hardball]

Thank you everyone. ^^

And yes lesone that is me. check this thread

http://www.mmowned.com/forums/emulat...ossbattle.html

And the music is Redbaron by Madboss of newgrounds.