
Rakan#
Members-
Posts
451 -
Joined
-
Last visited
-
Days Won
5
Everything posted by Rakan#
-
اضفت تحقق يتاكد ان الاسم هو اسم اللاعب عشان يجيب الفلوس حقته
-
-- سرفر function getTopM ( ) topMoney = {} for _,player in ipairs( getElementsByType("player") ) do table.insert( topMoney, { name = getPlayerName ( player ), money = getPlayerMoney ( player ) } ) end table.sort( topMoney, function( a, b ) return( tonumber( a.money ) or 0 ) > ( tonumber( b.money ) or 0 ) end ) triggerClientEvent ( root, "getTopMoney", root, topMoney ) end setTimer ( getTopM, 1000, 0 ) -- كلينت addEvent ("getTopMoney", true ) addEventHandler ("getTopMoney", root, function ( topMoney ) guiGridListClear(gridlistMoney) for k,v in ipairs (topMoney) do local row = guiGridListAddRow(gridlistMoney) guiGridListSetItemText ( gridlistMoney, row , 1 , k .. '-' , false , false ) guiGridListSetItemColor ( gridlistMoney , row , 1 , 255,255,0 ) guiGridListSetItemText(gridlistMoney,row,2,topMoney[k].name:gsub("#%x%x%x%x%x%x",""),false,false) guiGridListSetItemColor ( gridlistMoney , row , 2 , 255,255,0 ) local Moneyy = convertNumber ( topMoney[k].money ) guiGridListSetItemText(gridlistMoney,row,3,"$"..Moneyy,false,false) guiGridListSetItemColor ( gridlistMoney , row , 3 , 255,255,0 ) if v.name == getPlayerName(localPlayer) then guiSetText ( labelmonney, "x #"..k.." المركز x $"..v["money"].." x لديك" ) guiLabelSetColor(labelmonney, 255, 255, 0) end end end ) جرب
-
بخصوص الجريد ليست [ مهم ] ارجوا المساعدة سريعا بالله
Rakan# replied to PleaseHelp's topic in البرمجة
اطرح الكود المكتوب فيه CREATE TABLE ويستحسن تحط الاكواد كامله عشان نشوف الخطا بالاضافه ولا وين بعد ^ -
-- Client addEvent("getAccountName",true) addEventHandler("getAccountName",root, function ( ppp ) if ppp then guiGridListClear( playername ) for i,v in ipairs(ppp) do local row = guiGridListAddRow( playername ) guiGridListSetItemText( playername, row, 1, v.serial, false, false ) -- guiGridListSetItemData( playername, row, 1, sel ) end end end ) -- Server addEvent("online",true) addEventHandler("online",root, function () local sel = executeSQLQuery("SELECT * FROM vipS") triggerClientEvent("getAccountName", root, sel) end )
-
war = createMarker(2490.8999023438,-1668.3000488281,13.300000190735,"cylinder",50,255,0,0,0) addEventHandler("onClientKey",root, function(key,p) if p then wColShape = getElementColShape(war) if isElementWithinColShape(localPlayer,wColShape) then if key == "f1" or key == "f2" -- وبنفس الطريقة زيد or key == "f3" or key == "f4" or key == "f5" or key == "f6" or key == "f7" or key == "f8" or key == "f9" or key == "f10" then cancelEvent() outputChatBox("لايمكنك استعمال هذا الزر في ساحة الحرب",255,0,0,true) end end end end)
-
addEventHandler("onClientKey",root, function(key,p) if p then wColShape = getElementColShape(war) if isElementWithinColShape(localPlayer,wColShape) then if key == "f1" or key == "f2" -- وبنفس الطريقة زيد then cancelEvent() outputChatBox("لايمكنك استعمال هذا الزر في ساحة الحرب",255,0,0,true) end end end end)
-
انت ذكي
-
بالتوفيق
-
؟؟؟؟
-
مشكلتك وش هي بالضبط ؟ جرب ذا طيب -- #Hulk local screenW, screenH = guiGetScreenSize() wnd = guiCreateWindow((screenW - 576) / 2, (screenH - 352) / 2, 576, 352, "Report Manager #Hulk", false) guiWindowSetSizable(wnd, false) guiSetVisible(wnd,false) editName = guiCreateEdit(10, 36, 296, 40, "", false, wnd) editDetails = guiCreateMemo(10, 86, 547, 173, "", false, wnd) label1 = guiCreateLabel(14, 21, 221, 15, "Your Name :", false, wnd) label3 = guiCreateLabel(478, 71, 89, 15, "Your Details :", false, wnd) label2 = guiCreateLabel(373, 21, 185, 19, "", false, wnd) send = guiCreateButton(206, 269, 155, 33, "Send", false, wnd) closeb = guiCreateButton(206, 309, 155, 33, "Close", false, wnd) ox = guiCreateLabel(10, 327, 177, 15, "", false, wnd) -- local screenW, screenH = guiGetScreenSize() wi = guiCreateWindow(573, 162, 736, 308, "Report Manager", false) guiWindowSetSizable(wi, false) guiSetVisible(wi,false) memoe = guiCreateMemo(9, 78, 716, 216, "", false, wi) guiMemoSetReadOnly(memoe, true) x = guiCreateButton(693, 26, 32, 23, "X", false, wi) adress = guiCreateMemo(10, 34, 258, 34, "", false, wi) guiMemoSetReadOnly(adress, true) ----- GUIEditor = { gridlist = {}, button = {} } local screenW, screenH = guiGetScreenSize() wnd_Console = guiCreateWindow((screenW - 728) / 2, (screenH - 276) / 2, 728, 276, "Lead Admin Report Manager Beta Version #Hulk", false) guiWindowSetSizable(wnd_Console, false) guiSetVisible(wnd_Console,false) GUIEditor.gridlist[1] = guiCreateGridList(11, 28, 562, 238, false, wnd_Console) guiGridListAddColumn(GUIEditor.gridlist[1], "Player Name", 0.5) guiGridListAddColumn(GUIEditor.gridlist[1], "Details", 0.5) GUIEditor.button[1] = guiCreateButton(587, 28, 131, 32, "Remove", false, wnd_Console) GUIEditor.button[2] = guiCreateButton(587, 70, 131, 32, "Show ", false, wnd_Console) GUIEditor.button[3] = guiCreateButton(587, 116, 131, 32, "Close", false, wnd_Console) btnr = guiCreateButton(1326, 645, 30, 29, "R", false) guiSetAlpha(btnr, 0.80) addEventHandler('onClientGUIClick',GUIEditor.button[3], function() guiSetVisible(wnd_Console,false) end ) function ControlSttas() -- if getElementData(localPlayer,"OnOpenSendAll") then if getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- then if (guiGetVisible(wnd_Console) == false) then guiSetVisible(wnd_Console,true) guiSetVisible(btnr,true) else guiSetVisible(wnd_Console,false) guiSetVisible(btnr,false) end end end addCommandHandler("pr",ControlSttas) -- addEvent ( "Send2", true ) addEventHandler ( "Send2", root, function ( Table ) guiGridListClear( GUIEditor.gridlist[1] ) for i,v in ipairs( Table ) do local row = guiGridListAddRow ( GUIEditor.gridlist[1] ) guiGridListSetItemText( GUIEditor.gridlist[1], row, 1,v["Edit1"], false, false) guiGridListSetItemText( GUIEditor.gridlist[1], row, 2,v["Edit2"], false, false) end end ) addEventHandler ( "onClientGUIClick", root, function ( text ) if source == send then local Edit1 = guiGetText ( editName ) local Edit2 = guiGetText ( editDetails ) if Edit1 == "" or Edit2 == "" or Edit3 == "" then return end triggerServerEvent ( "onSend;Report", localPlayer, Edit1, Edit2,row) elseif source == closeb then guiSetVisible(wnd,false) elseif source == GUIEditor.button[1] then --guiGridListClear ( GUIEditor.gridlist[1] ) selected1 = guiGridListGetSelectedItem(GUIEditor.gridlist[1]) if selected1 ~= -1 then data = guiGridListGetItemText(GUIEditor.gridlist[1], selected1,1) triggerServerEvent('remove',localPlayer,data,row) end --guiGridListRemoveRow (gr1,selected1) --selected = guiGridListGetItemText ( gr1, guiGridListGetSelectedItem ( gr1 ) ) elseif source == GUIEditor.button[2] then guiSetVisible(wi,true) --guiGetText(editDetails,guiSetText(memoe))selected = guiGridListGetSelectedItem(GridBan) selected = guiGridListGetSelectedItem(GUIEditor.gridlist[1]) if selected ~= -1 then local d1 = guiGridListGetItemText(GUIEditor.gridlist[1], selected,1) local d2 = guiGridListGetItemText(GUIEditor.gridlist[1], selected,2) guiSetText(adress,d1) guiSetText(memoe,d2) end elseif source == x then guiSetVisible(wi,false) elseif source == adress then guiSetText(editName,guiGetText(adress)) elseif source == GUIEditor.button[3] then guiSetVisible(wnd_Console,false) elseif source == btnr then guiSetVisible(wnd_Console,true) --elseif source == GUIEditor.button[1] end end ) ---- addEventHandler( "onClientResourceStart", resourceRoot, -- حدث اذا المود اتفتح function( ) -- وظيفه triggerServerEvent( "Refresh", localPlayer ) -- تريقر لسرفر -- ذا عشان تسوي تحديث للقاعده او " القريد لست " end ) addEvent("AddRowNew",true) addEventHandler("AddRowNew",root, function( table ) guiGridListClear(gr) for i,v in ipairs ( table ) do local Row = guiGridListAddRow(gr) guiGridListSetItemText( gr, Row, 1, v.Text, false, false) guiGridListSetItemText( gr, Row, 2, v.combo, false, false) guiGridListSetItemText( gr, Row, 3, v.edit1, false, false) guiGridListSetItemText( gr, Row, 3, v.edit2, false, false) end end ) function ControlSttas() -- if getElementData(localPlayer,"OnOpenSendAll") then if getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- then if (guiGetVisible(wnd) == false) then guiSetVisible(wnd,true) else guiSetVisible(wnd,false) end end end addCommandHandler("rl",ControlSttas)
-
- ( Server Danger For Zombie ) - | سيرفر خطر للزومبي
Rakan# replied to Doffy's topic in Arabic / العربية
@#DesTroeyR شيل اسمي من المبرمجين لاهنت وموفق بسيرفرك -
جرب الكلنت ذا -- #Hulk local screenW, screenH = guiGetScreenSize() wnd = guiCreateWindow((screenW - 576) / 2, (screenH - 352) / 2, 576, 352, "Report Manager #Hulk", false) guiWindowSetSizable(wnd, false) guiSetVisible(wnd,false) editName = guiCreateEdit(10, 36, 296, 40, "", false, wnd) editDetails = guiCreateMemo(10, 86, 547, 173, "", false, wnd) label1 = guiCreateLabel(14, 21, 221, 15, "Your Name :", false, wnd) label3 = guiCreateLabel(478, 71, 89, 15, "Your Details :", false, wnd) label2 = guiCreateLabel(373, 21, 185, 19, "", false, wnd) send = guiCreateButton(206, 269, 155, 33, "Send", false, wnd) closeb = guiCreateButton(206, 309, 155, 33, "Close", false, wnd) ox = guiCreateLabel(10, 327, 177, 15, "", false, wnd) -- local screenW, screenH = guiGetScreenSize() wi = guiCreateWindow(573, 162, 736, 308, "Report Manager", false) guiWindowSetSizable(wi, false) guiSetVisible(wi,false) memoe = guiCreateMemo(9, 78, 716, 216, "", false, wi) guiMemoSetReadOnly(memoe, true) x = guiCreateButton(693, 26, 32, 23, "X", false, wi) adress = guiCreateMemo(10, 34, 258, 34, "", false, wi) guiMemoSetReadOnly(adress, true) ----- GUIEditor = { gridlist = {}, button = {} } local screenW, screenH = guiGetScreenSize() wnd_Console = guiCreateWindow((screenW - 728) / 2, (screenH - 276) / 2, 728, 276, "Lead Admin Report Manager Beta Version #Hulk", false) guiWindowSetSizable(wnd_Console, false) guiSetVisible(wnd_Console,false) GUIEditor.gridlist[1] = guiCreateGridList(11, 28, 562, 238, false, wnd_Console) guiGridListAddColumn(GUIEditor.gridlist[1], "Player Name", 0.5) guiGridListAddColumn(GUIEditor.gridlist[1], "Details", 0.5) GUIEditor.button[1] = guiCreateButton(587, 28, 131, 32, "Remove", false, wnd_Console) GUIEditor.button[2] = guiCreateButton(587, 70, 131, 32, "Show ", false, wnd_Console) GUIEditor.button[3] = guiCreateButton(587, 116, 131, 32, "Close", false, wnd_Console) btnr = guiCreateButton(1326, 645, 30, 29, "R", false) guiSetAlpha(btnr, 0.80) addEventHandler('onClientGUIClick',GUIEditor.button[3], function() guiSetVisible(wnd_Console,false) end ) function ControlSttas() -- if getElementData(localPlayer,"OnOpenSendAll") then if getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- then if (guiGetVisible(wnd_Console) == false) then guiSetVisible(wnd_Console,true) guiSetVisible(btnr,true) else guiSetVisible(wnd_Console,false) guiSetVisible(btnr,false) end end end addCommandHandler("pr",ControlSttas) -- addEvent ( "Send2", true ) addEventHandler ( "Send2", root, function ( Table ) guiGridListClear( GUIEditor.gridlist[1] ) for i,v in ipairs( Table ) do local row = guiGridListAddRow ( GUIEditor.gridlist[1] ) guiGridListSetItemText( GUIEditor.gridlist[1], row, 1,v["Edit1"], false, false) guiGridListSetItemText( GUIEditor.gridlist[1], row, 2,v["Edit2"], false, false) end end ) addEventHandler ( "onClientGUIClick", root, function ( text ) if source == send then local Edit1 = guiGetText ( editName ) local Edit2 = guiGetText ( editDetails ) if Edit1 == "" or Edit2 == "" or Edit3 == "" then return end triggerServerEvent ( "onSend;Report", localPlayer, Edit1, Edit2,row) elseif source == closeb then guiSetVisible(wnd,false) elseif source == GUIEditor.button[1] then --guiGridListClear ( GUIEditor.gridlist[1] ) selected1 = guiGridListGetSelectedItem(GUIEditor.gridlist[1]) if selected1 ~= -1 then data = guiGridListGetItemText(GUIEditor.gridlist[1], selected1,1) triggerServerEvent('remove',localPlayer,data,row) end --guiGridListRemoveRow (gr1,selected1) --selected = guiGridListGetItemText ( gr1, guiGridListGetSelectedItem ( gr1 ) ) elseif source == GUIEditor.button[2] then guiSetVisible(wi,true) --guiGetText(editDetails,guiSetText(memoe))selected = guiGridListGetSelectedItem(GridBan) selected = guiGridListGetSelectedItem(GUIEditor.gridlist[1]) if selected ~= -1 then if selected >= 0 then -- data = guiGridListGetItemText(GUIEditor.gridlist[1], selected,1) -- triggerServerEvent("removeserial",localPlayer,data) -- guiGridListRemoveRow (GUIEditor.gridlist[1],selected) guiSetText(memoe,guiGetText(editDetails)) end end elseif source == x then guiSetVisible(wi,false) elseif source == adress then guiSetText(editName,guiGetText(adress)) elseif source == GUIEditor.button[3] then guiSetVisible(wnd_Console,false) elseif source == btnr then guiSetVisible(wnd_Console,true) --elseif source == GUIEditor.button[1] end end ) ---- addEventHandler( "onClientResourceStart", resourceRoot, -- حدث اذا المود اتفتح function( ) -- وظيفه triggerServerEvent( "Refresh", localPlayer ) -- تريقر لسرفر -- ذا عشان تسوي تحديث للقاعده او " القريد لست " end ) addEvent("AddRowNew",true) addEventHandler("AddRowNew",root, function( table ) guiGridListClear(gr) for i,v in ipairs ( table ) do local Row = guiGridListAddRow(gr) guiGridListSetItemText( gr, Row, 1, v.Text, false, false) guiGridListSetItemText( gr, Row, 2, v.combo, false, false) guiGridListSetItemText( gr, Row, 3, v.edit1, false, false) guiGridListSetItemText( gr, Row, 3, v.edit2, false, false) end end ) function ControlSttas() -- if getElementData(localPlayer,"OnOpenSendAll") then if getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- or getPlayerSerial(player) == "3EFCA40D311813E763FF162858E0F6E4" -- then if (guiGetVisible(wnd) == false) then guiSetVisible(wnd,true) else guiSetVisible(wnd,false) end end end addCommandHandler("rl",ControlSttas)
-
اظن القسم خاطئ كلمني خاص ووضح لي التفاصيل
-
guiBringToFront
-
لو استعملتها getPlayerSerial بالكلنت تستعمل getPlayerSerial() ويجيب لك سيريال لوكال بلاير يعني مافيه ضرر تستعمل بـ كلنت المهم اطرح اكواد السيرفر