Current Tele Lua

local NPC_ID = 900001

local T =
        {
                -- Horde Cities

                {1, 1503, -4415.5, 22, 0},                		-- Orgrimmar    		intid 1
                {0, 1831, 238.5, 61.6, 0},                		-- Undercity    		intid 2
                {1, -1278, 122, 132, 0},                		-- Thunderbluff   		intid 3
                {530, 9484, -7294, 15, 0},                		-- Silvermoon    		intid 4

                -- Ally Cities

                {0, -8905, 560, 94, 0.62},                		-- Stormwind       		intid 5
                {0, -4795, -1117, 499, 0},               		-- Ironforge       		intid 6
                {1, 9952, 2280.5, 1342, 1.6},                	-- Darnassus      		intid 7
                {530, -3863, -11736, -106, 2},                	-- The Exodar      		intid 8

				--  Kalimdor
				{530, -4216, -12336, 4, 6} 						--Azuremyst Isle		intid 9
				{1, 1007, -4446, 11, 0} 						--Durotar				intid 10
				{1, -2192, -736, -13, 0} 						--Mulgore				intid 11
				{1, 10111, 1557, 1324, 4} 						--Teldrassil			intid 12
				{1, 3341, -4603, 92, 5} 						--Azshara				intid 13
				{530, -1993, -11475, 63, 5} 					--Bloodmyst Isle		intid 14
				{1, 5756, 298, 20, 6} 							--Darkshore				intid 15
				{1, 48, -2715, 91, 0} 							--Barrens				intid 16
				{1, 7654, -2232, 462, 6} 						--Moonglade				intid 17
				{1, 1928, -2165, 93, 0} 						--Ashenvale				intid 18
				{1, 1570, 1031, 137, 3} 						--Stonetalon Mountains	intid 19
				{1, -606, 2211, 92, 0} 							--Desolace				intid 20
				{1, -4043, -2991, 36, 3} 						--Dustwallow Marsh		intid 21
				{1, -4841, 1309, 81, 1} 						--Feralas				intid 22
				{1, -4969, -1726, -62, 3} 						--Thousand Needles		intid 23
				{1, 4102, -1006, 272, 0} 						--Felwood				intid 24
				{1, -7931., -3414, 80, 0} 						--Tanaris				intid 25
				{1, -7943, -2119, -218, 6} 						--Un'Goro Crater		intid 26
				{1, 6759, -4419, 763, 4} 						--Winterspring			intid 27
				{1, -7426, 1005, 1, 3} 							--Silithus				intid 28

				--  Eastern Kingdoms

				-- Outlands Locations
                {530, 1481, 6829, 107, 6},             			-- Blade's Edge			intid 29
                {530, -249, 947, 85, 2},               			-- Hellfire       		intid 30
                {530, -1769, 7150, -9, 2},             			-- Nagrand         		intid 31
                {530, 3043, 3645, 143, 2},                		-- Netherstorm     		intid 32
                {530, -3034, 2937, 87, 5},                		-- Shadowmoon      		intid 33
                {530, -1942, 4689, -2, 5},                		-- Terokkar        		intid 34
                {530, -217, 5488, 23, 2},                		-- Zangarmarsh     		intid 35
                {530, -1822, 5417, 1, 3},                		-- Shattrath      		intid 36

				--  Instances

				--  Raids

				-- PvP Locations
                {0, -13229, 226, 33, 1},                		-- Gurubashi       		intid 37
                {1, -3669, 1094, 160, 3},                		-- Dire Maul       		intid 38
                {530, -1983, 6562, 12, 2},                		-- Nagrand      		intid 39
                {530, 2910, 5976, 2, 4},                		-- Blade's Edge   		intid 40
        }

function Teleporter_Gossip(event, plr, unit)
        plr:GossipMenuAddItem(0, "Main Cities", 0, 1001, 0)
		plr:GossipMenuAddItem(0, "Kalimdor Locations", 0, 1002, 0)
		plr:GossipMenuAddItem(0, "Eastern Kingdoms Locations", 0, 1003, 0)
        plr:GossipMenuAddItem(0, "Outlands Locations", 0, 1004, 0)
		plr:GossipMenuAddItem(0, "Dungeons", 0, 1005, 0)
		plr:GossipMenuAddItem(0, "Raids", 0, 1006, 0)
        plr:GossipMenuAddItem(0, "PvP Locations", 0, 1007, 0)
        plr:GossipSendMenu(1, unit)
end

function Teleporter_Event(event, plr, unit, arg2, intid)
        if(intid >= 1) and (intid <= 100) then
                plr:Teleport(T[intid][1], T[intid][2], T[intid][3], T[intid][4], T[intid][5], T[intid][6], T[intid][7])
        elseif(intid == 1000) then
                Teleporter_Gossip(event, plr, unit)
        elseif(intid >= 1001) and (intid <= 1007) then
                if(intid == 1001) then
                        if(plr:GetTeam() == 1) then
                                plr:GossipMenuAddItem(2, "Orgrimmar", 0, 1)
                                plr:GossipMenuAddItem(2, "Undercity", 0, 2)
                                plr:GossipMenuAddItem(2, "Thunderbluff", 0, 3)
                                plr:GossipMenuAddItem(2, "Silvermoon", 0, 4)
								plr:GossipMenuAddItem(2, "Shattrath", 0, 36)
                        else
                                plr:GossipMenuAddItem(2, "Stormwind", 0, 5)
                                plr:GossipMenuAddItem(2, "Ironforge", 0, 6)
                                plr:GossipMenuAddItem(2, "Darnassus", 0, 7)
                                plr:GossipMenuAddItem(2, "The Exodar", 0, 8)
								plr:GossipMenuAddItem(2, "Shattrath", 0, 36)
                        end
				elseif(intid == 1002) then
						plr:GossipMenuAddItem(2, "Azuremyst Isle", 0, 9)
						plr:GossipMenuAddItem(2, "Durotar", 0, 10)
						plr:GossipMenuAddItem(2, "Mulgore", 0, 11)
						plr:GossipMenuAddItem(2, "Teldrassil", 0, 12)
						plr:GossipMenuAddItem(2, "Azshara", 0, 13)
						plr:GossipMenuAddItem(2, "Bloodmyst Isle", 0, 14)
						plr:GossipMenuAddItem(2, "Darkshore", 0, 15)
						plr:GossipMenuAddItem(2, "Barrens", 0, 16)
						plr:GossipMenuAddItem(2, "Moonglade", 0, 17)
						plr:GossipMenuAddItem(2, "Ashenvale", 0, 18)
						plr:GossipMenuAddItem(2, "Stonetalon Mountains", 0, 19)
						plr:GossipMenuAddItem(2, "Desolace", 0, 20)
						plr:GossipMenuAddItem(2, "Dustwallow Marsh", 0, 21)
						plr:GossipMenuAddItem(2, "Feralas", 0, 22)
						plr:GossipMenuAddItem(2, "Thousand Needles", 0, 23)
						plr:GossipMenuAddItem(2, "Felwood", 0, 24)
						plr:GossipMenuAddItem(2, "Tanaris", 0, 25)
						plr:GossipMenuAddItem(2, "Un'Goro Crater", 0, 26)
						plr:GossipMenuAddItem(2, "Winterspring", 0, 27)
						plr:GossipMenuAddItem(2, "Silithus", 0, 28)
                elseif(intid == 1004) then
                        plr:GossipMenuAddItem(2, "Blade's Edge Mountains", 0, 29)
                        plr:GossipMenuAddItem(2, "Hellfire Peninsula", 0, 30)
                        plr:GossipMenuAddItem(2, "Nagrand", 0, 31)
                        plr:GossipMenuAddItem(2, "Netherstorm", 0, 32)
                        plr:GossipMenuAddItem(2, "Shadowmoon Valley", 0, 33)
                        plr:GossipMenuAddItem(2, "Terokkar Forest", 0, 34)
                        plr:GossipMenuAddItem(2, "Zangramarsh", 0, 35)
                elseif(intid == 1007) then
                        plr:GossipMenuAddItem(9, "Gurubashi Arena", 0, 37)
                        plr:GossipMenuAddItem(9, "Dire Maul Arena", 0, 38)
                        plr:GossipMenuAddItem(9, "Nagrand Arena", 0, 39)
                        plr:GossipMenuAddItem(9, "Blade's Edge Arena", 0, 40)
                end
                plr:GossipMenuAddItem(0, "Back", 0, 1000)
                plr:GossipSendMenu(1, unit)
        end
end

RegisterCreatureGossipEvent(NPC_ID, 1, Teleporter_Gossip)
RegisterCreatureGossipEvent(NPC_ID, 2, Teleporter_Event)