Code:
local RadenEntryID = 94036
local C1EntryID = 90224
local C2EntryID = 90225
local C3EntryID = 90226
local C4EntryID = 90227
local GarEntryID = 99921
local UNIT_FLAG_NOT_SELECTABLE = 0x02000000
function LYO(pUnit, event)
Raden = pUnit
end
function HDM(pUnit, event)
C1 = pUnit
end
function HVR(pUnit, event)
C2 = pUnit
end
function IFC(pUnit, event)
C3 = pUnit
end
function VFG(pUnit, event)
C4 = pUnit
end
function VFP(pUnit, event)
Gar = pUnit
end
RegisterUnitEvent(RadenEntryID, 18, "LYO")
RegisterUnitEvent(C1EntryID, 18, "HDM")
RegisterUnitEvent(C2EntryID, 18, "HVR")
RegisterUnitEvent(C3EntryID, 18, "IFC")
RegisterUnitEvent(C4EntryID, 18, "VFG")
RegisterUnitEvent(GarEntryID, 18, "VFP")
function Gar_OnGossip(pUnit, Event, player)
Gar:GossipCreateMenu(99, player, 0)
Gar:GossipMenuAddItem(0, "What did Jaina mean about Thunder and Energy? What are these cultist? What's Going on!", 1, 0)
Gar:GossipSendMenu(player)
end
function Gar_GossipSelect(pUnit, Event, player, id, intid, code)
if (intid == 1) then
Gar:SetNPCFlags(0)
Gar:RegisterEvent("Raden1", 5000, 1)
Gar:GossipComplete(player)
end
end
RegisterUnitGossipEvent(GarEntryID, 1, "Gar_OnGossip")
RegisterUnitGossipEvent(GarEntryID, 2, "Gar_GossipSelect")
function Raden1(pUnit, event)
Gar:SendChatMessage(12, 0, "Run while you still can! All this because of a presence? Were not ment to disturb this force!")
Gar:MoveTo(-9061.281250, -341.901672, 93.585732, 6.232394)
Gar:RegisterEvent("Radenb", 8000, 1)
end
function Raden2(pUnit, event)
Gar:Despawn(1600, 60000)
C1:SendChatMessage(14, 0, "Gather around the altar, brothers and sisters! Revelation awaits!")
C1:Emote(1, 2500)
C1:RegisterEvent("Raden3", 2000, 1)
end
function Raden3(pUnit, event)
C1:CastSpell(46242)
C2:CastSpell(46242)
C3:CastSpell(46242)
C4:CastSpell(46242)
C1:CastSpell(45263)
C2:CastSpell(45263)
C3:CastSpell(45263)
C4:CastSpell(45263)
C1:RegisterEvent("Raden4", 2000, 1)
end
function Raden4(pUnit, event)
C1:SpawnCreature(94036, 2000.336426, -4250.541016, 35.655949, 3.546232, 35, 0):SetUInt32Value(UNIT_FIELD_FLAGS, UNIT_FLAG_NOT_SELECTABLE)
C1:RegisterEvent("Raden5", 1000, 1)
end
function Raden5(pUnit, event)
Raden:CastSpell(34804)
Raden:SendChatMessage(14, 0, "For millennia I have waited in darkness, in silence pierced only by the shrieks of the tormented, my dreams a waking nightmare.")
Raden:Emote(1, 2500)
Raden:RegisterEvent("Raden6", 8000, 1)
end
function Raden6(pUnit, event)
Raden:SendChatMessage(14, 0, "I see the naive hope in your eyes... You think you are my saviors? Wring that mocking pity from your hearts and focus it inwards, for you shall soon know my agony.")
Raden:Emote(1, 2500)
Raden:RegisterEvent("Raden7", 8000, 1)
end
function Raden7(pUnit, event)
Raden:SendChatMessage(14, 0, "This twisted world is beyond redemption... beyond the reach of deluded heroes... The only answer to corruption... is destruction. And that begins now.")
Raden:Emote(5, 2500)
Raden:RegisterEvent("Raden8", 8000, 1)
end
function Raden8(pUnit, event)
Raden:CastSpell(62016)
Raden:CastSpell(61361)
Raden:Despawn(1600, 0)
Raden:RegisterEvent("Raden9", 2000, 1)
end
function Raden9(pUnit, event)
C1:SendChatMessage(12, 0, "It will be as you say, my lord!")
C2:SendChatMessage(12, 0, "It will be as you say, my lord!")
C3:SendChatMessage(12, 0, "It will be as you say, my lord!")
C4:SendChatMessage(12, 0, "It will be as you say, my lord!")
C1:Emote(2, 2500)
C2:Emote(2, 2500)
C3:Emote(2, 2500)
C4:Emote(2, 2500)
C1:RemoveAura(45263)
C2:RemoveAura(45263)
C3:RemoveAura(45263)
C4:RemoveAura(45263)
end