Hi!
I some days ago write a SMS Shop system for my DayZ server, but not working too good
The essence is, When player press F10, he show the SHOP Informations, when click 'Next' he show the all buyable items in categories: Guns, Ammo, Other in three gridlist. When the player select an item, and click to + Add cart, the item move to cart, when click again, the item's amount in cart grow +1. This part not working, i can't increase the item's amount only in cart.
Client side script:
local show = false local value = 0 local value2 = 0 local phone = "HIBA" local code = "HIBA" --Csomagok változója local EasyP = "Easy - 160Ft" local MediumP = "Medium - 400Ft" local HardP = "Hard - 800Ft" local UltraP = "Ultra - 1600Ft" local selectedPackage = "HIBA" --Fegyverek halmaza local guns = { M4={ID=01, Name="M4", Value=150, Amount=1}, AK_47={ID=02, Name="AK-47", Value=125, Amount=1}, CZ_550={ID=03, Name="CZ 550", Value=199, Amount=1}, Winchester={ID=04, Name="Winchester", Value=50, Amount=1}, MP5A5={ID=05, Name="MP5A5", Value=80, Amount=1}, SPAZ_12={ID=06, Name="SPAZ-12", Value=100, Amount=1}, Lee_Enfield={ID=07, Name="Lee Enfield", Value=120, Amount=1}, Sawn_Off={ID=08, Name="Sawn-Off", Value=80, Amount=1}, PDW={ID=09, Name="PDW", Value=30, Amount=1}, M9_SD={ID=010, Name="M9 SD", Value=30, Amount=1}, M1911={ID=011, Name="M1911", Value=30, Amount=1}, Desert_Eagle={ID=012, Name="Desert Eagle", Value=70, Amount=1}, Grenade={ID=013, Name="Grenade", Value=50, Amount=1} } --Lőszerek halmaza local ammo = { M4={ID=101, Name="M4", Value=8, Amount=20}, AK_47={ID=102, Name="AK-47", Value=10, Amount=30}, CZ_550={ID=103, Name="CZ 550", Value=5, Amount=5}, Winchester={ID=104, Name="Winchester", Value=1, Amount=7}, MP5A5={ID=105, Name="MP5A5", Value=2, Amount=20}, SPAZ_12={ID=106, Name="SPAZ-12", Value=2, Amount=7}, Lee_Enfield={ID=107, Name="Lee Enfield", Value=5, Amount=10}, Sawn_Off={ID=108, Name="Sawn-Off", Value=5, Amount=6}, PDW={ID=109, Name="PDW", Value=2, Amount=30}, M9_SD={ID=110, Name="M9 SD", Value=2, Amount=15}, M1911={ID=111, Name="M1911", Value=2, Amount=7}, Desert_Eagle={ID=112, Name="Desert Eagle", Value=4, Amount=7} } -- Ez teszt jelleggel, minden elem hozzáadva a kosár halmazhoz is, a végén külön ezek mennyiségét növelve local cart = { --GUNS-- M4={ID=01, Name="M4", Value=150, Amount=0}, AK_47={ID=02, Name="AK-47", Value=125, Amount=0}, CZ_550={ID=03, Name="CZ 550", Value=199, Amount=0}, Winchester={ID=04, Name="Winchester", Value=50, Amount=0}, MP5A5={ID=05, Name="MP5A5", Value=80, Amount=0}, SPAZ_12={ID=06, Name="SPAZ-12", Value=100, Amount=0}, Lee_Enfield={ID=07, Name="Lee Enfield", Value=120, Amount=0}, Sawn_Off={ID=08, Name="Sawn-Off", Value=80, Amount=0}, PDW={ID=09, Name="PDW", Value=30, Amount=0}, M9_SD={ID=010, Name="M9 SD", Value=30, Amount=0}, M1911={ID=011, Name="M1911", Value=30, Amount=0}, Desert_Eagle={ID=012, Name="Desert Eagle", Value=70, Amount=0}, Grenade={ID=013, Name="Grenade", Value=50, Amount=0}, --AMMO-- M4_Mag={ID=101, Name="M4", Value=8, Amount=0}, AK_47_Mag={ID=102, Name="AK-47", Value=10, Amount=0}, CZ_550_Mag={ID=103, Name="CZ 550", Value=5, Amount=0}, Winchester_Mag={ID=104, Name="Winchester", Value=1, Amount=0}, MP5A5_Mag={ID=105, Name="MP5A5", Value=2, Amount=0}, SPAZ_12_Mag={ID=106, Name="SPAZ-12", Value=2, Amount=0}, Lee_Enfield_Mag={ID=107, Name="Lee Enfield", Value=5, Amount=0}, Sawn_Off_Mag={ID=108, Name="Sawn-Off", Value=5, Amount=0}, PDW_Mag={ID=109, Name="PDW", Value=2, Amount=0}, M9_SD_Mag={ID=110, Name="M9 SD", Value=2, Amount=0}, M1911_Mag={ID=111, Name="M1911", Value=2, Amount=0}, Desert_Eagle_Mag={ID=112, Name="Desert Eagle", Value=4, Amount=0} } --Csomag kalkulálása function calculateValue () if ( value > 0 ) then guiSetText( package, EasyP ) selectedPackage = EasyP value2 = 160 phone = "(90) 444-154" end if ( value > 160 ) then guiSetText( package, MediumP ) selectedPackage = MediumP value2 = 400 phone = "(90) 888-112" end if ( value > 400 ) then guiSetText( package, HardP ) selectedPackage = HardP value2 = 800 phone = "(90) 888-380" end if ( value > 800 ) then guiSetText( package, UltraP ) selectedPackage = UltraP value2 = 1600 phone = "(90) 888-405" end guiSetText( lbl_Vegosszeg_2, "Végösszeg: " .. value .. "Ft" ) guiSetText( lbl_value2, "Fizetendő: " .. value2 .. "Ft" ) end --Vásárlási információk ablak function buyInfo() local hFile = fileOpen("buyinfo.txt", true) local buffer show = true window_1 = guiCreateWindow(428, 84, 504, 430, "-- Vásárlás információk --", false) guiWindowSetSizable(window_1, false) showCursor( true ) guiSetVisible ( window_2, false ) btn_Exit_1 = guiCreateButton(13, 398, 84, 22, "Kilépés", false, window_1) guiSetProperty(btn_Exit_1, "NormalTextColour", "FFFF0000") addEventHandler ( "onClientGUIClick", btn_Exit_1, exitBuy) btn_Next_1 = guiCreateButton(355, 398, 139, 22, "Vásárlás folytatása >", false, window_1) guiSetProperty(btn_Next_1, "NormalTextColour", "FF1EFE00") addEventHandler ( "onClientGUIClick", btn_Next_1, listBuy) if (hFile) then buffer = fileRead( hFile, 3984 ) InfoMemo = guiCreateMemo( 13, 29, 481, 365, buffer, false, window_1 ) guiMemoSetReadOnly( InfoMemo, true ) fileClose(hFile) end end --Elemek kiírása function listBuy() guiSetVisible ( window_1, false ) guiSetVisible ( window_3, false ) window_2 = guiCreateWindow(432, 91, 532, 460, "-- Áruház --", false) guiWindowSetSizable(window_2, false) btn_Exit_2 = guiCreateButton(10, 428, 84, 22, "Kilépés", false, window_2) guiSetProperty(btn_Exit_2, "NormalTextColour", "FFFF0000") addEventHandler ( "onClientGUIClick", btn_Exit_2, exitBuy) btn_Next_2 = guiCreateButton(383, 398, 139, 22, "Vásárlás folytatása >", false, window_2) guiSetProperty(btn_Next_2, "NormalTextColour", "FF1EFE00") addEventHandler ( "onClientGUIClick", btn_Next_2, showCart) btn_Null = guiCreateButton(383, 426, 139, 22, "Kosár kiürítése", false, window_2) addEventHandler ( "onClientGUIClick", btn_Null, nullCart) btn_Back_1 = guiCreateButton(234, 398, 139, 22, "< Vissza", false, window_2) guiSetProperty(btn_Back_1, "NormalTextColour", "FFF8A505") addEventHandler ( "onClientGUIClick", btn_Back_1, buyInfo) --------------------------------------------------------------------------------------------------------------------------- --Fegyverek grid gridGuns = guiCreateGridList(10, 47, 169, 308, false, window_2) local gunsName = guiGridListAddColumn( gridGuns, "Név", 0.6 ) local gunsValue = guiGridListAddColumn( gridGuns, "Ár", 0.3 ) local gunsAmount = guiGridListAddColumn( gridGuns, "Mennyiség", 0.4 ) for i, v in pairs( guns ) do local gunsR = guiGridListAddRow ( gridGuns ) guiGridListSetItemText ( gridGuns, gunsR, gunsName, v.Name, false, false ) guiGridListSetItemText ( gridGuns, gunsR, gunsValue, v.Value .. "Ft", false, false ) guiGridListSetItemText ( gridGuns, gunsR, gunsAmount, v.Amount, false, false ) end --------------------------------------------------------------------------------------------------------------------------- -- Lőszer grid gridAmmo = guiCreateGridList(189, 47, 166, 308, false, window_2) local ammoName = guiGridListAddColumn( gridAmmo, "Név", 0.6 ) local ammoValue = guiGridListAddColumn( gridAmmo, "Ár", 0.3 ) local ammoAmount = guiGridListAddColumn( gridAmmo, "Mennyiség", 0.4 ) for i, v in pairs( ammo ) do local ammoR = guiGridListAddRow ( gridAmmo ) guiGridListSetItemText ( gridAmmo, ammoR, ammoName, v.Name, false, false ) guiGridListSetItemText ( gridAmmo, ammoR, ammoValue, v.Value .. "Ft", false, false ) guiGridListSetItemText ( gridAmmo, ammoR, ammoAmount, v.Amount, false, false ) end -------------------------------------------------------------------------------------------------------- --Egyéb grid gridOther = guiCreateGridList(365, 47, 160, 308, false, window_2) toCart_1 = guiCreateButton(10, 360, 169, 22, "+ Kosárba", false, window_2) addEventHandler ( "onClientGUIClick", toCart_1, addCartGuns) toCart_2 = guiCreateButton(186, 360, 169, 22, "+ Kosárba", false, window_2) addEventHandler ( "onClientGUIClick", toCart_2, addCartAmmo) toCart_3 = guiCreateButton(365, 360, 159, 22, "+ Kosárba", false, window_2) lblGuns = guiCreateLabel(64, 24, 60, 17, "Fegyverek", false, window_2) lblAmmo = guiCreateLabel(237, 24, 60, 17, "Lőszer", false, window_2) lblFelszereles = guiCreateLabel(426, 24, 60, 17, "Felszerelés", false, window_2) lbl_Value = guiCreateLabel(236, 428, 286, 15, "Végösszeg: " .. value, false, window_2) guiSetFont(lbl_Value, "default-bold-small") guiLabelSetColor(lbl_Value, 253, 0, 0) end -- Továbblépés a kosárhoz function showCart () if ( value > 1600 ) then outputChatBox( "Túl nagy végösszeg!" ) else if ( #cart < 1 ) then outputChatBox( "Üres a kosár!" ) else guiSetVisible ( window_1, false ) guiSetVisible ( window_2, false ) window_3 = guiCreateWindow(432, 91, 532, 460, "-- Kosár tartalma --", false) guiWindowSetSizable(window_3, false) gridCart = guiCreateGridList(10, 25, 261, 364, false, window_3) local cartName = guiGridListAddColumn( gridCart, "Név", 0.85 ) local cartAmount = guiGridListAddColumn( gridCart, "Mennyiség", 0.4 ) local cartValue = guiGridListAddColumn( gridCart, "Ár", 0.4 ) for i, v in pairs( cart ) do if ( v.Amount > 0 ) then local cartR = guiGridListAddRow ( gridCart ) guiGridListSetItemText ( gridCart, cartR, cartName, v.Name, false, false ) guiGridListSetItemText ( gridCart, cartR, cartAmount, v.Amount, false, false ) guiGridListSetItemText ( gridCart, cartR, cartValue, v.Value, false, false ) end end local cartR = guiGridListAddRow( gridCart )
