Deathbringer Saurfang Horde

local Saur
local Jr


function NPCGIA_GJOEAOJG_HXOJ(pUnit, Event)
    Saur = pUnit
    Saur:SetFaction(35)
end

RegisterUnitEvent(36939, 18, "NPCGIA_GJOEAOJG_HXOJ")

function NPCGIA_GJOEAOJG_HXOJ_Z(pUnit, Event)
    Jr = pUnit
    Jr:SetFaction(35)
end

RegisterUnitEvent(37813, 18, "NPCGIA_GJOEAOJG_HXOJ_Z")

function On_Gossip(Unit, event, player)
Unit:GossipCreateMenu(1000, player, 86423)
Unit:GossipMenuAddItem(0, "We are ready to enter the inner citadel", 1, 0)
Unit:GossipSendMenu(player)
end

function SubMenu_Gossip(Unit, event, player, id, intid, code)
if (intid == 1) then
Saur:RegisterEvent("sar_miscy", 1000, 1)
player:GossipComplete()
end
if (intid == 2) then
player:GossipComplete()
end


end

function sar_miscy(pUnit, Event)
Saur:SendChatMessage(14, 0, "Kor'kron, move out! Champions, watch your backs. The Scourge have been...")
Saur:SetNPCFlags(4)
Saur:PlaySoundToSet(17103)
Saur:RegisterEvent("sar_misc", 7000, 1)
Jr:MoveTo(-493.9, 2211.3, 541.1, 3.1)
Jr:Emote(27, 60000)
end

function sar_misc(pUnit, Event)
Jr:SendChatMessage(14, 0, "Join me, father. Join me and we will crush this world in the name of the Scourge -- for the glory of the Lich King!")
Jr:PlaySoundToSet(16704)
Jr:RegisterEvent("sar_miscz", 15000, 1)
end

function sar_miscz(pUnit, Event)
Saur:SendChatMessage(12, 0, "My boy died at the Wrath Gate. I am here only to collect his body.")
Saur:PlaySoundToSet(17097)
Saur:RegisterEvent("sar_misczz", 8000, 1)
end

function sar_misczz(pUnit, Event)
Jr:SendChatMessage(14, 0, "Stubborn and old. What chance do you have? I am stronger, and more powerful than you ever were.")
Jr:PlaySoundToSet(16705)
Jr:RegisterEvent("sar_misczzz", 9000, 1)
end

function sar_misczzz(pUnit, Event)
Saur:SendChatMessage(12, 0, "We named him Dranosh. It means Heart of Draenor in orcish. I would not let the warlocks take him. My boy would be safe, hidden away by the elders of Garadar.")
Saur:PlaySoundToSet(17098)
Saur:RegisterEvent("sar_misczzzx", 15000, 1)
end

function sar_misczzzx(pUnit, Event)
Saur:SendChatMessage(12, 0, "I made a promise to his mother before she died; that I would cross the Dark Portal alone - whether I lived or died, my son would be safe. Untainted...")
Saur:PlaySoundToSet(17099)
Saur:RegisterEvent("sar_misczzzxx", 15000, 1)
end

function sar_misczzzxx(pUnit, Event)
Saur:SendChatMessage(12, 0, "Today, I fulfill that promise.")
Saur:PlaySoundToSet(17100)
Saur:MoveTo(-505, 2211.7, 539.2, 6.2)
Saur:SetMovementFlags(1)
Saur:RegisterEvent("sar_misczzzxxy", 3500, 1)
end

function sar_misczzzxxy(pUnit, Event)
Saur:MoveTo(-505, 2211.7, 639.2, 6.2)
Saur:SetFlying()
Saur:PlaySoundToSet(17104)
Saur:SetMovementFlags(1)
Saur:RegisterEvent("sar_misczzzxxx", 2500, 1)
end

function sar_misczzzxxx(pUnit, Event)
Saur:MoveTo(-505, 2211.7, 539.2, 6.2)
Saur:CastSpell(43489)
Saur:CastSpell(43489)
Jr:SendChatMessage(14, 0, "Pathetic old orc. Come then heroes. Come and face the might of the Scourge!")
Jr:PlaySoundToSet(16706)
Jr:RegisterEvent("sar_misczzzxxxa", 5800, 1)
end

function sar_misczzzxxxa(pUnit, Event)
Saur:CastSpell(43489)
Jr:SetFaction(16)
end


function sar_OnCombat(pUnit, Event)
Jr:SendChatMessage(14, 0, "BY THE MIGHT OF THE LICH KING!")
Jr:PlaySoundToSet(16694)
Saur:CastSpell(43489)
Jr:RegisterEvent("sar_blood1", 25000, 0)
Jr:RegisterEvent("sar_blood2", 26000, 0)
Jr:RegisterEvent("sar_boiling", 30000, 0)
Jr:RegisterEvent("sar_nova", 39000, 0)
Jr:RegisterEvent("bloodbeast_spawn", 38000, 0)
Jr:RegisterEvent("sar_mark", 65000, 0)
Jr:RegisterEvent("sar_phase2", 1000, 0)
end

function sar_blood1(pUnit, Event)
Jr:CastSpellOnTarget(72410, pUnit:GetMainTank())
end

function sar_blood2(pUnit, Event)
Jr:CastSpellOnTarget(72408, pUnit:GetMainTank())
end

function sar_boiling(pUnit, Event)
Jr:CastSpellOnTarget(72385, pUnit:GetRandomPlayer(0))
Jr:CastSpellOnTarget(72385, pUnit:GetRandomPlayer(0))
Jr:CastSpellOnTarget(72385, pUnit:GetRandomPlayer(0))
end

function sar_nova(pUnit, Event)
Jr:CastSpellOnTarget(72380, pUnit:GetRandomPlayer(0))
end

function bloodbeast_spawn(pUnit, Event)
Jr:SendChatMessage(14, 0, "Feast my minions!")
Jr:PlaySoundToSet(16700)
Saur:CastSpell(43489)
local x = Jr:GetX()
local y = Jr:GetY()
local z = Jr:GetZ()
local o = Jr:GetO()
if math.random(1,2) == 1 then
Jr:SpawnCreature(38508, x+math.random(3,3), y+math.random(3,3), z, o, 22, 360000)
Jr:SpawnCreature(38508, x-math.random(1,3), y-math.random(1,3), z, o, 22, 360000)
else
Jr:SpawnCreature(38508, x-math.random(3,3), y-math.random(3,3), z, o, 22, 360000)
Jr:SpawnCreature(38508, x-math.random(1,3), y-math.random(1,3), z, o, 22, 360000)
    end
end


function sar_mark(pUnit, Event)
Jr:CastSpellOnTarget(72293, pUnit:GetRandomPlayer(0))
Saur:CastSpell(43489)
end

function sar_phase2(pUnit, Event)
if Jr:GetHealthPct() < 30 then
Jr:SendChatMessage(14, 0, "I have become...DEATH!")
Jr:CastSpell(72737)
Saur:CastSpell(43489)
Jr:PlaySoundToSet(16698)
Jr:RemoveEvents()
Jr:RegisterEvent("sar_blood1", 25000, 0)
Jr:RegisterEvent("sar_blood2", 26000, 0)
Jr:RegisterEvent("sar_boiling", 30000, 0)
Jr:RegisterEvent("sar_nova", 39000, 0)
Jr:RegisterEvent("bloodbeast_spawn", 38000, 0)
Jr:RegisterEvent("sar_mark", 65000, 0)
end
end

function sar_blood1(pUnit, Event)
Jr:CastSpellOnTarget(72410, pUnit:GetMainTank())
end

function sar_blood2(pUnit, Event)
Jr:CastSpellOnTarget(72408, pUnit:GetMainTank())
end

function sar_boiling(pUnit, Event)
Jr:CastSpellOnTarget(72385, pUnit:GetRandomPlayer(0))
end

function sar_nova(pUnit, Event)
Jr:CastSpellOnTarget(72380, pUnit:GetRandomPlayer(0))
end

function bloodbeast_spawn(pUnit, Event)
Jr:SendChatMessage(14, 0, "Feast my minions!")
Jr:PlaySoundToSet(16700)
local x = Jr:GetX()
local y = Jr:GetY()
local z = Jr:GetZ()
local o = Jr:GetO()
Saur:CastSpell(43489)
if math.random(1,2) == 1 then
Jr:SpawnCreature(38508, x+math.random(3,3), y+math.random(3,3), z, o, 22, 360000)
Jr:SpawnCreature(38508, x-math.random(1,3), y-math.random(1,3), z, o, 22, 360000)
else
Jr:SpawnCreature(38508, x-math.random(3,3), y-math.random(3,3), z, o, 22, 360000)
Jr:SpawnCreature(38508, x-math.random(1,3), y-math.random(1,3), z, o, 22, 360000)
    end
end

function sar_mark(pUnit, Event)
Jr:CastSpellOnTarget(72293, pUnit:GetRandomPlayer(0))
Jr:CastSpellOnPlayer(72293)
Jr:SendChatMessage(14, 0, "The ground runs red with your blood!")
Jr:PlaySoundToSet(16699)
end

function sar_OnLeaveCombat(pUnit, Event)
Saur:CastSpell(43489)
Jr:RemoveAura(72737)
Jr:RemoveEvents()
end

function sar_OnKilledTarget(pUnit, Event)
Jr:CastSpell(72260)
Jr:SendChatMessage(14, 1, "You are nothing!")
Jr:PlaySoundToSet(16695)
end

function sar_OnDied(pUnit, Event)
Jr:RemoveEvents()
Jr:SendChatMessage(14, 1, "I...Am...Released")
Jr:PlaySoundToSet(16697)
Saur:SetMovementFlags(1)
Jr:SpawnGameObject(202239, -497.325, 2175.1, 539.2, 2.5, 360000)
Saur:RemoveAura(43489)
Saur:MoveTo(-544, 2211, 539.2, 0)
Saur:PlaySoundToSet(17105)
Saur:RemoveAura(43489)
Saur:RegisterEvent("sar_End", 1500, 1)

end

function sar_End(pUnit, Event)
x = Jr:GetX()
y = Jr:GetY()
z = Jr:GetZ()
o = Jr:GetO()
Saur:MoveTo(x,y,z,o,2,0)
Saur:Emote(18, 1000)
Saur:PlaySoundToSet(17106)
Saur:RegisterEvent("sar_Endz", 10000, 1)
end

function sar_Endz(pUnit, Event)
Saur:SendChatMessage(12, 1, "You will have a proper ceremony in Nagrand next to the pyres of your mother and ancestors.")
Saur:Emote(16, 1000)
Saur:PlaySoundToSet(17101)
Saur:RegisterEvent("sar_Endzz", 8700, 1)
end

function sar_Endzz(pUnit, Event)
Saur:SendChatMessage(12, 1, "Honor, young heroes... no matter how dire the battle... Never forsake it!")
Saur:PlaySoundToSet(17102)
Jr:RemoveFromWorld()
Saur:RegisterEvent("sar_Endzzz", 8500, 1)
end

function sar_Endzzz(pUnit, Event)
Saur:MoveTo(-548.8, 2210.8, 539.2, 3.13)
Saur:RegisterEvent("sar_Endzzzx", 9500, 1)
end

function sar_Endzzzx(pUnit, Event)
Saur:RemoveFromWorld()
end



RegisterUnitEvent(37813, 1, "sar_OnCombat")
RegisterUnitEvent(37813, 2, "sar_OnLeaveCombat")
RegisterUnitEvent(37813, 3, "sar_OnKilledTarget")
RegisterUnitEvent(37813, 4, "sar_OnDied")



RegisterUnitGossipEvent(36939, 1, "On_Gossip")
RegisterUnitGossipEvent(36939, 2, "SubMenu_Gossip")