Jump to content

عندي مشكلة مود ابي حلل

pro

By pro
in البرمجة

Recommended Posts

pro Civilian

pro

Posted
Posted (edited)

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

شباب انا عندي مود لوحة شرطي فيها اخطاء ابي حلل\

كلينت

  


local screenW, screenH = guiGetScreenSize()
mainwndmaster = guiCreateWindow(screenW - 393 - 10, (screenH - 562) / 2, 393, 562, "Police Panel.", false)
guiSetAlpha(mainwndmaster,0.89999997615814)
 guiSetVisible(mainwndmaster,false)

  ali1 = guiCreateLabel(24, 524, 78, 19, "Work State :", false, mainwndmaster)
        guiLabelSetColor(ali1, 250, 0, 0)
        ali2 = guiCreateLabel(121, 524, 78, 19, "Work State :2", false, mainwndmaster)
        guiLabelSetColor(ali2, 250, 0, 0)
        ali3 = guiCreateLabel(215, 524, 78, 19, "State : ", false, mainwndmaster)
        guiLabelSetColor(ali3, 250, 0, 0)
        ali4 = guiCreateLabel(303, 524, 78, 19, "Online", false, mainwndmaster)
        guiLabelSetColor(ali4, 38, 238, 11) 


  lblmq = guiCreateLabel(219, 21, 154, 14, "المخالفات المرورية للاعب =", false, mainwndmaster)
        lblmq2 = guiCreateLabel(50, 21, 154, 14, "", false, mainwndmaster)  

wnd14 = guiCreateButton(24, 431, 349, 35, "Destroy Car", false, mainwndmaster)
   guiSetProperty(wnd14, "NormalTextColour", "FF09F2AE")
wnd11 = guiCreateButton(24, 386, 349, 35, "Slap", false, mainwndmaster)
        guiSetProperty(wnd11, "NormalTextColour", "FFFB0101")

wnd8 = guiCreateButton(24, 296, 349, 35, "Jail", false, mainwndmaster)
guiSetProperty(wnd8, "NormalTextColour", "FFFDBE01")
master = guiCreateButton(24, 476, 349, 35, "X", false, mainwndmaster)
guiSetProperty(master, "NormalTextColour", "FFDF1B4E")


wnd5 = guiCreateGridList(27, 39, 346, 247, false, mainwndmaster)
guiGridListSetSelectionMode(wnd5,2)

local column = guiGridListAddColumn(wnd5,"Jail Time", 0.9)


row1 = guiGridListAddRow(wnd5)
row2 = guiGridListAddRow(wnd5)
row3 = guiGridListAddRow(wnd5)
row4 = guiGridListAddRow(wnd5)
row5 = guiGridListAddRow(wnd5)
row6 = guiGridListAddRow(wnd5)
row7 = guiGridListAddRow(wnd5)
row8 = guiGridListAddRow(wnd5)
row9 = guiGridListAddRow(wnd5)
row10 = guiGridListAddRow(wnd5)


guiGridListSetItemText(wnd5,row1,column,"1 min", false, false)
guiGridListSetItemColor ( wnd5, row1, column, 0, 0, 255 )
guiGridListSetItemText(wnd5,row2,column,"2 min", false, false)
guiGridListSetItemColor ( wnd5, row2, column, 0, 0, 255 )
guiGridListSetItemText(wnd5,row3,column,"3 min", false, false)
guiGridListSetItemColor ( wnd5, row3, column, 0, 0, 255 )
guiGridListSetItemText(wnd5,row4,column,"4 min", false, false)
guiGridListSetItemColor ( wnd5, row4, column, 0, 0, 255 )

wnd6 = guiCreateButton(24, 341, 349, 35, "UnJail", false, mainwndmaster)
guiSetProperty(wnd6, "NormalTextColour", "FF0CF706")
local screenW, screenH = guiGetScreenSize()

  wndsbab = guiCreateWindow((screenW - 359) / 2, (screenH - 139) / 2, 359, 139, "السبب", false)
        guiWindowSetSizable(wndsbab, false)
 guiSetVisible(wndsbab,false)

        editsbab = guiCreateEdit(61, 50, 231, 36, "", false, wndsbab)
        lblsbab = guiCreateLabel(125, 25, 103, 15, "الرجاء كتابة السبب", false, wndsbab)
        guiLabelSetColor(lblsbab, 253, 1, 1)
        donesbab = guiCreateButton(89, 103, 164, 26, "تم", false, wndsbab)
        xsbab = guiCreateButton(305, 100, 44, 29, "x", false, wndsbab)    

local screenW, screenH = guiGetScreenSize()

        wndadmin = guiCreateWindow((screenW - 530) / 2, (screenH - 281) / 2, 530, 281, "work state", false)
        guiWindowSetSizable(wndadmin, false)
 guiSetVisible(wndadmin,false)

        ijbtn = guiCreateButton(50, 98, 204, 63, "اجباري", false, wndadmin)
        noijbtn = guiCreateButton(284, 98, 204, 63, "غير اجباري", false, wndadmin)   
---------------------
--Key to poen panel
---------------------

    bindKey ("m", "down",
        function()
            local cursorValue = not isCursorShowing()
            if not guiGetVisible(mainwndmaster) == true then
            setElementData ( localPlayer, "police_m", cursorValue )
            
            showCursor( cursorValue )
            else
            guiSetVisible(mainwndmaster,false)
            guiSetText(mainwndmaster,"")
                    guiSetText(lblmq2,"")

                        showCursor( false )

end
            end
    )    

        
            addEvent("openpoliceowner",true)
addEventHandler("openpoliceowner",root,
    function()

                local cursorValue = not isCursorShowing()

    if not guiGetVisible(wndadmin) == true    then
    
        guiSetVisible(wndadmin,true)
            showCursor( cursorValue )
            else
                        showCursor( cursorValue )

        guiSetVisible(wndadmin,false)

    end
    end
)
        
        
        
        
        
        addEvent("openpolice",true)
addEventHandler("openpolice",root,
    function(Target1,ownerveh1,target3,target4)
    
    
    if not guiGetVisible(mainwndmaster, true) then
        guiSetVisible(mainwndmaster,true)
    guiSetText(mainwndmaster,Target1 or ownerveh1 or target3 or target4 )
local kkop = guiGetText(mainwndmaster)
local kkop2 = getPlayerFromName(kkop)
    guiSetText(lblmq2,getElementData( kkop2, '3KS' ))

    end
    end
)

addEvent("noopenpolice",true)
addEventHandler("noopenpolice",root,
    function()
        guiSetVisible(mainwndmaster,false)

    end
)
-----------------------
--add player to list
----------------------

---------------------
--close panel
---------------------

----------------------
-- Watch the player
----------------------

function spectatePlayer(player)
    if tostring(player) then
        int = getElementInterior(player) 
        dim = getElementDimension(player) 
        if int and dim then
            setCameraTarget(player)
            setElementInterior(player,int)
            setElementDimension(player,dim)
        end
    end
end

----------------------
--When client click button
---------------------

function onClickza()
    
        
        selectedPlayerslap = guiGetText(mainwndmaster)

    if source == wnd11 then -- slap
    if selectedPlayerslap then
         guiSetVisible(wndsbab,true)
         end
         elseif source == xsbab then
                  guiSetVisible(wndsbab,false)
         elseif source == master then
            guiSetVisible(mainwndmaster,false)
            guiSetText(mainwndmaster,"")
                    guiSetText(lblmq2,"")

                        showCursor( false )

    elseif source == donesbab then
        triggerServerEvent ("slap", getLocalPlayer(), tostring(selectedPlayerslap),guiGetText(editsbab))

                  guiSetVisible(wndsbab,false)

    
    elseif source == wnd14 then -- destroy
    triggerServerEvent ("destroy", getLocalPlayer(), selectedPlayerslap)
    triggerServerEvent ("destroy2", getLocalPlayer(), selectedPlayerslap)    
    
    elseif source == ijbtn then -- 
guiSetText(ali2,"Mandatory")
        guiLabelSetColor(ali2, 250, 0, 0)

    elseif source == noijbtn then --
guiSetText(ali2,"optional")
        guiLabelSetColor(ali2, 250, 0, 255)

    elseif source == wnd8 then -- jail
    
    jail = guiGridListGetItemText ( wnd5, guiGridListGetSelectedItem ( wnd5 ), 1 )
    if jail then
    triggerServerEvent ("jail", getLocalPlayer(), guiGetText(mainwndmaster), jail)

        end
    elseif source == wnd6 then -- unjail
    
    if selectedPlayerslap then    
    triggerServerEvent ("unjail", getLocalPlayer(), guiGetText(mainwndmaster))    

        end        
    end
end 
addEventHandler("onClientGUIClick",root,onClickza)

buttons= {
     ['F1'] = true,
 ['F11'] = true,
 ['['] = true,
 [']'] = true,
  ['F2'] = true,
  ['F3'] = true,
  ['F4'] = true,
  ['F5'] = true,
  ['F6'] = true,
  ['F12'] = true,
  ['F7'] = true,
  ['F9'] = true,
  ['F10'] = true,
  ['j'] = true,
  ['m'] = true,

}
 
addEventHandler( 'onClientKey', root, function (button , prees)
    if prees and getElementInterior(localPlayer) == 6 then
        if buttons[button] then
            cancelEvent()
        end
    end
end)


addEventHandler( 'onClientKey', root, function (button , prees)
    if prees and getElementInterior(localPlayer) == 3 then
        if buttons[button] then
            cancelEvent()
        end
    end
end)

 

سيرفر 

  


addEvent("isPolice",true)
addEventHandler("isPolice",root,
    function ()
        if isObjectInACLGroup("user." .. getAccountName(getPlayerAccount(source)),aclGetGroup("K-Police")) then
            triggerClientEvent(source,"Yes",source)
        end
    end
)

addEvent("killPlayer",true)
addEventHandler("killPlayer",root,
    function (player)
        local player = getPlayerFromName(player)
        if ( player ) then
            killPed(player)
            outputChatBox("* [ Police ] : The Player Killed Successfuly",source,0,255,0)
            outputChatBox("* [ Police ] : You Are Killed By " .. getPlayerName(source),player,255,0,0)
        end
    end
)


addEvent("onDes",true)
addEventHandler("onDes",root,
    function (player)
        local player = getPlayerFromName(player)
        local veh = getPedOccupiedVehicle(player)
        destroyElement(veh)
        outputChatBox("* [ Police ] : The Player Vehicle Successfuly Destoryed",source,0,255,0)
        outputChatBox("* [ Police ] : Your Vehicle Destroy By " .. getPlayerName(source),player,255,0,0)
    end
)


addEvent("onBlow",true)
addEventHandler("onBlow",root,
    function (player)
        local player = getPlayerFromName(player)
        local veh = getPedOccupiedVehicle(player)
        blowVehicle(veh)
        outputChatBox("* [ Police ] : The Player Vehicle Successfuly Blowed",source,0,255,0)
        outputChatBox("* [ Police ] : Your Vehicle Blow By " .. getPlayerName(source),player,255,0,0)
    end
)

addEventHandler("onPlayerLogin",root,
    function (_,acc)
        if isObjectInACLGroup("user." .. getAccountName(acc),aclGetGroup("K-Police")) then
            outputChatBox("* Welcome Police Man Press p To Open Police Panel",source,255,255,255,true)
        end
    end
)

addEventHandler("onResourceStart",resourceRoot,
    function ()
        if not aclGetGroup("K-Police") then
            outputChatBox("* Admin Please Add Group Name Police To Add Player in it To Be Police",root,255,0,0)
        end
    end
)

 

Edited by !#NssoR_)
Added Lua tag.
Link to comment
#BrosS Jacker

#BrosS

Posted
Posted
7 minutes ago, pro said:

انا قلتلو ابي كودات لوحة شرطي  قلي عندي بس ناقص ملف سيرفر يمكن جايبها من سيرفرات

 

وش متعشي

هههههههههههههههههههههههههههههههههههههه

من قاعد تكلم ومن ذا اللي قلتلو مدري شنو

Link to comment
F_F Poot-butt

F_F

Posted
Posted (edited) 
addEvent("isPolice",true)
addEventHandler("isPolice",root,
    function ()
        if isObjectInACLGroup("user." .. getAccountName(getPlayerAccount(source)),aclGetGroup("K-Police")) then
            triggerClientEvent(source,"Yes",source)
        end
    end
)
addEvent("killPlayer",true)
addEventHandler("killPlayer",root,
    function (player)
        local player = getPlayerFromName(player)
        if ( player ) then
            killPed(player)
            outputChatBox("* [ Police ] : The Player Killed Successfuly",source,0,255,0)
            outputChatBox("* [ Police ] : You Are Killed By " .. getPlayerName(source),player,255,0,0)
        end
    end
)
addEvent("onDes",true)
addEventHandler("onDes",root,
    function (player)
        local player = getPlayerFromName(player)
        local veh = getPedOccupiedVehicle(player)
        destroyElement(veh)
        outputChatBox("* [ Police ] : The Player Vehicle Successfuly Destoryed",source,0,255,0)
        outputChatBox("* [ Police ] : Your Vehicle Destroy By " .. getPlayerName(source),player,255,0,0)
    end
)
addEvent("onBlow",true)
addEventHandler("onBlow",root,
    function (player)
        local player = getPlayerFromName(player)
        local veh = getPedOccupiedVehicle(player)
        blowVehicle(veh)
        outputChatBox("* [ Police ] : The Player Vehicle Successfuly Blowed",source,0,255,0)
        outputChatBox("* [ Police ] : Your Vehicle Blow By " .. getPlayerName(source),player,255,0,0)
    end
)
addEventHandler("onPlayerLogin",root,
    function (_,acc)
        if isObjectInACLGroup("user." .. getAccountName(acc),aclGetGroup("K-Police")) then
            outputChatBox("* Welcome Police Man Press p To Open Police Panel",source,255,255,255,true)
        end
    end
)
addEventHandler("onResourceStart",resourceRoot,
    function ()
        if not aclGetGroup("K-Police") then
            outputChatBox("* Admin Please Add Group Name Police To Add Player in it To Be Police",root,255,0,0)
        end
    end
)
function delayedChat ( text )
	outputChatBox ( "تم تفعيل المورد بنجاح !" )
end

 
setTimer ( delayedChat, 50, 0, "اهلا بكم" )

هذه الاكواد لقد تمت

Edited by !#NssoR_)
Violating the rules.
Link to comment
iMr.WiFi..! Shooter

iMr.WiFi..!

Posted
Posted (edited)

@F_F

O.o أصبر اصبر ..

انت Xiti ?? 

لا لالالالالالالالالالالا

انت بيل غيتس ؟؟ 

كيف ماكتشفتك للحين ؟؟

أهنيك عالموهبة التخبيصية ,!

علعموم ماسويت شيء جديد كالعادة تخبيص .. انصحك ماتساعد لين ماتتعلم اللغة زين بعد كذا تساعد

لاتساعد في اشياء ماتعرفلها , خل غيرك يسويها مو ضروري انت الي تسويها 

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

+ لا تساعد أبد الا وأنت مجرب الاكواد بنفسك , مو تساعد بكود تخبيصي

Edited by !#NssoR_)
Delete F_F quote.
  • Like 3
Link to comment
F_F Poot-butt

F_F

Posted
Posted (edited)
1 hour ago, ~#[N]exT said:

@F_F

ايش ذا اخوي الكريم؟

 

انها اداة مساعدة

1 hour ago, iMr.WiFi..! said:

O.o أصبر اصبر ..

انت Xiti ?? 

لا لالالالالالالالالالالا

انت بيل غيتس ؟؟ 

كيف ماكتشفتك للحين ؟؟

أهنيك عالموهبة التخبيصية ,!

علعموم ماسويت شيء جديد كالعادة تخبيص .. انصحك ماتساعد لين ماتتعلم اللغة زين بعد كذا تساعد

لاتساعد في اشياء ماتعرفلها , خل غيرك يسويها مو ضروري انت الي تسويها 

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

+ لا تساعد أبد الا وأنت مجرب الاكواد بنفسك , مو تساعد بكود تخبيصي

لغة لوا من اضعف اللغات يحق لي استخدامها كيفما اردت

1 hour ago, Abdul KariM said:

@~#[N]exT :D يهوش بس 

نعم

Edited by !#NssoR_)
Link to comment
Master_Ali Snitch

Master_Ali

Posted
Posted
24 minutes ago, F_F said:

انها اداة مساعدة

لغة لوا من اضعف اللغات يحق لي استخدامها كيفما اردت

نعم

اموت انا بالعربي الفصيح

ههههههههههههههههههههههههههههههههههههه

من اسهل اللغات زي كلامك لكنك مب فالح فيها هذا دليل انها صعبه ولا دليل انك لا تملك العقل الكافي لدراستها؟

  • Like 1
Link to comment
^iiEcoo'x_) Foot Soldier

^iiEcoo'x_)

Posted
Posted
2 minutes ago, Master_Ali said:

اموت انا بالعربي الفصيح

ههههههههههههههههههههههههههههههههههههه

من اسهل اللغات زي كلامك لكنك مب فالح فيها هذا دليل انها صعبه ولا دليل انك لا تملك العقل الكافي لدراستها؟

صدقت آخي علي , هذا الشخص لا يعرف في البرمجة شيء , الله يعين ;)

  • Like 1
Link to comment
pro Civilian

pro

Posted
  • Author
Posted

addEvent("isPolice",true)
addEventHandler("isPolice",root,
    function ()
        if isObjectInACLGroup("user." .. getAccountName(getPlayerAccount(source)),aclGetGroup("K-Police")) then
            triggerClientEvent(source,"Yes",source)
        end
    end
)
addEvent("killPlayer",true)
addEventHandler("killPlayer",root,
    function (player)
        local player = getPlayerFromName(player)
        if ( player ) then
            killPed(player)
            outputChatBox("* [ Police ] : The Player Killed Successfuly",source,0,255,0)
            outputChatBox("* [ Police ] : You Are Killed By " .. getPlayerName(source),player,255,0,0)
        end
    end
)
addEvent("onDes",true)
addEventHandler("onDes",root,
    function (player)
        local player = getPlayerFromName(player)
        local veh = getPedOccupiedVehicle(player)
        destroyElement(veh)
        outputChatBox("* [ Police ] : The Player Vehicle Successfuly Destoryed",source,0,255,0)
        outputChatBox("* [ Police ] : Your Vehicle Destroy By " .. getPlayerName(source),player,255,0,0)
    end
)
addEvent("onBlow",true)
addEventHandler("onBlow",root,
    function (player)
        local player = getPlayerFromName(player)
        local veh = getPedOccupiedVehicle(player)
        blowVehicle(veh)
        outputChatBox("* [ Police ] : The Player Vehicle Successfuly Blowed",source,0,255,0)
        outputChatBox("* [ Police ] : Your Vehicle Blow By " .. getPlayerName(source),player,255,0,0)
    end
)
addEventHandler("onPlayerLogin",root,
    function (_,acc)
        if isObjectInACLGroup("user." .. getAccountName(acc),aclGetGroup("K-Police")) then
            outputChatBox("* Welcome Police Man Press p To Open Police Panel",source,255,255,255,true)
        end
    end
)
addEventHandler("onResourceStart",resourceRoot,
    function ()
        if not aclGetGroup("K-Police") then
            outputChatBox("* Admin Please Add Group Name Police To Add Player in it To Be Police",root,255,0,0)
        end
    end
)
function delayedChat ( text )
    outputChatBox ( "تم تفعيل المورد بنجاح !" )
end
 
setTimer ( delayedChat, 50, 0, "اهلا بكم" )

 

 

اخي اكواد غلط

Link to comment
iMr.WiFi..! Shooter

iMr.WiFi..!

Posted
Posted (edited)

يعني ما شاء الله عليك

ربنا يحفظك ي @F_F

محترف مره مره يعني

xiti ماقدر يوصل مستواك 

" لغة لوا من اضعف اللغات يحق لي استخدامها كيفما اردت "

اقول امش انت وحسابك ماتعرف شيء  , تعلم قبل لاتخبص مو يعني انك تعرف لباقي اللغات

خلاص ختمت لغة LUA

+ ما انكر انك لك استخدامها زي ماتبي

لكن تساعد زي الخ**

 وتقول هذا الكلام ؟

اهنيك صصراحةة ,,

ما أخرج عن سياق الموضوع ,
بتوفيق لصاحب الموضوع بس !

 

Edited by iMr.WiFi..!
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...