ططلب .. @

[ItamiYouji]

بسمم ألله ألرحمان الرحيم .

ألسلام عليكم و رحمة ألله و بركآته .

كيف حالكم ي شباب أن شآء ألله بخخير ..

اننا سويت مود قريد لست - فيه ..

( دم - درع - اسلحة .. )

..

الكفرة يحدد الدم او الدرع ..

و يضغط على زر اختيار و يجيه دم 200 .

و نفس الحركة في الدرع .

- -

اما الاسلحة لما يحدد على سلاح و يضغط اختيار .

يأخذ سلاح 9999

أتمننأء تكونونن فهمتو قصدي ..

[TAPL]

'onClientGUIClick' 
guiGridListGetItemText 
guiGridListGetSelectedItem 
triggerServerEvent 

setElementHealth 
setPedArmor 
giveWeapon 

[iMr.TZ[W]ER]

تحب اذا يبي ياخذ شي ينقص من فلوسه ولا لا ؟

[Mr.R]

خذ هذا الشوب كـ مثال

اول مود سويته وساعدني فيه الزاحف بقوهـ , واشكرهـ صراحه <3

#Client

local Weapons = { --- انشاء جدول يحتوي ع اسم السلاح اللي بيجي باللستة والايدي حق السلاح والسعر .. وتقدر تضيف مليون سلاح 
  [ 1 ] = { "M4", 31, 500 }, 
  [ 2 ] = { "Minigun", 38, 4000 }, 
  [ 3 ] = { "JetPack", "JetIteam", 1200 }, 
} 
  
addEventHandler( "onClientResourceStart", resourceRoot, function (    ) -- يوم يشتغل السكربت 
        outputChatBox ( "#FFFC17.:[ Panel Shop v1.0 By #00FF00Mr.R#FFFC17 ]:.", 255, 0, 0, true )  
        outputChatBox ( "#FFFC17.:[ Press #00FF00'F2'#FFFC17 To Open It ]:.", 255, 0, 0, true )  
        wnd = guiCreateWindow(187, 116, 450, 386, "=[ Panel Shop v1.0 | By Mr.R ]=", false) 
        guiWindowSetSizable( wnd, false ) 
        guiSetVisible ( wnd, false ) 
        GridList = guiCreateGridList(9, 21, 223, 355, false, wnd) 
        guiGridListAddColumn(GridList, "Weapon", 0.7) 
        guiGridListAddColumn(GridList, "Price", 0.2) 
        Button1 = guiCreateButton(270, 243, 139, 39, "=[ Buy ]=", false, wnd) 
        Button2 = guiCreateButton(270, 292, 139, 39, "=[ X ]=", false, wnd) 
        MTA = guiCreateStaticImage(249, 27, 191, 193, "MTA.png", false, wnd)     
        for i, v in ipairs ( Weapons ) do --- نسوي لوب لجميع القيم حق الجدول يعني نجلب جميع قيم الجدول 
           Row = guiGridListAddRow( GridList ) --- نضيف رو جديد بعدد القيم اللي بالجدول رو يعني سطر جديد باللستة 
           guiGridListSetItemText( GridList, Row, 1, v[1], false, false ) --- نحط التكست حق اول كولمن والتكست هو اول قيمة من الجدول وهي اسم السلاح 
           guiGridListSetItemText( GridList, Row, 2, "$"..v[3], false, false ) --- نحط التكست للكولمن الثاني وهو القيمة الثاني من الجدول وهي السعر 
           guiGridListSetItemColor ( GridList, Row, 2, 0, 255, 0) 
           guiGridListSetItemData( GridList, Row, 1, v[2] ) --- هنا نحط داتا قيمة الداتا ذي هي الايدي حق السلاح عشان لو ما تبي تحط الايدي باللستة نحط داتا ونجيبها يوم يختار شي من اللستة 
    end 
end ) 
  
bindKey ( "F2", "down", function (   ) 
      guiSetVisible ( wnd, not guiGetVisible ( wnd ) ) 
      showCursor ( guiGetVisible ( wnd ) ) 
end ) 
  
addEventHandler( "onClientGUIClick", resourceRoot, function(   ) --- حدث الضغط على الزر 
  if ( source == Button1 ) then --- نحدد السورس 
   if ( isTimer ( Timer ) ) then return end 
     Timer = setTimer ( function (  ) end, 4000, 1 ) 
    if ( guiGridListGetSelectedItem ( GridList ) ~= -1 ) then --- نتحقق انه اختار شي من اللستة 
           local Money = guiGridListGetItemText ( GridList, guiGridListGetSelectedItem ( GridList ), 2 ) ---- نجلب اللي اختاره بالكولمن الثاني وهو الفلوس 
           local iD = guiGridListGetItemData( GridList, guiGridListGetSelectedItem( GridList ), 1 )--- نجلب الايدي وهو محفوظ بالداتا جلبناه عن طريق اللي اختارهـ 
        if ( Money ~= '' and iD ~= '' ) then --- "" نتحقق انه الفلوس والايدي مهيب 
                triggerServerEvent( "Weapon", localPlayer, iD, string.sub ( Money, 2, string.len ( Money ) ) ) --- نسوي تريقر لاعطاء اللاعب سلاح طبعا نرسل مع التريقر المعلومات الفلوس والايدي 
          end 
     else -- لو ما اختار شي من اللستة 
         outputChatBox ( "* Please Select Weapon", 255, 0, 0, true ) --- نسوي مخرج شات 
    end 
  elseif ( source == Button2 ) then 
        guiSetVisible ( wnd, false ) 
        showCursor ( guiGetVisible ( wnd ) ) 
    end 
  end 
end ) 

#Server

local Timer = {     }; 
  
addEvent( "Weapon", true ) -- نضيف الحدث بجانب سيرفر 
addEventHandler( "Weapon", root, function( iD, Money ) --- نضيف الحدث مع تعريف اللي ارسلناه 
 if not ( iD == "JetIteam" ) then 
  if ( getPlayerMoney ( client ) >= tonumber ( Money ) ) then --- اتحقق من فلوس اللاعب لو كانت تساوي او اكبر من سعر السلاح 
     if ( giveWeapon ( client, tonumber ( iD ), 2200 ) ) then --- نتحقق لو عطاهـ للاعب سلاح بالايدي اللي ارسلناهـ يعني اللي اختارهـ 
          takePlayerMoney ( client, tonumber ( Money ) ) --- نسحب منه سعر السلاح 
          outputChatBox ( "* You Bought "..getWeaponNameFromID ( iD ).." With "..tonumber ( Money ).."", client, 0, 255, 0, true ) --- نسوي مخرج شات باسم السلاح اللي شراهـ والفلوس اللي انسحبت 
      end 
  else 
       outputChatBox ( "* You Don't Have engouf money", client, 255, 0, 0, true ) 
    end 
  else 
   if ( getPlayerMoney ( client ) >= tonumber ( Money ) ) then 
    if not ( isTimer ( Timer [ client ] ) ) then 
       givePedJetPack ( client ) 
       bindKey ( client, "j", "down", jetPackBind ) 
       takePlayerMoney ( client, tonumber ( Money ) ) 
       outputChatBox ( "* You Bought JetPack With "..tonumber ( Money ).."", client ) 
       Timer [ client ] = setTimer ( function ( client ) 
       if ( doesPedHaveJetPack ( client ) ) then 
               removePedJetPack ( client ) 
           end 
           Timer [ client ] = nil 
           unbindKey ( client, "j", "down", jetPackBind ) 
      end, 60000, 1, client ) 
 else 
      outputChatBox ( "* You Had JetPack !", client ) 
    end 
 else 
    outputChatBox ( "* You Don't Have engouf money", client ) 
  end   
 end 
end ) 
  
jetPackBind = function ( player ) 
 if ( player ) then 
  if ( isElement ( player ) ) then 
   if ( doesPedHaveJetPack ( player ) ) then 
      removePedJetPack ( player ) 
   else 
      givePedJetPack ( player ) 
   end 
  end 
 end 
end  
  
addEventHandler ( "onPlayerQuit", root, function ( ) 
  if ( Timer [ source ] ) then 
     Timer [ source ] = nil 
  end 
end ) 

اتمنى افدتكـ ,