Code:
--[WoWRevamped Entertainment]--
      --[Lord Afrasastrasz]---
    ---[Scripted By Dimarxx AkA iFusion]---

function Lord_Afrasastrasz_OnCombat(pUnit, Event)
 pUnit:SendChatMessage(14, 0, "Ahh the Horde have Entered Stormwind City , and its my turn to take care of these nasty pest.")
 pUnit:FullCastSpell(48934)
 pUnit:FullCastSpell(25898)
 pUnit:FullCastSpell(38166)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Phase1", 60000, 0)
end

function Lord_Afrasastrasz_Phase1(pUnit, Event)
 if pUnit:GetHealthPct() <= 99 then
 pUnit:SendChatMessage(14, 0, "You Call This a fight Thrall must of had a much better army then this....hahaha!!!")
 pUnit:FullCastSpell(38449)
 pUnit:FullCastSpell(41251)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Smite", 15000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_DevouringPlague", 10000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_PsychicScream", 10000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Consecration", 25000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Phase2", 60000, 0)
end
end

function Lord_Afarasatrasz_Smite(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48123, pUnit:GetMainTank())
end

function Lord_Afrasastrasz_DevouringPlague(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48300, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_PsychicScream(pUnit, Event)
 pUnit:FullCastSpellOnTarget(10890, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_Consecration(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48819, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_Phase2(pUnit, Event)
 if pUnit:GetHealthPct() <= 95 then
 pUnit:FullCastSpell(31884)
 pUnit:FullCastSpell(48168)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Consecration", 25000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Smite", 15000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_DevouringPlague", 10000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Phase3", 60000, 0)
end
end

function Lord_Afrasastrasz_Consecration(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48819, pUnit:GetRandomPlayer(0))
end

function Lord_Afarasatrasz_Smite(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48123, pUnit:GetMainTank())
end

function Lord_Afrasastrasz_DevouringPlague(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48300, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_Phase3(pUnit, Event)
 if pUnit:GetHealthPct() <= 74 then
 pUnit:RemoveEvents()
 pUnit:FullCastSpell(45922)
 pUnit:SendChatMessage(14, 0, "See No Horde has ever gotten past my Commanders in 14 thousand years so today i will not allow you nasty pest get passed me , time for my true power!")
 pUnit:SetScale(2)
 pUnit:SetModel(26326)
 pUnit:FullCastSpell(48073)
 pUnit:FullCastSpell(48068)
 pUnit:RegisterEvent("Lord_Afarasatrasz_HolyNova", 15000, 0)
 pUnit:RegisterEvent("Lord_Afarasatrasz_HolyFire", 15000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_ShadowWordPain", 25000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_PsychicScream", 10000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Phase4", 60000, 0)
end
end

function Lord_Afrasastrasz_HolyNova(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48078, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_HolyFire(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48135, pUnit:GetMainTank())
end

function Lord_Afrasastrasz_ShadowWordPain(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48125, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_PsychicScream(pUnit, Event)
 pUnit:FullCastSpellOnTarget(10890, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_Phase4(pUnit, Event)
 if pUnit:GetHealthPct() <= 25 then
 pUnit:RemoveEvents()
 pUnit:SendChatMessage(14, 0,"This Cant Be the End Not for King Varian Wyrnn , would be disappointed in me.....Horde Pest! Die!!!!")
 pUnit:FullCastSpell(31884)
 pUnit:FullCastSpell(48168)
 pUnit:FullCastSpell(48073)
 pUnit:FullCastSpell(48068)
 pUnit:RegisterEvent("Lord_Afrasastrasz_HolyNova", 15000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_HolyFire", 15000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_ShadowWordPain", 25000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_PsychicScream", 10000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Summon", 10000, 1)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Consecration", 25000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_Smite", 15000, 0)
 pUnit:RegisterEvent("Lord_Afrasastrasz_DevouringPlague", 10000, 0)
end
end

function Lord_Afrasastrasz_HolyNova(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48078, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_HolyFire(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48135, pUnit:GetMainTank())
end

function Lord_Afrasastrasz_ShadowWordPain(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48125, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_PsychicScream(pUnit, Event)
 pUnit:FullCastSpellOnTarget(10890, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_Consecration(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48819, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_Smite(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48123, pUnit:GetMainTank())
end

function Lord_Afrasastrasz_DevouringPlague(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48300, pUnit:GetRandomPlayer(0))
end

function Lord_Afrasastrasz_OnLeaveCombat(pUnit, Event)
 pUnit:RemoveEvents()
 pUnit:SendChatMessage(14, 0, "See Retribution is Upon Us Alliance.")
end

function Lord_Afrasastrasz_OnDeath(pUnit, Event)
 pUnit:RemoveEvents()
 pUnit:SendChatMessage(14, 0, "King Varian Wyrnn....forgive me...i have failed your quest")
end

RegisterUnitEvent(755545, 1, "Lord_Afrasastrasz_OnCombat")
RegisterUnitEvent(755545, 2, "Lord_Afrasastrasz_OnLeaveCombat")
RegisterUnitEvent(755545, 4, "Lord_Afrasastrasz_OnDeath")