Jump to content

Rakan#

Members
  • Posts

    451
  • Joined

  • Last visited

  • Days Won

    5

Everything posted by Rakan#

  1. العفو .. الله يعآفيك
  2. اضفت تحقق يتاكد ان الاسم هو اسم اللاعب عشان يجيب الفلوس حقته
  3. -- سرفر 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 ) جرب
  4. اطرح الكود المكتوب فيه CREATE TABLE ويستحسن تحط الاكواد كامله عشان نشوف الخطا بالاضافه ولا وين بعد ^
  5. -- 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 )
  6. 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)
  7. 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)
  8. مشكلتك وش هي بالضبط ؟ جرب ذا طيب -- #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)
  9. @#DesTroeyR شيل اسمي من المبرمجين لاهنت وموفق بسيرفرك
  10. جرب الكلنت ذا -- #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)
  11. اظن القسم خاطئ كلمني خاص ووضح لي التفاصيل
  12. لو استعملتها getPlayerSerial بالكلنت تستعمل getPlayerSerial() ويجيب لك سيريال لوكال بلاير يعني مافيه ضرر تستعمل بـ كلنت المهم اطرح اكواد السيرفر
×
×
  • Create New...