Sign in to follow this  
Crocodile

_••لوحة الترقيات أو شراء رتب بالساعات••_

Recommended Posts

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

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

تقريباً أول مود ترقيات لجراند ، وهو سوا واحد بعده لكن خارب لبعض الناس

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

طبعاً يلي يشوف المود بعد التعديل يقول من تصميم جديد ، بس انا أطلق عليه الإصدار الثالث v.3 بما إن برستيج ما سوا جديد

طبعا الملفات غير مشفّرة ، إعتقد أغلب يلي يحملون المود راح يغيرون الحقوق ، احب اقوللهم غيروا يا حبايبي براحتـكم ، انا ماشفّرت المود إحتراماً حقوق برستيج :)

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

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

htKFqf.jpg

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

1jExML.jpg

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

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

:نجي للتحميل

G.png

تحياتي للأشخاص يلي عاجبتني برمجتهم

برستيج

نسور

العقرب

نايك

كيمو

تطوير

سعد

والبـاقي في الـقلب

الحين نجي لكود حق ملف السيرفر

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

----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [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_) 

في أمان الله

Share this post


Link to post

عمل كويس تقريبا

بالنسبة للطلب حقكـ .. مسوي مود شراء رتبة زي كذا وسويت هذا الكود استخدمه انت بـ الاكواد حقكـ :

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 

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

اذا واجهتكـ مشكلة ولا عندكـ استفسار كلمني خاص .

Share this post


Link to post

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

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

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

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

----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [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_) 

Share this post


Link to post

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

----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [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 
  

Share this post


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

----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [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 
  

قروب عالاغلب

Share this post


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

----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [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 
  

قروب

Share this post


Link to post

----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [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 
  

Share this post


Link to post
----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [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:(

Share this post


Link to post

كتبت اسم القروب ؟ .. ومتاكد انك مو موجود بالقروب

في اخطاء بالديبوق ؟

Share this post


Link to post
كتبت اسم القروب ؟ .. ومتاكد انك مو موجود بالقروب

في اخطاء بالديبوق ؟

كل شي متأكد منه ، بس مش مشكلة شكراً انت ساعدتني بارك الله فيك

Share this post


Link to post

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

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

Share this post


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

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

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

Share this post


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

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

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

Share this post


Link to post

كفوووو مود حلو بالتوفيق بتمنى النجاح لك

Share this post


Link to post

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
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.