PDA

View Full Version : [LUA] Stormwind Bosses (Magister Auron & Commander Duron)


.SalMAX™
07-04-10, 05:02 PM
---[--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")



--[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")
Apple
07-04-10, 09:27 PM
nicee =]
.SalMAX™
07-04-10, 11:40 PM
Thank you MysteriousSouL, Means alot to Have the founder post on my LUA Thread topic.

:D
.SalMAX™
07-04-10, 11:53 PM
--[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")