Jump to content

تعديل بسيط على هذا الكود

Hesham_Alking

By Hesham_Alking
in البرمجة

Recommended Posts

Hesham_Alking Rat

Hesham_Alking

Posted
Posted

السلام عليكم

اخواني الكرام انا حملت مود تغيير الكفرات من برمجة اخونا

المهم المود لما تستخدمه لازم تحط علامة صح وبعدين تختار الكفر مثل بالصورة

http://img02.arabsh.com/uploads/image/2 ... 67f10d.png

انا ابي العلامة تكون محطوطه بدل ما يحطها اللاعب

يعني يكون الخيار محطوط على

on

وهذا الكود

-- Wheels Panel By HoLsTeN 
-- 10/3/2012 
-- Dont remove my rights .. 
  
  
  
outputChatBox('#FFFF00**Press #FF0088 [F5]  #DD00FFTo #00FFDDChange #0000FFThe #FF0000Wheels**',255, 255, 0, true ) 
local screX, screY = guiGetScreenSize() 
  
function Show_wheel_one() 
        if (guiGetVisible(Window_Wheel) == true) then 
            guiSetVisible(Window_Wheel, false) 
            showCursor(false) 
        else 
            guiSetVisible(Window_Wheel, true) 
            showCursor(true) 
            local sound = playSound("x1x.wma") 
            setSoundVolume(sound, 1) 
        end  
end 
bindKey("f7","down",Show_wheel_one) 
  
  
Window_Wheel = guiCreateWindow(screX/2 - 150, screY/2 - 150,347,295,"Wheels Window",false) 
guiSetVisible(Window_Wheel, false) 
Grid_Wheel = guiCreateGridList(14,23,186,261,false,Window_Wheel) 
guiGridListSetSelectionMode(Grid_Wheel,2) 
  
Image_Wheel = guiCreateStaticImage(217,36,117,96,"img/i.png",false,Window_Wheel) 
Butto_Wheel_on = guiCreateButton(220,158,104,39,"Change it",false,Window_Wheel) 
Checkbox_txd_for_wheel_on = guiCreateCheckBox(262,261,16,16,"",false,false,Window_Wheel) 
lbl_wheel__ = guiCreateLabel(213,238,119,17,"By HoLsTeN",false,Window_Wheel) 
lbl_wheel_ = guiCreateLabel(213,213,119,17,"New Wheels : OFF",false,Window_Wheel) 
guiLabelSetColor(lbl_wheel_,255,0,0) 
  
  
Servers = guiGridListAddColumn(Grid_Wheel,"Wheels List",0.5) 
Wheels = {1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1096,1097} 
for _, k in ipairs(Wheels) do 
guiGridListSetItemText(Grid_Wheel, guiGridListAddRow(Grid_Wheel), Servers, tostring(k), false, false) 
end 
  
   
function guiClick (button, state, absoluteX, absoluteY) 
    local scheck = guiGridListGetItemText ( Grid_Wheel, guiGridListGetSelectedItem ( Grid_Wheel ), 1 ) 
    if (source == Butto_Wheel_on) then 
        if ( guiCheckBoxGetSelected(Checkbox_txd_for_wheel_on) ) then 
        triggerServerEvent ( "addWheel", getLocalPlayer(), scheck) 
        else 
        outputChatBox ( "Sorry , You must select the check box to turn it on" , 0, 217,176, false ) 
        end 
        elseif (source == Grid_Wheel) then  
        local scheck = guiGridListGetItemText ( Grid_Wheel, guiGridListGetSelectedItem ( Grid_Wheel ), 1 ) or 1 
        guiStaticImageLoadImage(Image_Wheel,"img/i"..scheck..".png") 
    end 
end 
addEventHandler ("onClientGUIClick", getRootElement(), guiClick) 
  
  
  
function Replacetxd() 
        if ( guiCheckBoxGetSelected(source) ) then 
            playSoundFrontEnd(1) 
            txd = engineLoadTXD("data/wheel_gn1.txd", 1074 ) 
            engineImportTXD(txd, 1074) 
            dff = engineLoadDFF("data/wheel_gn1.dff", 1074) 
            engineReplaceModel(dff, 1074) 
   
            txd = engineLoadTXD("data/wheel_gn2.txd", 1075 ) 
            engineImportTXD(txd, 1075) 
            dff = engineLoadDFF("data/wheel_gn2.dff", 1075) 
            engineReplaceModel(dff, 1075) 
     
            txd = engineLoadTXD("data/wheel_gn3.txd", 1076 ) 
            engineImportTXD(txd, 1076) 
            dff = engineLoadDFF("data/wheel_gn3.dff", 1076) 
            engineReplaceModel(dff, 1076) 
   
            txd = engineLoadTXD("data/wheel_gn4.txd", 1077 ) 
            engineImportTXD(txd, 1077) 
            dff = engineLoadDFF("data/wheel_gn4.dff", 1077) 
            engineReplaceModel(dff, 1077) 
   
            txd = engineLoadTXD("data/wheel_gn5.txd", 1078 ) 
            engineImportTXD(txd, 1078) 
            dff = engineLoadDFF("data/wheel_gn5.dff", 1078) 
            engineReplaceModel(dff, 1078) 
   
            txd = engineLoadTXD("data/wheel_lr1.txd", 1079 ) 
            engineImportTXD(txd, 1079) 
            dff = engineLoadDFF("data/wheel_lr1.dff", 1079) 
            engineReplaceModel(dff, 1079) 
   
            txd = engineLoadTXD("data/wheel_lr2.txd", 1080 ) 
        engineImportTXD(txd, 1080) 
        dff = engineLoadDFF("data/wheel_lr2.dff", 1080) 
        engineReplaceModel(dff, 1080) 
   
         txd = engineLoadTXD("data/wheel_lr3.txd", 1081 ) 
         engineImportTXD(txd, 1081) 
          dff = engineLoadDFF("data/wheel_lr3.dff", 1081) 
         engineReplaceModel(dff, 1081) 
   
         txd = engineLoadTXD("data/wheel_lr4.txd", 1082 ) 
          engineImportTXD(txd, 1082) 
         dff = engineLoadDFF("data/wheel_lr4.dff", 1082) 
         engineReplaceModel(dff, 1082) 
   
          txd = engineLoadTXD("data/wheel_lr5.txd", 1083) 
         engineImportTXD(txd, 1083) 
         dff = engineLoadDFF("data/wheel_lr5.dff", 1083) 
          engineReplaceModel(dff, 1083) 
   
          txd = engineLoadTXD("data/wheel_sr1.txd", 1084 ) 
         engineImportTXD(txd, 1084) 
         dff = engineLoadDFF("data/wheel_sr1.dff", 1084) 
        engineReplaceModel(dff, 1084) 
   
          txd = engineLoadTXD("data/wheel_sr2.txd", 1085 ) 
          engineImportTXD(txd, 1085) 
         dff = engineLoadDFF("data/wheel_sr2.dff", 1085) 
          engineReplaceModel(dff, 1085) 
   
          txd = engineLoadTXD("data/wheel_sr3.txd", 1096 ) 
        engineImportTXD(txd, 1096) 
         dff = engineLoadDFF("data/wheel_sr3.dff", 1096) 
         engineReplaceModel(dff, 1096) 
   
        txd = engineLoadTXD("data/wheel_sr4.txd", 1097 ) 
        engineImportTXD(txd, 1097) 
        dff = engineLoadDFF("data/wheel_sr4.dff", 1097) 
        engineReplaceModel(dff, 1097) 
        guiLabelSetColor(lbl_wheel_,0,255,0) 
        guiSetText ( lbl_wheel_, "New Wheels : ON" ) 
        else 
            playSoundFrontEnd(2) 
            engineRestoreModel(1074) 
            engineRestoreModel(1075) 
            engineRestoreModel(1076) 
            engineRestoreModel(1077) 
            engineRestoreModel(1078) 
            engineRestoreModel(1079) 
            engineRestoreModel(1080) 
            engineRestoreModel(1081) 
            engineRestoreModel(1082) 
            engineRestoreModel(1083) 
            engineRestoreModel(1084) 
            engineRestoreModel(1085) 
            engineRestoreModel(1096) 
            engineRestoreModel(1097) 
            guiLabelSetColor(lbl_wheel_,255,0,0) 
            guiSetText ( lbl_wheel_, "New Wheels : OFF" )        
        end 
end 
addEventHandler("onClientGUIClick", Checkbox_txd_for_wheel_on, Replacetxd, false) 
 

Link to comment
AboShanab Lil' G

AboShanab

Posted
Posted 

  
-- Wheels Panel By HoLsTeN 
-- 10/3/2012 
-- Dont remove my rights .. 
  
  
  
outputChatBox('#FFFF00**Press #FF0088 [F5]  #DD00FFTo #00FFDDChange #0000FFThe #FF0000Wheels**',255, 255, 0, true ) 
local screX, screY = guiGetScreenSize() 
  
function Show_wheel_one() 
        if (guiGetVisible(Window_Wheel) == true) then 
            guiSetVisible(Window_Wheel, false) 
            showCursor(false) 
        else 
            guiSetVisible(Window_Wheel, true) 
            showCursor(true) 
            local sound = playSound("x1x.wma") 
            setSoundVolume(sound, 1) 
        end  
end 
bindKey("f7","down",Show_wheel_one) 
  
  
Window_Wheel = guiCreateWindow(screX/2 - 150, screY/2 - 150,347,295,"Wheels Window",false) 
guiSetVisible(Window_Wheel, false) 
Grid_Wheel = guiCreateGridList(14,23,186,261,false,Window_Wheel) 
guiGridListSetSelectionMode(Grid_Wheel,2) 
  
Image_Wheel = guiCreateStaticImage(217,36,117,96,"img/i.png",false,Window_Wheel) 
Butto_Wheel_on = guiCreateButton(220,158,104,39,"Change it",false,Window_Wheel) 
Checkbox_txd_for_wheel_on = guiCreateCheckBox(262,261,16,16,"",true,false,Window_Wheel) 
lbl_wheel__ = guiCreateLabel(213,238,119,17,"By HoLsTeN",false,Window_Wheel) 
lbl_wheel_ = guiCreateLabel(213,213,119,17,"New Wheels : OFF",false,Window_Wheel) 
guiLabelSetColor(lbl_wheel_,255,0,0) 
  
  
Servers = guiGridListAddColumn(Grid_Wheel,"Wheels List",0.5) 
Wheels = {1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1096,1097} 
for _, k in ipairs(Wheels) do 
guiGridListSetItemText(Grid_Wheel, guiGridListAddRow(Grid_Wheel), Servers, tostring(k), false, false) 
end 
  
  
function guiClick (button, state, absoluteX, absoluteY) 
    local scheck = guiGridListGetItemText ( Grid_Wheel, guiGridListGetSelectedItem ( Grid_Wheel ), 1 ) 
    if (source == Butto_Wheel_on) then 
        if ( guiCheckBoxGetSelected(Checkbox_txd_for_wheel_on) ) then 
        triggerServerEvent ( "addWheel", getLocalPlayer(), scheck) 
        else 
        outputChatBox ( "Sorry , You must select the check box to turn it on" , 0, 217,176, false ) 
        end 
        elseif (source == Grid_Wheel) then 
        local scheck = guiGridListGetItemText ( Grid_Wheel, guiGridListGetSelectedItem ( Grid_Wheel ), 1 ) or 1 
        guiStaticImageLoadImage(Image_Wheel,"img/i"..scheck..".png") 
    end 
end 
addEventHandler ("onClientGUIClick", getRootElement(), guiClick) 
  
  
  
function Replacetxd() 
        if ( guiCheckBoxGetSelected(source) ) then 
            playSoundFrontEnd(1) 
            txd = engineLoadTXD("data/wheel_gn1.txd", 1074 ) 
            engineImportTXD(txd, 1074) 
            dff = engineLoadDFF("data/wheel_gn1.dff", 1074) 
            engineReplaceModel(dff, 1074) 
  
            txd = engineLoadTXD("data/wheel_gn2.txd", 1075 ) 
            engineImportTXD(txd, 1075) 
            dff = engineLoadDFF("data/wheel_gn2.dff", 1075) 
            engineReplaceModel(dff, 1075) 
    
            txd = engineLoadTXD("data/wheel_gn3.txd", 1076 ) 
            engineImportTXD(txd, 1076) 
            dff = engineLoadDFF("data/wheel_gn3.dff", 1076) 
            engineReplaceModel(dff, 1076) 
  
            txd = engineLoadTXD("data/wheel_gn4.txd", 1077 ) 
            engineImportTXD(txd, 1077) 
            dff = engineLoadDFF("data/wheel_gn4.dff", 1077) 
            engineReplaceModel(dff, 1077) 
  
            txd = engineLoadTXD("data/wheel_gn5.txd", 1078 ) 
            engineImportTXD(txd, 1078) 
            dff = engineLoadDFF("data/wheel_gn5.dff", 1078) 
            engineReplaceModel(dff, 1078) 
  
            txd = engineLoadTXD("data/wheel_lr1.txd", 1079 ) 
            engineImportTXD(txd, 1079) 
            dff = engineLoadDFF("data/wheel_lr1.dff", 1079) 
            engineReplaceModel(dff, 1079) 
  
            txd = engineLoadTXD("data/wheel_lr2.txd", 1080 ) 
        engineImportTXD(txd, 1080) 
        dff = engineLoadDFF("data/wheel_lr2.dff", 1080) 
        engineReplaceModel(dff, 1080) 
  
         txd = engineLoadTXD("data/wheel_lr3.txd", 1081 ) 
         engineImportTXD(txd, 1081) 
          dff = engineLoadDFF("data/wheel_lr3.dff", 1081) 
         engineReplaceModel(dff, 1081) 
  
         txd = engineLoadTXD("data/wheel_lr4.txd", 1082 ) 
          engineImportTXD(txd, 1082) 
         dff = engineLoadDFF("data/wheel_lr4.dff", 1082) 
         engineReplaceModel(dff, 1082) 
  
          txd = engineLoadTXD("data/wheel_lr5.txd", 1083) 
         engineImportTXD(txd, 1083) 
         dff = engineLoadDFF("data/wheel_lr5.dff", 1083) 
          engineReplaceModel(dff, 1083) 
  
          txd = engineLoadTXD("data/wheel_sr1.txd", 1084 ) 
         engineImportTXD(txd, 1084) 
         dff = engineLoadDFF("data/wheel_sr1.dff", 1084) 
        engineReplaceModel(dff, 1084) 
  
          txd = engineLoadTXD("data/wheel_sr2.txd", 1085 ) 
          engineImportTXD(txd, 1085) 
         dff = engineLoadDFF("data/wheel_sr2.dff", 1085) 
          engineReplaceModel(dff, 1085) 
  
          txd = engineLoadTXD("data/wheel_sr3.txd", 1096 ) 
        engineImportTXD(txd, 1096) 
         dff = engineLoadDFF("data/wheel_sr3.dff", 1096) 
         engineReplaceModel(dff, 1096) 
  
        txd = engineLoadTXD("data/wheel_sr4.txd", 1097 ) 
        engineImportTXD(txd, 1097) 
        dff = engineLoadDFF("data/wheel_sr4.dff", 1097) 
        engineReplaceModel(dff, 1097) 
        guiLabelSetColor(lbl_wheel_,0,255,0) 
        guiSetText ( lbl_wheel_, "New Wheels : ON" ) 
        else 
            playSoundFrontEnd(2) 
            engineRestoreModel(1074) 
            engineRestoreModel(1075) 
            engineRestoreModel(1076) 
            engineRestoreModel(1077) 
            engineRestoreModel(1078) 
            engineRestoreModel(1079) 
            engineRestoreModel(1080) 
            engineRestoreModel(1081) 
            engineRestoreModel(1082) 
            engineRestoreModel(1083) 
            engineRestoreModel(1084) 
            engineRestoreModel(1085) 
            engineRestoreModel(1096) 
            engineRestoreModel(1097) 
            guiLabelSetColor(lbl_wheel_,255,0,0) 
            guiSetText ( lbl_wheel_, "New Wheels : OFF" )       
        end 
end 
addEventHandler("onClientGUIClick", Checkbox_txd_for_wheel_on, Replacetxd, false) 
 

جرب

Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...