[Need Teleporter]

[936714825]

Could someone make me a teleporter with just

Main Cities and Instances

[Gunzarles]

Could someone make me a teleporter with just

Main Cities and Instances

Thats really easy to find Theres like 5 different Teleporters on the MMOwned forums atm.

[Zudrik]

Well if you want one with just Horde & Alliance Capitols and instances I could make one up for ya, that is, if you haven't got one already.

[talkycoder]

Can someone send me on this email [email protected] some Teleporters??? Main cityes...instances....and others pls

[Vragoth]

Well i found this on arcemu, this is a lua code.Obviously you will need to create the appropriate tables in your database tables "creature_names" and "creature_proto" with the ID 666667.

local npcid = 0
function WarpNPC_OnGossipTalk(pUnit, event, player, pMisc)
pUnit:GossipCreateMenu(100, player, 0)
pUnit:GossipMenuAddItem(0, "Alliance Cities", 1, 0)
pUnit:GossipMenuAddItem(0, "Horde Cities", 2, 0)
pUnit:GossipMenuAddItem(0, "Neutral Cities", 200, 0)
pUnit:GossipMenuAddItem(0, "Outland Locations", 3, 0)
pUnit:GossipMenuAddItem(0, "Northrend Locations", 500, 0)
pUnit:GossipMenuAddItem(0, "ALL Instances", 4, 0)
pUnit:GossipMenuAddItem(5, "-Extra Tools-", 57, 0)
pUnit:GossipMenuAddItem(9, "-Heal me-", 65, 0)
pUnit:GossipSendMenu(player)
end

function WarpNPC_OnGossipSelect(pUnit, event, player, id, intid, code, pMisc)
if (intid == 1) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Stormwind", 9, 0)
pUnit:GossipMenuAddItem(2, "Ironforge", 10, 0)
pUnit:GossipMenuAddItem(2, "Darnassus", 11, 0)
pUnit:GossipMenuAddItem(2, "Exodar", 12, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 2) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Orgrimmar", 5, 0)
pUnit:GossipMenuAddItem(2, "Undercity", 6, 0)
pUnit:GossipMenuAddItem(2, "Thunder Bluff", 7, 0)
pUnit:GossipMenuAddItem(2, "Silvermoon", 8, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 200) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Booty Bay", 201, 0)
pUnit:GossipMenuAddItem(2, "Gadgetzan", 202, 0)
pUnit:GossipMenuAddItem(2, "Shattrath", 13, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 3) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Shattrath", 13, 0)
pUnit:GossipMenuAddItem(2, "Blade's Edge Mountains", 53, 0)
pUnit:GossipMenuAddItem(2, "Hellfire Peninsula/The Dark Portal", 50, 0)
pUnit:GossipMenuAddItem(2, "Nagrand", 52, 0)
pUnit:GossipMenuAddItem(2, "Netherstorm", 54, 0)
pUnit:GossipMenuAddItem(2, "Shadowmoon Valley", 55, 0)
pUnit:GossipMenuAddItem(2, "Terokkar Forest", 51, 0)
pUnit:GossipMenuAddItem(2, "Zangarmarsh", 56, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 500) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(0, "Alliance Northrend Cities", 501, 0)
pUnit:GossipMenuAddItem(0, "Horde Northrend Cities", 502, 0)
pUnit:GossipMenuAddItem(0, "Neutral Northrend Cities", 503, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 501) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Fort Wildervar in Howling Fjord", 510, 0)
pUnit:GossipMenuAddItem(2, "Venture Bay in Grizzly Hills", 511, 0)
pUnit:GossipMenuAddItem(2, "Moonrest Gardens in DragonBlight", 512, 0)
pUnit:GossipMenuAddItem(2, "More Coming Soon", 514, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 502) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Vengeance Landing in Howling Fjord", 520, 0)
pUnit:GossipMenuAddItem(2, "Conquest Hold in Grizzly Hills", 521, 0)
pUnit:GossipMenuAddItem(2, "Agmar's Hammer in DragonBlight", 522, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 503) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Kamagua in Howling Fjord", 530, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 4) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(0, "Eastern Kingdom Instances", 14, 0)
pUnit:GossipMenuAddItem(0, "Kalimdor Instances", 15, 0)
pUnit:GossipMenuAddItem(0, "Outland Instances", 16, 0)
pUnit:GossipMenuAddItem(0, "Northrend Instances", 600, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 600) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Coming Soon ", 601, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 14) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Blackrock Mountains", 17, 0)
pUnit:GossipMenuAddItem(2, "The Deadmines", 18, 0)
pUnit:GossipMenuAddItem(2, "Gnomeregan", 19, 0)
pUnit:GossipMenuAddItem(2, "Karazhan", 20, 0)
pUnit:GossipMenuAddItem(2, "Naxxramas", 22, 0)
pUnit:GossipMenuAddItem(2, "Scholomance", 23, 0)
pUnit:GossipMenuAddItem(2, "Shadowfang Keep", 24, 0)
pUnit:GossipMenuAddItem(2, "Scarlet Monastery", 25, 0)
pUnit:GossipMenuAddItem(2, "The Stockade", 26, 0)
pUnit:GossipMenuAddItem(2, "Stratholme", 27, 0)
pUnit:GossipMenuAddItem(2, "The Sunken Temple", 28, 0)
pUnit:GossipMenuAddItem(2, "Uldaman", 30, 0)
pUnit:GossipMenuAddItem(2, "Zul'Gurub", 32, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 15) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Ahn'Qiraj", 33, 0)
pUnit:GossipMenuAddItem(2, "Blackfathom Deeps", 34, 0)
pUnit:GossipMenuAddItem(2, "Caverns of Time", 35, 0)
pUnit:GossipMenuAddItem(2, "Dire Maul", 36, 0)
pUnit:GossipMenuAddItem(2, "Maraudon", 37, 0)
pUnit:GossipMenuAddItem(2, "Onyxia's Lair", 38, 0)
pUnit:GossipMenuAddItem(2, "Ragefire Chasm", 39, 0)
pUnit:GossipMenuAddItem(2, "Razorfen Downs", 40, 0)
pUnit:GossipMenuAddItem(2, "Razorfen Kraul", 41, 0)
pUnit:GossipMenuAddItem(2, "Wailing Caverns", 42, 0)
pUnit:GossipMenuAddItem(2, "Zul'Farrak", 43, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 16) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(2, "Auchindoun", 44, 0)
pUnit:GossipMenuAddItem(2, "Black Temple", 45, 0)
pUnit:GossipMenuAddItem(2, "Coilfang Reservoir", 46, 0)
pUnit:GossipMenuAddItem(2, "Gruul's Lair", 47, 0)
pUnit:GossipMenuAddItem(2, "Hellfire Citadel", 48, 0)
pUnit:GossipMenuAddItem(2, "Magisters' Terrace", 21, 0)
pUnit:GossipMenuAddItem(2, "Tempest Keep", 49, 0)
pUnit:GossipMenuAddItem(2, "Sunwell Plateau", 29, 0)
pUnit:GossipMenuAddItem(2, "Zul'Aman", 31, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 57) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(3, "Agility", 59, 0)
pUnit:GossipMenuAddItem(3, "Intellect", 60, 0)
pUnit:GossipMenuAddItem(3, "Protection", 61, 0)
pUnit:GossipMenuAddItem(3, "Spirit", 62, 0)
pUnit:GossipMenuAddItem(3, "Stamina", 63, 0)
pUnit:GossipMenuAddItem(3, "Strength", 64, 0)
pUnit:GossipSendMenu(player)
end

if (intid == 5) then
player:Teleport(1, 1371.068970, -4370.801758, 26.052483) -- Orgrimmar
end

if (intid == 6) then
player:Teleport(0, 2050.203125, 285.650604, 56.994549) -- Undercity
end

if (intid == 7) then
player:Teleport(1, -1304.569946, 205.285004, 68.681396) -- Thunderbluff
end

if (intid == 8) then
player:Teleport(530, 9400.486328, -7278.376953, 14.206780) -- Silvermoon
end

if (intid == 9) then
player:Teleport(0, -8913.230469, 544.632996, 93.794724) -- Stormwind
end

if (intid == 10) then
player:Teleport(0, -4981.250000, -881.541992, 501.659882) -- Ironforge
end

if (intid == 11) then
player:Teleport(1, 9985.907227, 1971.155640, 1326.815674) -- Darnassus
end

if (intid == 12) then
player:Teleport(530, -4072.202393, -12014.337891, -1.277277) -- Exodar
end

if (intid == 13) then
player:Teleport(530, -1887.510010, 5359.379883, -12.427300) -- Shattrath
end

if (intid == 17) then
player:Teleport(0, -7491.719238, -1074.845947, 265.089935) -- Blackrock Mountains
end

if (intid == 19) then
player:Teleport(0, -5182.464355, 607.487427, 408.965881) -- Gnomeregan
end

if (intid == 20) then
player:Teleport(0, -11121.247070, -2012.714355, 47.096985) -- Karazahn
end

if (intid == 21) then
player:Teleport(530, 12889.763672, -7326.697266, 65.491798) -- Magisters' Terrace
end

if (intid == 22) then
player:Teleport(0, 3164.131592, -3747.983887, 132.852615) -- Naxxramas
end

if (intid == 23) then
player:Teleport(0, 1230.314575, -2599.220703, 88.976143) -- Scholomance
end

if (intid == 24) then
player:Teleport(0, -246.683914, 1532.607666, 77.124901) -- Shadowfang Keep
end

if (intid == 25) then
player:Teleport(0, 2843.495605, -692.977295, 139.330276) -- Scarlet Monastery
end

if (intid == 26) then
player:Teleport(0, -8772.176758, 840.297913, 91.003372) -- The Stockade
end

if (intid == 27) then
player:Teleport(0, 3343.937744, -3379.550781, 144.775574) -- Stratholme
end

if (intid == 28) then
player:Teleport(0, -10449.789063, -3823.687988, 18.066645) -- The Sunken Temple
end

if (intid == 29) then
player:Teleport(530, 12588.159180, -6775.057617, 15.091800) -- Sunwell Plateau
end

if (intid == 30) then
player:Teleport(0, -6071.516133, -2955.536377, 209.783035) -- Uldaman
end

if (intid == 31) then
player:Teleport(530, 6851.177246, -7946.305664, 170) -- Zul'Aman
end

if (intid == 32) then
player:Teleport(0, -11915.947266, -1187.432007, 85.137840) -- Zul'Gurub
end

if (intid == 33) then
player:Teleport(1, -8166.177734, 1531.099487, 4.195099) -- Ahn'Qiraj
end

if (intid == 34) then
player:Teleport(1, 4247.057129, 741.940735, -25.184605) -- Blackfathom Deeps
end

if (intid == 35) then
player:Teleport(1, -8369.945313, -4253.909820, -204.333389) -- Caverns of Time
end

if (intid == 36) then
player:Teleport(1, -3520.068848, 1113.661337, 161.026123) -- Dire Maul
end

if (intid == 37) then
player:Teleport(1, -1421.904297, 2910.345703, 137.410583) -- Maraudon
end

if (intid == 38) then
player:Teleport(1, -4672.532227, -3702.960693, 46.147873) -- Onyxia's Lair
end

if (intid == 39) then
player:Teleport(1, 1809.329834, -4404.645508, -18.714394) -- Ragfire Chasm
end

if (intid == 40) then
player:Teleport(1, -4651.700684, -2500.510254, 81.400879) -- Razorfen Downs
end

if (intid == 41) then
player:Teleport(1, -4473.704102, -1683.995361, 80.525322) -- Razorfen Kraul
end


if (intid == 43) then
player:Teleport(1, -6808.160645, -2890.859131, 8.885407) -- Zul'Farrak
end

if (intid == 44) then
player:Teleport(530, -3329.651855, 4936.043457, -90.39930) -- Auchindoun
end

if (intid == 45) then
player:Teleport(530, -3624.857910, 315.062836, 38.903099) -- Black Temple
end

if (intid == 46) then
player:Teleport(530, 730.947876, 6866.012695, -70.749023) -- Coilfang Reservoir
end

if (intid == 47) then
player:Teleport(530, 3523.798340, 5153.760742, -1.424888) -- Gruul's Lair
end

if (intid == 48) then
player:Teleport(530, -575.380798, 3119.677734, 5.5155335) -- Hellfire Citadel
end

if (intid == 49) then
player:Teleport(530, 3098.487793, 1513.052124, 190.300110) -- Tempest Keep
end

if (intid == 50) then
player:Teleport(530, -248.431702, 939.013367, 84.379822) -- Hellfire Peninsula/ The Dark Portal
end

if (intid == 51) then
player:Teleport(530, -1176.588989, 5336.273926, 29.897034) -- Terokkar Forest
end

if (intid == 52) then
player:Teleport(530, -526, 8440, 47.426472) -- Nagrand
end

if (intid == 53) then
player:Teleport(530, 1114.010254, 7090.967285, 122.127274) -- Blade's Edge Mountains
end

if (intid == 54) then
player:Teleport(530, 2315.689209, 2535.836670, 119.271622) -- Netherstorm
end

if (intid == 55) then
player:Teleport(530, -2847.810791, 3190.677246, 8.136728) -- Shadowmoon Valley
end

if (intid == 56) then
player:Teleport(530, -218.652313, 5485.449219, 22.158312) -- Zangarmarsh
end

if (intid == 201) then
player:Teleport(0, -14400.141602, 418.257050, 22.529831) -- booty bay
end

if (intid == 202) then
player:Teleport(1, -7154.859863, -3817.939941, 8.398049) -- gadget
end

if (intid == 510) then
player:Teleport(571, 2471.3, -5031.1, 284) -- Fort Wildervar
end

if (intid == 511) then
player:Teleport(571, 2497.3, -1909.3, 9) -- venture bay
end

if (intid == 512) then
player:Teleport(571, 3487.6, 1996.68, 65) -- Moonrest Gardens
end

if (intid == 520) then
player:Teleport(571, 1922.9, -6171.1, 24) -- Vengeance Landing
end

if (intid == 521) then
player:Teleport(571, 3147.3, -2246.42, 112) -- Conquest Hold
end

if (intid == 522) then
player:Teleport(571, 3748, 1521, 90) -- Agmar's Hammer
end

if (intid == 530) then
player:Teleport(571, 772.7, -2880.6, 4) -- Kamagua
end

if (intid == 58) then
player:LearnSpell(15007) -- Remove Resurrection Sickness
player:UnlearnSpell(15007)
pUnit:SendChatMessage(12, 0, "Rez Sickness has been removed! Vote at EDIT THIS TO YOUR WEBSITE!! and you can spend points on some Exelent Custom Gear")
pUnit:GossipComplete(player)
end

if (intid == 59) then
pUnit:CastSpellOnTarget(33077, player)
pUnit:GossipComplete(player)
end

if (intid == 60) then
pUnit:CastSpellOnTarget(33078, player)
pUnit:GossipComplete(player)
end

if (intid == 61) then
pUnit:CastSpellOnTarget(33079, player)
pUnit:GossipComplete(player)
end

if (intid == 62) then
pUnit:CastSpellOnTarget(33080, player)
pUnit:GossipComplete(player)
end

if (intid == 63) then
pUnit:CastSpellOnTarget(33081, player)
pUnit:GossipComplete(player)
end

if (intid == 64) then
pUnit:CastSpellOnTarget(33082, player)
pUnit:GossipComplete(player)
end

if (intid == 65) then
pUnit:CastSpellOnTarget(25840, player)
pUnit:GossipComplete(player)
end

intid = 0
end

RegisterUnitGossipEvent(666667, 1, "WarpNPC_OnGossipTalk")
RegisterUnitGossipEvent(666667, 2, "WarpNPC_OnGossipSelect")