[LUA] Stormwind Bosses (Magister Auron & Commander Duron)

Code:

---

---[--WoWRevamped Entertainment Presents--]---
  ----[--Scripted and Provided by Dimarxx AkA iFusion--]-----
          ----[--Magister Auron--]----

function Magister_Auron_OnEnterCombat(pUnit, Event)
  pUnit:SendChatMessage(14, 0, "What is this Horde, In Stormwind there has of been a big mistake , there is no way that these nasty vermions got passed the Greatest Soilder of all of Azeroth...Well its my Turn!")
  pUnit:FullCastSpell(47891)
  pUnit:FullCastSpell(48170)
  pUnit:FullCastSpell(47889)
  pUnit:FullCastSpell(43008)
  pUnit:FullCastSpell(43039)
  pUnit:FullCastSpell(48792)
  pUnit:FullCastSpell(43012)
  pUnit:RegisterEvent("Magister_Auron_Phase1", 12000,0)
end

 ----[--Phase 1 Summoner(Talk) Stage--]----
function Magister_Auron_Phase1(pUnit, Event)
  if pUnit:GetHealthPct() <= 99 then
  pUnit:SetCombatCapable(1)
  pUnit:SetCombatTargetingCapable(1)
  pUnit:SetFaction(35)
  pUnit:SendChatMessage(14, 0, "Before i kill you , i wanted you to a little something , during my studys as a young boy i learned that i was able to develop a power unlike no other i could take forms of other Ancient Bosses as of this One!...Raise ARAN!")
  pUnit:FullCastSpell(48170)
  pUnit:FullCastSpell(47891)
  pUnit:SetModel(16621)
  pUnit:RegisterEvent("Magister_Auron_Phase2", 12000, 0)
 end
end
 
 ----[--Phase 2 Summoner(Battle) Stage--]----
 function Magister_Auron_Phase2(pUnit, Event)
  pUnit:SetCombatCapable(0)
  pUnit:SetCombatTargetingCapable(0)
  pUnit:SetFaction(1)
  pUnit:SendChatMessage(14, 0, "Now Die You Nasty Hallow things you are")
  pUnit:FullCastSpell(48170)
  pUnit:FullCastSpell(47891)
  pUnit:FullCastSpell(47889)
  pUnit:RegisterEvent("Magister_Auron_Mind_Blast", 3000,0)
  pUnit:RegisterEvent("Magister_Auron_Devouring_Plague", 6500,0)
  pUnit:RegisterEvent("Magister_Auron_Psychic_Scream", 9000,0)
  pUnit:RegisterEvent("Magister_Auron_Mind_Sear", 8450,0)
  pUnit:RegisterEvent("Magister_Auron_Shadow_Word_Death", 5000,0)
  pUnit:RegisterEvent("Magister_Auron_Shadow_Word_Pain", 4500,0)
  pUnit:RegisterEvent("Magister_Auron_Vampiric_Touch", 8900,0)
  pUnit:RegisterEvent("Magister_Auron_Shadow_Bolt", 1780,0)
  pUnit:RegisterEvent("Magister_Auron_Hellfire", 7800,0)
  pUnit:RegisterEvent("Magister_Auron_Immolate", 8700,0)
  pUnit:RegisterEvent("Magister_Auron_Phase3", 12000, 0)
end

function Magister_Auron_Mind_Blast(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48127, pUnit:GetRandomPlayer(0))
end

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

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

function Magister_Auron_Mind_Sear(pUnit, Event)
 pUnit:FullCastSpellOnTarget(53023, pUnit:GetMainTank())
end

function Magister_Auron_Shadow_Word_Death(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48158, pUnit:GetRandomPlayer(0))
 end

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

function Magister_Auron_Vampiric_Touch(pUnit, Event)
 pUnit:FullCastSpellOnTarget(48160, pUnit:GetMainTank())
end

function Magister_Auron_Shadow_Bolt(pUnit, Event)
 pUnit:FullCastSpellOnTarget(47809, pUnit:GetRandomPlayer(0))
end

function Magister_Auron_Hellfire(pUnit, Event)
 pUnit:FullCastSpellOnTarget(47823, pUnit:GetMainTank())
end

function Magister_Auron_Immolate(pUnit, Event)
 pUnit:FullCastSpellOnTarget(47811, pUnit:GetRandomPlayer(0))
end

----[--Phase 3 Mage(Talk-Ice) Stage--]----
function Magister_Auron_Phase3(pUnit, Event)
 if pUnit:GetHealthPct() <= 85 then
  pUnit:SetCombatCapable(1)
  pUnit:SetCombatTargetingCapable(1)
  pUnit:SetFaction(35)
  pUnit:SendChatMessage(14, 0, "I Have seen that Aran was too weak of a Ancient Keeper to defeat you peons, well i guess Ahune Will take care of this. RISE! Ice KING!!!!!")
  pUnit:SetModel(23344)
  pUnit:FullCastSpell(43008)
  pUnit:FullCastSpell(43039)
  pUnit:FullCastSpell(48792)
  pUnit:FullCastSpell(43012)
  pUnit:RegisterEvent("Magister_Auron_Phase4", 12000, 0)
  end
end

 
----[--Phase 4 Mage(Battle-Ice) Stage--]----
function Magister_Auron_Phase4(pUnit, Event)
  pUnit:SetCombatCapable(0)
  pUnit:SetCombatTargetingCapable(0)
  pUnit:SetFaction(1)
  pUnit:SendChatMessage(14, 0, "Let the Ice from my Powers Freeze your bones and stop your heart!")
  pUnit:FullCastSpell(43008)
  pUnit:FullCastSpell(43039)
  pUnit:FullCastSpell(48792)
  pUnit:FullCastSpell(43012)
  pUnit:RegisterEvent("Magister_Auron_Ice_Lance", 8760, 0)
  pUnit:RegisterEvent("Magister_Auron_Frostbolt", 7000, 0)
  pUnit:RegisterEvent("Magister_Auron_Frost_Nova", 9000, 0)
  pUnit:RegisterEvent("Magister_Auron_Cone_Of_Cold", 6500, 0)
  pUnit:RegisterEvent("Magister_Auron_Blizzard", 2000, 0)
  pUnit:RegisterEvent("Magister_Auron_Frost_Aura", 5000, 0)
  pUnit:RegisterEvent("Magister_Auron_Frost_Bite", 4500, 0)
  pUnit:RegisterEvent("Magister_Auron_Frost_Breath", 6700, 0)
  pUnit:RegisterEvent("Magister_Auron_Phase5", 12000, )
end
 
function Magister_Auron_Ice_Lance(pUnit, Event)
 pUnit:FullCastSpellOnTarget(42914, pUnit:GetRandomPlayer(0))
end

function Magister_Auron_Frostbolt(pUnit, Event)
 pUnit:FullCastSpellOnTarget(42842, pUnit:GetMainTank())
end

function Magister_Auron_Frost_Nova(pUnit, Event)
 pUnit:FullCastSpellOnTarget(42917, pUnit:GetRandomPlayer(0))
 end

function Mageister_Auron_Cone_Of_Cold(pUnit, Event)
 pUnit:FullCastSpellOnTarget(42931, pUnit:GetRandomPlayer(0))
end

function Magister_Auron_Blizzard(pUnit, Event)
 pUnit:FullCastSpellOnTarget(42940, pUnit:GetMainTank())
end

function Magister_Auron_Frost_Aura(pUnit, Event)
 pUnit:FullCastSpellOnTarget(55799, pUnit:GetRandomPlayer(0))
end

function Magister_Auron_Frost_Bite(pUnit, Event)
 pUnit:FullCastSpellOnTarget(63563, pUnit:GetMainTank())
end

function Magister_Auron_Frost_Breath(pUnit, Event)
 pUnit:FullCastSpellOnTarget(65248, pUnit:GetRandomPlayer(0))
end

----[--Phase 5 Warrior(Talk) Stage--]----
function Magister_Auron_Phase5(pUnit, Event)
 if pUnit:GetHealthPct() <= 45 then
  pUnit:SetCombatCapable(1)
  pUnit:SetCombatTargetingCapable(1)
  pUnit:SetFaction(35)
  pUnit:SetModel(23690)
  pUnit:SendChatMessage(14, 0, "See I Will have to use my Final Form Come Anicent Soilder of the Northened Waste!!!!!")
  pUnit:FullCastSpell(47436)
  pUnit:FullCastSpell(1719)
  pUnit:FullCastSpell(47440)
  pUnit:FullCastSpell(18499)
  pUnit:FullCastSpell(38166)
  pUnit:RegisterEvent("Magister_Auron_Phase6", 12000, 0)
  end
end

----[--Phase 6 Warrior(Battle) Stage--]----
function Magister_Auron_Phase6(pUnit, Event)
 pUnit:SetCombatCapable(0)
 pUnit:SetCombatTargetingCapable(0)
 pUnit:SetFaction(1)
 pUnit:SendChatMessage(14, 0, "My Weapon Will Cut threw your bones like a knife cutting through soft freshly cooked bread!")
 pUnit:RegisterEvent("Magister_Auron_Heroic_Strike", 3400, 0)
 pUnit:RegisterEvent("Magister_Auron_Hamstring", 6500, 0)
 pUnit:RegisterEvent("Magister_Auron_Rend", 7500, 0)
 pUnit:RegisterEvent("Magister_Auron_Overpower", 5600, 0)
 pUnit:RegisterEvent("Magisterr_Auron_Mocking_Blow", 8600, 0)
 pUnit:RegisterEvent("Magister_Auron_Cleave", 1000, 0)
 pUnit:RegisterEvent("Magister_Auron_Bladestorm", 2000, 0)
 pUnit:RegisterEvent("Magisterr_Auron_Phase7", 12000, 0)
end

function Magister_Auron_Heroic_Strike(pUnit, Event)
 pUnit:FullCastSpellOnTarget(47450, pUnit:GetMainTank())
end

function Magister_Auron_Hamstring(pUnit, Event)
 pUnit:FullCastSpellOnTarget(1715, pUnit:GetRandomPlayer(0))
 end

function Magisterr_Auron_Rend(pUnit, Event)
 pUnit:FullCastSpellOnTarget(47465, pUnit:GetRandomPlayer(0))
end

function Magister_Auron_Overpower(pUnit, Event)
 pUnit:FullCastSpellOnTarget(7384, pUnit:GetMainTank())
end

function MageisterAuron_Mocking_Blow(pUnit, Event)
 pUnit:FullCastSpellOnTarget(694, pUnit:GetRandomPlayer(0))
end

function Mageister_Auron_Cleave(pUnit, Event)
 pUnit:FullCastSpellOnTarget(47520, pUnit:GetMainTank())
end

function Magister_Auron_Bladestorm(pUnit, Event)
 pUnit:FullCastSpellOnTarget(46924, pUnit:GetRandomPlayer(0))
end

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


function Mageister_Auron_OnDeath(pUnit, Event)
 pUnit:RemoveEvents()
 pUnit:SendChatMessage(14, 0, "No ...this can not be....the...gods.......")
end

RegisterUnitEvent(788889, 1, "Magisterr_Auron_OnCombat")
RegisterUnitEvent(788889, 2, "Magister_Auron_OnLeaveCombat")
RegisterUnitEvent(788889, 4, "Magister_Auron_OnDeath")

---

Code:

---

--[WoWRevamped Entertainment]--
      --[Commander Duron]---
    ---[Scripted By Dimarxx AkA iFusion]---

function Commander_Duron_OnCombat(pUnit, Event)
        pUnit:SetUInt32Value(58, 2)
        pUnit:SendChatMessage(14, 0, "I See that Thrall Has Sent more of his low life peasants to do his dirty work , i never knew that a King was hidding behind a army of no life peons like you orcs and trolls....hahaha well i guess i can use your body's as decoration for the Champion's Hall. Die Now!")
        pUnit:FullCastSpell(31884)
        pUnit:FullCastSpell(31801)
        pUnit:FullCastSpell(25898)
        pUnit:FullCastSpell(48934)
        pUnit:FullCastSpell(38449)
        pUnit:FullCastSpell(24255)
    pUnit:FullCastSpell(3269)
    pUnit:FullCastSpell(38293)
    pUnit:RegisterUnitEvent("Commander_Duron_Phase1", 60000, 0)
end

function Commander_Duron_Phase1(pUnit, Event)
        pUnit:SetUInt32Value(58, 2)
    pUnit:FullCastSpell(31884)
    pUnit:FullCastSpell(31801)
    pUnit:FullCastSpell(24255)
    pUnit:FullCastSpell(3269)
    pUnit:FullCastSpell(48934)
    pUnit:FullCastSpell(38293)
    pUnit:FullCastSpell(25898)
    pUnit:FullCastSpell(38449)
    pUnit:RegisterUnitEvent("Commander_Duron_Phase2", 60000, 0)
end

 function Commander_Duron_Phase2(pUnit, Event)
        pUnit:SetUInt32Value(58, 0)
    pUnit:SendChatMessage(14, 0, "Now It Is Time for the real battle , as you see this is just a little cover up to my ture power , now its time to release all that rage and anger that King Vairan Wyrnn told me to hold in...It's Over Horde!!!!")
    pUnit:SetModel(23052)
    pUnit:SetScale(3)
    if pUnit:GetHealthPct() <= 95 then
    pUnit:FullCastSpell(3269)
    pUnit:FullCastSpell(48934)
    pUnit:FullCastSpell(38293)
    pUnit:FullCastSpell(25898)
    pUnit:FullCastSpell(38449)
    pUnit:RegisterUnitEvent("Commander_Duron_DivineStorm", 1200, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_CrusaderStrike", 5000, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_SeedOfCorruption", 2000, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_Corruption", 3500, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_Phase3", 60000, 0)
 end
end
   
function Commander_Duron_DivineStorm(pUnit, Event)
        pUnit:FullCastSpellOnTarget(53385, pUnit:GetRandomPlayer())
end

function Commander_Duron_CrusaderStrike(pUnit, Event)
        pUnit:FullCastSpellOnTarget(35395, pUnit:GetMainTank(0))
end

function Commander_Duron_SeedOfCorruption(pUnit, Event)
        pUnit:FullCastSpellOnTarget(47836, pUnit:GetMainTank(0))
end

function Commander_Duron_Corruption(pUnit, Event)
        pUnit:FullCastSpellOnTarget(47813, pUnit:GetRandomPlayer())
end

function Commander_Duron_Phase3(pUnit, Event)
        if pUnit:GetHealthPct() <= 75 then
        pUnit:SetUInt32Value(58, 2)
    pUnit:SendChatMessage(14, 0, "Woah, your a tougher battle then i thought you would be , well i guess i have to start healing myself , and i will finish you off.")
    pUnit:FullCastSpell(34119)
    pUnit:FullCastSpell(34119)
    pUnit:FullCastSpell(34119)
    pUnit:FullCastSpell(34119)
    pUnit:SendChatMessage(14, 0, "Okay Now , im ready we are ready to finish this and now you will die!")
    pUnit:RegisterUnitEvent("Commander_Duron_DivineStorm", 1200, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_CrusaderStrike", 5000, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_SeedOfCorruption", 2000, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_Corruption", 3500, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_ArcaneExplosion", 2400, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_ArcaneBlast", 6500, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_Phase4", 60000, 0)
 end
end

function Commander_Duron_DivineStorm(pUnit, Event)
        pUnit:FullCastSpellOnTarget(53385, pUnit:GetRandomPlayer())
end

function Commander_Duron_CrusaderStrike(pUnit, Event)
        pUnit:FullCastSpellOnTarget(35395, pUnit:GetMainTank(0))
end

function Commander_Duron_SeedOfCorruption(pUnit, Event)
        pUnit:FullCastSpellOnTarget(47836, pUnit:GetMainTank(0))
end

function Commander_Duron_Corruption(pUnit, Event)
        pUnit:FullCastSpellOnTarget(47813, pUnit:GetRandomPlayer())
end

function Commander_Duron_ArcaneExplosion(pUnit, Event)
        pUnit:FullCastSpellOnTarget(33237, pUnit:GetRandomPlayer())
end

function Commander_Duron_ArcaneBlast(pUnit, Event)
        pUnit:FullCastSpellOnTarget(59909, pUnit:GetRandomPlayer())
end

function Commander_Duron_Phase4(pUnit, Event)
    if pUnit:GetHealthPct() <= 45 then
    pUnit:FullCastSpell(3269)
    pUnit:FullCastSpell(48934)
    pUnit:FullCastSpell(38293)
    pUnit:FullCastSpell(25898)
    pUnit:FullCastSpell(38449)
    pUnit:FullCastSpell(34119)
    pUnit:FullCastSpell(34119)
    pUnit:FullCastSpell(34119)
    pUnit:FullCastSpell(34119)
    pUnit:SendChatMessage(14, 0, "Come On , you call this a battle , give me more of a Challenge...hahahahahaa")
    pUnit:RegisterUnitEvent("Commander_Duron_DivineStorm", 1200, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_CrusaderStrike", 5000, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_SeedOfCorruption", 2000, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_Corruption", 3500, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_ArcaneExplosion", 2400, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_ArcaneBlast", 6500, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_ThunderClap", 2000, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_Bladestorm", 1000, 0)
    pUnit:RegisterUnitEvent("Commander_Duron_Phase5", 60000, 0)
 end
end

function Commander_Duron_DivineStorm(pUnit, Event)
        pUnit:FullCastSpellOnTarget(53385, pUnit:GetRandomPlayer())
end

function Commander_Duron_CrusaderStrike(pUnit, Event)
        pUnit:FullCastSpellOnTarget(35395, pUnit:GetMainTank(0))
end

function Commander_Duron_SeedOfCorruption(pUnit, Event)
        pUnit:FullCastSpellOnTarget(47836, pUnit:GetMainTank(0))
end

function Commander_Duron_Corruption(pUnit, Event)
        pUnit:FullCastSpellOnTarget(47813, pUnit:GetRandomPlayer())
end

function Commander_Duron_ArcaneExplosion(pUnit, Event)
        pUnit:FullCastSpellOnTarget(33237, pUnit:GetRandomPlayer())
end

function Commander_Duron_ArcaneBlast(pUnit, Event)
        pUnit:FullCastSpellOnTarget(59909, pUnit:GetRandomPlayer())
end

function Commander_Duron_ThunderClap(pUnit, Event)
        pUnit:FullCastSpellOnTarget(47502, pUnit:GetRandomPlayer())
end

function Commander_Duron_Bladestorm(pUnit, Event)
        pUnit:FullCastSpellOnTarget(46924, pUnit:GetMainTank(0))
end

function Commander_Duron_Phase5(pUnit, Event)
        pUnit:SetUInt32Value(58, 2)
    if pUnit:GetHealthPct() <= 1 then
    pUnit:SendChatMessage(14, 0, "King Vairan......Please....Spare.....me....")
    pUnit:SetUInt32Value(58, 0)
 end
end

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

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

RegisterUnitEvent(19229, 1, "Commander_Duron_OnCombat")
RegisterUnitEvent(19229, 2, "Commander_Duron_OnLeaveCombat")
RegisterUnitEvent(19229, 4, "Commander_Duron_OnDeath")

---

nicee =]

Thank you MysteriousSouL, Means alot to Have the founder post on my LUA Thread topic.

:D

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")

---