ArcEmu TeleporterNPC

Quote:

local menunum = 33310 local menuicon = 4 local teleicon = 2 local menu = { {"Playertreff", { {"Playertreff", 0, 1593.466797, -5560.515137, 111.170998}, } }, {"Custom Dungeons", { {"Custom 1", 0, -11208.299805, 1672.520020, 24.658501}, {"Custom 2", 0, 1593.466797, -5560.515137, 111.170998}, } }, {"Do not press here.", { {"You were Warned", 1, -5000, 5000, 1000000}, {"I told you not to press here", 1, -5000, 5000, 1000000}, {"Touch this you die", 1, -5000, 5000, 1000000}, } }, } function TeleNPC_MainMenu(Unit, Player) local i = 0 Unit:GossipCreateMenu(menunum, Player, 0) for k,v in pairs(menu) do i = i + 1 if type(v[2]) == "table" then Unit:GossipMenuAddItem(menuicon, v[1], i, 0) i = i + #(v[2]) else Unit:GossipMenuAddItem(teleicon, v[1], i, 0) end end Unit:GossipSendMenu(Player) end function TeleNPC_SubMenu(Unit, Player, i, Submenu) Unit:GossipCreateMenu(menunum-i, Player, 0) Unit:GossipMenuAddItem(7, "<--Back", 0, 0) for k,v in pairs(Submenu) do i = i + 1 Unit:GossipMenuAddItem(teleicon, v[1], i, 0) end Unit:GossipSendMenu(Player) end function TeleNPC_OnGossipTalk(Unit, Event, Player) TeleNPC_MainMenu(Unit, Player) end function TeleNPC_OnGossipSelect(Unit, Event, Player, MenuId, Id, Code) local i = 0 if(Id == 0) then TeleNPC_MainMenu(Unit,Player) else for k,v in pairs(menu) do i = i + 1 if (Id == i) then if type(v[2]) == "table" then TeleNPC_SubMenu(Unit, Player, i, v[2]) else if Player:IsInCombat() then Unit:SendChatMessage(12, 0, "You can't teleport while in combat!") else Player:Teleport(v[2], v[3], v[4], v[5]) end Unit:GossipComplete(Player) end return elseif (type(v[2]) == "table") then for j,w in pairs(v[2]) do i = i + 1 if (Id == i) then if Player:IsInCombat() then Unit:SendChatMessage(12, 0, "You can't teleport while in combat!") else Player:Teleport(w[2], w[3], w[4], w[5]) end Unit:GossipComplete(Player) return end end end end end end RegisterUnitGossipEvent(99998, 1, "TeleNPC_OnGossipTalk") RegisterUnitGossipEvent(99998, 2, "TeleNPC_OnGossipSelect")