RegisterUnitEvent(12405, 1, "Dak_oncombat")

function Dak_oncombat(pUnit, event)
pUnit:SendChatMessage(14,0, "I will Eat your Soul!")
pUnit:RegisterEvent("Dak_fireball", 20000, 20)
pUnit:RegisterEvent("Dak_Heal1", 120000, 10)   
pUnit:RegisterEvent("Dak_second", 1000,0)
pUnit:RegisterEvent("Dak_math", 15000, 0)
phase== 1;
end

function Dak_fireball(pUnit, event)
pUnit:FullCastSpellOnTarget(42833, pUnit:GetRandomTarget(0))
StopMovement(2600)
end

function Dak_Heal1
pUnit:FullCastSpell(48782)
StopMovement(2600)
end

function Dak_mat(pUnit, event)
local choice == math.random(1, 3)
    if choice == 1 then
    pUnit:SendChatMessage(14, 0, "I have Randomly Picked a Number between 1 and 3! beware you mana,rage, or energy usrs!")
    pUnit:FullCastSpellOnTarget(8129, pUnit, GetRandomTarget(4))
    StopMovement(3100)
elseif choice == 2 then
    pUnit:SendChatMessage(14, 0, "I have Randomly Picked a Number between 1 and 3! beware you mana,rage, or energy usrs!")
    pUnit:FullCastSpellOnTarget(42435, pUnit:GetRandomTarget(5))
elseif choice == 3 then
pUnit:SendChatMessage(14, 0, "I have Randomly Picked a Number between 1 and 3! beware you mana,rage, or energy usrs!")
pUnit:FullCastSpellOnTarget(42435, pUnit:GetRandomTarget(6))
end

function Dak_second(pUnit, event)
    if pUnit:GetHealthPct() <= 80 and phase == 1 then
    RemoveEvents()
    pUnit:SendChatMessage(14, 0, "I want to eat your soul!!! GIVE ME YOUR SOUL!!!"
    pUnit:RegisterEvent("Dak_Frostbolt", 50000, 10)
    pUnit:RegisterEvent("Dak_Chaosbolt", 60000, 10)
    pUnit:RegisterEvent("Dak_table", 10000, 0)
    pUnit:registerEvent("Dak_thrid", 1000, 0)
    phase=2
    end
    end
      
function Dak_Frostbolt(pUnit, event)
local mt = pUnit:GetMainTank()
    if (mt ~= nil) then
    pUnit:FullCastSpellOnTarget(42842, mt)
    StopMovement(3100)
end
end

function Dak_Chaosbolt(pUnit, event)
local midrange = pUnit:FullCastSpellOnTarget(2))
if (midrange ~=nil) then
pUnit:FullCastSpellOnTarget(59172, midrange)
end
end

function Dak_table(pUnit, event)
           local tbl=pUnit: if v:GetDistance(pUnit) <= 10, 20 then
     for k, v in pairs(tbl) do
             pUnit:CastSpellOnTarget(49233, v)
       end   
       end
function Dak_third(pUnit, event)

if pUnit:GetHealthPct() <= 45 and phase == 2 then
RemoveEvents()
   pUnit:SendChatMessage(14, 0, "Come out and Play Minions!"
   pUnit:RegisterEvent("summon", 500, 1)
   pUnit:RegisterEvent("dak_fourth", 1000, 0)
   phase=3
   end
   end
     
   function summon (pUnit, event)
   local x = pUnit:GetX()
   local y = pUnit:GetY()
   local z = pUnit:GetZ()
   local o = pUnit:GetO()
   pUnit:SpawnCreature(12420, x+5, y, z, 0)
   pUnit:SpawnCreature(12420, x, y+5, z, 0)
   pUnit:SpawnCreature(12420, x-5, y, z, 0)
   pUnit:SpawnCreature(12420, x, y-5, z, 0)
   end
   end
     
   if pUnit:GetHealthPct() <= 25 and Phase == 3 then
   RemoveEvents()
   pUnit:RegisterEvent("Dak_fifth", 1000, 0)
   pUnit:RegisterEvent("Dak_Soulsteal", 50000, 1)
   pUnit:SendChatMessage(14,0, "UGGG! you are making me angry!, Time for me to eat your soul!")
   phase=4
   end
   end
     
   function Dak_Soulsteal(pUnit, event)
   pUnit: SenChatMessage(14, 0, "Time to be deprived of the weight of your soul!"
   pUnit: CastSpellOnTarget (41080, pUnit:GetRandomPlayer(2)
   end
   end
     
if pUnit:GetHealthPct() <= 10 and Phase == 4 then
RemoveEvents()
pUnit:RegisterEvent("Dak_Healself", 50000, 10)
pUnit:RegisterEvent("Dak_Aura", 1000, 1)
end
end

function Dak_Healself(pUnit, event)
pUnit:SendChatMessage(14, 0, "You actually got me to 10% health!! I CALL UPON THE HEALING POWERS OF LORE!"
pUnit:FullCastSpell(48782)
StopMovement(3100)
end
end

function Dak_aura(pUnit, event)
pUnit:FullCastSpell(48266)
end
end

function Dak_leavecombat(pUnit, event)
RemoveEvents()
end

function Dak_died(pUnit, event)
RemoveEvents()
end

RegisterUnitEvent(12405, 2, "Dak_leavecomabt")
RegisterUnitEvent(12405, 4, "Dak_Died")

RegisterUnitEvent(12435, 1, "ris_oncombat")

function ris_oncombat(punit, event)
pUnit:SendChatMessage(12, 0, "I am the Soul Harvester!"
pUnit:RegisterEvent("ris_Spell", 5000, 20)
pUnit:RegisterEvent("ris_second", 1000, 0)
pUnit:RegisterEvent("ris_math", 15000, 0)
end

function ris_spell(pUnit, event)
pUnit: FullCastSpell(48782)
StopMovement(2600)
pUnit:FullCastSpellOnTarget(59171, 16000, 10)
StopMovement(2600)
end

funcation ris_math(pUnit, event)
local choice = math.random(1, 3)
   if choice == 1 and (4 ~=nil) then
   pUnit:SendChatMessage(12, 0, "I have picked a random number between 1 and 3, watch out you mana, energy, or rage users. MWHAHAHA"
   pUnit:FullCastSpellOnTarget(58534, 12000, 5)
   pUnit:GetRandomPlayer(4))
elseif choice == 2 and(5 ~= nil) then
   pUnit:SendChatMessage(12, 0, "I have picked a random number between 1 and 3, watch out you mana, energy, or rage users. MWHAHAHA"
   pUnit:FullCastSpellOnTarget(42435, 20000, 7)
   pUnit:GetRandomPlayer(5))
elseif choice == 3 and(6 ~= nil) then
pUnit:SendChatMessage (12, 0, "I have picked a random number between 1 and 3, watch out you mana, energy, or rage users. MWHAHAHA"
pUnit:FullCastSpellOnTarget(55360, 15000, 8)
pUnit:GetRandomPlayer(6))
end
end

function ris_second(pUnit, event)
   if pUnit:GetHealthPct() <= 80 then
   pUnit:RemoveEvents()
pUnit:SendChatMessage(12, 0, "How Dare you try to Destroy The Soul harvestor!!!!")
   local mt = pUnit:GetMaainTank()
   if phase == 2 and (mt ~= nil) then
   pUnit:FullCastSpellOnTarget(19813, mt)
end
end

function ris_table(pUnit, event)
       local tbl=pUnit:if v:GetDistance(pUnit) <= 10 then
    for k,v in pairs(tbl) do
                pUnit:CastSpellOnTarget(59172, v)
             end
           end   

function ris_leavecombat (pUnit, event)
pUnit: RemoveEvents()
end

function ris_died(pUnit, event)
pUnit:RemoveEvents()
end

RegisterUnitEvent(12345, 2, "ris_leavecombat")
RegisterUnitEvent(12345, 2, "ris_died")

RegisterUnitEvent(200000, 1, "yun_oncombat")

phase=nil;

function yun_oncombat(pUnit, event)
pUnit:RegisterEvent("yun_cleave", 20000, 0)
pUnit:RegisterEvent("yun_berserker", 1000, 1)
pUnit:RegisterEvent("yun_second", 1000, 0)
phase=1;
end

function yun_berserker(pUnit, event)
pUnit:SendChatMessage(14, 0, "RAWR!!! I AM WOLVERINE!")
pUnit:CastSpell(2458)
end

function yun_cleave(pUnit, event)
   local medrange = pUnit:GetRandomPlayer(2)
   local mtx = pUnit:GetMainTank()
   if (medrange ~= nil) then
pUnit:CastSpellOnTarget(47520, medrange)
elseif (mtx ~= nil) then
pUnit:CastSpellOnTarget(47520, mtx)
end
end

function yun_second(pUnit, event)
   if pUnit:GetHealthPct() <= 75 and phase == 1 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("yun_defensive", 1000, 1)
pUnit:RegisterEvent("yun_sunder", 10000, 20)
pUnit:RegisterEvent("yun_third", 1000, 0)
phase=2;
end
end

function yun_defensive(pUnit, event)
pUnit:SendChatMessage(14, 0, "I better be a bit on the Defensive side")
pUnit:CastSpell(71)
end

function yun_sunder(pUnit, event)
local targ = pUnit:GetMainTank()
   if (targ ~= nil) then
pUnit:FullCastSpellOnTarget(30901, targ)
end
end

function yun_third(pUnit, event)
if pUnit:GetHealthPct() <= 50 and phase == 2 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("yun_battle", 1000, 1)
pUnit:RegisterEvent("yun_rend", 16000, 0)
pUnit:RegisterEvent("yun_clap", 11000, 0)
pUnit:RegisterEvent("yun_fourth", 1000, 0)
phase=3;
end
end

function yun_battle(pUnit, event)
pUnit:SendChatMessage(14, 0, "It is time to battle!")
pUnit:CastSpell(2457)
end

function yun_rend(pUnit, event)
local targ = pUnit:GetMainTank()
   if (targ ~= nil) then
pUnit:FullCastSpellOnTarget(48880, pUnit:GetMainTank())
end
end

function yun_clap(pUnit, event)
pUnit:CastSpell(47502)
end

function yun_fourth(pUnit, event)
if pUnit:GetHealthPct() <= 25 and phase == 3 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("yun_summon", 1000, 1)
end
end

function yun_summon(pUnit, event)
local x = pUnit:GetX()
local y = pUnit:GetY()
local z = pUnit:GetZ()
local o = pUnit:GetO()
pUnit:SpawnCreature(123456, x+5, y, z, o, 14, 0)
pUnit:SpawnCreature(123456, x, y+5, z, o, 14, 0)
pUnit:SpawnCreature(123456, x-5, y, z, o, 14, 0)
pUnit:SpawnCreature(123456, x, y-5, z, o, 14, 0)
pUnit:RegisterEvent("yun_summon", 60000, 2)
end

function yun_leavecombat(pUnit, event)
pUnit:RemoveEvents()
end

function yun_died(pUnit, event)
pUnit:RemoveEvents()
end

function yun_onkilledtarget(pUnit, event)
pUnit:SendChatMessage(14, 0, "Wahahaha you fail")
pUnit:RemoveEvents()
end

RegisterUnitEvent(200000, 3, "yun_onkilledtarget")
RegisterUnitEvent(200000, 4, "yun_died")
RegisterUnitEvent(200000, 2, "yun_leavecombat")

RegisterUnitEvent(400004, 1, "Rag_OnCombat")

function Rag_OnCombat(pUnit, event)
pUnit:SendChatMessage(14, 140, "Welcome to my realm. Now,be reduced to ash.")
pUnit:RegisterEvent("Rag_Spell1", 20000, 0)
pUnit:RegisterEvent("Rag_Spell2", 15000, 0)
pUnit:RegisterEvent("Rag_Spell3", 16000, 0)
pUnit:RegisterEvent("Rag_Spell4", 24000, 0)
pUnit:RegisterEvent("Rag_Phase2", 1000, 0)
phase=1;
end

function Rag_Spell1(pUnit, event)
pUnit:CastSpellOnTarget(41596, pUnit:GetRadomTarget(0))
end

function Rag_Spell2(pUnit, event)
pUnit:FullCastSpellOnTarget(59519, pUnit:GetRandomTarget(0))
pUnit:StopMovement(1600)
end
end

function Rag_Spell3(pUnit, event)
pUnit:CastSpellOnTarget(54251, pUnit:GetRandomTarget(0))
end

function Rag_Spell4(pUnit, event)
pUnit:CastSpell(54251)
end

function Rag_Phase2(pUnit, event)
if pUnit:GetHealthPct() <== 70 and phase == 2 then
pUnit:RemoveEvents()
pUnit:SendChatMessage(14,140, "Everything shall BURN!")
pUnit:RegisterEvent("Rag_Spell5", 20000, 0)
pUnit:RegisterEvent("Rag_Spell6", 15000, 0)
pUnit:RegisterEvent("Rag_Spell7", 10000, 0)
pUnit:RegisterEvent("Rag_Spell8", 8000, 0)
pUnit:RegisterEvent("Rag_Spell9", 16000, 0)
pUnit:RegisterEvent("Rag_third", 1000, 0)
phase=2;
end
end

function Rag_Spell5(pUnit, event)
pUnit:CastSpellOnTarget(41596, pUnit:GetRandomTarget(0))
end

function Rag_Spell6(pUnit, event)
pUnit:FullCastSpellOnTarget(59519, pUnit:GetRandomTarget(0))
pUnit:StopMovement(1600)
end

function Rag_Spell7(pUnit, event)
pUnit:FullCastSpellOnTarget(31263, pUnit:GetRandomTarget(0))
pUnit:StopMovement(5100)
end

function Rag_Spell8(pUnit, event)
pUnit:CastSpell(39132)
end

function Rag_Spell9(pUnit, event)
pUnit:CastSpellOnTarget(55362, pUnit:GetRandomTarget(3))

function Rag_third(pUnit, event)
if pUnit:GetHealthPct() <= 30 and Phase == 2 then
pUnit:RemoveEvents()
pUnit:SendChatMessage(14, 140, "You will be cleansed by fire!")
pUnit:RegisterEvent("Rag_Spell10", 20000, 0)
pUnit:RegisterEvent("Rag_Spell11", 30000, 0)
pUnit:RegisterEvent("Rag_Spell12", 31000, 0)
pUnit:RegisterEvent("Rag_Spell13", 13000, 0)
pUnit:RegisterEvent("Rag_Spell14", 4000, 0)
pUnit:RegiserEvent("Rag_Enrage", 480000, 1)
end
end

function Rag_Spell10(pUnit, event)
pUnit:CastSpell(36876)
pUnit:SendChatMessage(14, 140, "What's the matter? Can't stand the heat?")
end

function Rag_Spell11(pUnit, event)
pUnit:CastSpellOnTarget(38010, pUnit:GetMainTank())
end

function Rag_Spell12(pUnit, event)
pUnit:FullCastSpellOnTarget(46043, pUnit:GetMainTank())
pUnit:StopMovement(2100)
end

function Rag_Spell13(pUnit, event)
pUnit:CastSpellOnTarget(43303, pUnit:GetRandomTarget(0))
end

function Rag_Spell14(pUnit, event)
pUnit:CastSpell(61147)
end

function Rag_Enrage(pUnit, event)
pUnit:CastSpell(61632)
pUnit:SendChatMessage(14, 140, "Now,things are about to get REALLY hot!")
end

function Rag_Died(pUnit, event)
pUnit:RemoveEvents()
pUnit:SendChatMessage(14, 140, "No fire burns eternally...")
end

function Rag_OnKilledTarget(pUnit, event)
pUnit:RemoveEvents()
pUnit:SendChatMessage(14, 140,"Fire takes her own.Who's next,then?"  
end

function Rag_OnLeaveCombat(pUnit, event)
pUnit:RemoveEvents()
end

RegisterUnitEvent(400004, 2, "Rag_OnLeaveCombat")
RegisterUnitEvent(400004, 3, "Rag_OnKilledTarget")
RegisterUnitEvent(400004, 4, "Rag_Died")