API tools faq
paste
Advertisement
slp13at420

WD-VIP5 all class vendor custom items

slp13at420
Apr 1st, 2012
87
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 7.64 KB | None | 0 0
raw download clone embed print report
  1. -- by BlackWolf of blackwolfsden.dyndn-free.com aka slp13at420 at ac-web.org
  2. -- this vendor will check your vip level and either deny you access or grant you access
  3. -- to his vendor page. this vendor will check class and post the proper items
  4.  
  5. local npcid = 50114 -- "50114" this is your Npc Entry ID, you can change it at any time! vip 5 vendor
  6.  
  7. local GetVip = WorldDBQuery("SELECT `vip` FROM logon.accounts WHERE `login` = '"..player:GetAccountName().."';");
  8.  
  9. local Vip = GetVip:GetColumn(0):GetLong()
  10.  
  11. if (Vip < 5) then
  12.  
  13. player:SendBroadcastMessage("You are not VIP 5.")
  14. player:GossipComplete()
  15. else
  16.  
  17. pUnit:VendorRemoveAllItems()
  18. if (player:GetPlayerClass() == "Warrior") then
  19. pUnit:GossipCreateMenu(100, player, 0)
  20. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  21. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  22. pUnit:GossipMenuAddItem(1,"VIP 5 Gear",10,0)
  23. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  24. pUnit:GossipSendMenu(player)
  25.  
  26. elseif (player:GetPlayerClass() == "Warlock") then
  27. pUnit:GossipCreateMenu(100, player, 0)
  28. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  29. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  30. pUnit:GossipMenuAddItem(1,"VIP 5 Gear",11,0)
  31. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  32. pUnit:GossipSendMenu(player)
  33.  
  34. elseif (player:GetPlayerClass() == "Shaman") then
  35. pUnit:GossipCreateMenu(100, player, 0)
  36. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  37. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  38. pUnit:GossipMenuAddItem(1,"VIP 5 Gear",12,0)
  39. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  40. pUnit:GossipSendMenu(player)
  41.  
  42. elseif (player:GetPlayerClass() == "Rogue") then
  43. pUnit:GossipCreateMenu(100, player, 0)
  44. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  45. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  46. pUnit:GossipMenuAddItem(1,"VIP 5 Gear",13,0)
  47. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  48. pUnit:GossipSendMenu(player)
  49.  
  50. elseif (player:GetPlayerClass() == "Priest") then
  51. pUnit:GossipCreateMenu(100, player, 0)
  52. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  53. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  54. pUnit:GossipMenuAddItem(1,"VIP 5 Gear",14,0)
  55. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  56. pUnit:GossipSendMenu(player)
  57.  
  58. elseif (player:GetPlayerClass() == "Paladin") then
  59. pUnit:GossipCreateMenu(100, player, 0)
  60. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  61. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  62. pUnit:GossipMenuAddItem(1,"VIP 5 Gear",15,0)
  63. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  64. pUnit:GossipSendMenu(player)
  65.  
  66. elseif (player:GetPlayerClass() == "Mage") then
  67. pUnit:GossipCreateMenu(100, player, 0)
  68. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  69. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  70. pUnit:GossipMenuAddItem(1,"VIP 5 Gear",16,0)
  71. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  72. pUnit:GossipSendMenu(player)
  73.  
  74. elseif (player:GetPlayerClass() == "Hunter") then
  75. pUnit:GossipCreateMenu(100, player, 0)
  76. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  77. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  78. pUnit:GossipMenuAddItem(1,"VIP 5 Gear",17,0)
  79. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  80. pUnit:GossipSendMenu(player)
  81.  
  82. elseif (player:GetPlayerClass() == "Druid") then
  83. pUnit:GossipCreateMenu(100, player, 0)
  84. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  85. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  86. pUnit:GossipMenuAddItem(1,"VIP 5 Gear",18,0)
  87. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  88. pUnit:GossipSendMenu(player)
  89.  
  90. elseif (player:GetPlayerClass() == "Death Knight") then
  91. pUnit:GossipCreateMenu(100, player, 0)
  92. pUnit:GossipMenuAddItem(5,"Repair",32,0)
  93. pUnit:GossipMenuAddItem(2,"All Done",31,0)
  94. pUnit:GossipMenuAddItem(1,"VIP 5 Armor",19,0)
  95. pUnit:GossipMenuAddItem(1,"VIP 5 Weapons",20,0)
  96. pUnit:GossipSendMenu(player)
  97.  
  98. end
  99. end
  100. end
  101.  
  102. function Armor_OnSelect(pUnit,event,player,id,intid,code)
  103.  
  104. if (intid == 10) then
  105. pUnit:VendorAddItem(60040,1,3012)-- 3012 is an item extended cost I started with 3000 pUnit:VendorAddItem(60041,1,3012)-- and created a whole group of custom costs.
  106. pUnit:VendorAddItem(60042,1,3012)-- make sure you update your patch for
  107. pUnit:VendorAddItem(60043,1,3012)-- ItemExtendedCost or you will have issues.
  108. pUnit:VendorAddItem(60044,1,3012)
  109. pUnit:VendorAddItem(60045,1,3012)
  110. pUnit:VendorAddItem(60046,1,3012)
  111. pUnit:VendorAddItem(60047,1,3012)
  112. player:SendVendorWindow(pUnit)
  113. end
  114.  
  115. if (intid == 11) then
  116. pUnit:VendorAddItem(60140,1,3012)
  117. pUnit:VendorAddItem(60141,1,3012)
  118. pUnit:VendorAddItem(60142,1,3012)
  119. pUnit:VendorAddItem(60143,1,3012)
  120. pUnit:VendorAddItem(60144,1,3012)
  121. pUnit:VendorAddItem(60145,1,3012)
  122. pUnit:VendorAddItem(60146,1,3012)
  123. pUnit:VendorAddItem(60147,1,3012)
  124. player:SendVendorWindow(pUnit)
  125. end
  126.  
  127. if (intid == 12) then
  128. pUnit:VendorAddItem(60240,1,3012)
  129. pUnit:VendorAddItem(60241,1,3012)
  130. pUnit:VendorAddItem(60242,1,3012)
  131. pUnit:VendorAddItem(60243,1,3012)
  132. pUnit:VendorAddItem(60244,1,3012)
  133. pUnit:VendorAddItem(60245,1,3012)
  134. pUnit:VendorAddItem(60246,1,3012)
  135. pUnit:VendorAddItem(60247,1,3012)
  136. player:SendVendorWindow(pUnit)
  137. end
  138.  
  139. if (intid == 13) then
  140. pUnit:VendorAddItem(60340,1,3012)
  141. pUnit:VendorAddItem(60341,1,3012)
  142. pUnit:VendorAddItem(60342,1,3012)
  143. pUnit:VendorAddItem(60343,1,3012)
  144. pUnit:VendorAddItem(60344,1,3012)
  145. pUnit:VendorAddItem(60345,1,3012)
  146. pUnit:VendorAddItem(60346,1,3012)
  147. pUnit:VendorAddItem(60347,1,3012)
  148. player:SendVendorWindow(pUnit)
  149. end
  150.  
  151. if (intid == 14) then
  152. pUnit:VendorAddItem(60440,1,3012)
  153. pUnit:VendorAddItem(60441,1,3012)
  154. pUnit:VendorAddItem(60442,1,3012)
  155. pUnit:VendorAddItem(60443,1,3012)
  156. pUnit:VendorAddItem(60444,1,3012)
  157. pUnit:VendorAddItem(60445,1,3012)
  158. pUnit:VendorAddItem(60446,1,3012)
  159. pUnit:VendorAddItem(60447,1,3012)
  160. player:SendVendorWindow(pUnit)
  161. end
  162.  
  163. if (intid == 15) then
  164. pUnit:VendorAddItem(60540,1,3012)
  165. pUnit:VendorAddItem(60541,1,3012)
  166. pUnit:VendorAddItem(60542,1,3012)
  167. pUnit:VendorAddItem(60543,1,3012)
  168. pUnit:VendorAddItem(60544,1,3012)
  169. pUnit:VendorAddItem(60545,1,3012)
  170. pUnit:VendorAddItem(60546,1,3012)
  171. pUnit:VendorAddItem(60547,1,3012)
  172. player:SendVendorWindow(pUnit)
  173. end
  174.  
  175. if (intid == 16) then
  176. pUnit:VendorAddItem(60640,1,3012)
  177. pUnit:VendorAddItem(60641,1,3012)
  178. pUnit:VendorAddItem(60642,1,3012)
  179. pUnit:VendorAddItem(60643,1,3012)
  180. pUnit:VendorAddItem(60644,1,3012)
  181. pUnit:VendorAddItem(60645,1,3012)
  182. pUnit:VendorAddItem(60646,1,3012)
  183. pUnit:VendorAddItem(60647,1,3012)
  184. player:SendVendorWindow(pUnit)
  185. end
  186.  
  187. if (intid == 17) then
  188. pUnit:VendorAddItem(60740,1,3012)
  189. pUnit:VendorAddItem(60741,1,3012)
  190. pUnit:VendorAddItem(60742,1,3012)
  191. pUnit:VendorAddItem(60743,1,3012)
  192. pUnit:VendorAddItem(60744,1,3012)
  193. pUnit:VendorAddItem(60745,1,3012)
  194. pUnit:VendorAddItem(60746,1,3012)
  195. pUnit:VendorAddItem(60747,1,3012)
  196. player:SendVendorWindow(pUnit)
  197. end
  198.  
  199. if (intid == 18) then
  200. pUnit:VendorAddItem(60840,1,3012)
  201. pUnit:VendorAddItem(60841,1,3012)
  202. pUnit:VendorAddItem(60842,1,3012)
  203. pUnit:VendorAddItem(60843,1,3012)
  204. pUnit:VendorAddItem(60844,1,3012)
  205. pUnit:VendorAddItem(60845,1,3012)
  206. pUnit:VendorAddItem(60846,1,3012)
  207. pUnit:VendorAddItem(60847,1,3012)
  208. player:SendVendorWindow(pUnit)
  209. end
  210.  
  211. if (intid == 19) then
  212. pUnit:VendorAddItem(60940,1,3012)
  213. pUnit:VendorAddItem(60941,1,3012)
  214. pUnit:VendorAddItem(60942,1,3012)
  215. pUnit:VendorAddItem(60943,1,3012)
  216. pUnit:VendorAddItem(60944,1,3012)
  217. pUnit:VendorAddItem(60945,1,3012)
  218. pUnit:VendorAddItem(60946,1,3012)
  219. pUnit:VendorAddItem(60947,1,3012)
  220. player:SendVendorWindow(pUnit)
  221. end
  222.  
  223. if (intid == 20) then
  224. pUnit:VendorAddItem(61038,1,3012)
  225. pUnit:VendorAddItem(61050,1,3012)
  226. pUnit:VendorAddItem(61060,1,3012)
  227. pUnit:VendorAddItem(61033,1,3012)
  228. player:SendVendorWindow(pUnit)
  229. end
  230.  
  231. if (intid == 31) then
  232. player:GossipComplete()
  233. end
  234.  
  235. if (intid == 32) then
  236. player:RepairAllPlayerItems()
  237. player:GossipComplete()
  238. end
  239. end
  240.  
  241. RegisterUnitGossipEvent(npcid, 1, "Armor_OnGossip")
  242. RegisterUnitGossipEvent(npcid, 2, "Armor_OnSelect")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!