Advertisement
WIXXZI

Untitled

Jan 3rd, 2023
40
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.88 KB | None | 0 0
  1. -- Config
  2. local ITEM_ID = 6948
  3.  
  4.  
  5. function On_Gossip(event, player, item)
  6. if (player:IsInCombat()) then -- Show main menu
  7. player:GossipComplete()
  8. else
  9. -- Menus
  10. player:GossipMenuAddItem(1, "Mall", 0, 1)
  11. player:GossipMenuAddItem(2, "Booty Bay Fishing Extravaganza(5 silver)", 0, 2)
  12. player:GossipMenuAddItem(9, "Gurubashi Arena", 0, 3)
  13. player:GossipMenuAddItem(9, "Zul Gurub Arena", 0, 5)
  14. player:GossipMenuAddItem(7, "Elwynn Forest", 0, 4)
  15. player:GossipMenuAddItem(7, "Duskwood", 0, 6)
  16. player:GossipMenuAddItem(7, "Daily Quest Zone", 0, 7)
  17. player:GossipMenuAddItem(3, "Custom Instances", 0, 8)
  18. player:GossipMenuAddItem(5, "Nevermind..", 0, 30)
  19.  
  20. player:GossipSendMenu(1, item)
  21. end
  22. end
  23.  
  24. function On_Select(event, player, item, sender, intid, code)
  25. -- Teleports
  26.  
  27. if (intid == 1) then
  28. player:Teleport(1, -7991.360840, -5284.311035, 0.574648, 3.484632)
  29. player:GossipComplete()
  30. end
  31.  
  32. -- Booty Bay Fishing
  33. if (intid == 2) then
  34. if player:GetCoinage() >= 500 then
  35. else
  36. player:SendAreaTriggerMessage("You need 5 silver to be able to teleport to Booty Bay.")
  37. return false
  38. end
  39. player:SendAreaTriggerMessage("Shady Dealer has stolen 5 silver from you.")
  40. player:ModifyMoney(-500)
  41. player:Teleport(0, -14369.812500, 430.950867, 7.354751, 3.466343)
  42. player:GossipComplete()
  43. end
  44.  
  45. -- Gurubashi Arena
  46. if (intid == 3) then
  47. player:Teleport(0, -13203.44, 221.771194, 33.225346, 3.179693)
  48. player:GossipComplete()
  49. end
  50.  
  51. -- Hogger
  52. if (intid == 4) then
  53. player:Teleport(0, -10014.330078, 610.628235, 39.110691, 1.740194)
  54. player:GossipComplete()
  55. end
  56.  
  57. -- Zul Gurub Arena
  58. if (intid == 5) then
  59. player:Teleport(0, -11953.691406, -1841.716064, 55.390076, 6.229768)
  60. player:GossipComplete()
  61. end
  62.  
  63. -- Duskwood
  64. if (intid == 6) then
  65. player:Teleport(0, -10864.670898, 600.864197, 31.345909, 4.737879)
  66. player:GossipComplete()
  67. end
  68. -- Alcaz Island
  69. if (intid == 7) then
  70. player:GossipComplete()
  71. player:Teleport(1, -2697.097900, -4671.856934, 10.163723, 3.114920)
  72. end
  73.  
  74. if (intid == 8) then
  75. player:GossipClearMenu()
  76. player:GossipMenuAddItem(0, "Ragefire Chasm (Tier 1)", 0, 9)
  77. player:GossipMenuAddItem(0, "Shadowfang Keep (Tier 2)", 0, 10)
  78. player:GossipMenuAddItem(0, "Razorfen Kraul (Tier 3)", 0, 11)
  79. player:GossipMenuAddItem(0, "Hellfire Ramparts (Tier 4)", 0, 12)
  80. player:GossipMenuAddItem(0, "Blood Furnace (Tier 5)", 0 , 13)
  81. player:GossipMenuAddItem(0, "Shadow Labyrinth (Tier 6)", 0, 14)
  82. player:GossipMenuAddItem(0, "Zul Farrak (Tier 7)", 0, 15)
  83. player:GossipMenuAddItem(0, "Nevermind..", 0 , 30)
  84. player:GossipSendMenu(1, item)
  85. end
  86.  
  87.  
  88. if (intid == 9) then
  89. player:Teleport(389, 1.092663, -22.955704, -20.326614, 4.390)
  90. player:GossipComplete()
  91. end
  92.  
  93. if (intid == 30) then
  94. player:GossipComplete()
  95.  
  96. end
  97. end
  98.  
  99.  
  100. RegisterItemGossipEvent(ITEM_ID, 1, On_Gossip)
  101. RegisterItemGossipEvent(ITEM_ID, 2, On_Select)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement