Not To Much - Teleporter/warper

[iday]

Not To Much Teleporter

Hey everyone this is my first thread and stuff so i´ll just get right on to the Npc.


Its a simple made LUA script teleporter, most of the leveling locations.
Now, i can guarantee that all the locations aren´t there because its only a blizzlike/midrate/highrate teleporter made for my friend.
(H)
Here are some Screenies for ya:






Code:

function On_Gossip(unit, event, player)
unit:GossipCreateMenu(3544, player, 0)
unit:GossipMenuAddItem(2, "Northrend Locations", 1, 0)
unit:GossipMenuAddItem(2, "Azeroth Locations", 2, 0)
unit:GossipMenuAddItem(2, "Outland Locations", 3, 0)
unit:GossipMenuAddItem(2, "Malls and citys", 4, 0)
unit:GossipMenuAddItem(5, "Gurubashi Arena", 5, 0)
unit:GossipMenuAddItem(5, "Arena Floor", 6, 0)
unit:GossipMenuAddItem(5, "Remove Resurectionsickness", 7, 0)
unit:GossipSendMenu(player)
end

function Gossip_Submenus(unit, event, player, id, intid, code)

if(intid == 999) then
unit:GossipCreateMenu(3543, player, 0)
unit:GossipMenuAddItem(2, "Northrend Locations", 1, 0)
unit:GossipMenuAddItem(2, "Azeroth Locations", 2, 0)
unit:GossipMenuAddItem(2, "Outland Locations", 3, 0)
unit:GossipMenuAddItem(2, "Malls and citys", 4, 0)
unit:GossipMenuAddItem(5, "Gurubashi Arena", 5, 0)
unit:GossipMenuAddItem(5, "Arena Floor", 6, 0)
unit:GossipMenuAddItem(5, "Remove Resurectionsickness", 7, 0)
unit:GossipSendMenu(player)
end

if(intid == 1) then
unit:GossipCreateMenu(3543, player, 0)
unit:GossipMenuAddItem(5, "Drangonblight", 300, 0)
unit:GossipMenuAddItem(5, "Borean Tundra", 313, 0)
unit:GossipMenuAddItem(5, "WinterGrasp", 314, 0)
unit:GossipMenuAddItem(5, "Sholazar Basin", 315, 0)
unit:GossipMenuAddItem(5, "Icecrown", 316, 0)
unit:GossipMenuAddItem(5, "Crystalsong Forest", 317, 0)
unit:GossipMenuAddItem(5, "Storm Peaks", 318, 0)
unit:GossipMenuAddItem(5, "Zul´Drak", 319, 0)
unit:GossipMenuAddItem(5, "Grizzly Hills", 320, 0)
unit:GossipMenuAddItem(5, "Howling Fjord", 321, 0)
unit:GossipMenuAddItem(0, "[Back]", 999, 0)
unit:GossipSendMenu(player)
end

if(intid == 2) then
unit:GossipCreateMenu(3543, player, 0)
unit:GossipMenuAddItem(5, "Westfall (10-17)", 322, 0)
unit:GossipMenuAddItem(5, "Ghostlands (10-17)", 330, 0)
unit:GossipMenuAddItem(5, "Redridge mountains (17-25)", 323, 0)
unit:GossipMenuAddItem(5, "The Barrens (17-25)", 331, 0)
unit:GossipMenuAddItem(5, "Thousand Needles (20-30)", 332, 0)
unit:GossipMenuAddItem(5, "Duskwood (20-30)", 324, 0)
unit:GossipMenuAddItem(5, "Stranglethorn Vale (30-40)", 325, 0)
unit:GossipMenuAddItem(5, "Tanaris (40-45)", 326, 0)
unit:GossipMenuAddItem(5, "Searing Gorge (45-50)", 327, 0)
unit:GossipMenuAddItem(5, "Ungoro Crater (50-55)", 328, 0)
unit:GossipMenuAddItem(5, "Silithus (55-60)", 329, 0)
unit:GossipMenuAddItem(0, "[Back]", 999, 0)
unit:GossipSendMenu(player)
end

if(intid == 3) then
unit:GossipCreateMenu(3543, player, 0)

unit:GossipMenuAddItem(0, "[Back]", 999, 0)
unit:GossipMenuAddItem(5, "Hellfire Peninsula (58-64)", 333, 0)
unit:GossipMenuAddItem(5, "Zangarmarsh (62-65)", 334, 0)
unit:GossipMenuAddItem(5, "Terokkar Forest (64-67)", 335, 0)
unit:GossipMenuAddItem(5, "Blade Edge Mountains (67-70)", 336, 0)
unit:GossipMenuAddItem(5, "Shadowmoon Valley (67-70)", 337, 0)
unit:GossipMenuAddItem(5, "Netherstorm (67-70)", 338, 0)
unit:GossipSendMenu(player)
end

if(intid == 4) then
unit:GossipCreateMenu(3543, player, 0)
unit:GossipMenuAddItem(5, "Horde Mall", 302, 0)
unit:GossipMenuAddItem(5, "Ally Mall", 304, 0)
unit:GossipMenuAddItem(5, "Dalaran", 303, 0)
unit:GossipMenuAddItem(5, "Shattrath", 306, 0)
unit:GossipMenuAddItem(5, "Stormwind", 301, 0)
unit:GossipMenuAddItem(5, "Darnassus", 307, 0)
unit:GossipMenuAddItem(5, "Exodar", 308, 0)
unit:GossipMenuAddItem(5, "IronForge", 309, 0)
unit:GossipMenuAddItem(5, "Orgrimmar", 305, 0)
unit:GossipMenuAddItem(5, "UnderCity", 310, 0)
unit:GossipMenuAddItem(5, "SilverMoon City", 311, 0)
unit:GossipMenuAddItem(5, "Thunder Bluff", 312, 0)
unit:GossipMenuAddItem(0, "[Back]", 999, 0)
unit:GossipSendMenu(player)
end

if(intid == 300) then
player:Teleport(571, 4492, -87, 79)
unit:GossipComplete(player)
end

if(intid == 302) then
player:Teleport(1, 7446, -1693, 194)
unit:GossipComplete(player)
end

if(intid == 303) then
player:Teleport(571, 5777, 696, 642)
unit:GossipComplete(player)
end

if(intid == 304) then
player:Teleport(0, 3486, 42, -1493)
unit:GossipComplete(player)
end

if(intid == 306) then
player:Teleport(530, -1722, 5382, 1)
unit:GossipComplete(player)
end

if(intid == 307) then
player:Teleport(1, 9946, 2608, 1316)
unit:GossipComplete(player)
end

if(intid == 308) then
player:Teleport(530, -4014, -11895, 1)
unit:GossipComplete(player)
end

if(intid == 309) then
player:Teleport(0, -4981, -882, 501)
unit:GossipComplete(player)
end

if(intid == 310) then
player:Teleport(0, 1825, -238, 60)
unit:GossipComplete(player)
end

if(intid == 311) then
player:Teleport(530, 9414, -7278, 14)
unit:GossipComplete(player)
end

if(intid == 312) then
player:Teleport(1, -1285, 176, 129)
unit:GossipComplete(player)
end

if(intid == 313) then
player:Teleport(571, 3252, 5280, 41)
unit:GossipComplete(player)
end

if(intid == 314) then
player:Teleport(571, 4820, 2898, 373)
unit:GossipComplete(player)
end

if(intid == 315) then
player:Teleport(571, 5568, 5743, -75)
unit:GossipComplete(player)
end

if(intid == 316) then
player:Teleport(571, 7789, 1811, 374)
unit:GossipComplete(player)
end

if(intid == 317) then
player:Teleport(571, 5560, 329, 152)
unit:GossipComplete(player)
end

if(intid == 318) then
player:Teleport(571, 6130, -673, 388)
unit:GossipComplete(player)
end

if(intid == 319) then
player:Teleport(571, 5340, -1712, 239)
unit:GossipComplete(player)
end

if(intid == 320) then
player:Teleport(571, 4458, -2045, 162)
unit:GossipComplete(player)
end

if(intid == 321) then
player:Teleport(571, 2207 , -3265, 153)
unit:GossipComplete(player)
end

if(intid == 322) then
player:Teleport(0, -10629 , 1156, 34)
unit:GossipComplete(player)
end

if(intid == 323) then
player:Teleport(0, -9253 , -2149, 64)
unit:GossipComplete(player)
end

if(intid == 324) then
player:Teleport(0, -10557 , 546, 26)
unit:GossipComplete(player)
end

if(intid == 325) then
player:Teleport(0, -11623 , -56, 13)
unit:GossipComplete(player)
end

if(intid == 326) then
player:Teleport(1, -7186 , -3778, 13)
unit:GossipComplete(player)
end

if(intid == 327) then
player:Teleport(0, -6503 , -1147, 307)
unit:GossipComplete(player)
end

if(intid == 328) then
player:Teleport(1, -6171 , -1095, 211)
unit:GossipComplete(player)
end

if(intid == 329) then
player:Teleport(1, -6827 , 768, 44)
unit:GossipComplete(player)
end

if(intid == 330) then
player:Teleport(530, 7555 , -6827, 87)
unit:GossipComplete(player)
end

if(intid == 331) then
player:Teleport(1, 91 , -1943, 87)
unit:GossipComplete(player)
end

if(intid == 332) then
player:Teleport(1, -4956 , -1580, 33)
unit:GossipComplete(player)
end

if(intid == 333) then
player:Teleport(530, -272 , 3101, 32)
unit:GossipComplete(player)
end

if(intid == 334) then
player:Teleport(530, 88 , 7057, 17)
unit:GossipComplete(player)
end

if(intid == 335) then
player:Teleport(530, -1184 , 5333, 30)
unit:GossipComplete(player)
end

if(intid == 336) then
player:Teleport(530, 2103 , 5650, 265)
unit:GossipComplete(player)
end

if(intid == 337) then
player:Teleport(530, -2846 , 3191, 7)
unit:GossipComplete(player)
end

if(intid == 338) then
player:Teleport(530, 3050 , 3602, 143)
unit:GossipComplete(player)
end

if(intid == 5) then
player:Teleport(0, -13243.240234, 197.949799, 32.112690)
end

if(intid == 6) then
player:Teleport(530, -2011, 6601, 12)
end

if(intid == 7) then
player:LearnSpell (15007)
player:UnlearnSpell (15007)
end
end


RegisterUnitGossipEvent(YourNPCidhere, 1, "On_Gossip")
RegisterUnitGossipEvent(YourNPCidhere, 2, "Gossip_Submenus")

I used a guide don´t really remember by who it was but, THANKS ALOT FOR MAKING THAT GUIDE!
its 100% made by me took all Sunday perfecting it, except the REMOVE Sickness thingy, i copied that from an original script.



~Iday~

[Zudrik]

+Rep for good job on your first script.

[iday]

Thanks ^_^

[berrz]

Thanks! Simple, just the way i like it.
Is it okay to modify it a bit? Like adding outland/northrend instances?

[matlar0503]

really nice

[iday]

Thanks! Simple, just the way i like it.
Is it okay to modify it a bit? Like adding outland/northrend instances?

Just edit it like you want.

[CoolManBob]

Everyone must start somewhere, +rep for your first attempt. Just a friendly word of advice, instead of copying a function from another LUA you should ask for help to make your own function.

[Hyldran0]

Woot It's a really good Job mate ! +rep for that dude ! keep it up

[svedin]

Nice ^^ +Rep

[iday]

Thanks for the Feedback everyone ^_^

[[IceCreaM]]

How do i setup it? >No Sql?

[iday]

How do i setup it? >No Sql?

Just make an npc and change the Yournpcidhere part to your npc id
and then restart your server.

[bsod-staff14]

Nice job, +Rep for ya bro.

[XC4T4LY5TX]

Fun Stuff

[WowUltimate]

lol this is leached... he just took parts away from it and called it his own...

but w/e