API tools faq
paste
kusanagy

Teleport_stone

kusanagy
Nov 24th, 2017
328
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 57.21 KB | None | 0 0
raw download clone embed print report
  1.  
  2.     local itemid =6948
  3.     function Tele_Book(event, player, item)
  4.             if (player:IsInCombat() == true) then
  5.                     player:SendAreaTriggerMessage("U can't use this while u are in combat!")
  6.             else
  7.                     Tele_Menu(item, player)
  8.             end
  9.     end
  10.      
  11.     function Tele_Menu(item, player) -- Home Page
  12.     --player:GossipMenuAddItem(5, "|cffff6060TELEPORT STONE.|r", 0,  998)
  13.     player:GossipMenuAddItem(6, "|cFF191970Main Cities|r", 0,  1)
  14.     player:GossipMenuAddItem(2, "|cFF191970Azeroth Locations|r", 0,  2)
  15.     player:GossipMenuAddItem(2, "|cFF191970Azeroth Instances|r", 0,  3)
  16.     player:GossipMenuAddItem(2, "|cFF191970Azeroth Raids|r", 0,  4)
  17.     player:GossipMenuAddItem(2, "|cFF191970Outland Locations|r", 0,  5)
  18.     player:GossipMenuAddItem(2, "|cFF191970Outland Instances|r", 0,  6)
  19.     player:GossipMenuAddItem(2, "|cFF191970Outland Raids|r", 0,  7)
  20.     player:GossipMenuAddItem(2, "|cFF191970Northrend Locations|r", 0,  8)
  21.     player:GossipMenuAddItem(2, "|cFF191970Northrend Instances|r", 0,  9)
  22.     player:GossipMenuAddItem(2, "|cFF191970Northrend Raids|r", 0,  10)
  23.     player:GossipMenuAddItem(9, "|cFF191970Gurubashi Arena|r", 0,  13)
  24.     player:GossipMenuAddItem(0, "|cFF191970Next Page|r", 0,  997)
  25.     player:GossipSendMenu(1, item)
  26.     end
  27.      
  28.     function Tele_Select(event, player, item, sender, intid, code)
  29.     local plyr = player:GetRace()
  30.     local x, y, z, o = player:GetX(), player:GetY(), player:GetZ(), player:GetO()
  31.      
  32.     if (intid == 997) then -- Home Page Cont.
  33.             player:GossipMenuAddItem(5, "|cFF191970Shattrath City|r", 0,  11)
  34.             player:GossipMenuAddItem(0, "|cFF191970Remove Ressurection Sickness", 0, 16)
  35.             player:GossipMenuAddItem(3, "|cFF191970Professions|r", 0,  17)
  36.             player:GossipMenuAddItem(5, "|cFF191970Set my profession skills to 450", 0, 18)
  37.             player:GossipMenuAddItem(0, "|cFF191970Home Page", 0, 999)
  38.             player:GossipSendMenu(1, item)
  39.     end
  40.      
  41.     if (intid == 1) then -- Alliance Cities
  42.             if (plyr == 1) or (plyr == 3) or (plyr == 4) or (plyr == 7) or (plyr == 11) then
  43.                     player:GossipMenuAddItem(2, "|c00FF0000Stormwind|r", 0,  19)
  44.                     player:GossipMenuAddItem(2, "|c00FF0000Ironforge|r", 0,  20)
  45.                     player:GossipMenuAddItem(2, "|c00FF0000Darnassus|r", 0,  21)
  46.                     player:GossipMenuAddItem(2, "|c00FF0000Exodar|r", 0,  22)
  47.                     player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0,  999)
  48.                     player:GossipSendMenu(1, item)
  49.             end
  50.                                     -- Horde Cities
  51.             if (plyr == 2) or (plyr == 5) or (plyr == 6) or (plyr == 8) or (plyr == 10) then
  52.                     player:GossipMenuAddItem(2, "|c00FF0000Orgimmar|r", 0,  23)
  53.                     player:GossipMenuAddItem(2, "|c00FF0000Thunderbluff|r", 0,  24)
  54.                     player:GossipMenuAddItem(2, "|c00FF0000Undercity|r", 0,  25)
  55.                     player:GossipMenuAddItem(2, "|c00FF0000Silvermoon|r", 0,  26)
  56.                     player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0,  999)
  57.                     player:GossipSendMenu(1, item)
  58.             end
  59.     end
  60.      
  61.     if (intid == 2) then -- Azeroth Continets
  62.  
  63.             player:GossipMenuAddItem(2, "|c00FF0000Eastern Kingdoms|r", 0,  27)
  64.             player:GossipMenuAddItem(2, "|c00FF0000Kalimdor|r", 0,  28)
  65.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0,  999)
  66.             player:GossipSendMenu(1, item)
  67.     end
  68.      
  69.     if (intid == 3) then -- Azeroth Instances
  70.             player:GossipMenuAddItem(2, "|c00FF0000Blackfathom Deeps|r", 0,  29)
  71.             player:GossipMenuAddItem(2, "|c00FF0000Blackrock Depths|r", 0,  30)
  72.             player:GossipMenuAddItem(2, "|c00FF0000Dire Maul|r", 0,  31)
  73.             player:GossipMenuAddItem(2, "|c00FF0000Gnomeregan|r", 0,  32)
  74.             player:GossipMenuAddItem(2, "|c00FF0000Maraudon|r", 0,  33)
  75.             if (plyr == 2) or (plyr == 5) or (plyr == 6) or (plyr == 8) or (plyr == 10) then
  76.                     player:GossipMenuAddItem(2, "|c00FF0000Ragefire Chasm|r", 0,  34)
  77.             end
  78.             player:GossipMenuAddItem(2, "|c00FF0000Razorfen Downs|r", 0,  35)
  79.             player:GossipMenuAddItem(2, "|c00FF0000Razorfen Kraul|r", 0,  36)
  80.             player:GossipMenuAddItem(2, "|c00FF0000Scarlet Monastery|r", 0,  37)
  81.             player:GossipMenuAddItem(2, "|c00FF0000Scholomance|r", 0,  38)
  82.             player:GossipMenuAddItem(2, "|c00FF0000Shadowfang Keep|r", 0,  39)
  83.             player:GossipMenuAddItem(2, "|c00FF0000Stratholme|r", 0,  40)
  84.             player:GossipMenuAddItem(2, "|c00FF0000Sunken Temple|r", 0,  41)
  85.             player:GossipMenuAddItem(2, "|c00FF0000The Deadmines|r", 0,  42)
  86.             if (plyr == 1) or (plyr == 3) or (plyr == 4) or (plyr == 7) or (plyr == 11) then
  87.                     player:GossipMenuAddItem(2, "|c00FF0000The Stockade|r", 0,  43)
  88.             end
  89.             player:GossipMenuAddItem(0, "|c99006600Next Page|r", 0,  994)
  90.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0,  999)
  91.             player:GossipSendMenu(1, item)
  92.     end
  93.      
  94.     if (intid == 994) then -- Azeroth Instances Cont.
  95.             player:GossipMenuAddItem(2, "|c00FF0000Uldaman|r", 0,  44)
  96.             player:GossipMenuAddItem(2, "|c00FF0000Wailing Caverns|r", 0,  45)
  97.             player:GossipMenuAddItem(2, "|c00FF0000Zul'Farrak|r", 0,  46)
  98.             player:GossipMenuAddItem(0, "|c99006600Previous Page|r", 0,  3)
  99.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0,  999)
  100.             player:GossipSendMenu(1, item)
  101.     end
  102.      
  103.     if (intid == 4) then -- Azeroth Raids
  104.             player:GossipMenuAddItem(2, "|c00FF0000Blackwing Lair|r", 0,  47)
  105.             player:GossipMenuAddItem(2, "|c00FF0000Molten Core|r", 0,  48)
  106.             player:GossipMenuAddItem(2, "|c00FF0000Onyxia's Lair|r", 0,  49)
  107.             player:GossipMenuAddItem(2, "|c00FF0000Ruins of Ahn'Qiraj|r", 0,  50)
  108.             player:GossipMenuAddItem(2, "|c00FF0000Temple of Ahn'Qiraj|r", 0,  51)
  109.             player:GossipMenuAddItem(2, "|c00FF0000Zul'Gurub|r", 0, 52)
  110.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0,  999)
  111.             player:GossipSendMenu(1, item)
  112.     end
  113.      
  114.     if (intid == 5) then -- Outland Locations
  115.             player:GossipMenuAddItem(2, "|c00FF0000Blade's Edge Mountains|r", 0,  53)
  116.             player:GossipMenuAddItem(2, "|c00FF0000Hellfire Peninsula|r", 0,  54)
  117.             player:GossipMenuAddItem(2, "|c00FF0000Nagrand|r", 0,  55)
  118.             player:GossipMenuAddItem(2, "|c00FF0000Netherstorm|r", 0,  56)
  119.             player:GossipMenuAddItem(2, "|c00FF0000Shadowmoon Valley|r", 0,  57)
  120.             player:GossipMenuAddItem(2, "|c00FF0000Terokkar Forest|r", 0,  58)
  121.             player:GossipMenuAddItem(2, "|c00FF0000Zangarmarsh|r", 0,  59)
  122.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0,  999)
  123.             player:GossipSendMenu(1, item)
  124.     end
  125.      
  126.     if (intid == 6) then -- Outland Instances
  127.             player:GossipMenuAddItem(2, "|c00FF0000Auchindoun|r", 0,  60)
  128.             player:GossipMenuAddItem(2, "|c00FF0000Caverns of Time|r", 0,  61)
  129.             player:GossipMenuAddItem(2, "|c00FF0000Coilfang Reservoir|r", 0,  62)
  130.             player:GossipMenuAddItem(2, "|c00FF0000Hellfire Citadel|r", 0,  63)
  131.             player:GossipMenuAddItem(2, "|c00FF0000Magisters' Terrace|r", 0,  64)
  132.             player:GossipMenuAddItem(2, "|c00FF0000Tempest Keep|r", 0,  65)
  133.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0,  999)
  134.             player:GossipSendMenu(1, item)
  135.     end
  136.      
  137.     if (intid == 7) then -- Outland Raids
  138.             player:GossipMenuAddItem(2, "|c00FF0000Black Temple|r", 0,  66)
  139.             player:GossipMenuAddItem(2, "|c00FF0000Hyjal Summit|r", 0,  67)
  140.             player:GossipMenuAddItem(2, "|c00FF0000Serpentshrine Cavern|r", 0,  68)
  141.             player:GossipMenuAddItem(2, "|c00FF0000Gruul's Lair|r", 0,  69)
  142.             player:GossipMenuAddItem(2, "|c00FF0000Magtheridon's Lair|r", 0,  70)
  143.             player:GossipMenuAddItem(2, "|c00FF0000Karazhan|r", 0, 71)
  144.             player:GossipMenuAddItem(2, "|c00FF0000Sunwell Plateau|r", 0,  72)
  145.             player:GossipMenuAddItem(2, "|c00FF0000The Eye|r", 0,  73)
  146.             player:GossipMenuAddItem(2, "|c00FF0000Zul'Aman|r", 0,  74)
  147.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0,  999)
  148.             player:GossipSendMenu(1, item)
  149.     end
  150.      
  151.     if (intid == 8) then -- Northrend Locations
  152.             player:GossipMenuAddItem(2, "|c00FF0000Borean Tundra|r", 0, 75)
  153.             player:GossipMenuAddItem(2, "|c00FF0000Crystalsong Forest|r", 0, 76)
  154.             player:GossipMenuAddItem(2, "|c00FF0000DragonBlight|r", 0, 77)
  155.             player:GossipMenuAddItem(2, "|c00FF0000Grizzly Hills|r", 0, 78)
  156.             player:GossipMenuAddItem(2, "|c00FF0000Howling Fjord|r", 0, 79)
  157.             player:GossipMenuAddItem(2, "|c00FF0000Icecrown|r", 0, 80)
  158.             player:GossipMenuAddItem(2, "|c00FF0000Sholazar Basin|r", 0, 81)
  159.             player:GossipMenuAddItem(2, "|c00FF0000The Storm Peaks|r", 0, 82)
  160.             player:GossipMenuAddItem(2, "|c00FF0000WinterGrasp|r", 0, 83)
  161.             player:GossipMenuAddItem(2, "|c00FF0000Zul'Drak|r", 0, 84)
  162.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0, 999)
  163.             player:GossipSendMenu(1, item)
  164.     end
  165.      
  166.     if (intid == 9) then -- Northrend Instances
  167.             player:GossipMenuAddItem(2, "|c00FF0000Azjol-Nerub|r", 0, 85)
  168.             player:GossipMenuAddItem(2, "|c00FF0000Drak'Tharon Keep|r", 0, 86)
  169.             player:GossipMenuAddItem(2, "|c00FF0000Gundrak|r", 0, 87)
  170.             player:GossipMenuAddItem(2, "|c00FF0000The Culling of Stratholme|r", 0, 88)
  171.             player:GossipMenuAddItem(2, "|c00FF0000The Halls of Lightning|r", 0, 89)
  172.             player:GossipMenuAddItem(2, "|c00FF0000The Halls of Stone|r", 0, 90)
  173.             player:GossipMenuAddItem(2, "|c00FF0000The Nexus|r", 0, 91)
  174.             player:GossipMenuAddItem(2, "|c00FF0000The Violet Hold|r", 0, 92)
  175.             player:GossipMenuAddItem(2, "|c00FF0000Utgarde Keep|r", 0, 93)
  176.             player:GossipMenuAddItem(2, "|c00FF0000Utgarde Pinnacle|r", 0, 94)
  177.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0, 999)
  178.             player:GossipSendMenu(1, item)
  179.     end
  180.      
  181.     if (intid == 10) then -- Northrend Raids
  182.             player:GossipMenuAddItem(2, "|c00FF0000Naxxramas|r", 0, 95)
  183.             player:GossipMenuAddItem(2, "|c00FF0000The Eye of Eternity|r", 0, 96)
  184.             player:GossipMenuAddItem(2, "|c00FF0000The Obsidian Sanctum|r", 0, 97)
  185.             player:GossipMenuAddItem(2, "|c00FF0000Ulduar|r", 0, 98)
  186.             player:GossipMenuAddItem(2, "|c00FF0000Vault of Archavon|r", 0, 99)
  187.             player:GossipMenuAddItem(0, "|c99006600Home Page|r", 0, 999)
  188.             player:GossipSendMenu(1, item)
  189.     end
  190.      
  191.      
  192.     -- Shattrath
  193.      
  194.     if (intid == 11) then
  195.             player:Teleport(530, -1817.82, 5453.04, -12.42, 0)
  196.             player:GossipComplete()
  197.     end
  198.      
  199.      
  200.     -- Gurubashi Arena
  201.      
  202.     if (intid == 13) then
  203.             player:Teleport(0, -13261.30, 164.45, 35.78, 0)
  204.             player:GossipComplete()
  205.     end
  206.      
  207.      
  208.     --[[ Buff
  209.      
  210.     if (intid == 14) then
  211.             player:SpawnCreature(90001, x, y, z, o, 35, 30000, 0)
  212.             player:GossipComplete()
  213.     end
  214.       ]]
  215.      
  216.      
  217.     -- Heal
  218.      
  219.     if (intid == 15) then
  220.             player:SetHealthPct(100)
  221.             player:SendBroadcastMessage("You have been healed.")
  222.             player:GossipComplete()
  223.     end
  224.      
  225.      
  226.     -- Remove Ressurection Sickness
  227.      
  228.     if (intid == 16) then
  229.             player:LearnSpell(15007)
  230.             player:RemoveSpell(15007)
  231.             player:SendBroadcastMessage("Your sickness has been removed.")
  232.             player:GossipComplete()
  233.     end
  234.      
  235.      
  236.     -- Learn Professions
  237.      
  238.     if (intid == 17) then -- Professions
  239.  
  240.             player:GossipMenuAddItem(5, "Alchemy", 0, 100)
  241.             player:GossipMenuAddItem(5, "Blacksmithing", 0, 101)
  242.             player:GossipMenuAddItem(5, "Enchanting", 0, 102)
  243.             player:GossipMenuAddItem(5, "Engineering", 0, 103)
  244.             player:GossipMenuAddItem(5, "Herbalism", 0, 104)
  245.             player:GossipMenuAddItem(5, "Inscription", 0, 105)
  246.             player:GossipMenuAddItem(5, "Jewelcrafting", 0, 106)
  247.             player:GossipMenuAddItem(5, "Leatherworking", 0, 107)
  248.             player:GossipMenuAddItem(5, "Mining", 0, 108)
  249.             player:GossipMenuAddItem(5, "Skinning", 0, 109)
  250.             player:GossipMenuAddItem(5, "Tailoring", 0, 110)
  251.             player:GossipMenuAddItem(0, "Secondary Professions", 0, 111)
  252.             player:GossipMenuAddItem(0, "Home Page", 0, 999)
  253.             player:GossipSendMenu(1, item)
  254.     end
  255.      
  256.      
  257.     -- Advance Professions
  258.      
  259.     if (intid == 18) then
  260.             player:AdvanceSkill(171, 450)
  261.             player:AdvanceSkill(164, 450)
  262.             player:AdvanceSkill(333, 450)
  263.             player:AdvanceSkill(202, 450)
  264.             player:AdvanceSkill(182, 450)
  265.             player:AdvanceSkill(773, 450)
  266.             player:AdvanceSkill(755, 450)
  267.             player:AdvanceSkill(165, 450)
  268.             player:AdvanceSkill(186, 450)
  269.             player:AdvanceSkill(393, 450)
  270.             player:AdvanceSkill(197, 450)
  271.             player:AdvanceSkill(185, 450)
  272.             player:AdvanceSkill(129, 450)
  273.             player:AdvanceSkill(356, 450)
  274.             player:GossipComplete()
  275.     end
  276.      
  277.      
  278.     -- Alliance Cities
  279.      
  280.     if (intid == 19) then -- Stormwind
  281.             player:Teleport(0, -8913.23, 554.63, 93.79, 0)
  282.             player:GossipComplete()
  283.     end
  284.      
  285.     if (intid == 20) then -- Ironforge
  286.             player:Teleport(0, -4982.16, -880.75, 501.65, 0)
  287.             player:GossipComplete()
  288.     end
  289.      
  290.     if (intid == 21) then -- Darnassus
  291.             player:Teleport(1, 9945.49, 2609.89, 1316.26, 0)
  292.             player:GossipComplete()
  293.     end
  294.      
  295.     if (intid == 22) then -- Exodar
  296.             player:Teleport(530, -4002.67, -11875.54, -0.71, 0)
  297.             player:GossipComplete()
  298.     end
  299.      
  300.      
  301.     -- Horde Cities
  302.      
  303.     if (intid == 23) then -- Orgimmar
  304.             player:Teleport(1, 1502.71, -4415.41, 21.77, 0)
  305.             player:GossipComplete()
  306.     end
  307.      
  308.     if (intid == 24) then -- Thunderbluff
  309.             player:Teleport(1, -1285.23, 117.86, 129.99, 0)
  310.             player:GossipComplete()
  311.     end
  312.      
  313.     if (intid == 25) then -- Undercity
  314.             player:Teleport(0, 1831.26, 238.52, 60.52, 0)
  315.             player:GossipComplete()
  316.     end
  317.      
  318.     if (intid == 26) then -- Silvermoon
  319.             player:Teleport(530, 9398.75, -7277.41, 14.21, 0)
  320.             player:GossipComplete()
  321.     end
  322.      
  323.      
  324.     -- Azeroth Locations
  325.      
  326.     if (intid == 27) then -- Eastern Kingdoms
  327.             player:GossipMenuAddItem(2, "Alterac Mountains", 0, 112)
  328.             player:GossipMenuAddItem(2, "Arathi Highlands", 0, 113)
  329.             player:GossipMenuAddItem(2, "Badlands", 0, 114)
  330.             player:GossipMenuAddItem(2, "Blasted Lands", 0, 115)
  331.             player:GossipMenuAddItem(2, "Burning Steppes", 0, 116)
  332.             player:GossipMenuAddItem(2, "Deadwind Pass", 0, 117)
  333.             player:GossipMenuAddItem(2, "Dun Morogh", 0, 118)
  334.             player:GossipMenuAddItem(2, "Duskwood", 0, 119)
  335.             player:GossipMenuAddItem(2, "Eastern Plaguelands", 0, 120)
  336.             player:GossipMenuAddItem(2, "Elwynn Forest", 0, 121)
  337.             player:GossipMenuAddItem(2, "Eversong Woods", 0, 122)
  338.             player:GossipMenuAddItem(2, "Ghostlands", 0, 123)
  339.             player:GossipMenuAddItem(2, "Hillsbrad Foothills", 0, 124)
  340.             player:GossipMenuAddItem(2, "Isle of Quel'Danas", 0, 125)
  341.             player:GossipMenuAddItem(0, "Next Page", 0, 996)
  342.             player:GossipMenuAddItem(0, "Home Page", 0, 999)
  343.             player:GossipSendMenu(1, item)
  344.     end
  345.      
  346.     if (intid == 996) then -- Eastern Kingdoms Cont.
  347.             player:GossipMenuAddItem(2, "Loch Modan", 0, 126)
  348.             player:GossipMenuAddItem(2, "Redridge Mountains", 0, 127)
  349.             player:GossipMenuAddItem(2, "Searing Gorge", 0, 128)
  350.             player:GossipMenuAddItem(2, "Silverpine Forest", 0, 129)
  351.             player:GossipMenuAddItem(2, "Stranglethorn Vale", 0, 130)
  352.             player:GossipMenuAddItem(2, "Swamp of Sorrows", 0, 131)
  353.             player:GossipMenuAddItem(2, "The Hinterlands", 0, 132)
  354.             player:GossipMenuAddItem(2, "Tirisfal Glades", 0, 133)
  355.             player:GossipMenuAddItem(2, "Western Plaguelands", 0, 134)
  356.             player:GossipMenuAddItem(2, "Westfall", 0, 135)
  357.             player:GossipMenuAddItem(2, "Wetlands", 0, 136)
  358.             player:GossipMenuAddItem(0, "Previous Page", 0, 27)
  359.             player:GossipMenuAddItem(0, "Home Page", 0, 999)
  360.             player:GossipSendMenu(1, item)
  361.     end
  362.      
  363.     if (intid == 28) then -- Kalimdor
  364.             player:GossipMenuAddItem(2, "Ashenvale", 0, 137)
  365.             player:GossipMenuAddItem(2, "Azshara", 0, 138)
  366.             player:GossipMenuAddItem(2, "Azuremyst Isle", 0, 139)
  367.             player:GossipMenuAddItem(2, "Bloodmyst Isle", 0, 140)
  368.             player:GossipMenuAddItem(2, "Darkshore", 0, 141)
  369.             player:GossipMenuAddItem(2, "Desolace", 0, 142)
  370.             player:GossipMenuAddItem(2, "Durotar", 0, 143)
  371.             player:GossipMenuAddItem(2, "Dustwallow Marsh", 0, 144)
  372.             player:GossipMenuAddItem(2, "Felwood", 0, 145)
  373.             player:GossipMenuAddItem(2, "Feralas", 0, 146)
  374.             player:GossipMenuAddItem(2, "Moonglade", 0, 147)
  375.             player:GossipMenuAddItem(2, "Mulgore", 0, 148)
  376.             player:GossipMenuAddItem(2, "Silithus", 0, 149)
  377.             player:GossipMenuAddItem(0, "Next Page", 0, 995)
  378.             player:GossipMenuAddItem(0, "Home Page", 0, 999)
  379.             player:GossipSendMenu(1, item)
  380.     end
  381.      
  382.     if (intid == 995) then -- Kalimdor Cont.
  383.             player:GossipMenuAddItem(2, "Stonetalon Mountains", 0, 150)
  384.             player:GossipMenuAddItem(2, "Tanaris", 0, 151)
  385.             player:GossipMenuAddItem(2, "Teldrassil", 0, 152)
  386.             player:GossipMenuAddItem(2, "The Barrens", 0, 153)
  387.             player:GossipMenuAddItem(2, "Thousand Needles", 0, 154)
  388.             player:GossipMenuAddItem(2, "Un'Goro Crater", 0, 0, 155)
  389.             player:GossipMenuAddItem(2, "Winterspring", 0, 156)
  390.             player:GossipMenuAddItem(0, "Previous Page", 0, 28)
  391.             player:GossipMenuAddItem(0, "Home Page", 0, 999)
  392.             player:GossipSendMenu(1, item)
  393.     end
  394.      
  395.     if (intid == 29) then -- Blackfathom Deeps
  396.             player:Teleport(1, 4247.34, 744.05, -24.71, 0)
  397.             player:GossipComplete()
  398.     end
  399.      
  400.     if (intid == 30) then -- Blackrock Depths
  401.             player:Teleport(0, -7576.74, -1126.68, 262.26, 0)
  402.             player:GossipComplete()
  403.     end
  404.      
  405.     if (intid == 31) then -- Dire Maul
  406.             player:Teleport(1, -3879.52, 1095.26, 154.78, 0)
  407.             player:GossipComplete()
  408.     end
  409.      
  410.     if (intid == 32) then -- Gnomeregan
  411.             player:Teleport(0, -5162.63, 923.21, 257.17, 0)
  412.             player:GossipComplete()
  413.     end
  414.      
  415.     if (intid == 33) then -- Maraudon
  416.             player:Teleport(1, -1412.73, 2816.92, 112.64, 0)
  417.             player:GossipComplete()
  418.     end
  419.      
  420.     if (intid == 34) then -- Ragefire Chasm
  421.             player:Teleport(1, 1814.17, -4401.13, -17.67, 0)
  422.             player:GossipComplete()
  423.     end
  424.      
  425.     if (intid == 35) then -- Razorfen Downs
  426.             player:Teleport(1, -4378.32, -1949.14, 88.57, 0)
  427.             player:GossipComplete()
  428.     end
  429.      
  430.     if (intid == 36) then -- Razorfen Kraul
  431.             player:Teleport(1, -4473.31, -1810.05, 86.11, 0)
  432.             player:GossipComplete()
  433.     end
  434.      
  435.     if (intid == 37) then -- Scarlet Monastery
  436.             player:Teleport(0, 2881.84, -816.23, 160.33, 0)
  437.             player:GossipComplete()
  438.     end
  439.      
  440.     if (intid == 38) then -- Scholomance
  441.             player:Teleport(0, 1229.45, -2576.66, 90.43, 0)
  442.             player:GossipComplete()
  443.     end
  444.      
  445.     if (intid == 39) then -- Shadowfang Keep
  446.             player:Teleport(0, -243.85, 1517.21, 76.23, 0)
  447.             player:GossipComplete()
  448.     end
  449.      
  450.     if (intid == 40) then -- Stratholme
  451.             player:Teleport(0, 3362.14, -3380.05, 144.78, 0)
  452.             player:GossipComplete()
  453.     end
  454.      
  455.     if (intid == 41) then -- Sunken Temple
  456.             player:Teleport(0, -10452.32, -3817.51, 18.06, 0)
  457.             player:GossipComplete()
  458.     end
  459.      
  460.     if (intid == 42) then -- The Deadmines
  461.             player:Teleport(0, -11084.10, 1556.17, 48.12, 0)
  462.             player:GossipComplete()
  463.     end
  464.      
  465.     if (intid == 43) then -- The Stockade
  466.             player:Teleport(0, -8797.29, 826.67, 97.63, 0)
  467.             player:GossipComplete()
  468.     end
  469.      
  470.     if (intid == 44) then -- Uldaman
  471.             player:Teleport(0, -6072.23, -2955.94, 209.61, 0)
  472.             player:GossipComplete()
  473.     end
  474.      
  475.     if (intid == 45) then -- Wailing Caverns
  476.             player:Teleport(1, -735.11, -2214.21, 16.83, 0)
  477.             player:GossipComplete()
  478.     end
  479.      
  480.     if (intid == 46) then -- Zul'Farrak
  481.             player:Teleport(1, -6825.69, -2882.77, 8.91, 0)
  482.             player:GossipComplete()
  483.     end
  484.      
  485.      
  486.     -- Azeroth Raids
  487.      
  488.     if (intid == 47) then -- Blackwing Lair
  489.             player:Teleport(469, -7666.11, -1101.53, 399.67, 0)
  490.             player:GossipComplete()
  491.     end
  492.      
  493.     if (intid == 48) then -- Molten Core
  494.             player:Teleport(230, 1117.61, -457.36, -102.49, 0)
  495.             player:GossipComplete()
  496.     end
  497.      
  498.     if (intid == 49) then -- Onyxia's Lair
  499.             player:Teleport(1, -4697.81, -3720.44, 50.35, 0)
  500.             player:GossipComplete()
  501.     end
  502.      
  503.     if (intid == 50) then -- Ruins of Ahn'Qiraj
  504.             player:Teleport(1, -8380.47, 1480.84, 14.35, 0)
  505.             player:GossipComplete()
  506.     end
  507.      
  508.     if (intid == 51) then -- Temple of Ahn'Qiraj
  509.             player:Teleport(1, -8258.27, 1962.73, 129.89, 0)
  510.             player:GossipComplete()
  511.     end
  512.      
  513.     if (intid == 52) then -- Zul'Gurub
  514.             player:Teleport(0, -11916.74, -1203.32, 92.28, 0)
  515.             player:GossipComplete()
  516.     end
  517.      
  518.      
  519.     -- Outland Locations
  520.      
  521.     if (intid == 53) then -- Blade's Edge Mountains
  522.             player:Teleport(530, 2039.24, 6409.27, 134.30, 0)
  523.             player:GossipComplete()
  524.     end
  525.      
  526.     if (intid == 54) then -- Hellfire Peninsula
  527.             player:Teleport(530, -247.37, 964.77, 84.33, 0)
  528.             player:GossipComplete()
  529.     end
  530.      
  531.     if (intid == 55) then -- Nagrand
  532.             player:Teleport(530, -605.84, 8442.39, 60.76, 0)
  533.             player:GossipComplete()
  534.     end
  535.      
  536.     if (intid == 56) then -- Netherstorm
  537.             player:Teleport(530, 3055.70, 3671.63, 142.44, 0)
  538.             player:GossipComplete()
  539.     end
  540.      
  541.     if (intid == 57) then -- Shadowmoon Valley
  542.             player:Teleport(530, -2859.75, 3184.24, 9.76, 0)
  543.             player:GossipComplete()
  544.     end
  545.      
  546.     if (intid == 58) then -- Terokkar Forest
  547.             player:Teleport(530, -1917.17, 4879.45, 2.10, 0)
  548.             player:GossipComplete()
  549.     end
  550.      
  551.     if (intid == 59) then -- Zangarmarsh
  552.             player:Teleport(530, -206.61, 5512.90, 21.58, 0)
  553.             player:GossipComplete()
  554.     end
  555.      
  556.      
  557.     -- Outland Instances
  558.      
  559.     if (intid == 60) then -- Auchindoun
  560.             player:Teleport(530, -3323.76, 4934.31, -100.21, 0)
  561.             player:GossipComplete()
  562.     end
  563.      
  564.     if (intid == 61) then -- Caverns of Time
  565.             player:Teleport(1, -8187.16, -4704.91, 19.33, 0)
  566.             player:GossipComplete()
  567.     end
  568.      
  569.     if (intid == 62) then -- Coilfang Reservoir
  570.             player:Teleport(530, 731.04, 6849.35, -66.62, 0)
  571.             player:GossipComplete()
  572.     end
  573.      
  574.     if (intid == 63) then -- Hellfire Citadel
  575.             player:Teleport(530, -331.87, 3039.30, -16.66, 0)
  576.             player:GossipComplete()
  577.     end
  578.      
  579.     if (intid == 64) then -- Magisters' Terrace
  580.             player:Teleport(530, 12884.92, -7333.78, 65.48, 0)
  581.             player:GossipComplete()
  582.     end
  583.      
  584.     if (intid == 65) then -- Tempest Keep
  585.             player:Teleport(530, 3088.25, 1388.17, 185.09, 0)
  586.             player:GossipComplete()
  587.     end
  588.      
  589.      
  590.     -- Outland Raids
  591.      
  592.     if (intid == 66) then -- Black Temple
  593.             player:Teleport(530, -3638.16, 316.09, 35.40, 0)
  594.             player:GossipComplete()
  595.     end
  596.      
  597.     if (intid == 67) then -- Hyjal Summit
  598.             player:Teleport(1, -8175.94, -4178.52, -166.74, 0)
  599.             player:GossipComplete()
  600.     end
  601.      
  602.     if (intid == 68) then -- Serpentshrine Cavern
  603.             player:Teleport(530, 731.04, 6849.35, -66.62, 0)
  604.             player:GossipComplete()
  605.     end
  606.      
  607.     if (intid == 69) then -- Gruul's Lair
  608.             player:Teleport(530, 3528.99, 5133.50, 1.31, 0)
  609.             player:GossipComplete()
  610.     end
  611.      
  612.     if (intid == 70) then -- Magtheridon's Lair
  613.             player:Teleport(530, -337.50, 3131.88, -102.92, 0)
  614.             player:GossipComplete()
  615.     end
  616.      
  617.     if (intid == 71) then -- Karazhan
  618.             player:Teleport(0, -11119.22, -2010.73, 47.09, 0)
  619.             player:GossipComplete()
  620.     end
  621.      
  622.     if (intid == 72) then -- Sunwell Plateau
  623.             player:Teleport(530, 12560.79, -6774.58, 15.08, 0)
  624.             player:GossipComplete()
  625.     end
  626.      
  627.     if (intid == 73) then -- The Eye
  628.             player:Teleport(530, 3088.25, 1388.17, 185.09, 0)
  629.             player:GossipComplete()
  630.     end
  631.      
  632.     if (intid == 74) then -- Zul'Aman
  633.             player:Teleport(530, 6850, -7950, 170, 0)
  634.             player:GossipComplete()
  635.     end
  636.      
  637.      
  638.     -- Northrend Locations
  639.      
  640.     if (intid == 75) then -- Borean Tundra
  641.             player:Teleport(571, 2920.15, 4043.40, 1.82, 0)
  642.             player:GossipComplete()
  643.     end
  644.      
  645.     if (intid == 76) then -- Crystalsong Forest
  646.             player:Teleport(571, 5371.18, 109.11, 157.65, 0)
  647.             player:GossipComplete()
  648.     end
  649.      
  650.     if (intid == 77) then -- Dragonblight
  651.             player:Teleport(571, 2729.59, 430.70, 66.98, 0)
  652.             player:GossipComplete()
  653.     end
  654.      
  655.     if (intid == 78) then -- Grizzly Hills
  656.             player:Teleport(571, 3587.20, -4545.12, 198.75, 0)
  657.             player:GossipComplete()
  658.     end
  659.      
  660.     if (intid == 79) then -- Howling Fjord
  661.             player:Teleport(571, 154.39, -4896.33, 296.14, 0)
  662.             player:GossipComplete()
  663.     end
  664.      
  665.     if (intid == 80) then -- Icecrown
  666.             player:Teleport(571, 8406.89, 2703.79, 665.17, 0)
  667.             player:GossipComplete()
  668.     end
  669.      
  670.     if (intid == 81) then -- Sholazar Basin
  671.             player:Teleport(571, 5569.49, 5762.99, -75.22, 0)
  672.             player:GossipComplete()
  673.     end
  674.      
  675.     if (intid == 82) then -- The Storm Peaks
  676.             player:Teleport(571, 6180.66, -1085.65, 415.54, 0)
  677.             player:GossipComplete()
  678.     end
  679.      
  680.     if (intid == 83) then -- Wintergrasp
  681.             player:Teleport(571, 5044.03, 2847.23, 392.64, 0)
  682.             player:GossipComplete()
  683.     end
  684.      
  685.     if (intid == 84) then -- Zul'Drak
  686.             player:Teleport(571, 4700.09, -3306.54, 292.41, 0)
  687.             player:GossipComplete()
  688.     end
  689.      
  690.      
  691.     -- Northrend Instances
  692.      
  693.     if (intid == 85) then -- Azjol-Nerub
  694.             player:Teleport(571, 3738.93, 2164.14, 37.29, 0)
  695.             player:GossipComplete()
  696.     end
  697.      
  698.     if (intid == 86) then -- Drak'Tharon
  699.             player:Teleport(571, 4772.13, -2035.85, 229.38, 0)
  700.             player:GossipComplete()
  701.     end
  702.      
  703.     if (intid == 87) then -- Gundrak
  704.             player:Teleport(571, 6937.12, -4450.80, 450.90, 0)
  705.             player:GossipComplete()
  706.     end
  707.      
  708.     if (intid == 88) then -- The Culling of Stratholme
  709.             player:Teleport(1, -8746.94, -4437.69, -199.98, 0)
  710.             player:GossipComplete()
  711.     end
  712.      
  713.     if (intid == 89) then -- The Halls of Lightning
  714.             player:Teleport(571, 9171.01, -1375.94, 1099.55, 0)
  715.             player:GossipComplete()
  716.     end
  717.      
  718.     if (intid == 90) then -- The Halls of Stone
  719.             player:Teleport(571, 8921.35, -988.56, 1039.37, 0)
  720.             player:GossipComplete()
  721.     end
  722.      
  723.     if (intid == 91) then -- The Nexus
  724.             player:Teleport(571, 3784.76, 6941.97, 104.49, 0)
  725.             player:GossipComplete()
  726.     end
  727.      
  728.     if (intid == 92) then -- The Violet Hold
  729.             player:Teleport(571, 5695.19, 505.38, 652.68, 0)
  730.             player:GossipComplete()
  731.     end
  732.      
  733.     if (intid == 93) then -- Utgarde Keep
  734.             player:Teleport(571, 1222.44, -4862.61, 41.24, 0)
  735.             player:GossipComplete()
  736.     end
  737.      
  738.     if (intid == 94) then -- Utgarde Pinnacle
  739.             player:Teleport(571, 1251.10, -4856.31, 215.86, 0)
  740.             player:GossipComplete()
  741.     end
  742.      
  743.      
  744.     -- Northrend Raids
  745.      
  746.     if (intid == 95) then -- Naxxramas
  747.             player:Teleport(571, 3669.77, -1275.48, 243.51, 0)
  748.             player:GossipComplete()
  749.     end
  750.      
  751.     if (intid == 96) then -- The Eye of Eternity
  752.             player:Teleport(571, 3873.50, 6974.83, 152.04, 0)
  753.             player:GossipComplete()
  754.     end
  755.      
  756.     if (intid == 97) then -- The Obsidian Sanctum
  757.             player:Teleport(571, 3547.39, 267.95, -115.96, 0)
  758.             player:GossipComplete()
  759.     end
  760.      
  761.     if (intid == 98) then -- Ulduar
  762.             player:Teleport(571, 9330.53, -1115.40, 1245.14, 0)
  763.             player:GossipComplete()
  764.     end
  765.      
  766.     if (intid == 99) then -- Vault of Archavon
  767.             player:Teleport(571, 5410.21, 2842.37, 418.67, 0)
  768.             player:GossipComplete()
  769.     end
  770.      
  771.      
  772.     -- Professions
  773.      
  774.     if (intid == 100) then -- Alchemy
  775.      
  776.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 158)
  777.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  778.                     player:GossipSendMenu(1, item)
  779.                     ------------------------
  780.                     player:LearnSpell(51303)
  781.                     player:LearnSpell(58871)
  782.                     player:LearnSpell(58868)
  783.                     player:LearnSpell(60403)
  784.                     player:LearnSpell(60396)
  785.                     player:LearnSpell(60405)
  786.                     player:LearnSpell(57427)
  787.                     player:LearnSpell(57425)
  788.                     player:LearnSpell(60350)
  789.                     player:LearnSpell(53840)
  790.                     player:LearnSpell(53898)
  791.                     player:LearnSpell(54218)
  792.                     player:LearnSpell(60367)
  793.                     player:LearnSpell(53847)
  794.                     player:LearnSpell(53903)
  795.                     player:LearnSpell(54213)
  796.                     player:LearnSpell(53902)
  797.                     player:LearnSpell(53901)
  798.                     player:LearnSpell(53848)
  799.                     player:LearnSpell(53839)
  800.                     player:LearnSpell(53905)
  801.                     player:LearnSpell(53899)
  802.                     player:LearnSpell(53900)
  803.                     player:LearnSpell(53812)
  804.                     player:LearnSpell(53838)
  805.                     player:LearnSpell(53836)
  806.                     player:LearnSpell(53837)
  807.                     player:LearnSpell(53842)
  808.                     player:LearnSpell(53841)
  809.                     player:LearnSpell(53042)
  810.                     player:LearnSpell(60893)
  811.     end
  812.      
  813.     if (intid == 101) then -- Blacksmithing
  814.      
  815.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 160)
  816.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  817.                     player:GossipSendMenu(1, item)
  818.                     ------------------------
  819.                     player:LearnSpell(51298)
  820.                     player:LearnSpell(55374)
  821.                     player:LearnSpell(55377)
  822.                     player:LearnSpell(55372)
  823.                     player:LearnSpell(55375)
  824.                     player:LearnSpell(55373)
  825.                     player:LearnSpell(55376)
  826.                     player:LearnSpell(55370)
  827.                     player:LearnSpell(55369)
  828.                     player:LearnSpell(55371)
  829.                     player:LearnSpell(56234)
  830.                     player:LearnSpell(56400)
  831.                     player:LearnSpell(59406)
  832.                     player:LearnSpell(61008)
  833.                     player:LearnSpell(55303)
  834.                     player:LearnSpell(55302)
  835.                     player:LearnSpell(56555)
  836.                     player:LearnSpell(56554)
  837.                     player:LearnSpell(56556)
  838.                     player:LearnSpell(55304)
  839.                     player:LearnSpell(55311)
  840.                     player:LearnSpell(55310)
  841.                     player:LearnSpell(55312)
  842.                     player:LearnSpell(61009)
  843.                     player:LearnSpell(61010)
  844.                     player:LearnSpell(56357)
  845.                     player:LearnSpell(55839)
  846.                     player:LearnSpell(55732)
  847.                     player:LearnSpell(55656)
  848.     end
  849.      
  850.     if (intid == 102) then -- Enchanting
  851.  
  852.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 162)
  853.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  854.                     player:GossipSendMenu(1, item)
  855.                     ------------------------
  856.                     player:LearnSpell(51312)
  857.                     player:LearnSpell(60619)
  858.                     player:LearnSpell(47900)
  859.                     player:LearnSpell(60668)
  860.                     player:LearnSpell(44593)
  861.                     player:LearnSpell(44509)
  862.                     player:LearnSpell(60663)
  863.                     player:LearnSpell(44489)
  864.                     player:LearnSpell(44589)
  865.                     player:LearnSpell(44598)
  866.                     player:LearnSpell(44529)
  867.                     player:LearnSpell(44508)
  868.                     player:LearnSpell(44488)
  869.                     player:LearnSpell(44633)
  870.                     player:LearnSpell(44510)
  871.                     player:LearnSpell(44584)
  872.                     player:LearnSpell(44484)
  873.                     player:LearnSpell(44616)
  874.                     player:LearnSpell(47766)
  875.                     player:LearnSpell(44645)
  876.                     player:LearnSpell(44636)
  877.                     player:LearnSpell(59636)
  878.                     player:LearnSpell(44635)
  879.                     player:LearnSpell(44492)
  880.                     player:LearnSpell(44500)
  881.                     player:LearnSpell(44513)
  882.                     player:LearnSpell(60653)
  883.                     player:LearnSpell(44629)
  884.                     player:LearnSpell(44582)
  885.                     player:LearnSpell(44630)
  886.                     player:LearnSpell(60623)
  887.                     player:LearnSpell(44528)
  888.                     player:LearnSpell(60621)
  889.                     player:LearnSpell(60606)
  890.                     player:LearnSpell(44555)
  891.                     player:LearnSpell(44506)
  892.                     player:LearnSpell(32667)
  893.                     player:LearnSpell(44623)
  894.                     player:LearnSpell(60616)
  895.                     player:LearnSpell(44592)
  896.                     player:LearnSpell(27958)
  897.                     player:LearnSpell(60609)
  898.      
  899.     end
  900.      
  901.     if (intid == 103) then -- Engineering
  902.    
  903.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 164)
  904.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  905.                     player:GossipSendMenu(1, item)
  906.                     ------------------------
  907.                     player:LearnSpell(51305)
  908.                     player:LearnSpell(56479)
  909.                     player:LearnSpell(60874)
  910.                     player:LearnSpell(56462)
  911.                     player:LearnSpell(56478)
  912.                     player:LearnSpell(56469)
  913.                     player:LearnSpell(56472)
  914.                     player:LearnSpell(56470)
  915.                     player:LearnSpell(56467)
  916.                     player:LearnSpell(56466)
  917.                     player:LearnSpell(61483)
  918.                     player:LearnSpell(56477)
  919.                     player:LearnSpell(56475)
  920.                     player:LearnSpell(56476)
  921.                     player:LearnSpell(56474)
  922.                     player:LearnSpell(56468)
  923.                     player:LearnSpell(55016)
  924.                     player:LearnSpell(54353)
  925.                     player:LearnSpell(54998)
  926.                     player:LearnSpell(54999)
  927.                     player:LearnSpell(63770)
  928.                     player:LearnSpell(61471)
  929.                     player:LearnSpell(56471)
  930.                     player:LearnSpell(54736)
  931.                     player:LearnSpell(55002)
  932.                     player:LearnSpell(54793)
  933.                     player:LearnSpell(63765)
  934.                     player:LearnSpell(56463)
  935.                     player:LearnSpell(56461)
  936.                     player:LearnSpell(56459)
  937.                     player:LearnSpell(56464)
  938.     end
  939.      
  940.     if (intid == 104) then -- Herbalism
  941.      
  942.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 166)
  943.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  944.                     player:GossipSendMenu(1, item)
  945.                     ------------------------
  946.                     player:LearnSpell(50301)
  947.     end
  948.      
  949.     if (intid == 105) then -- Inscription
  950.      
  951.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 168)
  952.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  953.                     player:GossipSendMenu(1, item)
  954.                     ------------------------
  955.                     player:LearnSpell(45380)
  956.                     player:LearnSpell(58483)
  957.                     player:LearnSpell(58491)
  958.                     player:LearnSpell(50604)
  959.                     player:LearnSpell(50611)
  960.                     player:LearnSpell(59504)
  961.                     player:LearnSpell(59498)
  962.                     player:LearnSpell(59497)
  963.                     player:LearnSpell(50620)
  964.                     player:LearnSpell(59501)
  965.                     player:LearnSpell(61117)
  966.                     player:LearnSpell(61118)
  967.                     player:LearnSpell(61119)
  968.                     player:LearnSpell(61120)
  969.                     player:LearnSpell(61177)
  970.                     player:LearnSpell(57715)
  971.                     player:LearnSpell(60337)
  972.     end
  973.      
  974.      
  975.     if (intid == 106) then -- Jewelcrafting
  976.      
  977.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 170)
  978.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  979.                     player:GossipSendMenu(1, item)
  980.                     ------------------------
  981.                     player:LearnSpell(51310)
  982.                     player:LearnSpell(56197)
  983.                     player:LearnSpell(55402)
  984.                     player:LearnSpell(55399)
  985.                     player:LearnSpell(55394)
  986.                     player:LearnSpell(55386)
  987.                     player:LearnSpell(56203)
  988.                     player:LearnSpell(59759)
  989.                     player:LearnSpell(56199)
  990.                     player:LearnSpell(56202)
  991.                     player:LearnSpell(56201)
  992.                     player:LearnSpell(53969)
  993.                     player:LearnSpell(53947)
  994.                     player:LearnSpell(53956)
  995.                     player:LearnSpell(54007)
  996.                     player:LearnSpell(56531)
  997.                     player:LearnSpell(53989)
  998.                     player:LearnSpell(53953)
  999.     end
  1000.      
  1001.     if (intid == 107) then -- Leatherworking
  1002.      
  1003.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 172)
  1004.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  1005.                     player:GossipSendMenu(1, item)
  1006.                     ------------------------
  1007.                     player:LearnSpell(51301)
  1008.                     player:LearnSpell(60640)
  1009.                     player:LearnSpell(60637)
  1010.                     player:LearnSpell(50965)
  1011.                     player:LearnSpell(50967)
  1012.                     player:LearnSpell(60643)
  1013.                     player:LearnSpell(60583)
  1014.                     player:LearnSpell(57683)
  1015.                     player:LearnSpell(57691)
  1016.                     player:LearnSpell(57690)
  1017.     end
  1018.      
  1019.     if (intid == 108) then -- Mining
  1020.  
  1021.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 174)
  1022.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  1023.                     player:GossipSendMenu(1, item)
  1024.                     ------------------------
  1025.                     player:LearnSpell(50309)
  1026.     end
  1027.      
  1028.     if (intid == 109) then -- Skinning
  1029.      
  1030.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 176)
  1031.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  1032.                     player:GossipSendMenu(1, item)
  1033.                     -------------------------
  1034.                     player:LearnSpell(50307)
  1035.     end
  1036.      
  1037.     if (intid == 110) then -- Tailoring
  1038.      
  1039.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 178)
  1040.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  1041.                     player:GossipSendMenu(1, item)
  1042.                     ------------------------
  1043.                     player:LearnSpell(51308)
  1044.                     player:LearnSpell(56026)
  1045.                     player:LearnSpell(56024)
  1046.                     player:LearnSpell(56028)
  1047.                     player:LearnSpell(56027)
  1048.                     player:LearnSpell(56025)
  1049.                     player:LearnSpell(56029)
  1050.                     player:LearnSpell(60993)
  1051.                     player:LearnSpell(60971)
  1052.                     player:LearnSpell(60994)
  1053.                     player:LearnSpell(60990)
  1054.                     player:LearnSpell(55769)
  1055.                     player:LearnSpell(55642)
  1056.                     player:LearnSpell(55777)
  1057.                     player:LearnSpell(56002)
  1058.                     player:LearnSpell(56001)
  1059.                     player:LearnSpell(56003)
  1060.                     player:LearnSpell(56007)
  1061.                     player:LearnSpell(60969)
  1062.     end
  1063.      
  1064.      
  1065.     if (intid == 111) then -- Secondary Professions
  1066.             player:GossipMenuAddItem(5, "Cooking", 0, 179)
  1067.             player:GossipMenuAddItem(5, "First Aid", 0, 180)
  1068.             player:GossipMenuAddItem(5, "Fishing", 0, 181)
  1069.             player:GossipMenuAddItem(0, "Previous Page", 0, 17)
  1070.             player:GossipMenuAddItem(0, "Home Page", 0, 999)
  1071.             player:GossipSendMenu(1, item)
  1072.     end
  1073.      
  1074.      
  1075.     -- Eastern Kingdoms
  1076.      
  1077.     if (intid == 112) then -- Alterac Mountains
  1078.             player:Teleport(0, 353.79, -607.08, 150.76, 0)
  1079.             player:GossipComplete()
  1080.     end
  1081.      
  1082.     if (intid == 113) then -- Arathi Highlands
  1083.             player:Teleport(0, -2269.78, -2501.06, 79.04, 0)
  1084.             player:GossipComplete()
  1085.     end
  1086.      
  1087.     if (intid == 114) then -- Badlands
  1088.             player:Teleport(0, -6026.58, -3318.27, 260.64, 0)
  1089.             player:GossipComplete()
  1090.     end
  1091.      
  1092.     if (intid == 115) then -- Blasted Lands
  1093.             player:Teleport(0, -10797.67, -2994.29, 44.42, 0)
  1094.             player:GossipComplete()
  1095.     end
  1096.      
  1097.     if (intid == 116) then -- Burning Steppes
  1098.             player:Teleport(0, -8357.72, -2537.49, 135.01, 0)
  1099.             player:GossipComplete()
  1100.     end
  1101.      
  1102.     if (intid == 117) then -- Deadwind Pass
  1103.             player:Teleport(0, -10460.22, -1699.33, 81.85, 0)
  1104.             player:GossipComplete()
  1105.     end
  1106.      
  1107.     if (intid == 118) then -- Dun Morogh
  1108.             player:Teleport(0, -6234.99, 341.24, 383.22, 0)
  1109.             player:GossipComplete()
  1110.     end
  1111.      
  1112.     if (intid == 119) then -- Duskwood
  1113.             player:Teleport(0, -10068.30, -1501.07, 28.41, 0)
  1114.             player:GossipComplete()
  1115.     end
  1116.      
  1117.     if (intid == 120) then -- Eastern Plaguelands
  1118.             player:Teleport(0, 1924.70, -2653.54, 59.70, 0)
  1119.             player:GossipComplete()
  1120.     end
  1121.      
  1122.     if (intid == 121) then -- Elwynn Forest
  1123.             player:Teleport(0, -8939.71, -131.22, 83.62, 0)
  1124.             player:GossipComplete()
  1125.     end
  1126.      
  1127.     if (intid == 122) then -- Eversong Woods
  1128.             player:Teleport(530, 10341.73, -6366.29, 34.31, 0)
  1129.             player:GossipComplete()
  1130.     end
  1131.      
  1132.     if (intid == 123) then -- Ghostlands
  1133.             player:Teleport(530, 7969.87, -6872.63, 58.66, 0)
  1134.             player:GossipComplete()
  1135.     end
  1136.      
  1137.     if (intid == 124) then -- Hillsbrad Foothills
  1138.             player:Teleport(0, -585.70, 612.18, 83.80, 0)
  1139.             player:GossipComplete()
  1140.     end
  1141.      
  1142.     if (intid == 125) then -- Isle of Quel'Danas
  1143.             player:Teleport(530, 12916.81, -6867.82, 7.69, 0)
  1144.             player:GossipComplete()
  1145.     end
  1146.      
  1147.     if (intid == 126) then -- Loch Modan
  1148.             player:Teleport(0, -4702.59, -2698.61, 318.75, 0)
  1149.             player:GossipComplete()
  1150.     end
  1151.      
  1152.     if (intid == 127) then -- Redridge Mountains
  1153.             player:Teleport(0, -9600.62, -2123.21, 66.23, 0)
  1154.             player:GossipComplete()
  1155.     end
  1156.      
  1157.     if (intid == 128) then -- Searing Gorge
  1158.             player:Teleport(0, -6897.73, -1821.58, 241.16, 0)
  1159.             player:GossipComplete()
  1160.     end
  1161.      
  1162.     if (intid == 129) then -- Silverpine Forest
  1163.             player:Teleport(0, 1499.57, 623.98, 47.01, 0)
  1164.             player:GossipComplete()
  1165.     end
  1166.      
  1167.     if (intid == 130) then -- Stranglethorn Vale
  1168.             player:Teleport(0, -11355.90, -383.40, 65.14, 0)
  1169.             player:GossipComplete()
  1170.     end
  1171.      
  1172.     if (intid == 131) then -- Swamp of Sorrows
  1173.             player:Teleport(0, -10552.60, -2355.25, 85.95, 0)
  1174.             player:GossipComplete()
  1175.     end
  1176.      
  1177.     if (intid == 132) then -- The Hinterlands
  1178.             player:Teleport(0, 92.63, -1942.31, 154.11, 0)
  1179.             player:GossipComplete()
  1180.     end
  1181.      
  1182.     if (intid == 133) then -- Tirisfal Glades
  1183.             player:Teleport(0, 1676.13, 1669.37, 137.02, 0)
  1184.             player:GossipComplete()
  1185.     end
  1186.      
  1187.     if (intid == 134) then -- Western Plaguelands
  1188.             player:Teleport(0, 1635.57, -1068.50, 66.57, 0)
  1189.             player:GossipComplete()
  1190.     end
  1191.      
  1192.     if (intid == 135) then -- Westfall
  1193.             player:Teleport(0, -9827.95, 865.80, 25.80, 0)
  1194.             player:GossipComplete()
  1195.     end
  1196.      
  1197.     if (intid == 136) then -- Wetlands
  1198.             player:Teleport(0, -4086.32, -2620.72, 43.55, 0)
  1199.             player:GossipComplete()
  1200.     end
  1201.      
  1202.      
  1203.     -- Kalimdor
  1204.      
  1205.     if (intid == 137) then -- Ashenvale
  1206.             player:Teleport(1, 3474.41, 853.47, 5.76, 0)
  1207.             player:GossipComplete()
  1208.     end
  1209.      
  1210.     if (intid == 138) then -- Azshara
  1211.             player:Teleport(1, 2763.93, -3881.34, 92.52, 0)
  1212.             player:GossipComplete()
  1213.     end
  1214.      
  1215.     if (intid == 139) then -- Azuremyst Isle
  1216.             player:Teleport(530, -3972.72, -13914.99, 98.88, 0)
  1217.             player:GossipComplete()
  1218.     end
  1219.      
  1220.     if (intid == 140) then -- Bloodmyst Isle
  1221.             player:Teleport(530, -2721.67, -12208.90, 9.08, 0)
  1222.             player:GossipComplete()
  1223.     end
  1224.      
  1225.     if (intid == 141) then -- Darkshore
  1226.             player:Teleport(1, 4336.61, 173.83, 46.84, 0)
  1227.             player:GossipComplete()
  1228.     end
  1229.      
  1230.     if (intid == 142) then -- Desolace
  1231.             player:Teleport(1, 47.28, 1684.64, 93.55, 0)
  1232.             player:GossipComplete()
  1233.     end
  1234.      
  1235.     if (intid == 143) then -- Durotar
  1236.             player:Teleport(1, -611.61, -4263.16, 38.95, 0)
  1237.             player:GossipComplete()
  1238.     end
  1239.      
  1240.     if (intid == 144) then -- Dustwallow Marsh
  1241.             player:Teleport(1, -3682.58, -2556.93, 58.43, 0)
  1242.             player:GossipComplete()
  1243.     end
  1244.      
  1245.     if (intid == 145) then -- Felwood
  1246.             player:Teleport(1, 3590.56, -1516.69, 169.98, 0)
  1247.             player:GossipComplete()
  1248.     end
  1249.      
  1250.     if (intid == 146) then -- Feralas
  1251.             player:Teleport(1, -4300.02, -631.56, -9.35, 0)
  1252.             player:GossipComplete()
  1253.     end
  1254.      
  1255.     if (intid == 147) then -- Moonglade
  1256.             player:Teleport(1, 7999.68, -2670.19, 512.09, 0)
  1257.             player:GossipComplete()
  1258.     end
  1259.      
  1260.     if (intid == 148) then -- Mulgore
  1261.             player:Teleport(1, -2931.49, -262.82, 53.25, 0)
  1262.             player:GossipComplete()
  1263.     end
  1264.      
  1265.     if (intid == 149) then -- Silithus
  1266.             player:Teleport(1, -6814.57, 833.77, 49.74, 0)
  1267.             player:GossipComplete()
  1268.     end
  1269.      
  1270.     if (intid == 150) then -- Stonetalon Mountains
  1271.             player:Teleport(1, -225.34, -765.16, 6.4, 0)
  1272.             player:GossipComplete()
  1273.     end
  1274.      
  1275.     if (intid == 151) then -- Tanaris
  1276.             player:Teleport(1, -6999.47, -3707.94, 26.44, 0)
  1277.             player:GossipComplete()
  1278.     end
  1279.      
  1280.     if (intid == 152) then -- Teldrassil
  1281.             player:Teleport(1, 8754.06, 949.62, 25.99, 0)
  1282.             player:GossipComplete()
  1283.     end
  1284.      
  1285.     if (intid == 153) then -- The Barrens
  1286.             player:Teleport(1, -948.46, -3738.60, 5.98, 0)
  1287.             player:GossipComplete()
  1288.     end
  1289.      
  1290.     if (intid == 154) then -- Thousand Needles
  1291.             player:Teleport(1, -4685.72, -1836.24, -44.04, 0)
  1292.             player:GossipComplete()
  1293.     end
  1294.      
  1295.     if (intid == 155) then -- Un'Goro Crater
  1296.             player:Teleport(1, -6162.47, -1098.74, -208.99, 0)
  1297.             player:GossipComplete()
  1298.     end
  1299.      
  1300.     if (intid == 156) then -- Winterspring
  1301.             player:Teleport(1, 6896.27, -2302.51, 586.69, 0)
  1302.             player:GossipComplete()
  1303.     end
  1304.      
  1305.      
  1306.     -- Profession Trainers
  1307.      
  1308.     if (intid == 157) then -- Alchemy
  1309.      
  1310.             player:GossipComplete()
  1311.     end
  1312.      
  1313.     if (intid == 158) then -- Unlearn ^^
  1314.             player:RemoveSpell(51303)
  1315.             player:RemoveSpell(51304)
  1316.             player:RemoveSpell(53042)
  1317.             player:GossipComplete()
  1318.     end
  1319.      
  1320.     if (intid == 159) then -- Blacksmithing
  1321.      
  1322.             player:GossipComplete()
  1323.     end
  1324.      
  1325.     if (intid == 160) then -- Unlearn ^^
  1326.             player:RemoveSpell(51298)
  1327.             player:RemoveSpell(51300)
  1328.             player:GossipComplete()
  1329.     end
  1330.      
  1331.     if (intid == 161) then -- Enchanting
  1332.            
  1333.             player:GossipComplete()
  1334.     end
  1335.      
  1336.     if (intid == 162) then -- Unlearn ^^
  1337.             player:RemoveSpell(51312)
  1338.             player:RemoveSpell(51313)
  1339.             player:GossipComplete()
  1340.     end
  1341.      
  1342.     if (intid == 163) then -- Engineering
  1343.      
  1344.             player:GossipComplete()
  1345.     end
  1346.      
  1347.     if (intid == 164) then -- Unlearn ^^
  1348.             player:RemoveSpell(51305)
  1349.             player:RemoveSpell(51306)
  1350.             player:GossipComplete()
  1351.     end
  1352.      
  1353.     if (intid == 165) then -- Herbalism
  1354.      
  1355.             player:GossipComplete()
  1356.     end
  1357.      
  1358.     if (intid == 166) then -- Unlearn Herbalism
  1359.             player:RemoveSpell(50300)
  1360.             player:RemoveSpell(50301)
  1361.             player:GossipComplete()
  1362.     end
  1363.      
  1364.     if (intid == 167) then -- Inscription
  1365.      
  1366.             player:GossipComplete()
  1367.     end
  1368.      
  1369.     if (intid == 168) then -- Unlearn ^^
  1370.             player:RemoveSpell(45363)
  1371.             player:RemoveSpell(45380)
  1372.             player:GossipComplete()
  1373.     end
  1374.      
  1375.     if (intid == 169) then -- Jewelcrafting
  1376.      
  1377.             player:GossipComplete()
  1378.     end
  1379.      
  1380.     if (intid == 170) then -- Unlearn ^^
  1381.             player:RemoveSpell(51310)
  1382.             player:RemoveSpell(51311)
  1383.             player:GossipComplete()
  1384.     end
  1385.      
  1386.     if (intid == 171) then -- Leatherworking
  1387.      
  1388.             player:GossipComplete()
  1389.     end
  1390.      
  1391.     if (intid == 172) then -- Unlearn ^^
  1392.             player:RemoveSpell(51301)
  1393.             player:RemoveSpell(51302)
  1394.             player:GossipComplete()
  1395.     end
  1396.      
  1397.     if (intid == 173) then -- Mining
  1398.      
  1399.             player:GossipComplete()
  1400.     end
  1401.      
  1402.     if (intid == 174) then -- Unlearn ^^
  1403.             player:RemoveSpell(50309)
  1404.             player:RemoveSpell(50310)
  1405.             player:GossipComplete()
  1406.     end
  1407.      
  1408.     if (intid == 175) then -- Skinning
  1409.      
  1410.             player:GossipComplete()
  1411.     end
  1412.      
  1413.     if (intid == 176) then -- Unlearn ^^
  1414.             player:RemoveSpell(50305)
  1415.             player:RemoveSpell(50306)
  1416.             player:GossipComplete()
  1417.     end
  1418.      
  1419.     if (intid == 177) then -- Tailoring
  1420.      
  1421.             player:GossipComplete()
  1422.     end
  1423.      
  1424.     if (intid == 178) then -- Unlearn ^^
  1425.             player:RemoveSpell(51308)
  1426.             player:RemoveSpell(51309)
  1427.             player:GossipComplete()
  1428.     end
  1429.      
  1430.      
  1431.      
  1432.     -- Secondary Professions
  1433.      
  1434.     if (intid == 179) then -- Cooking
  1435.      
  1436.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 183)
  1437.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  1438.                     player:GossipSendMenu(1, item)
  1439.                     ------------------------
  1440.                     player:LearnSpell(51295)
  1441.     end
  1442.      
  1443.     if (intid == 180) then -- First Aid
  1444.      
  1445.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 185)
  1446.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  1447.                     player:GossipSendMenu(1, item)
  1448.                     ------------------------
  1449.                     player:LearnSpell(50299)
  1450.     end
  1451.      
  1452.     if (intid == 181) then -- Fishing
  1453.      
  1454.                     player:GossipMenuAddItem(0, "I'd like to unlearn this profession.", 0, 187)
  1455.                     player:GossipMenuAddItem(0, "Home Page", 0, 999)
  1456.                     player:GossipSendMenu(1, item)
  1457.                     ------------------------
  1458.                     player:LearnSpell(51293)
  1459.     end
  1460.      
  1461.      
  1462.     -- Secondary Profession Trainers
  1463.      
  1464.     if (intid == 182) then -- Cooking
  1465.      
  1466.             player:GossipComplete()
  1467.     end
  1468.      
  1469.     if (intid == 183) then -- Unlearn ^^
  1470.             player:RemoveSpell(51296)
  1471.             player:RemoveSpell(51295)
  1472.             player:GossipComplete()
  1473.     end
  1474.      
  1475.     if (intid == 184) then -- First Aid
  1476.      
  1477.             player:GossipComplete()
  1478.     end
  1479.      
  1480.     if (intid == 185) then -- Unlearn ^^
  1481.             player:RemoveSpell(50299)
  1482.             player:RemoveSpell(45442)
  1483.             player:GossipComplete()
  1484.     end
  1485.      
  1486.     if (intid == 186) then -- Fishing
  1487.      
  1488.             player:GossipComplete()
  1489.     end
  1490.      
  1491.     if (intid == 187) then -- Unlearn ^^
  1492.             player:RemoveSpell(51294)
  1493.             player:RemoveSpell(51293)
  1494.             player:GossipComplete()
  1495.     end
  1496.      
  1497.      
  1498.     -- Foothills
  1499.      
  1500.     if(intid == 9997) then
  1501.             if (plyr == 1) or (plyr == 3) or (plyr == 4) or (plyr == 7) or (plyr == 11) then
  1502.                     player:GossipMenuAddItem(2, "Qurantis", 0, 1235)
  1503.                     player:GossipSendMenu(1, item)
  1504.             end
  1505.      
  1506.             if (plyr == 2) or (plyr == 5) or (plyr == 6) or (plyr == 8) or (plyr == 10) then
  1507.                     player:GossipMenuAddItem(2, "Mulderan", 0, 1236)
  1508.                     player:GossipSendMenu(1, item)
  1509.             end
  1510.     end
  1511.      
  1512.     if(intid == 1235) then -- Qurantis
  1513.             player:Teleport(560, 3611.490723, 2288.865967, 59.283901, 0)
  1514.     end
  1515.      
  1516.     if(intid == 1236) then -- Mulderan
  1517.             player:Teleport(560, 2539.483643, 2423.052734, 63.581509, 0)
  1518.     end
  1519.      
  1520.      
  1521.      
  1522.     if (intid == 999) then -- Main page
  1523.     --player:GossipMenuAddItem(5, "|cffff6060TELEPORTER STONE.|r", 0, 998)
  1524.     player:GossipMenuAddItem(6, "|cFF191970Main Cities|r", 0, 1)
  1525.     player:GossipMenuAddItem(2, "|cFF191970Azeroth Locations|r", 0, 2)
  1526.     player:GossipMenuAddItem(2, "|cFF191970Azeroth Instances|r", 0, 3)
  1527.     player:GossipMenuAddItem(2, "|cFF191970Azeroth Raids|r", 0, 4)
  1528.     player:GossipMenuAddItem(2, "|cFF191970Outland Locations|r", 0, 5)
  1529.     player:GossipMenuAddItem(2, "|cFF191970Outland Instances|r", 0, 6)
  1530.     player:GossipMenuAddItem(2, "|cFF191970Outland Raids|r", 0, 7)
  1531.     player:GossipMenuAddItem(2, "|cFF191970Northrend Locations|r", 0, 8)
  1532.     player:GossipMenuAddItem(2, "|cFF191970Northrend Instances|r", 0, 9)
  1533.     player:GossipMenuAddItem(2, "|cFF191970Northrend Raids|r", 0, 10)
  1534.     player:GossipMenuAddItem(0, "|cFF191970Foothills|r", 0, 9997)
  1535.     player:GossipMenuAddItem(5, "|cFF191970Murloc Mall|r", 0, 12)
  1536.     player:GossipMenuAddItem(9, "|cFF191970Gurubashi Arena|r", 0, 13)
  1537.     player:GossipMenuAddItem(0, "|cFF191970Next Page|r", 0, 997)
  1538.     player:GossipSendMenu(1, item)
  1539.     end
  1540.     end
  1541.      
  1542.     RegisterItemGossipEvent(6948, 1, Tele_Book)
  1543.     RegisterItemGossipEvent(6948, 2, Tele_Select)
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!