[LUA] Vendor S8

S8 Vendor Lua Script


Hello , it's my first lua script .

Credit:
Basic Lua Script is in Repack 10 of Ac-Web

This patch is French because i'm french :D.

Code:

---

local npcid = 900000

function Vendor_OnGossip(pUnit,event,player)
        pUnit:VendorRemoveAllItems()
        pUnit:GossipCreateMenu(100, player, 0)
                if (player:GetPlayerClass() == "Warrior") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Guerriers",1,0)
                                end
                if (player:GetPlayerClass() == "Paladin") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Paladin"s,4,0)
        end
        if (player:GetPlayerClass() == "Hunter") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Chasseurs",8,0)
        end
        if (player:GetPlayerClass() == "Rogue") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Voleurs",10,0)
        end
        if (player:GetPlayerClass() == "Priest") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Prêtres",3,0)
        end
        if (player:GetPlayerClass() == "Death Knight") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Chevaliers de la mort",7,0)
        end
        if (player:GetPlayerClass() == "Shaman") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Chamans",2,0)
        end
        if (player:GetPlayerClass() == "Mage") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Mages",6,0)
        end
        if (player:GetPlayerClass() == "Warlock") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Demonistes",9,0)
        end
        if (player:GetPlayerClass() == "Druid") then
                pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Druides",5,0)
                end
        pUnit:GossipMenuAddItem(0,"Armes",11,0)
        pUnit:GossipMenuAddItem(0,"Hors-Set",12,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

function Vendor_OnSelect(pUnit,event,player,id,intid,code)

if (intid == 1) then
        pUnit:VendorAddItem(51541,1,0)
        pUnit:VendorAddItem(51542,1,0)
        pUnit:VendorAddItem(51543,1,0)
        pUnit:VendorAddItem(51544,1,0)
        pUnit:VendorAddItem(51545,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Guerrier",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 2) then

        pUnit:GossipCreateMenu(102, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Amélioration",13,0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Elémentaire",14,0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Réstauration",15,0)
        pUnit:GossipSendMenu(player)
end
       

if (intid == 3) then

        pUnit:GossipCreateMenu(102, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Sacré et Discipline",16,0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Ombre",17,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 4) then

        pUnit:GossipCreateMenu(102, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Sacré ",18,0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Vindicite et Protection",19,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 5) then

                pUnit:GossipCreateMenu(102, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Réstauration",20,0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Combat Farouche",21,0)
        pUnit:GossipMenuAddItem(0,"Ensemble Spé Equilibre",22,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 6) then
        pUnit:VendorAddItem(51463,1,0)
        pUnit:VendorAddItem(51464,1,0)
        pUnit:VendorAddItem(51465,1,0)
        pUnit:VendorAddItem(51466,1,0)
        pUnit:VendorAddItem(51467,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Mage",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 7) then
        pUnit:VendorAddItem(51413,1,0)
        pUnit:VendorAddItem(51414,1,0)
        pUnit:VendorAddItem(51415,1,0)
        pUnit:VendorAddItem(51416,1,0)
        pUnit:VendorAddItem(51418,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Chevalier de la Mort",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 8) then
        pUnit:VendorAddItem(51458,1,0)
        pUnit:VendorAddItem(51459,1,0)
        pUnit:VendorAddItem(51460,1,0)
        pUnit:VendorAddItem(51461,1,0)
        pUnit:VendorAddItem(51462,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Chasseur",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 9) then
        pUnit:VendorAddItem(51536,1,0)
        pUnit:VendorAddItem(51537,1,0)
        pUnit:VendorAddItem(51538,1,0)
        pUnit:VendorAddItem(51539,1,0)
        pUnit:VendorAddItem(51540,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Demoniste",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 10) then
        pUnit:VendorAddItem(51492,1,0)
        pUnit:VendorAddItem(51493,1,0)
        pUnit:VendorAddItem(51494,1,0)
        pUnit:VendorAddItem(51495,1,0)
        pUnit:VendorAddItem(51496,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Voleur",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 11) then
        pUnit:VendorAddItem(51403,1,0)
        pUnit:VendorAddItem(51398,1,0)
        pUnit:VendorAddItem(51393,1,0)
        pUnit:VendorAddItem(51401,1,0)
        pUnit:VendorAddItem(51391,1,0)
        pUnit:VendorAddItem(51440,1,0)
        pUnit:VendorAddItem(51442,1,0)
        pUnit:VendorAddItem(51528,1,0)
        pUnit:VendorAddItem(51524,1,0)
        pUnit:VendorAddItem(51432,1,0)
        pUnit:VendorAddItem(51481,1,0)
        pUnit:VendorAddItem(51516,1,0)
        pUnit:VendorAddItem(51529,1,0)
        pUnit:VendorAddItem(51444,1,0)
        pUnit:VendorAddItem(51457,1,0)
        pUnit:VendorAddItem(51522,1,0)
        pUnit:VendorAddItem(51399,1,0)
        pUnit:VendorAddItem(51446,1,0)
        pUnit:VendorAddItem(51395,1,0)
        pUnit:VendorAddItem(51412,1,0)
        pUnit:VendorAddItem(51454,1,0)
        pUnit:VendorAddItem(51450,1,0)
        pUnit:VendorAddItem(51405,1,0)
        pUnit:VendorAddItem(51518,1,0)
        pUnit:VendorAddItem(51526,1,0)
        pUnit:VendorAddItem(51389,1,0)
        pUnit:VendorAddItem(51448,1,0)
        pUnit:VendorAddItem(51520,1,0)
        pUnit:VendorAddItem(51452,1,0)
        pUnit:VendorAddItem(51407,1,0)
        pUnit:VendorAddItem(51396,1,0)
        pUnit:VendorAddItem(51408,1,0)
        pUnit:VendorAddItem(51455,1,0)
        pUnit:VendorAddItem(51409,1,0)
        pUnit:VendorAddItem(51533,1,0)
        pUnit:VendorAddItem(51532,1,0)
        pUnit:VendorAddItem(51404,1,0)
        pUnit:VendorAddItem(51406,1,0)
        pUnit:VendorAddItem(51445,1,0)
        pUnit:VendorAddItem(51390,1,0)
        pUnit:VendorAddItem(51525,1,0)
        pUnit:VendorAddItem(51515,1,0)
        pUnit:VendorAddItem(51388,1,0)
        pUnit:VendorAddItem(51456,1,0)
        pUnit:VendorAddItem(51402,1,0)
        pUnit:VendorAddItem(51453,1,0)
        pUnit:VendorAddItem(51392,1,0)
        pUnit:VendorAddItem(51439,1,0)
        pUnit:VendorAddItem(51411,1,0)
        pUnit:VendorAddItem(51530,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 (Armes)",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 12) then
        pUnit:VendorAddItem(51345,1,0)
        pUnit:VendorAddItem(51342,1,0)
        pUnit:VendorAddItem(51370,1,0)
        pUnit:VendorAddItem(51343,1,0)
        pUnit:VendorAddItem(51340,1,0)
        pUnit:VendorAddItem(51368,1,0)
        pUnit:VendorAddItem(51344,1,0)
        pUnit:VendorAddItem(51341,1,0)
        pUnit:VendorAddItem(51369,1,0)
        pUnit:VendorAddItem(51361,1,0)
        pUnit:VendorAddItem(51364,1,0)
        pUnit:VendorAddItem(51337,1,0)
        pUnit:VendorAddItem(51327,1,0)
        pUnit:VendorAddItem(51365,1,0)
        pUnit:VendorAddItem(51339,1,0)
        pUnit:VendorAddItem(51329,1,0)
        pUnit:VendorAddItem(51367,1,0)
        pUnit:VendorAddItem(51359,1,0)
        pUnit:VendorAddItem(51362,1,0)
        pUnit:VendorAddItem(51360,1,0)
        pUnit:VendorAddItem(51363,1,0)
        pUnit:VendorAddItem(51375,1,0)
        pUnit:VendorAddItem(51372,1,0)
        pUnit:VendorAddItem(51351,1,0)
        pUnit:VendorAddItem(51338,1,0)
        pUnit:VendorAddItem(51328,1,0)
        pUnit:VendorAddItem(51366,1,0)
        pUnit:VendorAddItem(51374,1,0)
        pUnit:VendorAddItem(51371,1,0)
        pUnit:VendorAddItem(51350,1,0)
        pUnit:VendorAddItem(51376,1,0)
        pUnit:VendorAddItem(51373,1,0)
        pUnit:VendorAddItem(51352,1,0)
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène saison 8 (Hors-Set)",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 13) then

        pUnit:VendorAddItem(51503,1,0)
        pUnit:VendorAddItem(51504,1,0)
        pUnit:VendorAddItem(51505,1,0)
        pUnit:VendorAddItem(51506,1,0)
        pUnit:VendorAddItem(51508,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Chaman",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end
        if (intid == 14) then
       
        pUnit:VendorAddItem(51509,1,0)
        pUnit:VendorAddItem(51510,1,0)
        pUnit:VendorAddItem(51511,1,0)
        pUnit:VendorAddItem(51512,1,0)
        pUnit:VendorAddItem(51514,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Chaman 2",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end
        if (intid == 15) then
       
        pUnit:VendorAddItem(51497,1,0)
        pUnit:VendorAddItem(51498,1,0)
        pUnit:VendorAddItem(51499,1,0)
        pUnit:VendorAddItem(51500,1,0)
        pUnit:VendorAddItem(51502,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Chaman 3",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 16) then
        pUnit:VendorAddItem(51482,1,0)
        pUnit:VendorAddItem(51483,1,0)
        pUnit:VendorAddItem(51484,1,0)
        pUnit:VendorAddItem(51485,1,0)
        pUnit:VendorAddItem(51486,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Prêtre 1",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 17) then
        pUnit:VendorAddItem(51487,1,0)
        pUnit:VendorAddItem(51488,1,0)
        pUnit:VendorAddItem(51489,1,0)
        pUnit:VendorAddItem(51490,1,0)
        pUnit:VendorAddItem(51491,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Prêtre 2",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 18) then
pUnit:VendorAddItem(51468,1,0)
        pUnit:VendorAddItem(51469,1,0)
        pUnit:VendorAddItem(51470,1,0)
        pUnit:VendorAddItem(51471,1,0)
        pUnit:VendorAddItem(51473,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Paladin 1",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end
       
if (intid == 19) then
        pUnit:VendorAddItem(51474,1,0)
        pUnit:VendorAddItem(51475,1,0)
        pUnit:VendorAddItem(51476,1,0)
        pUnit:VendorAddItem(51477,1,0)
        pUnit:VendorAddItem(51479,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Paladin 2",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 20) then
        pUnit:VendorAddItem(51419,1,0)
        pUnit:VendorAddItem(51420,1,0)
        pUnit:VendorAddItem(51421,1,0)
        pUnit:VendorAddItem(51422,1,0)
        pUnit:VendorAddItem(51424,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Druides 1",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 21) then
        pUnit:VendorAddItem(51425,1,0)
        pUnit:VendorAddItem(51426,1,0)
        pUnit:VendorAddItem(51427,1,0)
        pUnit:VendorAddItem(51428,1,0)
        pUnit:VendorAddItem(51430,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Druides 2",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 22) then
        pUnit:VendorAddItem(51433,1,0)
        pUnit:VendorAddItem(51434,1,0)
        pUnit:VendorAddItem(51435,1,0)
        pUnit:VendorAddItem(51436,1,0)
        pUnit:VendorAddItem(51438,1,0)
       
        pUnit:GossipCreateMenu(101, player, 0)
        pUnit:GossipMenuAddItem(0,"Ensemble d'arène 8 Druides 3",100,0)
        pUnit:GossipMenuAddItem(4, "Peu importe",999,0)
        pUnit:GossipSendMenu(player)
end

if (intid == 100) then
        player:SendVendorWindow(pUnit)
        end

if (intid == 999) then
        player:GossipComplete()
        end
end

RegisterUnitGossipEvent(900000, 1, "Vendor_OnGossip")
RegisterUnitGossipEvent(900000, 2, "Vendor_OnSelect")

---

I let you make the NPC.

If you found any error , send PM .

Excuse me for my bad english .

Thank You .

Very Good Ragnork. I like this script alot. I might use you on my server.

Contact me at [email protected] For a Scripting Position.

+rep

It's Ok for me .