[RELEASE] My Blue Circle Imperial Script

--Halestorm Script
--Give Proper Credit

function phhaase_11(pUnit, Event)
if pUnit:GetHealthPct() < 99 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (11, 0, "May the flames empower me!")
  pUnit:FullCastSpell(37318)
  pUnit:RegisterEvent("phhaase_22",1000, 0)
end
end

function phhaase_22(pUnit, Event)
if pUnit:GetHealthPct() < 80 then
  pUnit:RemoveEvents();
  pUnit:PlaySoundToSet(8616)
  pUnit:SendChatMessage (12, 0, "Cower mortals! The age of darkness is at hand!")
  pUnit:FullCastSpell(39048)
  pUnit:RegisterEvent("GreaterFire",6000,0)
end
end

function phhaase_33(pUnit, Event)
  if pUnit:GetHealthPct() < 50 then
  pUnit:RemoveEvents();
  pUnit:PlaySoundToSet(8617)
  pUnit:SendChatMessage (11, 0, "Let your death serve as an example...")
  pUnit:FullCastSpell(34970)
  pUnit:RegisterEvent("phhaase_44",1000, 0)
end
end

function phhaase_44(pUnit, Event)
if pUnit:GetHealthPct() < 45 then
  pUnit:RemoveEvents();
  pUnit:PlaySoundToSet(8618)
  pUnit:SendChatMessage (12, 0, "Prepare for the return Ancient Ones!")
  pUnit:SpawnCreature(70, -7623.067871, -764.416565, 190.796753, 6.023218, 24, 210000);
  pUnit:SpawnCreature(70, -7601.719238, -757.881775, 190.845306, 4.169023, 24, 210000);
  pUnit:SpawnCreature(70, -7594.302734, -770.311096, 190.840042, 3.733126, 24, 210000);
  pUnit:SpawnCreature(70, -7587.014160, -779.438171, 190.929428, 3.047478, 24, 210000);
  pUnit:SpawnCreature(70, -7625.040039, -789.532593, 190.854233, 0.608835, 24, 210000);
  pUnit:RegisterEvent("phhaase_55",1000, 0)
end
end

function phhaase_55(pUnit, Event)
if pUnit:GetHealthPct() < 30 then
  pUnit:RemoveEvents();
  pUnit:PlaySoundToSet(8619)
  pUnit:SendChatMessage (12, 0, "Spineless wretches! You will drown in rivers of blood!")
  pUnit:CastSpell(17131)
  pUnit:Emote(254)
  pUnit:RegisterEvent("Flame",1000, 0)
end
end

function Flame(pUnit, event)
    print "Flame initiated..."
    pUnit:RemoveEvents();
    pUnit:SetCombatMeleeCapable(1)
    pUnit:SetCombatTargetingCapable(1)
    pUnit:CastSpell(39385)
    pUnit:RegisterEvent("Land", 3000, 1)
end

function Land(pUnit, event)
    print "Lands initiated..."
    pUnit:RemoveEvents();
    pUnit:SetCombatMeleeCapable(0)
    pUnit:SetCombatTargetingCapable(0)
    pUnit:RemoveAura(17131)
    pUnit:Emote(293)
    pUnit:SendChatMessage(12, 0, "Feel the fiery hatred!")
    pUnit:FullCastSpellOnTarget(41481, pUnit:GetRandomPlayer(0))
    pUnit:RemoveEvents();
    pUnit:RegisterEvent("endsFight", 1000, 0)
end

function endsFight(pUnit, event)
    print "End Fight begins..."
    pUnit:FullCastSpellOnTarget(5782, pUnit:GetRandomPlayer(0))
    pUnit:RemoveEvents();
    pUnit:RegisterEvent("fearAgain", 1000, 4)
end

function fearAgain(pUnit, event)
    pUnit:FullCastSpellOnTarget(5782, pUnit:GetRandomPlayer(0))
    pUnit:RemoveEvents();
    pUnit:RegisterEvent("phhaase_66", 1000, 0)
end
   
 
function phhaase_66(pUnit, Event)
if pUnit:GetHealthPct() < 10 then
  pUnit:RemoveEvents();
  pUnit:FullCastSpell(27780)
  pUnit:RegisterEvent("phhaase_77",1000, 0)
end
end

function phhaase_77(pUnit, Event)
if pUnit:GetHealthPct() < 8 then
  pUnit:RemoveEvents();
  pUnit:FullCastSpell(41274)
end
end

function Bbooss_start(pUnit, Event)
pUnit:RegisterEvent("phhaase_11",1000, 0)
pUnit:PlaySoundToSet(8615)
pUnit:SendChatMessage (12, 0, "Are you so eager to die? I will be happy to accommodate you!")
pUnit:FullCastSpell(42048)
end


function GreaterFire(pUnit, Event)
    if  pUnit:GetHealthPct() < 60 then
        pUnit:RemoveEvents();
        pUnit:PlaySoundToSet(8621)
        pUnit:SendChatMessage (12, 0, "Tremble! The end is upon you.")
        pUnit:FullCastSpellOnTarget(33051, pUnit:GetMainTank())
        pUnit:FullCastSpellOnTarget(33051, pUnit:GetRandomPlayer(0))
        pUnit:RegisterEvent("phhaase_33",6000, 0)
        end
end

function onDeath(pUnit, Event)
    pUnit:PlaySoundToSet(8622)
    pUnit:SendChatMessage (11, 0, "You only delay....the inevitable...")
    pUnit:RemoveAura(37318)
    pUnit:RemoveAura(34970)
    pUnit:RemoveAura(42048)
    pUnit:RemoveEvents()
    end
   
function onLeave(pUnit,Event)
    pUnit:RemoveAura(37318)
    pUnit:RemoveAura(34970)
    pUnit:RemoveAura(42048)
    pUnit:RemoveEvents()
end

RegisterUnitEvent (67, 1, "Bbooss_start")
RegisterUnitEvent (67, 2, "onLeave")
RegisterUnitEvent (67, 4, "onDeath")