Jump to content

Crocodile

Members
  • Posts

    26
  • Joined

  • Last visited

Posts posted by Crocodile

  1. بسم الله الرحمن الرحيم

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

    اليوم جايبلكم بداية من تصميمي ، وساحة قتال تشبه يلي في وزارة بنسبه 98% تقدر تقول

    :)

    صور البداية

    ZNCbsx.jpg

    mytOBu.jpg

    GBjGiw.jpg

    الحين صور الساحة

    Jvswrs.jpg

    iOvMEg.png

    LVHOyj.jpg

    dqYoah.jpg

    30uTQP.jpg

    Fv1wt7.jpg

    uvN9Rx.jpg

    ملاحظة: البداية لما تركبها يجيك شخصيات عشوائية ، ماعرفت اثبت شخصية

    -_-

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

    الماب لعيون سكندر #مانجرس_في_وزارة

    صاحب الفكرة #كونان

    نجي لتحميييييييييييييييل الماب

    G.png

    تحمييييييييييييل الشوب

    G.png

    إهـداء الى

    ZA7F

    The Killer

    حياكم الله في سيرفر نجوم ليبيا

    mtasa://185.10.17.81:27029

  2. عدل ال جدول

    Groups

    خله على اسماء القروبات الموجوده عندك في القائمه

    ----------------------- 
    -- ** Buy Admin's Script 
    -- Created By Mr.Pres[T]ege 
    -- Ver 1.0.0 
    -- Mail : [email protected] 
    -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] 
    --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل 
    ---------------------- 
      
    local Groups = { 
    "KingOfTime", 
    "V.I.P", 
    "PoliceAssistant", 
    "Police", 
    "Moderator", 
    "SuperModerator", 
    "AdminTop", 
    "AdminPlus", 
    "AdminBoss", 
    "AdminGeneral", 
    "HeadAdmin", 
    "KINGADMIN", 
    } 
      
    xAddToGroupFunction_ = function ( Group,Price,Name ) 
      local account = getAccountName(getPlayerAccount(source)); 
        if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end 
           if isObjectInACLGroup("user."..account, aclGetGroup ( "Admin-ex" ) ) then return end 
              if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end 
                 local sValue = getElementData( source,'PlayTime' ) 
                   if not sValue then sValue = '0:0:0' end 
                      local data = split(sValue,':') 
                      local hour = tonumber( data[1] )   
                      if hour == nil or not tonumber(hour) then hour = 0 end 
                      if ( hour >= tonumber(Price))  then 
                      for _,v in ipairs(Groups) do 
                      if isObjectInACLGroup ("user." .. account, aclGetGroup (v)) then 
                      aclGroupRemoveObject(aclGetGroup(v),'user.'..account) 
                      end  
                      end 
                      setTimer (aclGroupAddObject, 500, 1, aclGetGroup( tostring(Group)),"user."..account); 
                      outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); 
                      else 
                      outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); 
                   end 
         end 
    addEvent("Accept:the:request",true) 
    addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
    

    شكراً لك بالنسبة للمخالف تم واشتغل المود والمخالف ما يقدر يرقي نفسه ، لكن بالنسبة لتبديل الرتبة ما نفع اخذت حق المخالفة وهو الوحيد يلي اشتغل

    ذا الكوود يلي اشتغل معاي

    -- ** Buy Admin's Script 
    -- Created By Mr.Pres[T]ege 
    -- Ver 1.0.0 
    -- Mail : [email protected] 
    -- [url=http://www.gta-arabs.com]www.gta-arabs.com[/url] 
    --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل 
    ---------------------- 
    xAddToGroupFunction_ = function ( Group,Price,Name ) 
        local account = getAccountName(getPlayerAccount(source)); 
        if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end 
        if isObjectInACLGroup("user."..account, aclGetGroup ( "Admin-F" ) ) then return outputChatBox("* ماتقدر ترقي نفسك لأنك مخالف",source,255,0,0,true); end 
        if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end 
        local sValue = getElementData( source,'PlayTime' ) 
        if not sValue then sValue = '0:0:0' end 
        local data = split(sValue,':') 
        local hour = tonumber( data[1] )   
        if hour == nil or not tonumber(hour) then hour = 0 end 
        if ( hour >= tonumber(Price))  then 
        isObjectInACLGroup (aclGetGroup("AdminTop"),"user."..account) 
        aclGroupRemoveObject (aclGetGroup( tostring(Group)),"user."..account) 
                aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
            outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); 
        else 
            outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); 
        end 
    end 
    addEvent("Accept:the:request",true) 
    addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
    

  3. https://community.multitheftauto.com/index.php?p=resources&s=details&id=1201

    وضيف في السطر الـ رابع ذا

    outputChatBox(''..getPlayerName(player)..' ارسل شوت ',root,255,255,0,true) 
    

    وعشان تخلي الـ تكست ابيض بدل السطر ذا

    local textItem = textCreateTextItem( ""..message, 0.5, 0.5, 2, 255, 255, 255, 255, 3, "center", "center" ) 
    

    شكراً بالنسبة لأضافة الخط؟ انا نزلت خط لكن ياريت تقولي وشكراً

  4. مود برستيج في مشكلة

    لو مثلا معي رتبة Police

    ورحت اشتريت Mod

    راح يكون معي 2 رتبة

    Police , Mod

    وهذه مشكلة -_-:(

    المود مافيه مشكله , اتوقع المشكله منك انت

    المود مبرمج على انه يعطي رتبه ويكمل

    لاكن انت بنفسك تقدر تضيف تحققات

    for -- نجيب القيم من الجدول 
    isObjectInACLGroup 
    aclGroupRemoveObject 
    aclGroupAddObject 
    

    نتحقق اذا كان الاعب عنده قروب سابق , من القروبات الموجوده في الجدول

    نحذف منه الرتب السابقه , ونعطيه الرتبه الجديده

    لاكن المود مافييه اخطأء , غير الي فوق

    سويت كذا بس مازال لما ترقى تزيد رتبة ما تتبدل

        aclGroupRemoveObject (aclGetGroup( tostring(Group)),"user."..account) 
                aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
            outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); 
    

  5. Event # 
    'onClientGUIClick' 
    'onClientResourceStart' 
      
    function # 
    guiCreateWindow 
    guiCreateGridList 
    guiCreateButton 
    guiCreateEdit 
    bindKey 
    guiSetVisible 
    showCursor 
    --------------- 
    for -- نجيب القيم الموجوده في الجدول , او نجيب جميع السيارات لو تبي 
    guiGridListAddRow 
    guiGridListSetItemText 
    guiGridListGetSelectedItem 
    guiGridListGetItemText 
    getVehicleNameFromModel 
    getVehicleModelFromName 
    triggerServerEvent 
    -- Server Side 
    createVehicle 
    executeSQLQuery 
    triggerClientEvent 
    warpPedIntoVehicle 
    setElementPosition 
    

    سويت كذا قولي لو فيه شي غلط او ناقص ذا بالنسبة لملف الكلنت

    function 
    CPanelWindow = guiCreateWindow(432, 194, 501, 440, ":: Control Panel Of Rent System ::", false) 
    guiWindowSetSizable(CPanelWindow, false) 
    centerWindow( CPanelWindow, 2, 2 ) 
    guiSetAlpha(CPanelWindow, 1.00) 
    guiSetVisible(CPanelWindow,false) 
    carGridList = guiCreateGridList(10, 21, 260, 406, false, CPanelWindow) 
    guiSetVisible(carGridList,false) 
    Searching = guiCreateEdit(287, 40, 191, 25, "", false, CPanelWindow) 
    guiEditSetMaxLength(Searching, 35) 
    createBTN = guiCreateButton(287, 79, 191, 39, "Create Vehicle", false, CPanelWindow) 
    guiSetProperty(createBTN, "NormalTextColour", "FFAAAAAA") 
    destroyBTN = guiCreateButton(287, 128, 191, 39, "Destroy Vehicle", false, CPanelWindow) 
    guiSetProperty(destroyBTN, "NormalTextColour", "FFAAAAAA") 
    warpMeBTN = guiCreateButton(287, 177, 191, 39, "Warp Me To Vehicle", false, CPanelWindow) 
    guiSetProperty(warpMeBTN, "NormalTextColour", "FFAAAAAA") 
    warpVehicleBTN = guiCreateButton(287, 226, 191, 39, "Warp Vehicle To Me", false, CPanelWindow) 
    guiSetProperty(warpVehicleBTN, "NormalTextColour", "FFAAAAAA") 
    CCBTN = guiCreateButton(287, 276, 191, 39, "X", false, CPanelWindow) 
    showingWindow = guiCreateWindow(190, 29, 775, 595, "", false) 
    guiWindowSetSizable(showingWindow, false) 
    guiSetVisible ( showingWindow, false ) 
    centerWindow( showingWindow, 2, 2 ) 
    guiSetAlpha(showingWindow, 1) 
      
    img = guiCreateStaticImage(19, 27, 728, 510, "info.png", false, showingWindow) 
    guiSetAlpha(img, 0.5) 
    closeShowing = guiCreateButton(103, 548, 556, 37, "X", false, showingWindow) 
    addEventHandler ( "onClientResourceStart", resourceRoot, 
        function ( ) 
            for i = 400, 600 do 
                if ( getVehicleNameFromModel ( i ) ~= "" ) then 
                    if not DisabledCars[i] then      
                        table.insert( CAR, { model = i, name = getVehicleNameFromModel ( i ) } ) 
                    end  
                end 
            end 
            table.sort( CAR, function(a, b) return a.name < b.name end ) 
            CL1 = guiGridListAddColumn( carGridList, "Vehicle", 0.60 ) 
            CL2 = guiGridListAddColumn( carGridList, "ID", 0.25 ) 
            for i,v in ipairs(CAR) do 
                local row = guiGridListAddRow ( carGridList ) 
                guiGridListSetItemText ( carGridList, row, CL1, v.name, false, true ) 
                guiGridListSetItemText ( carGridList, row, CL2, tostring(v.model), false, true ) 
            end 
            setElementData ( localPlayer, "playerCar", false )       
            triggerServerEvent('getRentSystem',localPlayer) 
        end 
    ) 
      
    local Show = false 
      
    bindKey ( "O", "down", 
        function ( ) 
            if Show == true then 
                guiSetVisible ( CPanelWindow, not guiGetVisible ( CPanelWindow ) ) 
                showCursor ( guiGetVisible ( CPanelWindow ) ) 
                guiSetInputEnabled ( guiGetVisible ( CPanelWindow ) ) 
            end 
        end 
    ) 
    

  6. بسطر ثنين منت معرف player

    وانت مخبص شوي مسوي كومندين واقواس وايندات زايده

    صححت لك الكود وقارنه بالكود حقك عشان تعرف الاخطاء وكل شي

    addCommandHandler ("msgall",function(player,cmd,...) 
    local accName = getAccountName ( getPlayerAccount ( player ) ) 
        if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Console" ) ) then 
        outputChatBox("هذا اللاعب كتب على شاشة الجميع #FF00FF "..getPlayerName(player).."#FF0000", getRootElement(), 255, 0, 0, true) 
        local message = table.concat ( { ... }," " ) 
        textDisplay = textCreateDisplay ( ) 
        textItem = textCreateTextItem ( message, 0.5, 0.6, 2, 255, 255, 255, 255, 2.5, "center", "center" ) 
        setTimer ( 
        function ( ) 
        textDestroyTextItem ( textItem ) 
        textDestroyDisplay ( textDisplay ) 
        end 
        ,5000, 1 
        ) 
        end 
    end 
    ) 
    

    شكراً للتعديل ضفت الكود الى ملف سيرفر وعرفته في الميتا وشغلت المود في السيرفر لكـن ما يبي يكتب في الشات :(

  7. مود برستيج في مشكلة

    لو مثلا معي رتبة Police

    ورحت اشتريت Mod

    راح يكون معي 2 رتبة

    Police , Mod

    وهذه مشكلة -_-:(

    بالزبط عشان كذا طالب برمجة للمود ، ولا تنسى المخالف يقدر يرقي نفسه ، المود يبقى خرافي لو تبرمج على هذه الطلب

  8. سهلة جدا :
    addCommandHandler 
    isObjectInACLGroup 
    outputChatBox 
    triggerClientEvent 
    addEventHandler 
    dxDrawText 
    setTimer 
    removeEventHandler 
    

    Text functions في طريقة ثانية بـ استخدام

    +

    dxCreateFont 
    

    يجيب الخط الي هو يبيه

    انا سويت يلي قلتولي عليه قولولي فيه خطأ او لا؟ وهل احطه في ملف السيرفر او الكلنت وشكراً

    addCommandHandler ("msgall"),function() 
    outputChatBox("هذا اللاعب كتب على شاشة الجميع #FF00FF "..getPlayerName(player).."#FF0000", getRootElement(), 255, 0, 0, true) 
    end 
      
    local accName = getAccountName ( getPlayerAccount ( thePlayer ) ) 
    if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Console" ) ) then 
            local message = table.concat ( { ... }," " ) 
            textDisplay = textCreateDisplay ( ) 
            textItem = textCreateTextItem ( message, 0.5, 0.6, 2, 255, 255, 255, 255, 2.5, "center", "center" ) 
            end 
            setTimer ( 
                function ( ) 
                    textDestroyTextItem ( textItem ) 
                    textDestroyDisplay ( textDisplay ) 
                end 
                ,5000, 1 
            ) 
        end 
    end 
    addCommandHandler ( "msgall", shout ) 
      
    

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

    وتحقق لو في اغلاط من اللي ضفته انا او انت او من الاكواد الاصلية نفسها .

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

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

    وتحقق لو في اغلاط من اللي ضفته انا او انت او من الاكواد الاصلية نفسها .

    لا متأكد معاي ساعات كافية و ماني موجود في القروب المخالف لكن اجرب مود او لوحة ترقية ثانية واكلمك شكراً

  11. سلام عليكم ورحمه الله

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

    هو مود نفس يلي سواه Bozllit

    بس انا ابي فيه مواصفات معينة* مثلاً:

    مايكونش فيه خاصية اختيار اللوان #يكتب_ابيض_على_طول-1

    يكتب في نص الشاشة-2

    يكتب بخط حلو مثل في هذه الصورة-3

    H1qC8w.jpg

    ملاحظة: بدون كلمة ادمن :)

    يكون مجرد كلمة تنكتب في اف8-4

    مثلاً msgall سلام عليكم ورحمه الله

    لما حد يكتب في الشوت يطلع اسمه في الشات-5

    نفس مايسوي بيتر في وزارة الهجولة*بالزبط,,

    يلي عنده سكربت يشفره براحته بس يطرحه ليا وشكراً لكـم

    في امان الله

  12. الكود الي انت طارحة بالموضوع فيه اخطاء واضحه بالكلينت

    عندك 4 كولمن فقط

    guiGridListAddColumn(GiveAdmin.gridlist[1], "الرتبة", 0.6); 
    guiGridListAddColumn(GiveAdmin.gridlist[1], "الساعات المطلوبة", 0.2); 
    guiGridListAddColumn(GiveAdmin.gridlist[1], "", 0.0) 
    guiGridListAddColumn(GiveAdmin.gridlist[1], "", 0.0); 
    

    بينما انت هنا جالس تحط كلام بكولمن رقم 6 و انت ما عندك كولمن 6

    guiGridListSetItemText(GiveAdmin.gridlist[1],row,6,v[1],false,false); 
    

    و هنا تجيب الكلام من كولمن رقم 6 و هو غير موجود

    local Name = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,6 )); 
    

    و بعد تسوي تريقر للمتغير

    triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); 
    

    و تستخدمه بالسيرفر و هو بالأساس مافيه كولمن رقم 6

    xAddToGroupFunction_ = function ( Group,Price,Name ) 
    .. 
    .. 
    .. 
    outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); 
    

    ](*,)](*,)](*,)

    صح بالزبط كل كلمة قلتها صحيحة ، لكن انا معدل عليه المود وحاذف اشياء وخافية ، لو انت عندك مود لوحة ترقيات محمية تقدر تشاركنا بيها وشكراً لردك :)

  13. server side
    ----------------------- 
    -- ** Buy Admin's Script 
    -- Created By Mr.Pres[T]ege 
    -- Ver 1.0.0 
    -- Mail : [email protected] 
    -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] 
    --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل 
    ---------------------- 
    xAddToGroupFunction_ = function ( Group,Price,Name ) 
        local account = getAccountName(getPlayerAccount(source)); 
        if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end 
        if isObjectInACLGroup("user."..account, aclGetGroup ( "Admin-ex" ) ) then return end 
        if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end 
        local sValue = getElementData( source,'PlayTime' ) 
        if not sValue then sValue = '0:0:0' end 
        local data = split(sValue,':') 
        local hour = tonumber( data[1] )   
        if hour == nil or not tonumber(hour) then hour = 0 end 
        if ( hour >= tonumber(Price))  then 
            for _,group in ipairs(aclGroupList()) do 
            local name = aclGroupGetName(group) 
            aclGroupRemoveObject(aclGetGroup(name),'user.'..account) 
            end 
            aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
            outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); 
        else 
            outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); 
        end 
    end 
    addEvent("Accept:the:request",true) 
    addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
    

    نصيحه لاتكتب created by : .. & اسمك

    لانك ماصنعت السكربت عدلت عليه فقط

    create by :

    edited by : اسمك

    شكراً على مساعدتك بس والله المود ما يبغى يعطى رتبة ابداً ولما رجعت كود قبل التعديل رجع اشتغل ياريت لو تعدل عليه ثاني واسف تعبتك معاي :)

  14. ----------------------- 
    -- ** Buy Admin's Script 
    -- Created By Mr.Pres[T]ege 
    -- Ver 1.0.0 
    -- Mail : [email protected] 
    -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] 
    --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل 
    ---------------------- 
    local ForbiddenGroup = "" -- اسم قروب المخالفين 
      
    xAddToGroupFunction_ = function ( Group,Price,Name ) 
        local account = getAccountName(getPlayerAccount(source)); 
        if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end 
        if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end 
        if isObjectInACLGroup("user."..account, aclGetGroup(ForbiddenGroup)) then return outputChatBox("* انت مخالف",source,255,0,0,true); end 
        local sValue = getElementData( source,'PlayTime' ) 
        if not sValue then sValue = '0:0:0' end 
        local data = split(sValue,':') 
        local hour = tonumber( data[1] )   
        if hour == nil or not tonumber(hour) then hour = 0 end 
        if ( hour >= tonumber(Price))  then 
            revmoeOtherGroups ( source ) 
            aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
            outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); 
        else 
            outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); 
        end 
    end 
    addEvent("Accept:the:request",true) 
    addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
      
    function revmoeOtherGroups (  element  ) 
     if ( element and isElement ( element ) ) then 
      if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
       for _, v in ipairs( aclGroupList (   ) ) do 
        if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
               aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) 
            end 
          end 
        end 
      end 
    end 
      
    

    للأسف ما يبي يرقي ، لما رجعت الكود القديم حق السيرفر بقى يرقي لكن كودك ما خلاني اترقى ياريت تقولي وش السبب ، وشكراً لك عشان متابع معايا :D:(

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

    اليوم جبت لكم مود من تعديلي المود من أصل الله يعطيه كل خير #برستيج

    طبعاً انا أخذت القديم وعدلت على بحيث يكون اجمل وكفو ، ونجحت في العمل بحمد الله ، وما شلت الحقوق حق برستيج :) والمود غير مشفّر نهائي :D

    الآن الصـور #قبـل و #بعـد

    قــــــــــــبــــــــــــــــــــــــــــــــــــــل

    htKFqf.jpg

    بـــــــــــعــــــــــــــــــــــــــــــد

    1jExML.jpg

    أطـلب من ذوي الخبرة والمبرمجين يعدلون على المود ويخلّون ( المخالف ) ما يقدر يترقى في اللوحة ، ابي اسم القروب ( Admin-ex )

    والشي الثاني ، لو اي شخص يترقى تتبـدل رتبته ما تزيد! ، لأنه في هذه المود لو ترقي نفسك من شرطي الى مشرف تكون عندك رتبتين #شرطي_و_مشرف ، انا ما ابي هذه الشي #فضلاً_وليس_أمراً

    ياريت تضبطون يلي قلتلكم عليه وتحطون كل شي وشكراً مقدماً :)

    كود ملف الكلنت

    ----------------------- 
    -- ** Buy Admin's Script 
    -- Created By Mr.Pres[T]ege 
    -- Ver 1.0.0 
    -- Mail : [email protected] 
    -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] 
    --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل 
    ---------------------- 
      
    ---------------------- 
    -- Setting 
    ---------------------- 
      
    local Key = "F7" 
      
    local Admin = { 
    {"","KingOfTime","10"}, 
    {"","V.I.P","20"}, 
    {"","PoliceAssistant","25"}, 
    {"","Police","30"}, 
    {"","Moderator","40"}, 
    {"","SuperModerator","45"}, 
    {"","AdminTop","50"}, 
    {"","AdminPlus","55"}, 
    {"","AdminBoss","60"}, 
    {"","AdminGeneral","80"}, 
    {"","HeadAdmin","90"}, 
    {"","KINGADMIN","90"}, 
    } 
      
    ---------------------- 
    -- Setting 
    ---------------------- 
      
      
    GiveAdmin = { 
        Window = {}, 
        gridlist = {}, 
        button = {}, 
        label = {}, 
    } 
      
    function centerWindow(center_window) 
        local screenW,screenH=guiGetScreenSize() 
        local windowW,windowH=guiGetSize(center_window,false); 
        local x,y = (screenW-windowW)/2,(screenH-windowH)/2 
        guiSetPosition(center_window,x,y,false); 
    end 
      
    GiveAdmin.Window[1] = guiCreateWindow(445, 532, 400, 339, "حياكم الله في لوحة الترقيات", false); 
    centerWindow(GiveAdmin.Window[1]); 
    guiSetVisible(GiveAdmin.Window[1],false); 
    guiWindowSetSizable(GiveAdmin.Window[1], false); 
    guiSetAlpha(GiveAdmin.Window[1], 1.00); 
    guiSetProperty(GiveAdmin.Window[1], "CaptionColour", "FF0383FB"); 
      
    GiveAdmin.label[1] = guiCreateLabel(8, 19, 232, 33, "You Can Take a Group By Your Hours", false, GiveAdmin.Window[1]); 
    GiveAdmin.label[2] = guiCreateLabel(243, 33, 232, 53, "يمكنك أن تأخذ رتبة بساعاتك", false, GiveAdmin.Window[1]); 
    guiSetFont(GiveAdmin.label[1], "default-bold-small") 
    guiLabelSetColor(GiveAdmin.label[1], 255, 0, 0) 
    GiveAdmin.gridlist[1] = guiCreateGridList(9, 51, 494, 236, false, GiveAdmin.Window[1]); 
    guiGridListAddColumn(GiveAdmin.gridlist[1], "الرتبة", 0.6); 
    guiGridListAddColumn(GiveAdmin.gridlist[1], "الساعات المطلوبة", 0.2); 
    guiGridListAddColumn(GiveAdmin.gridlist[1], "", 0.0) 
    guiGridListAddColumn(GiveAdmin.gridlist[1], "", 0.0); 
    GiveAdmin.label[3] = guiCreateLabel(10, 303, 267, 26, "Created By : Mr.Pres[T]ege & =][Croco[D]ile][=", false, GiveAdmin.Window[1]); 
    guiSetFont(GiveAdmin.label[2], "default-bold-small"); 
    guiLabelSetColor(GiveAdmin.label[2], 41, 255, 0); 
    GiveAdmin.button[1] = guiCreateButton(289, 292, 185, 86, "أختار الرتبة", false, GiveAdmin.Window[1]); 
    guiSetFont(GiveAdmin.button[1], "default-bold-small"); 
    guiSetProperty(GiveAdmin.button[1], "NormalTextColour", "FFF5FF00"); 
      
      
    for k,v in ipairs ( Admin ) do 
    row = guiGridListAddRow(GiveAdmin.gridlist[1]); 
    guiGridListSetItemText(GiveAdmin.gridlist[1],row,1,v[2],false,false); 
    guiGridListSetItemText(GiveAdmin.gridlist[1],row,2,v[3],false,false); 
    guiGridListSetItemText(GiveAdmin.gridlist[1],row,6,v[1],false,false); 
    guiGridListSetItemColor(GiveAdmin.gridlist[1],row,3,0,0,0); 
    guiGridListSetItemColor(GiveAdmin.gridlist[1],row,1,255,0,0); 
    guiGridListSetItemColor(GiveAdmin.gridlist[1],row,2,0,255,0); 
    guiSetFont(GiveAdmin.gridlist[1],"default-bold-small"); 
    end 
      
    xMainFunctions_ = function ( ) 
     local row, col = guiGridListGetSelectedItem ( GiveAdmin.gridlist[1] )  
    local Group = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,1 )); 
    local Price = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,2 )); 
    local Name = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,6 )); 
       if ( row and col and row ~= -1 and col ~= -1 ) then 
    triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); 
      else 
      outputChatBox("* الرجاء أختيار رتبة",255,0,0,true); 
      end 
    end 
    addEventHandler("onClientGUIClick",GiveAdmin.button[1],xMainFunctions_,false); 
      
    xBindFunction_ = function () 
        guiSetVisible(GiveAdmin.Window[1],not guiGetVisible(GiveAdmin.Window[1])); 
        showCursor(guiGetVisible(GiveAdmin.Window[1])); 
    end 
    bindKey(Key,"down",xBindFunction_); 
    

    كود ملف السيرفر

    ----------------------- 
    -- ** Buy Admin's Script 
    -- Created By Mr.Pres[T]ege 
    -- Ver 1.0.0 
    -- Mail : [email protected] 
    -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] 
    --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل 
    ---------------------- 
    xAddToGroupFunction_ = function ( Group,Price,Name ) 
        local account = getAccountName(getPlayerAccount(source)); 
        if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end 
        if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end 
        local sValue = getElementData( source,'PlayTime' ) 
        if not sValue then sValue = '0:0:0' end 
        local data = split(sValue,':') 
        local hour = tonumber( data[1] )   
        if hour == nil or not tonumber(hour) then hour = 0 end 
        if ( hour >= tonumber(Price))  then 
            aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
            outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); 
        else 
            outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); 
        end 
    end 
    addEvent("Accept:the:request",true) 
    addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
    

    في أمان الله

  16. بالنسبة للمخالف .. كيف نعرف انه مخالف ؟ داتا ؟ قروب ؟ تيم ؟ كيف ؟

    ----------------------- 
    -- ** Buy Admin's Script 
    -- Created By Mr.Pres[T]ege 
    -- Ver 1.0.0 
    -- Mail : [email protected] 
    -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] 
    --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل 
    ---------------------- 
    xAddToGroupFunction_ = function ( Group,Price,Name ) 
        local account = getAccountName(getPlayerAccount(source)); 
        if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end 
        if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end 
        local sValue = getElementData( source,'PlayTime' ) 
        if not sValue then sValue = '0:0:0' end 
        local data = split(sValue,':') 
        local hour = tonumber( data[1] )   
        if hour == nil or not tonumber(hour) then hour = 0 end 
        if ( hour >= tonumber(Price))  then 
            revmoeOtherGroups ( source ) 
            aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
            outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); 
        else 
            outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); 
        end 
    end 
    addEvent("Accept:the:request",true) 
    addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
      
    function revmoeOtherGroups (  element  ) 
     if ( element and isElement ( element ) ) then 
      if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
       for _, v in ipairs( aclGroupList (   ) ) do 
        if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
               aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) 
            end 
          end 
        end 
      end 
    end 
      
    

    قروب

  17. شكراً لك لكن انا ما عرفت اضيف الكود ؟ حاولت احطه في ملف السيرفر لكن المود مايبي يعطي رتبة من اساسه

    ياريت لو انت تعطيني الكود كامل أكون شاكر لك واسف تعبتك معاي :(

    والشي اهم ابي اي حد ينصك مخالف ما يقدر يرقي نفسه وشكراً لك على ردك :)

    هذه الكود خليه عندك وعدل عليه يجزيك الله كل خير

    ----------------------- 
    -- ** Buy Admin's Script 
    -- Created By Mr.Pres[T]ege 
    -- Ver 1.0.0 
    -- Mail : [email protected] 
    -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] 
    --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل 
    ---------------------- 
    xAddToGroupFunction_ = function ( Group,Price,Name ) 
        local account = getAccountName(getPlayerAccount(source)); 
        if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end 
        if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end 
        local sValue = getElementData( source,'PlayTime' ) 
        if not sValue then sValue = '0:0:0' end 
        local data = split(sValue,':') 
        local hour = tonumber( data[1] )   
        if hour == nil or not tonumber(hour) then hour = 0 end 
        if ( hour >= tonumber(Price))  then 
            aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
            outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); 
        else 
            outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); 
        end 
    end 
    addEvent("Accept:the:request",true) 
    addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
    

×
×
  • Create New...