[SHARE] Sapphiron

--by: Farbeyond

function Sapphiron_OnCombat(Unit, event)
   Unit:RegisterEvent("Sapphiron_LifeDrain", 24000, 0)
   Unit:RegisterEvent("Sapphiron_Blizzard", 15000, 0)
   Unit:RegisterEvent("Sapphiron_Cleave", 10000, 0)
   Unit:RegisterEvent("Sapphiron_Enrage", 900000, 0)
   Unit:RegisterEvent("Sapphiron_Fly", 45000, 0)
   Unit:RegisterEvent("Sapphiron_FrostImmune", 0, 0)
   Unit:RegisterEvent("Sapphiron_FrostAura", 2000, 0)
   Unit:RegisterEvent("Sapphiron_CloseToDeath", 500, 0)
end

function Sapphiron_CloseToDeath(Unit, event)
   if Unit:GetHealthPct() <= 10 then
   Unit:RemoveEvents()
   Unit:RegisterEvent("Sapphiron_FrostImmune", 0, 0)
   Unit:RegisterEvent("Sapphiron_FrostAura", 2000, 0)
   Unit:RegisterEvent("Sapphiron_LifeDrain", 24000, 0)
   Unit:RegisterEvent("Sapphiron_Blizzard", 15000, 0)
   Unit:RegisterEvent("Sapphiron_Cleave", 10000, 0)
   Unit:RegisterEvent("Sapphiron_Enrage", 900000, 0)
   else
end
end

function Sapphiron_Iceboltstart(Unit)
   Unit:RemoveEvents()
   Unit:RegisterEvent("Sapphiron_Icebolt",Sapphiron_Icebolt_Timer,0)
end

function Sapphiron_Icebolt(Unit)
   local plr = Unit:GetRandomPlayer(0)
   if (plr ~= nil) then
   Unit:FullCastSpellOnTarget(28522, plr)
   Unit:RegisterEvent("Sapphiron_FrostBreath3", 10000, 0)
  end
end

function Sapphiron_FrostAura(Unit)
   Unit:CastSpell(28531)
end

function Sapphiron_FrostImmune(Unit)
   Unit:CastSpell(34202)
end

function Sapphiron_LifeDrain(Unit, event)
   Unit:StopMovement(5000)
   Unit:FullCastSpellOnTarget(38817, Unit:GetMainTank())
end

function Sapphiron_Blizzard(Unit, event)
   player=Unit:GetRandomPlayer(0);
   x=player:GetX();
   y=player:GetY();
   z=player:GetZ();
   o=player:GetO();
   Unit:SpawnCreature(16474, x, y, z, o, 90, 0)
end

function Sapphiron_Cleave(Unit, event)
   Unit:CastSpellOnTarget(31345, Unit:GetMainTank())
end

function Sapphiron_Enrage(Unit)
   Unit:CastSpell(18556)
end

function Sapphiron_Fly(Unit, event)
   Unit:RemoveEvents()
   Unit:CastSpell(17131)
   Unit:Emote(254)
   Unit:SetMeleetCapable(1)
   Unit:RegisterEvent("Sapphiron_FrostBreath2", 2000, 0)
end

function Sapphiron_FrostBreath2(Unit, event)
   Unit:MoveTo(3520.601563, -5232.277832, 137.626328, 4.553010)
   Unit:RegisterEvent("Sapphiron_Iceboltstart", 10000, 0)
end

function Sapphiron_FrostBreath3(Unit, event)
   Unit:RemoveEvents()
   Unit:FullCastSpell(28524)
   Unit:RemoveEvents()
   Unit:RegisterEvent("Sapphiron_Land", 8000, 0)
end

function Sapphiron_Land(Unit, event)
   Unit:RemoveEvents()   
   Unit:RemoveAura(17131)
   Unit:Emote(293)
   Unit:RegisterEvent("Sapphiron_FrostBreath5", 4000, 0)
end

function Sapphiron_FrostBreath5(Unit, event)
   Unit:RemoveEvents()
   Unit:SetMeleeCapable(0)
   Unit:GetMainTank()
   Unit:RegisterEvent("Sapphiron_Fly", 67000, 0)
   Unit:RegisterEvent("Sapphiron_FrostImmune", 0, 0)
   Unit:RegisterEvent("Sapphiron_FrostAura", 2000, 0)
   Unit:RegisterEvent("Sapphiron_LifeDrain", 24000, 0)
   Unit:RegisterEvent("Sapphiron_Blizzard", 15000, 0)
   Unit:RegisterEvent("Sapphiron_Cleave", 10000, 0)
   Unit:RegisterEvent("Sapphiron_Enrage", 900000, 0)
end

function Sapphiron_OnWipe(Unit)
   Unit:RemoveEvents()
end

function Sapphiron_OnLeaveCombat(Unit)
   Unit:RemoveEvents()
   Unit:MoveTo(3520.601563, -5232.277832, 137.626328, 4.553010)
end

function Sapphiron_OnDied(Unit)
   Unit:RemoveEvents()
end

Sapphiron_Icebolt_Timer = 2000

function elemental_OnCombat(Unit, event)
   Unit:RemoveEvents()
   Unit:SetScale(0.01)
   Unit:SetMeleeCapable(1)
   Unit:StopMovement(10000)
   Unit:FullCastSpell(29951)
   Unit:Despawn(10000,0)
end

function elemental_OnLeaveCombat(Unit, event)
   Unit:Despawn(100,0)
end

function elemental_OnDied(Unit, event)
   Unit:Despawn(100,0)
end


RegisterUnitEvent(15989, 1, "Sapphiron_OnCombat")
RegisterUnitEvent(15989, 2, "Sapphiron_OnLeaveCombat")
RegisterUnitEvent(15989, 3, "Sapphiron_OnWipe")
RegisterUnitEvent(15989, 4, "Sapphiron_OnDied")
RegisterUnitEvent(16474, 1, "elemental_OnCombat")
RegisterUnitEvent(16474, 2, "elemental_OnLeaveCombat")
RegisterUnitEvent(16474, 4, "elemental_OnDied")