function Brann_OnGossip(pUnit, event, player)
pUnit:GossipCreateMenu(199, player, 0)
pUnit:GossipMenuAddItem(0, "Brann, please tell me the history of this place.", 511, 0)
pUnit:GossipMenuAddItem(0, "I do not think I am quite ready yet.",
512, 0)
pUnit:GossipSendMenu(player)
end
function Brann_Submenus(pUnit, event, player, id, intid, code)
if(intid == 511) then
pUnit:SetNPCFlags(35)
pUnit:RegisterEvent("Brann_Start", 1, 1)
local name = player:GetName()
pUnit:SendChatMessage(12, 0, "Listen, "..name..". I will tell you the
story about this place.")
player:GossipComplete()
end
if(intid == 512) then
player:GossipComplete()
end
end
function Brann_Start(pUnit, Event)
pUnit:RegisterEvent("Brann_StartTalk", 4000, 1)
end
RegisterUnitGossipEvent(45000, 1, "Brann_OnGossip")
RegisterUnitGossipEvent(45000, 2, "Brann_Submenus")
--[[ Brann Texts ]]--
function Brann_StartTalk(pUnit, Event)
pUnit:Emote(1, 4000)
pUnit:SendChatMessage(12, 0, "The Hall of Thanes is a massive, natural
cavern complex. It is located in Ironforge’s lowest depths. The area is
a true marvel of organic stone formation: no dwarf has touched this
area with pick or chisel.")
pUnit:RegisterEvent("Brann_Talk1", 6500, 1)
end
function Brann_Talk1(pUnit, Event)
pUnit:Emote(1, 4000)
pUnit:SendChatMessage(12, 0, "Ironforge’s kings are buried in the Hall
of Thanes, and the old throne is here as well. Also within this
cavernous area is the ancient, weathered Iron Forge — perhaps the
greatest titan artifact ever unearthed.")
pUnit:RegisterEvent("Brann_Talk2", 8000, 1)
end
function Brann_Talk2(pUnit, Event)
pUnit:Emote(1, 4000)
pUnit:SendChatMessage(12, 0, "The dwarves do not use this holy anvil,
but keep it near their honored dead and the seat of their power.")
pUnit:RegisterEvent("Brann_Talk3", 8000, 1)
end
function Brann_Talk3(pUnit, Event)
pUnit:Emote(1, 4000)
pUnit:SendChatMessage(12, 0, "I believe that as we uncover more truths
about our ancestry, we will find greater uses for the Iron Forge. The
titans must have given it to us for a reason.")
pUnit:RegisterEvent("Brann_Talk4", 9000, 1)
end
function Brann_Talk4(pUnit, Event)
pUnit:Emote(1, 1000)
pUnit:SendChatMessage(12, 0, "That is all I can reveal to you for now,
I'm afraid.")
pUnit:SetNPCFlags(1)
end