Tier10Waffen Loop Vendor LUA

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    • Tier10Waffen Loop Vendor LUA

      Hallo zusammen ich veröffentliche hier mal meinen zu 100% Funktionierenden Lopp Vendor für die Level 80er Tier 10 Waffen.

      Hier der Link zum Script:

      paste2.org/Gh7dW2K4


      Der script soll für die Community sein und wird von mir zur Verfügung gestellt.

      Den Feed Tag drin lasse.

      MFG RyffLe (MSCrew.de Projekt Leiter)

      The post was edited 3 times, last by RyffLe ().

    • To save these information:

      C Source Code

      1. local npcid = 46012
      2. local Tier10WaffenIDs = {
      3. ["Boegen"] = {39296, 40265, 45327, 45872, 46342, 48697, 48711, 49844, 50034, 50638, 50776, 51927},
      4. ["Armbrust"] = {37191, 40346, 45570, 46018, 46994, 46995, 47267, 47428, 47741, 47907, 47975, 48052, 49981, 50262, 50733, 51802, 51940},
      5. ["Dolche"] = {37667, 39140, 39271, 39420, 39424,39427,39714,40281,40368,40386,40408,40702,42435,43613,44310,45077,45078,45085,45214,45222,45246,45332,45448,45484,45527,45605,
      6. 45607,45620,45685,45930,46011,46024,46958,46969,46979,46980,47104,47113,47255,47261,47300,47416,47422,47461,47569,47676,47724,47736,47871,47874,47886,47938,47941,47953,48010,
      7. 48013,48025,49120,49304,49437,49465,49494,49682,49789,49807,49846,49968,49982,50016,50183,50203,50227,50319,50426,50608,50621,50641,50676,50736,50793,51011,51384,51788,51800,
      8. 51803,51815,51846,51868,51910,51939,51942},
      9. ["Faustwaffen"] = {37693,39416,39468,39763,40239,40383,40429,40704,45132,45284,45449,45489,45494,48703,48712,50035,50184,50315,50692,50710,51003,51784,51801,51819,51876,51941},
      10. ["Schusswaffen"] = {39419,40385,41168,44504,45130,45137,45210,45261,45309,45870,46339,47521,47523,47568,47740,47883,47950,48022,49305,49493,49813,50444,51385,51561,51834,51845},
      11. ["EinhandAxt"] = {40402,45076,45204,46031,46996,47001,47148,47156,47266,47314,47427,47475,47808,47898,47966,48043,49297,49500,49840,50012,50191,50290,50411,50654,50737,50759,
      12. 50787,51795,51916,51938,51947},
      13. ["EinhandStreitkolben"] = {37169,39226,39281,39423,40189,40244,40264,40395,40488,41383,41384,45075,45147,45203,45315,45442,45463,45612,45876,45892,45972,46035,46097,46351,
      14. 47193,47206,47322,47483,47508,47509,47526,47528,47809,47816,47894,47905,47962,47973,48039,48050,48663,48693,48699,48709,48714,49783,49845,49997,50028,50050,50051,50179,
      15. 50303,50428,50685,50708,50734,50738,50760,50810,51004,51798,51875,51893,51937,51944},
      16. ["EinhandSchwert"] = {37401,39200,39270,39291,39344,39730,40336,40345,40396,40407,40491,40703,43611,44311,45110,45129,45142,45208,45266,45287,45298,45331,45437,45700,45947,
      17. 45990,46036,47500,47506,47513,47517,47518,47810,47814,47899,47903,47967,47971,48044,48048,48701,48708,49128,49296,49298,49303,49495,49499,49501,49827,49833,50046,50047,
      18. 50068,50210,50268,50302,50412,50427,50672,50704,50732,50771,51010,51021,51858,51869,51932},
      19. ["Stangenwaffen"] = {39221,40208,40497,45311,45498,45533,45996,47233,47239,47329,47491,47522,47834,47911,47979,48056,49301,49302,49496,49497,50178,50296,50425,50727,50735,51022,
      20. 51857},
      21. ["Staebe"] = {37360,37883,39255,39256,39394,39422,40233,40280,40300,40348,40388,40455,40489,45128,45171,45212,45234,45256,45457,45479,45613,45695,45886,45934,46025,46033,46350,
      22. 47114,47130,47302,47463,47524,47525,47743,47815,47892,47900,47960,47968,48036,48045,48705,48710,49790,49793,49801,49992,50040,50181,50273,50429,50648,50695,50725,
      23. 50731,50805,50966,50998,51582,51797,51799,51828,51881,51887,51898,51943,51945},
      24. ["Wurfwaffen"] = {40190,40716,43612,45086,45296,47659,47660,50169,50474,50999,51880},
      25. ["ZweihandAxt"] = {37852,39417,40384,45165,45458,47069,47078,47285,47446,47493,48695,48713,49888,50267,50415,50709,50798,51905},
      26. ["ZweihandStreitkolben"] = {39245,39758,40406,41257,45282,45521,46067,47519,47520,49802,49919,50052,50603,51562,51796,51833,51946},
      27. ["ZweihandSchwert"] = {39393,40343,45074,45205,45233,45516,45868,46016,47515,47516,47737,47884,47951,48023,49299,49498,49839,50048,50049,50070,50730,50761,51936},
      28. ["Zauberstaebe"] = {37238,37619,39426,39473,39712,40245,40284,40335,45170,45257,45294,45511,45713,47612,47658,47856,47922,47995,49852,50033,50204,50291,50472,50631,50684,51326,
      29. 51553,51838,51852},
      30. ["Schilde"] = {39233,39276,39716,40266,40400,40401,40475,40700,40701,42508,43085,44313,45450,45470,45587,45682,45707,45877,45887,46963,46964,47079,47085,47260,47287,47421,
      31. 47448,47812,47835,47895,47910,47963,47978,48040,48055,49821,49835,49976,50065,50616,50729,50794,51791,51812,51909},
      32. ["Relikte"] = {39728,39757,40191,40207,40267,40268,40321,40322,40337,40342,40705,40706,40707,40708,40709,40710,40711,40712,40713,40714,40715,45114,45144,45145,45169,45254,
      33. 45255,45270,45436,45509,45510,46138,47661,47662,47664,47665,47666,47667,47668,47670,47671,47672,47673,50454,50455,50456,50457,50458,50459,50460,50461,50462,
      34. 50463,50464},
      35. };
      36. function Waffen_OnGossip (pUnit, event, player, code)
      37. pUnit:VendorRemoveAllItems()
      38. pUnit:GossipCreateMenu(100, player, 0)
      39. if (player:HasSpell(196)) or (player:HasSkill(196)) then -->- 1 Hand Axt -<--
      40. pUnit:GossipMenuAddItem(10, "Einhand-Axt", 6, 0)
      41. end
      42. if (player:HasSpell(198)) or (player:HasSkill(198)) then -->- 1 Hand Streitkolben -<--
      43. pUnit:GossipMenuAddItem(10, "Einhand-Streitkolben", 7, 0)
      44. end
      45. if (player:HasSpell(201)) or (player:HasSkill(201)) then -->- 1 Hand Schwert -<--
      46. pUnit:GossipMenuAddItem(10, "Einhand-Schwert", 8, 0)
      47. end
      48. if (player:HasSpell(197)) or (player:HasSkill(197)) then -->- 2 Hand Axt -<--
      49. pUnit:GossipMenuAddItem(10, "Zweihand-Axt", 12, 0)
      50. end
      51. if (player:HasSpell(199)) or (player:HasSkill(199)) then -->- 2 Hand Streitkolben -<--
      52. pUnit:GossipMenuAddItem(10, "Zweihand-Streitkolben", 13, 0)
      53. end
      54. if (player:HasSpell(202)) or (player:HasSkill(202)) then -->- 2 Hand Schwert -<--
      55. pUnit:GossipMenuAddItem(10, "Zweihand-Schwert", 14, 0)
      56. end
      57. if (player:HasSpell(200)) or (player:HasSkill(200)) then -->- Stangenwaffen -<--
      58. pUnit:GossipMenuAddItem(10, "Stangenwaffen", 9, 0)
      59. end
      60. if (player:HasSpell(1180)) or (player:HasSkill(1180)) then -->- Dolch -<--
      61. pUnit:GossipMenuAddItem(10, "Dolche", 3, 0)
      62. end
      63. if (player:HasSpell(264)) or (player:HasSkill(264)) then -->- Bogen -<--
      64. pUnit:GossipMenuAddItem(10, "B\195\182gen", 1, 0)
      65. end
      66. if (player:HasSpell(266)) or (player:HasSkill(266)) then -->- Schusswaffen -<--
      67. pUnit:GossipMenuAddItem(10, "Schusswaffen", 5, 0)
      68. end
      69. if (player:HasSpell(15995)) or (player:HasSkill(15995)) then -->- Armbrust -<--
      70. pUnit:GossipMenuAddItem(10, "Armbrust", 2, 0)
      71. end
      72. if (player:HasSpell(227)) or (player:HasSkill(227)) then -->- Stab -<--
      73. pUnit:GossipMenuAddItem(10, "St\195\164be", 10, 0)
      74. end
      75. if (player:HasSpell(5009)) or (player:HasSkill(5009)) then -->- Zauberstab -<--
      76. pUnit:GossipMenuAddItem(10, "Zauberst\195\164be", 15, 0)
      77. end
      78. if (player:HasSpell(2567)) or (player:HasSkill(2567)) then -->- Werfen -<--
      79. pUnit:GossipMenuAddItem(10, "Wurfwaffen", 11, 0)
      80. end
      81. if (player:HasSpell(15590)) or (player:HasSkill(15590)) then -->- Faustwaffen -<--
      82. pUnit:GossipMenuAddItem(10, "Faustwaffen", 4, 0)
      83. end
      84. if (player:GetPlayerClass() == "Warrior") or (player:GetPlayerClass() == "Shaman") or (player:GetPlayerClass() == "Paladin") then
      85. pUnit:GossipMenuAddItem(10, "Schilde", 16, 0)
      86. end
      87. if (player:GetPlayerClass() == "Druid") or (player:GetPlayerClass() == "Death Knight") or (player:GetPlayerClass() == "Shaman") or (player:GetPlayerClass() == "Paladin") then
      88. pUnit:GossipMenuAddItem(10, "Relikte", 17, 0)
      89. end
      90. pUnit:GossipMenuAddItem(10, "[Beenden]", 31, 0)
      91. pUnit:GossipSendMenu(player)
      92. end
      93. function Waffen_OnSelect (pUnit, event, player, id, intid, code)
      94. if (intid == 1) then
      95. pUnit:VendorRemoveAllItems()
      96. for k in ipairs (Tier10WaffenIDs.Boegen) do
      97. pUnit:VendorAddItem(Tier10WaffenIDs.Boegen[k], 1, 0)
      98. end
      99. player:SendVendorWindow(pUnit)
      100. end
      101. if (intid == 2) then
      102. pUnit:VendorRemoveAllItems()
      103. for k in ipairs (Tier10WaffenIDs.Armbrust) do
      104. pUnit:VendorAddItem(Tier10WaffenIDs.Armbrust[k], 1, 0)
      105. end
      106. player:SendVendorWindow(pUnit)
      107. end
      108. if (intid == 3) then
      109. pUnit:VendorRemoveAllItems()
      110. for k in ipairs (Tier10WaffenIDs.Dolche) do
      111. pUnit:VendorAddItem(Tier10WaffenIDs.Dolche[k], 1, 0)
      112. end
      113. player:SendVendorWindow(pUnit)
      114. end
      115. if (intid == 4) then
      116. pUnit:VendorRemoveAllItems()
      117. for k in ipairs (Tier10WaffenIDs.Faustwaffen) do
      118. pUnit:VendorAddItem(Tier10WaffenIDs.Faustwaffen[k], 1, 0)
      119. end
      120. player:SendVendorWindow(pUnit)
      121. end
      122. if (intid == 5) then
      123. pUnit:VendorRemoveAllItems()
      124. for k in ipairs (Tier10WaffenIDs.Schusswaffen) do
      125. pUnit:VendorAddItem(Tier10WaffenIDs.Schusswaffen[k], 1, 0)
      126. end
      127. player:SendVendorWindow(pUnit)
      128. end
      129. if (intid == 6) then
      130. pUnit:VendorRemoveAllItems()
      131. for k in ipairs (Tier10WaffenIDs.EinhandAxt) do
      132. pUnit:VendorAddItem(Tier10WaffenIDs.EinhandAxt[k], 1, 0)
      133. end
      134. player:SendVendorWindow(pUnit)
      135. end
      136. if (intid == 7) then
      137. pUnit:VendorRemoveAllItems()
      138. for k in ipairs (Tier10WaffenIDs.EinhandStreitkolben) do
      139. pUnit:VendorAddItem(Tier10WaffenIDs.EinhandStreitkolben[k], 1, 0)
      140. end
      141. player:SendVendorWindow(pUnit)
      142. end
      143. if (intid == 8) then
      144. pUnit:VendorRemoveAllItems()
      145. for k in ipairs (Tier10WaffenIDs.EinhandSchwert) do
      146. pUnit:VendorAddItem(Tier10WaffenIDs.EinhandSchwert[k], 1, 0)
      147. end
      148. player:SendVendorWindow(pUnit)
      149. end
      150. if (intid == 9) then
      151. pUnit:VendorRemoveAllItems()
      152. for k in ipairs (Tier10WaffenIDs.Stangenwaffen) do
      153. pUnit:VendorAddItem(Tier10WaffenIDs.Stangenwaffen[k], 1, 0)
      154. end
      155. player:SendVendorWindow(pUnit)
      156. end
      157. if (intid == 10) then
      158. pUnit:VendorRemoveAllItems()
      159. for k in ipairs (Tier10WaffenIDs.Staebe) do
      160. pUnit:VendorAddItem(Tier10WaffenIDs.Staebe[k], 1, 0)
      161. end
      162. player:SendVendorWindow(pUnit)
      163. end
      164. if (intid == 11) then
      165. pUnit:VendorRemoveAllItems()
      166. for k in ipairs (Tier10WaffenIDs.Wurfwaffen) do
      167. pUnit:VendorAddItem(Tier10WaffenIDs.Wurfwaffen[k], 1, 0)
      168. end
      169. player:SendVendorWindow(pUnit)
      170. end
      171. if (intid == 12) then
      172. pUnit:VendorRemoveAllItems()
      173. for k in ipairs (Tier10WaffenIDs.ZweihandAxt) do
      174. pUnit:VendorAddItem(Tier10WaffenIDs.ZweihandAxt[k], 1, 0)
      175. end
      176. player:SendVendorWindow(pUnit)
      177. end
      178. if (intid == 13) then
      179. pUnit:VendorRemoveAllItems()
      180. for k in ipairs (Tier10WaffenIDs.ZweihandStreitkolben) do
      181. pUnit:VendorAddItem(Tier10WaffenIDs.ZweihandStreitkolben[k], 1, 0)
      182. end
      183. player:SendVendorWindow(pUnit)
      184. end
      185. if (intid == 14) then
      186. pUnit:VendorRemoveAllItems()
      187. for k in ipairs (Tier10WaffenIDs.ZweihandSchwert) do
      188. pUnit:VendorAddItem(Tier10WaffenIDs.ZweihandSchwert[k], 1, 0)
      189. end
      190. player:SendVendorWindow(pUnit)
      191. end
      192. if (intid == 15) then
      193. pUnit:VendorRemoveAllItems()
      194. for k in ipairs (Tier10WaffenIDs.Zauberstaebe) do
      195. pUnit:VendorAddItem(Tier10WaffenIDs.Zauberstaebe[k], 1, 0)
      196. end
      197. player:SendVendorWindow(pUnit)
      198. end
      199. if (intid == 16) then
      200. pUnit:VendorRemoveAllItems()
      201. for k in ipairs (Tier10WaffenIDs.Schilde) do
      202. pUnit:VendorAddItem(Tier10WaffenIDs.Schilde[k], 1, 0)
      203. end
      204. player:SendVendorWindow(pUnit)
      205. end
      206. if (intid == 17) then
      207. pUnit:VendorRemoveAllItems()
      208. for k in ipairs (Tier10WaffenIDs.Relikte) do
      209. pUnit:VendorAddItem(Tier10WaffenIDs.Relikte[k], 1, 0)
      210. end
      211. player:SendVendorWindow(pUnit)
      212. end
      213. if (intid == 31) then
      214. pUnit:SendChatMessageToPlayer(8, 0, "Habt noch einen Sch\195\182nen Tag.", player)
      215. player:GossipComplete()
      216. elseif (intid == 32) then
      217. pUnit:SendChatMessageToPlayer(8, 0, "Habt noch einen Sch\195\182nen Tag.", player)
      218. player:GossipComplete()
      219. end
      220. end
      221. RegisterUnitGossipEvent(npcid, 1, "Waffen_OnGossip")
      222. RegisterUnitGossipEvent(npcid, 2, "Waffen_OnSelect")
      223. --------------------------
      224. ----[[Made by RyffLe]]----
      225. ----[[Public Script]]----
      226. --------------------------
      Display All
    • Short information for the english speaking users.

      The menues ware writen in german so you only need to translate them and then you can use the script.

      So have fun with my LUA script ;)

      Ah yea and don't delete the footer commands ;)

      It is my last suprice for you guy's. I am finished with World of Warcraft.

      To all projects, good luck and have fun with it ;)