[LUA Release] Sarkona

[kreegoth]

Well heres another boss release i did

Basically its a Dragon encounter

Frontal DD spells coupled with other AOes and DD spells.

Many visuals thrown in there to make it look pretty..

Until i can get my personal server working on a higher revision i wont be releasing Sqls with the Luas as people are having trouble using mine out of my database as im only on R735.

General idea for this was a Dragon with High hps Strong melee and i used a 0.45 scale Nefarian display id for mine.

-----This Lua was Written by Kreegoth Of MMowned.com.. please give credit where credit is due.----------
--------------------------------------------------------------------------------------------------------


function Sarkona_EnterCombat (pUnit, event)
         pUnit:SendChatMessage(14, 0, "The stench from one of the inferior races pollutes my nostrils...")
	 pUnit:PlaySoundToSet(5903)
         pUnit:RegisterEvent("Sarkona_Dragonbreath", 4000, 1)
         pUnit:RegisterEvent("Sarkona_Acid", 12000, 0) 
         pUnit:RegisterEvent("Sarkona_Shatter", 8000, 0) 
         pUnit:RegisterEvent("Sarkona_Phase2",1000, 0)
	 pUnit:Castspell(17673)
end

function Sarkona_Dragonbreath (pUnit, event)
         pUnit:CastSpell(39255)
end

function Sarkona_Acid (pUnit, event)
         pUnit:FullCastSpellOnTarget(29964, pUnit:GetMainTank())
end

function Sarkona_Shatter (pUnit, event)
         pUnit:FullCastSpellOnTarget(38226, pUnit:GetMainTank())
end

function Sarkona_Phase2 (pUnit, event)
      if pUnit:GetHealthPct() < 76 then
         pUnit:RemoveEvents()        
         pUnit:SendChatMessage(14, 0, "You reek of fear...You should...You will find no pity here")
	 pUnit:PlaySoundToSet(7274)
         pUnit:RegisterEvent("Sarkona_Rend", 7000, 0)
         pUnit:RegisterEvent("Sarkona_Rake", 6000, 0)
         pUnit:RegisterEvent("Sarkona_Shield", 8000, 0)
         pUnit:RegisterEvent("Sarkona_Phase3", 1000, 0)
	 pUnit:Castspell(39662)
  end
end

function Sarkona_Rend (pUnit, event)
         pUnit:FullCastSpellOnTarget(16448, pUnit:GetMainTank())
end

function Sarkona_Rake (pUnit, event)
         pUnit:FullCastSpellOnTarget(36836, pUnit:GetMainTank())
end

function Sarkona_Shield (pUnit, event)
         pUnit:CastSpell(7279)
end

function Sarkona_Phase3 (pUnit, event)
      if pUnit:GetHealthPct() < 49 then
         pUnit:RemoveEvents()
	 pUnit:PlaySoundToSet(8470)        
         pUnit:RegisterEvent("Sarkona_Breath", 20000, 0)
         pUnit:RegisterEvent("Sarkona_Stance", 5000, 0)
         pUnit:RegisterEvent("Sarkona_Rain", 9000, 0)
	 pUnit:RegisterEvent("Sarkona_Torrent", 5000, 0) 
         pUnit:RegisterEvent("Sarkona_Fireblast", 7000, 0)
         pUnit:RegisterEvent("Sarkona_Phase4", 1000, 0)
	 pUnit:Castspell(46242)	
  end
end

function Sarkona_Breath (pUnit, event)
         pUnit:CastSpell(32963)
end

function Sarkona_Stance (pUnit, event)
         pUnit:FullCastSpellOnTarget(29927, pUnit:GetMainTank())
end

function Sarkona_Rain (pUnit, event)
         pUnit:CastSpell(34436)
end

function Sarkona_Torrent (pUnit, event)
	 pUnit:Castspell(39255)
end

function Sarkona_Fireblast (pUnit, event)
         pUnit:FullCastSpellOnTarget(45248, pUnit:GetRandomPlayer(0))
end

function Sarkona_Phase4 (pUnit, event)
      if pUnit:GetHealthPct() < 20 then
         pUnit:RemoveEvents()
         pUnit:SendChatMessage(14, 0, "That you dared challenge one such as I, speaks volumes of your intelligence")
	 pUnit:PlaySoundToSet(8470)
         pUnit:CastSpell(39255)
	 pUnit:CastSpell(42075)
  end
end

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

function Sarkona_Die (pUnit, event)
         pUnit:RemoveEvents()
         pUnit:SendChatMessage(14, 0, "How can such puny creatures be so powerful...?")
	 pUnit:PlaySoundToSet(369)     
end

RegisterUnitEvent(658798, 1, "Sarkona_EnterCombat")
RegisterUnitEvent(658798, 2, "Sarkona_LeaveCombat")
RegisterUnitEvent(658798, 4, "Sarkona_Die")