Madris LUA script

function mardis_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 8, "you will die today by hand and fail your fellow allies! So turn back now!")
Unit:RegisterEvent("mardis_fuse", 10000, 10)
Unit:RegisterEvent("mardis_Phase1", 5000, 0)
Unit:PlaySoundToSet(11962)
end


function mardis_shadowvolley(Unit, Event)
Unit:FullCastSpellOnTarget(70206, Unit:GetRandomPlayer(0))
end

function mardis_lightning(Unit, Event)
Unit:FullCastSpellOnTarget(67029, Unit:GetRandomPlayer(0))
end

function mardis_polymorph(Unit, Event)
Unit:FullCastSpellOnTarget(61721, Unit:GetRandomPlayer(0))
end

function mardis_silence(Unit, Event)
Unit:FullCastSpellOnTarget(8988, Unit:GetRandomPlayer(0))
end

function mardis_fuse(Unit, Event)
Unit:FullCastSpellOnTarget(64970, Unit:GetRandomPlayer(0))
end

function mardis_doom(Unit, Event)
Unit:FullCastSpellOnTarget(71124, Unit:GetRandomPlayer(0))
end




function mardis_Phase1(Unit, event)
	if Unit:GetHealthPct() <90 then
	    Unit:RemoveEvents()
                Unit:SendChatMessage(14, 0, "I will show you what power truely is!")
		Unit:FullCastSpellOnTarget(66964, Unit:GetClosestPlayer())
                Unit:CastSpell(62054)
                Unit:RegisterEvent("mardis_shadowvolley", 5000, 10)
                Unit:RegisterEvent("mardis_fuse", 15000, 10)
                Unit:RegisterEvent("mardis_doom", 10000, 10)
                Unit:RegisterEvent("mardis_Phase2", 1000, 0)
else
end
end



function mardis_Phase2(Unit, event)
	if Unit:GetHealthPct() <75 then
	    Unit:RemoveEvents()
                Unit:RemoveEvents()
                Unit:SendChatMessage(14, 0, "Time for some real fun now so get ready!")
		Unit:FullCastSpellOnTarget(66964, Unit:GetRandomPlayer(0))
                Unit:FullCastSpellOnTarget(47864, Unit:GetRandomPlayer(0))
                Unit:RegisterEvent("mardis_shadowvolley", 5000, 10)
                Unit:RegisterEvent("mardis_lightning", 10000, 10)
                Unit:RegisterEvent("mardis_doom", 10000, 10)
                Unit:RegisterEvent("mardis_Phase3", 1000, 0)
                Unit:CastSpell(31340)
else
end
end

function mardis_Phase3(Unit, event)
	if Unit:GetHealthPct() <50 then
	    Unit:RemoveEvents()
                Unit:RemoveEvents()
                Unit:SendChatMessage(14, 0, "I'm impressed... for some weak vermins like yourselves.")
                Unit:FullCastSpellOnTarget(52921, Unit:GetRandomPlayer(0))
                Unit:FullCastSpellOnTarget(59800, Unit:GetRandomPlayer(0))
                Unit:FullCastSpellOnTarget(36797, Unit:GetRandomPlayer(7))
                Unit:RegisterEvent("mardis_polymorph", 30000, 2)
                Unit:RegisterEvent("mardis_silence", 20000, 2)
                Unit:RegisterEvent("mardis_lightning", 15000, 10)
                Unit:RegisterEvent("mardis_doom", 5000, 2)
                Unit:CastSpell(60953)
                Unit:RegisterEvent("mardis_Phase4", 1000, 0)
else
end
end



function mardis_Phase4(Unit, event)
	if Unit:GetHealthPct() <25 then
	    Unit:RemoveEvents()
               Unit:RemoveEvents()
               Unit:SendChatMessage(14, 0, "Time to end this! I SUMMON THE POWER OF THE DARK PALADIN!")
               Unit:FullCastSpellOnTarget(68821, Unit:GetRandomPlayer(0))
               Unit:FullCastSpellOnTarget(15398, Unit:GetClosestPlayer())
               Unit:FullCastSpellOnTarget(42017, Unit:GetClosestPlayer())
               Unit:RegisterEvent("mardis_doom", 10000, 1)
               Unit:RegisterEvent("mardis_shadowvolley", 5000, 10)
               Unit:CastSpell(69491)
               Unit:CastSpell(67652)
               Unit:CastSpell(72848)
               Unit:CastSpell(69167)
               Unit:CastSpell(46565)
               Unit:CastSpell(72523)
               Unit:SetModel(11321)
               Unit:SetScale(2)
else
end
end


function mardis_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents()
end

function mardis_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "You have failed your friends and allies and now it is there turn to have the same fate!")
end

function mardis_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "No.. this cannot be, it's not suppose to end like this.")
Unit:RemoveEvents()
end


RegisterUnitEvent(65000, 1, "mardis_OnCombat")
RegisterUnitEvent(65000, 2, "mardis_OnLeaveCombat")
RegisterUnitEvent(65000, 3, "mardis_OnKilledTarget")
RegisterUnitEvent(65000, 4, "mardis_OnDied")