Arcemu lua test kiljaeden

-- Hand of The Deceiver
function Deceiver_OnEnterCombat(pUnit, Event)
   pUnit:RegisterEvent("Deceiver_Bolt", 4000, 0)
   pUnit:RegisterEvent("Deceiver_channel", 1000, 0)
end

function Deceiver_Bolt(pUnit, Event)
   pUnit:FullCastSpellOnTarget(45770,pUnit:GetClosestPlayer())
end

-- This is the where the "Hand of The Deceiver" Channels his spell.
function Deceiver_channel(pUnit, Event)
   if pUnit:GetHealthPct() == 01 then
    pUnit:CastSpelll(30742)
end
end


function Deceiver_OnDeath(pUnit, Event)
  pUnit:SpawnCreature(25315, 1699.313965, 629.622986, 27.572056, 3.964567, 14, 0)
end

-- END

function phase_1(pUnit, Event)
 if pUnit:GetHealthPct() < 95 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage(14, 0, "Chaos!")
  pUnit:CastSpellOnTarget(47248)
  pUnit:PlaySoundToSet(12505)
  pUnit:RegisterEvent("phase_2",1000, 0)
 end
end

function phase_2(pUnit, Event)
 if pUnit:GetHealthPct() < 94 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage(14, 0, "Destruction!")
  pUnit:CastSpell(39023)
  pUnit:PlaySoundToSet(12506)
  pUnit:RegisterEvent("phase_3",1000, 0)
 end
end

function phase_3(pUnit, Event)
 if pUnit:GetHealthPct() < 93 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage(14, 0, "Oblivion!")
  pUnit:PlaySoundToSet(12507)
  pUnit:CastSpell(38627)
  pUnit:CastSpell(38533)
  pUnit:CastSpell(38533)
  pUnit:CastSpell(38533)
  pUnit:RegisterEvent("phase_4",1000, 0)
 end
end

function phase_4(pUnit, Event)
 if pUnit:GetHealthPct() < 50 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage(14, 0, "I will not be denied! This world shall fall!")
  pUnit:PlaySoundToSet(12508)
  pUnit:CastSpell(45664)
  pUnit:RegisterEvent("phase_5",1000, 0)
 end
end

function phase_5(pUnit, Event)
 if pUnit:GetHealthPct() < 20 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage(14, 0, "Do not harbor false hope. You cannot win!")
  pUnit:PlaySoundToSet(12509)
  pUnit:CastSpell(40343)
  pUnit:CastSpell(38441)
  pUnit:CastSpell(512)
  pUnit:CastSpell(25442)
  pUnit:CastSpell(17668)
  pUnit:CastSpell(40876)
  pUnit:RegisterEvent("phase_6",1000, 0)
 end
end


function phase_6(pUnit, Event)
 if pUnit:GetHealthPct() < 01 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage(14, 0, "Ragh! The powers of the Sunwell turn against me! What have you done? What have you done?!")
  pUnit:PlaySoundToSet(12510)
  pUnit:CastSpell(44998)
  pUnit:RegisterEvent("phase_7",1000, 0)
 end
end

function phase_7(pUnit, Event)
 if pUnit:GetHealthPct() < 100 then
  pUnit:RemoveEvents();
  pUnit:CastSpell(46474)
 end
end

function boss_spawn(pUnit, Event)
    pUnit:RemoveEvents();
    pUnit:SendChatMessage(14, 0, "The expendible have perished... So be it! Now I shall succeed where Sargeras could not! I will bleed this wretched world and secure my place as the true master of the Burning Legion. The end has come! Let the unraveling of this world commence!")
    pUnit:PlaySoundToSet(12500)
    pUnit:RemoveEvents();
    pUnit:CastSpell(35177)
    pUnit:RegisterEvent("boss_start",1000, 0)
end




function boss_start(pUnit, Event)
    pUnit:RegisterEvent("phase_1",1000, 0)
 end

function boss_OnKill(pUnit, Event)
  pUnit:SendChatMessage(14, 0, "Another step towards destruction!")
  pUnit:PlaySoundToSet(12501)
  pUnit:CastSpell(31972)
 end

RegisterUnitEvent(25588, 1, "Deceiver_OnEnterCombat")
RegisterUnitEvent(25588, 1, "Deceiver_channel")
RegisterUnitEvent(25588, 1, "Deceiver_Bolt")
RegisterUnitEvent(25588, 4, "Deceiver_OnDeath")
RegisterUnitEvent(25315, 18, "boss_spawn")
RegisterUnitEvent(25315, 1, "boss_start")
RegisterUnitEvent(25315, 3, "boss_OnKill")