Jump to content

مشكلة في موذ ترقيات

momar5700

By momar5700
in البرمجة

Recommended Posts

momar5700 Street Cat

momar5700

Posted
Posted

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

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

وهي

في منع رتب ماتككررر

ماعاد ثلاث رتبات كان المود شغال تمات بالتمام بس زود علية خليتهم فوق 6

جيت اجرب المود وماكان معي ولا رتبة من 6

اتشتغلل وككرر رتب

وش اسوي كيف احل مشكلة

الكود مشروح

addEventHandler("remove", getRootElement(), removee) 
  
function removeGroups (  element  ) 
    if ( element and isElement ( element ) ) then 
        if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
            for _, v in ipairs ( aclGroupList ( ) ) do 
                g = aclGroupGetName ( v ) 
                if g ~= "Control" and g ~= "Console-SuperModerator" and g ~= "Console-Home" and g ~= "Console-Moderator" and g ~= "Managers-Console" and g ~= "Managers-ACl" and g ~= "Console" and g ~= "Managers" and g ~= "Maps" then 
                    if ( isObjectInACLGroup ( "user." .. getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
                        aclGroupRemoveObject ( v, "user." .. getAccountName ( getPlayerAccount ( element ) ) ) 
                    end 
                end 
            end 
        end 
    end 
end

Link to comment
momar5700 Street Cat

momar5700

Posted
  • Author
Posted

تبون الكود الكامل هادا هو

---------------------- 
-- ** Buy Admin's Script 
-- BY:Momar5600 
--   server  
---------------------- 
  
xAddToGroupFunction_ = function ( Group,Price,Name ) 
    local account = getAccountName(getPlayerAccount(source)) 
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("انت لم تسجل بالسيرفر",source,238,158,73,true); end 
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("لا يمكنك اختيار الرتبه لانه فعلا معك",source,238,158,73,true); end 
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin-EX")) then return outputChatBox("انت مخآلف لايمكنك الحصول على رتبه",source,238,158,73,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 
        removeGroups ( source ) 
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
        outputChatBox("مبروك لقد حصلت على الرتبه "..Name,source,238,158,73,true); 
    else 
        outputChatBox("عدد ساعاتك غير كافيه",source,238,158,73,true); 
    end 
end 
addEvent("Accept:the:request",true) 
addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
  
addEventHandler("remove", getRootElement(), removee) 
  
function removeGroups (  element  ) 
    if ( element and isElement ( element ) ) then 
        if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
            for _, v in ipairs ( aclGroupList ( ) ) do 
                g = aclGroupGetName ( v ) 
                if g ~= "Control" and g ~= "Console-SuperModerator" and g ~= "Console-Home" and g ~= "Console-Moderator" and g ~= "Managers-Console" and g ~= "Managers-ACl" and g ~= "Console" and g ~= "Managers" and g ~= "Maps" then 
                    if ( isObjectInACLGroup ( "user." .. getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
                        aclGroupRemoveObject ( v, "user." .. getAccountName ( getPlayerAccount ( element ) ) ) 
                    end 
                end 
            end 
        end 
    end 
end 
 

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

ماصار يشتغل

Link to comment
` Allawi Prankster

` Allawi

Posted
Posted
تبون الكود الكامل هادا هو 
---------------------- 
-- ** Buy Admin's Script 
-- BY:Momar5600 
--   server  
---------------------- 
  
xAddToGroupFunction_ = function ( Group,Price,Name ) 
    local account = getAccountName(getPlayerAccount(source)) 
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("انت لم تسجل بالسيرفر",source,238,158,73,true); end 
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("لا يمكنك اختيار الرتبه لانه فعلا معك",source,238,158,73,true); end 
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin-EX")) then return outputChatBox("انت مخآلف لايمكنك الحصول على رتبه",source,238,158,73,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 
        removeGroups ( source ) 
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
        outputChatBox("مبروك لقد حصلت على الرتبه "..Name,source,238,158,73,true); 
    else 
        outputChatBox("عدد ساعاتك غير كافيه",source,238,158,73,true); 
    end 
end 
addEvent("Accept:the:request",true) 
addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
  
addEventHandler("remove", getRootElement(), removee) 
  
function removeGroups (  element  ) 
    if ( element and isElement ( element ) ) then 
        if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
            for _, v in ipairs ( aclGroupList ( ) ) do 
                g = aclGroupGetName ( v ) 
                if g ~= "Control" and g ~= "Console-SuperModerator" and g ~= "Console-Home" and g ~= "Console-Moderator" and g ~= "Managers-Console" and g ~= "Managers-ACl" and g ~= "Console" and g ~= "Managers" and g ~= "Maps" then 
                    if ( isObjectInACLGroup ( "user." .. getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
                        aclGroupRemoveObject ( v, "user." .. getAccountName ( getPlayerAccount ( element ) ) ) 
                    end 
                end 
            end 
        end 
    end 
end 
 

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

ماصار يشتغل

ناسب الحقوق لك وانت اصلا ماسويت شي وتبي نساعدك ؟

Link to comment
Rockyz Jacker

Rockyz

Posted
Posted

هذي المرة جاهز بس

---------------------- 
-- ** Buy Admin's Script 
-- BY: Not Momar5600 
--   server 
---------------------- 
  
grps = { 
{"Control"}, 
{"Console-SuperModerator"}, 
{"Console-Home"}, 
{"Console-Moderator"}, 
{"Managers-Console"}, 
{"Managers-ACl"}, 
{"Managers"}, 
{"Maps"} 
} 
  
xAddToGroupFunction_ = function ( Group,Price,Name ) 
    local account = getAccountName(getPlayerAccount(source)) 
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("انت لم تسجل بالسيرفر",source,238,158,73,true); end 
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("لا يمكنك اختيار الرتبه لانه فعلا معك",source,238,158,73,true); end 
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin-EX")) then return outputChatBox("انت مخآلف لايمكنك الحصول على رتبه",source,238,158,73,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 
        removeGroups ( source ) 
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
        outputChatBox("مبروك لقد حصلت على الرتبه "..Name,source,238,158,73,true); 
    else 
        outputChatBox("عدد ساعاتك غير كافيه",source,238,158,73,true); 
    end 
end 
addEvent("Accept:the:request",true) 
addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
  
addEventHandler("remove", getRootElement(), removee) 
  
function removeGroups (  element  ) 
    if ( element and isElement ( element ) ) then 
        if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
            for _, v in ipairs ( aclGroupList ( ) ) do 
                for k, g in ipairs ( grps ) do 
                if aclGroupGetName ( v ) ~= g[1] then 
                    if ( isObjectInACLGroup ( "user." .. getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
                        aclGroupRemoveObject ( v, "user." .. getAccountName ( getPlayerAccount ( element ) ) ) 
                    end 
                end 
            end 
        end 
    end 
end 
 end
Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted 
---------------------- 
-- ** Buy Admin's Script 
-- BY:Momar5600 
--   server 
---------------------- 


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

ههههههههههههههههههه ي كثر اللي أخذو حقوق هالسكربت تقل انهم ماشافو سكربت غيره مفتوح الشفرة عموماً عدلو عليه وعدلو الحقوق ترا ماتفرق معي المهم اني عارف اني سويتة واللي يعدل عليه ويبي يعدل صح اللي فاهم برمجة صح ولا اللي مسوي السكربت كلها واحد :lol:

:shockingzap:

Link to comment
momar5700 Street Cat

momar5700

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] 
---------------------- 
  
grps = { 
{"Control"}, 
{"Console-SuperModerator"}, 
{"Console-Home"}, 
{"Console-Moderator"}, 
{"Managers-Console"}, 
{"Managers-ACl"}, 
{"Managers"}, 
{"Maps"} 
} 
  
xAddToGroupFunction_ = function ( Group,Price,Name ) 
    local account = getAccountName(getPlayerAccount(source)) 
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("انت لم تسجل بالسيرفر",source,238,158,73,true); end 
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("لا يمكنك اختيار الرتبه لانه فعلا معك",source,238,158,73,true); end 
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin-EX")) then return outputChatBox("انت مخآلف لايمكنك الحصول على رتبه",source,238,158,73,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 
        removeGroups ( source ) 
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
        outputChatBox("مبروك لقد حصلت على الرتبه "..Name,source,238,158,73,true); 
    else 
        outputChatBox("عدد ساعاتك غير كافيه",source,238,158,73,true); 
    end 
end 
addEvent("Accept:the:request",true) 
addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 
  
addEventHandler("remove", getRootElement(), removee) 
  
function removeGroups (  element  ) 
    if ( element and isElement ( element ) ) then 
        if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
            for _, v in ipairs ( aclGroupList ( ) ) do 
                for k, g in ipairs ( grps ) do 
                if aclGroupGetName ( v ) ~= g[1] then 
                    if ( isObjectInACLGroup ( "user." .. getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
                        aclGroupRemoveObject ( v, "user." .. getAccountName ( getPlayerAccount ( element ) ) ) 
                    end 
                end 
            end 
        end 
    end 
end 
 end

Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted

انا مافهمت وش تبي تسوي وبعدين من اللي معدل على المود انا مدري مسوية بالساعات انا كنت مسوية بـ الفلوس عموماً مايهمنا ذا بس الحين وش تبي تسوي اذا ترقى يشيل كل الرتب اللي عندة؟ ويحطة في الرتبة اللي ترقى لها بس؟ :roll:

Link to comment
</Mr.Tn6eL> Foot Soldier

</Mr.Tn6eL>

Posted
Posted
انا مافهمت وش تبي تسوي وبعدين من اللي معدل على المود انا مدري مسوية بالساعات انا كنت مسوية بـ الفلوس عموماً مايهمنا ذا بس الحين وش تبي تسوي اذا ترقى يشيل كل الرتب اللي عندة؟ ويحطة في الرتبة اللي ترقى لها بس؟ :roll:

سعد عدل على سكربتك وخلاه بالساعات هل تعلم ذلك ام لا 8):mrgreen:

  • Like 1
Link to comment

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