Jump to content

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

Crocodile

By Crocodile
in المساهمات

Recommended Posts

Crocodile Advanced Member

Crocodile

Posted
Posted

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

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

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

طبعاً انا أخذت القديم وعدلت على بحيث يكون اجمل وكفو ، ونجحت في العمل بحمد الله ، وما شلت الحقوق حق برستيج :) والمود غير مشفّر نهائي :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 : [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_)

في أمان الله

Link to comment
#DRAGON!FIRE Hawg

#DRAGON!FIRE

Posted
Posted

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

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

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

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

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

Link to comment
Crocodile Advanced Member

Crocodile

Posted
  • Author
Posted

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

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

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

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

----------------------- 
-- ** 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_)

Link to comment
#DRAGON!FIRE Hawg

#DRAGON!FIRE

Posted
Posted

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

----------------------- 
-- ** 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 
 
Link to comment
iMr.TZ[W]ER Mack

iMr.TZ[W]ER

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

----------------------- 
-- ** 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 
 

قروب عالاغلب

Link to comment
Crocodile Advanced Member

Crocodile

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

----------------------- 
-- ** 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 
 

قروب

Link to comment
#DRAGON!FIRE Hawg

#DRAGON!FIRE

Posted
Posted 

----------------------- 
-- ** 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 
 
Link to comment
Crocodile Advanced Member

Crocodile

Posted
  • Author
Posted 
----------------------- 
-- ** 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:(

Link to comment
Crocodile Advanced Member

Crocodile

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

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

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

Link to comment
Crocodile Advanced Member

Crocodile

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

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

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

Link to comment
  • 2 weeks later...
  • 2 weeks later...
  • 3 years later...

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
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...