Advertisement
Rochet2

Untitled

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