[Teleporter] LUA code!

[lilbdiablo12]

Ok i have SEEN plenty of people get other LUA scripts to not work, this one is a little more simple and easier to Edit.

Open up notepad and under paste this in there

local npcid = 200000
local menunum = 33310
local menuicon = 4
local teleicon = 2
local menu =
{
    {"Alliance Locations",
        {
            {"Stormwind", 0, -9077.296875, 423.434479, 92.79048},
            {"Ironforge", 0, -4989.347168, -872.971741, 496.984375},
            {"Darnassus", 1, 9951.940430, 2280.126953, 1341.395386},
            {"Exodar", 530, -4010.619141, -11886.310547, -1.610816},
            
        }
    },
    
    {"Horde Locations",
        {
            {"Orgrimmar", 1, 1502.709961, -4415.419922, 21.552349},
            {"Undercity", 0, 1642.265381, 239.750000, 62.592251},
            {"Thunder Bluff", 1, -1289.020020, 144.417999, 129.876007},
            {"Silvermoon", 530, 9394.371094, -7278.359375, 14.239411},
        }
     },
     {"Mall", 1, -11792.368164, -4742.708008, 3.411385},
     {"PvP Area", 0, -13248.059570, 189.193329, 31.204947}

}
				
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(200000, 1, "TeleNPC_OnGossipTalk")
RegisterUnitGossipEvent(200000, 2, "TeleNPC_OnGossipSelect")

You can of course put your own cords, you can easily put in your own stuff...

Make sure you make you own NPC

200000 will be the entry, unless you change it in the script.

After you have pasted it, save it as a .sql

make sure notepad is not saving it as a .txt!!!!!!!

make sure its on All Files before you save it, and just add .lua to it!

Hope this helps.

I do not take credit for the whole script, i do not know whos it is, i think its Oxins?

Hope it works for oyu!

[Dr. Livingstone]

Great script! You guys should try it out.

[lilbdiablo12]

If i didnt know how to make any of them work, please do tell why the hell i made this one work? ok good bye...

[Dr. Livingstone]

Great script! +Rep! Will work without any special Lua engine.

[lilbdiablo12]

Alright, true true, but i also see that alot of it dont work for other people, so ill edit that there

[Dr. Livingstone]

Alright. +Rep for a good script

[lilbdiablo12]

Ty

~fIlLaR~

[Sounddead]

Its true. Most of them work, but people seem to be missing the fact that you need to compile a lua engine. (Such as Lua++)

This is just a basic lua teleporter that will (in theory) work with all emulators (except mangos of course) but it won't have many of the functions and read ability of a Lua++ script.

So there. Good bye.

EDIT: Plus.. This is a re-release. But gj on the copy/paste. I'm sure it will be useful to some people.
NVM about my edit. Need to l2 read

[lilbdiablo12]

.... lol? mm okay

[Sounddead]

Lmao
I'll give you a +rep for enduring through my rant.

[lilbdiablo12]

Lol, alrighty then, Thank you! for enduring a rant of the times!

BTW, sense you seem to know what you doing for the LUA stuff, can you download my edit of the GM addon. And check the LUA file and make sure its 100% correct, i think it is, but *shrugs* im still learning lol

[AzolexX]

First of all post real credits for "template" and second lua can't be part of code and lua script is not code, it is script and just script.

[TheNlghtmare]

Ok i have SEEN plenty of people get other LUA scripts to not work, this one is a little more simple and easier to Edit.

Open up notepad and under paste this in there

local npcid = 200000
local menunum = 33310
local menuicon = 4
local teleicon = 2
local menu =
{
    {"Alliance Locations",
        {
            {"Stormwind", 0, -9077.296875, 423.434479, 92.79048},
            {"Ironforge", 0, -4989.347168, -872.971741, 496.984375},
            {"Darnassus", 1, 9951.940430, 2280.126953, 1341.395386},
            {"Exodar", 530, -4010.619141, -11886.310547, -1.610816},
            
        }
    },
    
    {"Horde Locations",
        {
            {"Orgrimmar", 1, 1502.709961, -4415.419922, 21.552349},
            {"Undercity", 0, 1642.265381, 239.750000, 62.592251},
            {"Thunder Bluff", 1, -1289.020020, 144.417999, 129.876007},
            {"Silvermoon", 530, 9394.371094, -7278.359375, 14.239411},
        }
     },
     {"Mall", 1, -11792.368164, -4742.708008, 3.411385},
     {"PvP Area", 0, -13248.059570, 189.193329, 31.204947}

}
				
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(200000, 1, "TeleNPC_OnGossipTalk")
RegisterUnitGossipEvent(200000, 2, "TeleNPC_OnGossipSelect")

You can of course put your own cords, you can easily put in your own stuff...

Make sure you make you own NPC

200000 will be the entry, unless you change it in the script.

After you have pasted it, save it as a .sql

make sure notepad is not saving it as a .txt!!!!!!!

make sure its on All Files before you save it, and just add .lua to it!

Hope this helps.

I do not take credit for the whole script, i do not know whos it is, i think its Oxins?

Hope it works for oyu!

Is this alliance/horde gossip specific?

[AzolexX]

No, if you know to read.