Jump to content

MR_Mahmoud

Members
  • Posts

    329
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by MR_Mahmoud

  1. اخي ماصار مبقا تفتح الوحة
  2. شكرا وبنسبة للتشفير بشفره لاني بعطيه لشخص
  3. تم الله يعطيك العافيه بس اخي كيف بدي احط اكثر من رتبة انه مايقدر يرقي نفسه لها محاولتي local myGroup = "1" -- الرتبة اللي ما يقدر يعطيها لنفسه local myGroup = "2" -- الرتبة اللي ما يقدر يعطيها لنفسه local myGroup = "3" -- الرتبة اللي ما يقدر يعطيها لنفسه local myGroup = "4" -- الرتبة اللي ما يقدر يعطيها لنفسه local myGroup = "5" -- الرتبة اللي ما يقدر يعطيها لنفسه addEventHandler("onResourceStart", resourceRoot, function ( ) if ( myGroup ~= "" ) then triggerEvent("receiveGroup", root, myGroup) end end ) بس ماصار
  4. شكرااااا الله يعطيك العافية بس اخوي ممكن تشرحلي كيف اخلي ال local myGroup = "Console" -- الرتبة اللي ما يقدر يعطيها لنفسه في ملف سيرفر لحاله لاني بشفر المود فهمت علي اخوي ومره ثانية شكرا
  5. allowedGroup = get("allowedGroup") addEvent("getGroups",true) addEventHandler("getGroups",root, function () groups = {} for i,group in ipairs(aclGroupList()) do -- get all groups table.insert(groups,aclGroupGetName(group)) end for i,v in ipairs(groups) do -- get all groups in table triggerClientEvent(source,"addGroups",source,v) end end ) local myGroup = "Console" -- الرتبة اللي ما يقدر يعطيها لنفسه addEvent("add_g",true) addEventHandler("add_g",root, function (splayer,sgroup) if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(source)),aclGetGroup(allowedGroup)) then if not isGuestAccount(getPlayerAccount(getPlayerFromName(tostring(splayer)))) then if ( splayer == source ) and ( sgroup == myGroup ) then outputChatBox("* لايوجد لديك صلاحيات لفعل هذا.",source,255,0,0) else aclGroupAddObject (aclGetGroup(sgroup), "user."..getAccountName(getPlayerAccount(getPlayerFromName(splayer)))) outputChatBox("* "..splayer.." تم الترقية بنجاح "..sgroup.."",source,0,255,0) outputChatBox("* تم ترقيتك إلى "..sgroup.." من قبل "..getPlayerName(source).."",getPlayerFromName(splayer),0,255,0) end else outputChatBox("* You can't add "..splayer.." to "..sgroup.." because he is not logged in",source,255,0,0) end else outputChatBox("* لايوجد لديك صلاحيات لفعل هذا.",source,255,0,0) outputDebugString("* "..getPlayerName(source).." had attempted to hack the server",2) end end ) -- remove player from chosen group addEvent("remove_g",true) addEventHandler("remove_g",root, function (splayer,sgroup) if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(source)),aclGetGroup(allowedGroup)) then if not isGuestAccount(getPlayerAccount(getPlayerFromName(tostring(splayer)))) then aclGroupRemoveObject (aclGetGroup(sgroup), "user."..getAccountName(getPlayerAccount(getPlayerFromName(splayer)))) outputChatBox("* "..splayer.." تم سحب الرتبه بنجاح "..sgroup.."",source,0,255,0) outputChatBox("* تم سحب رتبتك "..sgroup.."",getPlayerFromName(splayer),255,0,0) else outputChatBox("* لايمكنك سحب الرتبة "..splayer.." from "..sgroup.." لأنه مش موجود",source,255,0,0) end else outputChatBox("* لايوجد لديك امكانية لاستخدام هذا.",source,255,0,0) outputDebugString("* "..getPlayerName(source).." had attempted to hack the server",2) end end ) -- give permission panel , open command addCommandHandler("رتب", function (player) if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)),aclGetGroup(allowedGroup)) then triggerClientEvent(player,"show_gpp",player) else outputChatBox ( "ACL: Access denied for 'rank'", player, 255, 168, 0 ) end end) سويته كذا ماصار يعطي نفسه
  6. allowedGroup = get("allowedGroup") addEvent("getGroups",true) addEventHandler("getGroups",root, function () groups = {} for i,group in ipairs(aclGroupList()) do -- get all groups table.insert(groups,aclGroupGetName(group)) end for i,v in ipairs(groups) do -- get all groups in table triggerClientEvent(source,"addGroups",source,v) end end ) addEvent("add_g",true) addEventHandler("add_g",root, function (splayer,sgroup) if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(source)),aclGetGroup(allowedGroup)) then if not isGuestAccount(getPlayerAccount(getPlayerFromName(tostring(splayer)))) then aclGroupAddObject (aclGetGroup(sgroup), "user."..getAccountName(getPlayerAccount(getPlayerFromName(splayer)))) outputChatBox("* "..splayer.." تم الترقية بنجاح "..sgroup.."",source,0,255,0) outputChatBox("* تم ترقيتك إلى "..sgroup.." من قبل "..getPlayerName(source).."",getPlayerFromName(splayer),0,255,0) else outputChatBox("* You can't add "..splayer.." to "..sgroup.." because he is not logged in",source,255,0,0) end else outputChatBox("* لايوجد لديك صلاحيات لفعل هذا.",source,255,0,0) outputDebugString("* "..getPlayerName(source).." had attempted to hack the server",2) end end ) -- remove player from chosen group addEvent("remove_g",true) addEventHandler("remove_g",root, function (splayer,sgroup) if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(source)),aclGetGroup(allowedGroup)) then if not isGuestAccount(getPlayerAccount(getPlayerFromName(tostring(splayer)))) then aclGroupRemoveObject (aclGetGroup(sgroup), "user."..getAccountName(getPlayerAccount(getPlayerFromName(splayer)))) outputChatBox("* "..splayer.." تم سحب الرتبه بنجاح "..sgroup.."",source,0,255,0) outputChatBox("* تم سحب رتبتك "..sgroup.."",getPlayerFromName(splayer),255,0,0) else outputChatBox("* لايمكنك سحب الرتبة "..splayer.." from "..sgroup.." لأنه مش موجود",source,255,0,0) end else outputChatBox("* لايوجد لديك امكانية لاستخدام هذا.",source,255,0,0) outputDebugString("* "..getPlayerName(source).." had attempted to hack the server",2) end end ) -- give permission panel , open command addCommandHandler("رتب", function (player) if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)),aclGetGroup(allowedGroup)) then triggerClientEvent(player,"show_gpp",player) else outputChatBox ( "ACL: Access denied for 'rank'", player, 255, 168, 0 ) end end)
  7. السلام عليكم انا عندي مود الأسل من اف 8 للمانجر بس انا بدي اعدل انو المانجر يقدر يرقي ويسحب الرتب بس مابدي يرقي نفسه لرتب معينه ممكن مساعدة
  8. حاولت وماعرفت مع الأسف addEventHandler ( "onClientGUIClick" , root , function ( ) if source == button1 then setElementPosition (localPlayer,2054.17627 , 1547.37646 , 10.67188 ) setElementDimension(localPlayer,388) showCursor(false) guiSetVisible(window1,false) setElementHealth ( localPlayer,killPed )----------- هنا محاولتي end end )
  9. شكرا ^___ #_iMr.[E]coo ممكن كود يخلي الاعب يموت
  10. محاولتي بس ماصار addEventHandler('onClientGUIClick',root, function() if source == button1 then setElementPosition ( source, 2054.17627, 1547.37646, 10.67188 ) setElementDimension(localPlayer,388) end end )
  11. شوف زا الكو تفهموني addEventHandler('onClientGUIClick',root, function() if source == button1 then ---- هنا ابي كود لما يضغط الزر ينقله مكان انا احط احداسياته----- setElementDimension(localPlayer,388) end end )
  12. سلام عليكم ورحمة الله وبركاته ابي مساعدة بكود احطه في حدث الزر وينقل الاعب لاحداسيات الي انا احطها ممكن حد يساعدني iMr.WiFi..! + #_iMr.[E]coo
  13. @Micr استضافة حلوة كتير بس ليه توقف والحين ليه واقفة ارجو انكم تحلو المشاكل في اسرع وقت وشكرا
  14. اوك يالغالي اسف بس انا حبيت افيد الشخص هاد + حبيت اكتب اسمي من باب التسلية عل عموم اتعلمت شكرا يالطيب حياك الله
  15. صاحبهم موب في المنتدا هوة اجنبي اخدت منه المود وعدلته اكيد مافي مانع اخي
  16. هههههههههههههه انا ماجبتها من برا انا عدلتها وكتبت اسمي في مانع ؟ + صاحب الكواد مو كاتب اسمه انت ليه اخدت ع خاطرك ؟
  17. setTimer حاول انت انا ساعدتك بس مو كل شي انا اعتمد ع نفسك وحاول
  18. كلنت هاد ---------------------------------------- -----------By_MR_Mahmoud_M.H------------ ---------------------------------------- local sX, sY = guiGetScreenSize () addEventHandler("onClientRender", root, function () if ( getElementData ( resourceRoot, "Have_" ) == true ) then local Lines = getChatboxLayout ()["chat_lines"] if ( Lines <= 10 ) then Lines = Lines + 1 elseif ( Lines >= 20 ) then Lines = Lines - 1 else Lines = Lines end if ( getElementData ( resourceRoot, "Msg_" ) == "1" ) then setElementData ( resourceRoot, "Have_", false ) else dxDrawText( "#FF0000[ #FFBC00".. getElementData ( resourceRoot, "By_" ) .." #FF0000] #1EFF00: " .. getElementData ( resourceRoot, "Msg_" ), 301, 394, 856, 463, tocolor(255, 255, 255, 255), 2,"default-bold", "left", "top", false, false, false, true, false ) end end end) bindKey("N", "down","chatbox","عاجل") وهاد سيرفر local Groups = { "lool" } function isPlayerAdmin(player) for k,v in ipairs ( Groups ) do if ( isObjectInACLGroup("user." .. getAccountName(getPlayerAccount(player)), aclGetGroup(v)) ) then return true end end end addCommandHandler("عاجل", function ( player, cmd, ... ) if not ( isGuestAccount ( getPlayerAccount ( player ) ) ) then if ( isPlayerAdmin ( player ) ) then local msg = {...} local message = table.concat(msg, " ") setElementData ( resourceRoot, "Have_", true ) setElementData ( resourceRoot, "Msg_", message ) if ( getElementData ( player, "Name" ) and getElementData ( player, "Name" ) ~= false ) then setElementData ( resourceRoot, "By_", getElementData ( player, "Name" )) else setElementData ( resourceRoot, "By_", getPlayerName ( player )) end else outputChatBox("* ليس لديك خاصية العاجل !", player, 255, 0, 0, true) end else outputChatBox("* الرجاء تسجيل الدخول !", player, 255, 0, 0, true) end end)
  19. يا حبيبي انا قلتلك لو يعني مثال اعتبرني سرقتها انت شدخلك هوة قال يبيها يكتب كلمة من اف 8 ويكتب العاجل هيك بيقصد ولو يبي لوحة من اف 8 تفتح انا جاهز اسويله ياها
×
×
  • Create New...