Jump to content

طلب في لوحة الترقيات

#,Dr.To[sh]iBa

By #,Dr.To[sh]iBa
in البرمجة

Recommended Posts

#,Dr.To[sh]iBa Mark

#,Dr.To[sh]iBa

Posted
Posted

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

وسويت ان اللي يرقي نفسه رتبه الرتب الباقيه تنحذف 

عشان ما يكون عنده اكثر من رتبه

بس واجهتني مشكله 

انا انا كونسل وجيت ارقي نفسي بوليس الكونسل ينحذف 

انا ابي اسوي ان الرتب اللي في اللوحه فقط اللي تنحذف

وشكرا

السيرفر سايد 

local ForbiddenGroup = "Admin-Ex" -- اسم قروب المخالفين

xAddToGroupFunction_ = function ( Group,Price,Name )
    local account = getAccountName(getPlayerAccount(source));
    if _isPlayerCanTakeGroup(getPlayerName(source)) then
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff يجب عليك التسجيل اولآ !",source,255,255,255,true) end
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#00ccff*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff لديك هذة الرتبة",source,255,255,255,true) end
    if isObjectInACLGroup("user."..account, aclGetGroup(ForbiddenGroup)) then return outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff انت مخالف لايمكنك أخذ رتبة",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("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0 :#ffffff لقد تم ترقيتك الرتبة المطلوبة بنجاح",source,255,255,255,true)
	else
outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff ليس لديك الساعات الكافية لشراء هذي الرتبة",source,255,255,255,true)
 end
    else
        outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff[#ff0000Q.6#ffffff] يجب عليك وضع شعار السيرفر ليتم ترقيتك بنجاح",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
iPrestege Boss Hawg

iPrestege

Posted
Posted 
local ForbiddenGroup = "Admin-Ex" -- اسم قروب المخالفين
local aToRemove = { 'Moderator','Admin' }

xAddToGroupFunction_ = function ( Group,Price,Name )
    local account = getAccountName(getPlayerAccount(source));
    if _isPlayerCanTakeGroup(getPlayerName(source)) then
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff يجب عليك التسجيل اولآ !",source,255,255,255,true) end
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#00ccff*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff لديك هذة الرتبة",source,255,255,255,true) end
    if isObjectInACLGroup("user."..account, aclGetGroup(ForbiddenGroup)) then return outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff انت مخالف لايمكنك أخذ رتبة",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("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0 :#ffffff لقد تم ترقيتك الرتبة المطلوبة بنجاح",source,255,255,255,true)
  else
outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff ليس لديك الساعات الكافية لشراء هذي الرتبة",source,255,255,255,true)
 end
    else
        outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff[#ff0000Q.6#ffffff] يجب عليك وضع شعار السيرفر ليتم ترقيتك بنجاح",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( aToRemove ) do
    if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ),aclGetGroup ( v ) ) ) then
           aclGroupRemoveObject ( aclGetGroup ( v ), "user."..getAccountName ( getPlayerAccount ( element ) ) )
        end
      end
    end
  end
end

 

 

جرب وعدل على الجدول

 

aToRemove

 

ضيف القروبات اللي تبيها تنشال يوم تترقى

Link to comment
#,Dr.To[sh]iBa Mark

#,Dr.To[sh]iBa

Posted
  • Author
Posted
10 minutes ago, FaHaD said: 

local ForbiddenGroup = "Admin-Ex" -- اسم قروب المخالفين
local aToRemove = { 'Moderator','Admin' }

xAddToGroupFunction_ = function ( Group,Price,Name )
    local account = getAccountName(getPlayerAccount(source));
    if _isPlayerCanTakeGroup(getPlayerName(source)) then
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff يجب عليك التسجيل اولآ !",source,255,255,255,true) end
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#00ccff*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff لديك هذة الرتبة",source,255,255,255,true) end
    if isObjectInACLGroup("user."..account, aclGetGroup(ForbiddenGroup)) then return outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff انت مخالف لايمكنك أخذ رتبة",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("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0 :#ffffff لقد تم ترقيتك الرتبة المطلوبة بنجاح",source,255,255,255,true)
  else
outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff ليس لديك الساعات الكافية لشراء هذي الرتبة",source,255,255,255,true)
 end
    else
        outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff[#ff0000Q.6#ffffff] يجب عليك وضع شعار السيرفر ليتم ترقيتك بنجاح",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( aToRemove ) do
    if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ),aclGetGroup ( v ) ) ) then
           aclGroupRemoveObject ( aclGetGroup ( v ), "user."..getAccountName ( getPlayerAccount ( element ) ) )
        end
      end
    end
  end
end

 

 

جرب وعدل على الجدول

 

aToRemove

 

ضيف القروبات اللي تبيها تنشال يوم تترقى

مشوار اسوي كذا واضيف القروبات مافي طريقه اسهل

Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted
2 hours ago, abulghar said:

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

وسويت ان اللي يرقي نفسه رتبه الرتب الباقيه تنحذف 

عشان ما يكون عنده اكثر من رتبه

بس واجهتني مشكله 

انا انا كونسل وجيت ارقي نفسي بوليس الكونسل ينحذف 

انا ابي اسوي ان الرتب اللي في اللوحه فقط اللي تنحذف

وشكرا

السيرفر سايد 


local ForbiddenGroup = "Admin-Ex" -- اسم قروب المخالفين

xAddToGroupFunction_ = function ( Group,Price,Name )
    local account = getAccountName(getPlayerAccount(source));
    if _isPlayerCanTakeGroup(getPlayerName(source)) then
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff يجب عليك التسجيل اولآ !",source,255,255,255,true) end
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#00ccff*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff لديك هذة الرتبة",source,255,255,255,true) end
    if isObjectInACLGroup("user."..account, aclGetGroup(ForbiddenGroup)) then return outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff انت مخالف لايمكنك أخذ رتبة",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("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0 :#ffffff لقد تم ترقيتك الرتبة المطلوبة بنجاح",source,255,255,255,true)
	else
outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff ليس لديك الساعات الكافية لشراء هذي الرتبة",source,255,255,255,true)
 end
    else
        outputChatBox("#0060c0*#ffffff [ #0060c0Buy Admin #ffffff]#0060c0:#ffffff[#ff0000Q.6#ffffff] يجب عليك وضع شعار السيرفر ليتم ترقيتك بنجاح",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
#,Dr.To[sh]iBa Mark

#,Dr.To[sh]iBa

Posted
  • Author
Posted
Just now, FaHaD said:

 

 

حسب طلبك هنا تبي الرتب اللي في اللوحة فقط تنحذف؟ خلاص ارسل الجدول اللي بالكلنت بالترايقر اجل وسوي نفس التحقق واحذف القروب

List = {
{"Console.1","0"},
{"Moderator","4"},
{"SuperModerator","6"},
{"ADMIN","10"},
{"Head.Admin","14"},
{"Professional.Admin","18"},
{"Admin.Server","22"},
{"Admin.General","26"},
{"Admin.Boss","30"},
{"Special.Admin","34"},
{"Admin.Mo7tref","38"},
{"Admin.Black","42"},
{"King.Admin","46"},
{"Prince.Server","50"},
{"Prince.Admin","54"},
{"Special.Prince","58"},
}

 

هذه الرتب اللي موجوده في الكلنت

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