Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- by BlackWolf
- local npcid = 50113 -- "50113" this is your Entry ID, you can change it at any time! vip 4 vendor
- function Armor_OnGossip(pUnit,event,player)
- local GetVip = WorldDBQuery("SELECT `vip` FROM logon.accounts WHERE `login` = '"..player:GetAccountName().."';");
- local Vip = GetVip:GetColumn(0):GetLong()
- if (Vip < 4) then
- player:SendBroadcastMessage("You are not VIP 4.")
- player:GossipComplete()
- else
- pUnit:VendorRemoveAllItems()
- if (player:GetPlayerClass() == "Warrior") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Gear",10,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- elseif (player:GetPlayerClass() == "Warlock") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Gear",11,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- elseif (player:GetPlayerClass() == "Shaman") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Gear",12,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- elseif (player:GetPlayerClass() == "Rogue") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Gear",13,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- elseif (player:GetPlayerClass() == "Priest") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Gear",14,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- elseif (player:GetPlayerClass() == "Paladin") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Gear",15,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- elseif (player:GetPlayerClass() == "Mage") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Gear",16,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- elseif (player:GetPlayerClass() == "Hunter") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Gear",17,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- elseif (player:GetPlayerClass() == "Druid") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Gear",18,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- elseif (player:GetPlayerClass() == "Death Knight") then
- pUnit:GossipCreateMenu(100, player, 0)
- pUnit:GossipMenuAddItem(5,"Repair",32,0)
- pUnit:GossipMenuAddItem(2,"All Done",31,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Armor",19,0)
- pUnit:GossipMenuAddItem(1,"VIP 4 Weapons",20,0)
- pUnit:GossipSendMenu(player)
- end
- end
- end
- function Armor_OnSelect(pUnit,event,player,id,intid,code)
- if (intid == 10) then
- pUnit:VendorAddItem(60030,1,3011)
- pUnit:VendorAddItem(60031,1,3011)
- pUnit:VendorAddItem(60032,1,3011)
- pUnit:VendorAddItem(60033,1,3011)
- pUnit:VendorAddItem(60034,1,3011)
- pUnit:VendorAddItem(60035,1,3011)
- pUnit:VendorAddItem(60036,1,3011)
- pUnit:VendorAddItem(60037,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 11) then
- pUnit:VendorAddItem(60130,1,3011)
- pUnit:VendorAddItem(60131,1,3011)
- pUnit:VendorAddItem(60132,1,3011)
- pUnit:VendorAddItem(60133,1,3011)
- pUnit:VendorAddItem(60134,1,3011)
- pUnit:VendorAddItem(60135,1,3011)
- pUnit:VendorAddItem(60136,1,3011)
- pUnit:VendorAddItem(60137,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 12) then
- pUnit:VendorAddItem(60230,1,3011)
- pUnit:VendorAddItem(60231,1,3011)
- pUnit:VendorAddItem(60232,1,3011)
- pUnit:VendorAddItem(60233,1,3011)
- pUnit:VendorAddItem(60234,1,3011)
- pUnit:VendorAddItem(60235,1,3011)
- pUnit:VendorAddItem(60236,1,3011)
- pUnit:VendorAddItem(60237,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 13) then
- pUnit:VendorAddItem(60330,1,3011)
- pUnit:VendorAddItem(60331,1,3011)
- pUnit:VendorAddItem(60332,1,3011)
- pUnit:VendorAddItem(60333,1,3011)
- pUnit:VendorAddItem(60334,1,3011)
- pUnit:VendorAddItem(60335,1,3011)
- pUnit:VendorAddItem(60336,1,3011)
- pUnit:VendorAddItem(60337,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 14) then
- pUnit:VendorAddItem(60430,1,3011)
- pUnit:VendorAddItem(60431,1,3011)
- pUnit:VendorAddItem(60432,1,3011)
- pUnit:VendorAddItem(60433,1,3011)
- pUnit:VendorAddItem(60434,1,3011)
- pUnit:VendorAddItem(60435,1,3011)
- pUnit:VendorAddItem(60436,1,3011)
- pUnit:VendorAddItem(60437,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 15) then
- pUnit:VendorAddItem(60530,1,3011)
- pUnit:VendorAddItem(60531,1,3011)
- pUnit:VendorAddItem(60532,1,3011)
- pUnit:VendorAddItem(60533,1,3011)
- pUnit:VendorAddItem(60534,1,3011)
- pUnit:VendorAddItem(60535,1,3011)
- pUnit:VendorAddItem(60536,1,3011)
- pUnit:VendorAddItem(60537,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 16) then
- pUnit:VendorAddItem(60630,1,3011)
- pUnit:VendorAddItem(60631,1,3011)
- pUnit:VendorAddItem(60632,1,3011)
- pUnit:VendorAddItem(60633,1,3011)
- pUnit:VendorAddItem(60634,1,3011)
- pUnit:VendorAddItem(60635,1,3011)
- pUnit:VendorAddItem(60636,1,3011)
- pUnit:VendorAddItem(60637,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 17) then
- pUnit:VendorAddItem(60730,1,3011)
- pUnit:VendorAddItem(60731,1,3011)
- pUnit:VendorAddItem(60732,1,3011)
- pUnit:VendorAddItem(60733,1,3011)
- pUnit:VendorAddItem(60734,1,3011)
- pUnit:VendorAddItem(60735,1,3011)
- pUnit:VendorAddItem(60736,1,3011)
- pUnit:VendorAddItem(60737,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 18) then
- pUnit:VendorAddItem(60830,1,3011)
- pUnit:VendorAddItem(60831,1,3011)
- pUnit:VendorAddItem(60832,1,3011)
- pUnit:VendorAddItem(60833,1,3011)
- pUnit:VendorAddItem(60834,1,3011)
- pUnit:VendorAddItem(60835,1,3011)
- pUnit:VendorAddItem(60836,1,3011)
- pUnit:VendorAddItem(60837,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 19) then
- pUnit:VendorAddItem(60930,1,3011)
- pUnit:VendorAddItem(60931,1,3011)
- pUnit:VendorAddItem(60932,1,3011)
- pUnit:VendorAddItem(60933,1,3011)
- pUnit:VendorAddItem(60934,1,3011)
- pUnit:VendorAddItem(60935,1,3011)
- pUnit:VendorAddItem(60936,1,3011)
- pUnit:VendorAddItem(60937,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 20) then
- pUnit:VendorAddItem(61039,1,3011)
- pUnit:VendorAddItem(61051,1,3011)
- pUnit:VendorAddItem(61061,1,3011)
- pUnit:VendorAddItem(61032,1,3011)
- player:SendVendorWindow(pUnit)
- end
- if (intid == 31) then
- player:GossipComplete()
- end
- if (intid == 32) then
- player:RepairAllPlayerItems()
- player:GossipComplete()
- end
- end
- RegisterUnitGossipEvent(npcid, 1, "Armor_OnGossip")
- RegisterUnitGossipEvent(npcid, 2, "Armor_OnSelect")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement