Jump to content

x X [ مساعده في فنكشنات ] X x

|M.r|LooFe|

By |M.r|LooFe|
in البرمجة

Recommended Posts

|M.r|LooFe| Red-Headed Stepchild

|M.r|LooFe|

Posted
Posted

شباب انا صممت مود شراء رتب

المود شغال

وعدلت عليه خليته لما تسحب رتبت لاعب ما يقدر يشتري تاني

لكن في مشكلة

وهي انه ما يشتري رتب

لما كتبت في اف8 debugscript 3

قالي انها المشكلة في ملف سيرفر السطر 68

روحت للسطر 68

مفيه اي خلل

ممكن حل

كود سيرفر


local Admin = {
{"KinG aL HaJaWlaH","20"},
{"LeGenD oF ServeR","30"},
{"PoLiCe","50"},
{"MoDeRaToR","70"},
{"MoDeRaToR PLuS","100"},
{"PRo MoDeRaToR","150"},
{"GeNeRaL MoDeRaToR","200"},
{"iDeL MoDeRaToR","215"},
{"KinG MoDeRaToR","230"},
{"BesT MoDeRaToR","250"},
{"MaNaGeR MoDeRaToR","260"},
{"BoSs MoDeRaToR","280"},
{"SuPeR MoDeRaToR","300"},
{"SuPeR MoDeRaToR PLuS","330"},
{"PRo SuPeR MoDeRaToR PLuS","350"},
{"GeNeRaL SuPeR MoDeRaToR","370"},
{"iDeL SuPeR MoDeRaToR","400"},
{"KinG SuPeR MoDeRaToR","420"},
{"BesT SuPeR MoDeRaToR","450"},
{"MaNaGeR SuPeR MoDeRaToR","470"},
{"BoSs SuPeR MoDeRaToR","500"},
{"AdmiN","550"},
{"AdmiN PLuS","600"},
{"PRo AdmiN","650"},
{"GeNeRaL AdmiN","700"},
{"KinG AdmiN","750"},
{"LeDeL AdmiN","780"},
{"BesT AdmiN","800"},
{"MaNaGeR AdmiN","850"},
{"BoSs AdmiN","900"},
{"SuPeRviSoR","1000"},
{"Supervisor PLuS","1020"},
{"PRo SupeRVisoR PLuS","1080"},
{"GeNeRaL SuPeRVisoR","2000"},
{"iDeL SuPeRVisoR","2100"},
{"KinG SuPeRVisoR","2200"},
{"BesT SuPeRVisoR","2300"},
{"MaNaGeR SuPeRVisoR","2400"},
{"BoSs SuPeRVisoR","2500"},
}

xAddToGroupFunction_ = function ( Group,Price,Name )
    local account = getAccountName(getPlayerAccount(source));
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#F7FF01 انت لم تسجل دخولك",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#F7FF01 ان هذه الرتبة معك بالفعل",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin-X")) then return outputChatBox("#F7FF01 انت مخالف لا يمكنك شراء رتبة كلم اصحاب السيرفر لاسترجاع الرتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Console")) then return outputChatBox("#F7FF01 انت كونسل لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("gold")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin")) then return outputChatBox("#F7FF01 انت كونسل لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("gold")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("AdmiN oFFicaLL")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("DePiTy CoNsoLe")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("ADmiNiStRaTive")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("DePiTy OwNeR")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("msol.beot")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Cinm")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("clan")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Developer")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("ful.admin")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",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
        for _,rn in ipairs(Ranks) do
            if ( aclGetGroup(rn[1]) ) then
                if ( isObjectInACLGroup("user."..account.."",aclGetGroup(rn[1])) ) then
                    if ( rn[1] ~= "Console" and rn[1] ~= "gold" and rn[1] ~= "Maps" ) then
                        aclGroupRemoveObject(aclGetGroup(rn[1]),"user."..account)
                    end
                end
            end    
        end    
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account);
        outputChatBox("#F7FF01 مبروك لقد حصلت على الرتبة !"..Name,source,238,158,73,true);
    else
        outputChatBox("#F7FF01 ساعاتك غير كافية لشراء هذه الرتبة !",source,238,158,73,true);
    end
end
addEvent("Accept:the:request",true)
addEventHandler("Accept:the:request",root,xAddToGroupFunction_)

Link to comment
  • 4 weeks later...
|M.r|LooFe| Red-Headed Stepchild

|M.r|LooFe|

Posted
  • Author
Posted

local Admin = {
{"KinG aL HaJaWlaH","20"},
{"LeGenD oF ServeR","30"},
{"PoLiCe","50"},
{"MoDeRaToR","70"},
{"MoDeRaToR PLuS","100"},
{"PRo MoDeRaToR","150"},
{"GeNeRaL MoDeRaToR","200"},
{"iDeL MoDeRaToR","215"},
{"KinG MoDeRaToR","230"},
{"BesT MoDeRaToR","250"},
{"MaNaGeR MoDeRaToR","260"},
{"BoSs MoDeRaToR","280"},
{"SuPeR MoDeRaToR","300"},
{"SuPeR MoDeRaToR PLuS","330"},
{"PRo SuPeR MoDeRaToR PLuS","350"},
{"GeNeRaL SuPeR MoDeRaToR","370"},
{"iDeL SuPeR MoDeRaToR","400"},
{"KinG SuPeR MoDeRaToR","420"},
{"BesT SuPeR MoDeRaToR","450"},
{"MaNaGeR SuPeR MoDeRaToR","470"},
{"BoSs SuPeR MoDeRaToR","500"},
{"AdmiN","550"},
{"AdmiN PLuS","600"},
{"PRo AdmiN","650"},
{"GeNeRaL AdmiN","700"},
{"KinG AdmiN","750"},
{"LeDeL AdmiN","780"},
{"BesT AdmiN","800"},
{"MaNaGeR AdmiN","850"},
{"BoSs AdmiN","900"},
{"SuPeRviSoR","1000"},
{"Supervisor PLuS","1020"},
{"PRo SupeRVisoR PLuS","1080"},
{"GeNeRaL SuPeRVisoR","2000"},
{"iDeL SuPeRVisoR","2100"},
{"KinG SuPeRVisoR","2200"},
{"BesT SuPeRVisoR","2300"},
{"MaNaGeR SuPeRVisoR","2400"},
{"BoSs SuPeRVisoR","2500"},
}

xAddToGroupFunction_ = function ( Group,Price,Name )
    local account = getAccountName(getPlayerAccount(source));
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#F7FF01 انت لم تسجل دخولك",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#F7FF01 ان هذه الرتبة معك بالفعل",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin-X")) then return outputChatBox("#F7FF01 انت مخالف لا يمكنك شراء رتبة كلم اصحاب السيرفر لاسترجاع الرتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Console")) then return outputChatBox("#F7FF01 انت كونسل لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("gold")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin")) then return outputChatBox("#F7FF01 انت كونسل لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("gold")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("AdmiN oFFicaLL")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("DePiTy CoNsoLe")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("ADmiNiStRaTive")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("DePiTy OwNeR")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("msol.beot")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Cinm")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("clan")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Developer")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("ful.admin")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",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
        for _,rn in ipairs(Ranks) do
            if ( aclGetGroup(rn[1]) ) then
                if ( isObjectInACLGroup("user."..account.."",aclGetGroup(rn[1])) ) then
                    if ( rn[1] ~= "Console" and rn[1] ~= "gold" and rn[1] ~= "Maps" ) then
                        aclGroupRemoveObject(aclGetGroup(rn[1]),"user."..account)
                    end
                end
            end    
        end    
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account);
        outputChatBox("#F7FF01 مبروك لقد حصلت على الرتبة !"..Name,source,238,158,73,true);
    else
        outputChatBox("#F7FF01 ساعاتك غير كافية لشراء هذه الرتبة !",source,238,158,73,true);
    end
end
addEvent("Accept:the:request",true)
addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 

local Admin = {
{"KinG aL HaJaWlaH","20"},
{"LeGenD oF ServeR","30"},
{"PoLiCe","50"},
{"MoDeRaToR","70"},
{"MoDeRaToR PLuS","100"},
{"PRo MoDeRaToR","150"},
{"GeNeRaL MoDeRaToR","200"},
{"iDeL MoDeRaToR","215"},
{"KinG MoDeRaToR","230"},
{"BesT MoDeRaToR","250"},
{"MaNaGeR MoDeRaToR","260"},
{"BoSs MoDeRaToR","280"},
{"SuPeR MoDeRaToR","300"},
{"SuPeR MoDeRaToR PLuS","330"},
{"PRo SuPeR MoDeRaToR PLuS","350"},
{"GeNeRaL SuPeR MoDeRaToR","370"},
{"iDeL SuPeR MoDeRaToR","400"},
{"KinG SuPeR MoDeRaToR","420"},
{"BesT SuPeR MoDeRaToR","450"},
{"MaNaGeR SuPeR MoDeRaToR","470"},
{"BoSs SuPeR MoDeRaToR","500"},
{"AdmiN","550"},
{"AdmiN PLuS","600"},
{"PRo AdmiN","650"},
{"GeNeRaL AdmiN","700"},
{"KinG AdmiN","750"},
{"LeDeL AdmiN","780"},
{"BesT AdmiN","800"},
{"MaNaGeR AdmiN","850"},
{"BoSs AdmiN","900"},
{"SuPeRviSoR","1000"},
{"Supervisor PLuS","1020"},
{"PRo SupeRVisoR PLuS","1080"},
{"GeNeRaL SuPeRVisoR","2000"},
{"iDeL SuPeRVisoR","2100"},
{"KinG SuPeRVisoR","2200"},
{"BesT SuPeRVisoR","2300"},
{"MaNaGeR SuPeRVisoR","2400"},
{"BoSs SuPeRVisoR","2500"},
}

xAddToGroupFunction_ = function ( Group,Price,Name )
    local account = getAccountName(getPlayerAccount(source));
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#F7FF01 انت لم تسجل دخولك",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#F7FF01 ان هذه الرتبة معك بالفعل",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin-X")) then return outputChatBox("#F7FF01 انت مخالف لا يمكنك شراء رتبة كلم اصحاب السيرفر لاسترجاع الرتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Console")) then return outputChatBox("#F7FF01 انت كونسل لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("gold")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Admin")) then return outputChatBox("#F7FF01 انت كونسل لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("gold")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("AdmiN oFFicaLL")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("DePiTy CoNsoLe")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("ADmiNiStRaTive")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("DePiTy OwNeR")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("msol.beot")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Cinm")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("clan")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("Developer")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",source,238,158,73,true); end
    if isObjectInACLGroup("user."..account, aclGetGroup("ful.admin")) then return outputChatBox("#F7FF01 انت ادارة لا يمكنك شراء رتبة",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
        for _,rn in ipairs(Ranks) do
            if ( aclGetGroup(rn[1]) ) then
                if ( isObjectInACLGroup("user."..account.."",aclGetGroup(rn[1])) ) then
                    if ( rn[1] ~= "Console" and rn[1] ~= "gold" and rn[1] ~= "Maps" ) then
                        aclGroupRemoveObject(aclGetGroup(rn[1]),"user."..account)
                    end
                end
            end    
        end    
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account);
        outputChatBox("#F7FF01 مبروك لقد حصلت على الرتبة !"..Name,source,238,158,73,true);
    else
        outputChatBox("#F7FF01 ساعاتك غير كافية لشراء هذه الرتبة !",source,238,158,73,true);
    end
end
addEvent("Accept:the:request",true)
addEventHandler("Accept:the:request",root,xAddToGroupFunction_)

 

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