سؤال

[[#]THaLLeK ~ 777 !]

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

كيف؟
هاذي الاكواد
 

xAddToGroupFunction_ = function ( Group,Price )
	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,0,255,255,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("* تم شراء الرتبة",source,255,0,0,true)
	else
		outputChatBox("* لا تملك ساعات كافية",source,0,255,255,true)
    end
end
addEvent("Accept:the:request",true)
addEventHandler("Accept:the:request",root,xAddToGroupFunction_)

 

[Ram,]

حياك الله ..
تفضل
 

xAddToGroupFunction_ = function ( Group,Price )
	local account = getAccountName(getPlayerAccount(source));
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* عليك ان تقوم بتسجيل الدخول اولا",source,255,0,0,true); end
	  if isObjectInACLGroup("user."..account, aclGetGroup(tostring("admin-ex-rank-name"))) then return outputChatBox("* لا يمكنك شراء رتبة وانت مخالف",source,255,0,0,true) end
	if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة بالفعل",source,0,255,255,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
	aclGroupRemoveObject (aclGetGroup("RankName"), "user."..account) -- تحط إسم الرتبة الي تبيها تنحذف RankName مكان
		aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account);
		outputChatBox("* تم شراء الرتبة",source,255,0,0,true)
	else
		outputChatBox("* لا تملك ساعات كافية",source,0,255,255,true)
    end
end
addEvent("Accept:the:request",true)
addEventHandler("Accept:the:request",root,xAddToGroupFunction_)

و مكان 
 

aclGroupRemoveObject (aclGetGroup("RankName"), "user."..account)

لو تبي تضيف كمان رتب عشان تنحذف ,
فقط تكرر السطر وتحط ب كل سطر أسماء الرتب الي بالمود ..
حياك الله
لا تنسى تغير اسم الرتبة واسم رتبة المخالف .
بالتوفيقق ..

[[#]THaLLeK ~ 777 !]

1 minute ago, AbU - W6N said:

حياك الله ..
تفضل
 

xAddToGroupFunction_ = function ( Group,Price )
	local account = getAccountName(getPlayerAccount(source));
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* عليك ان تقوم بتسجيل الدخول اولا",source,255,0,0,true); end
	  if isObjectInACLGroup("user."..account, aclGetGroup(tostring("admin-ex-rank-name"))) then return outputChatBox("* لا يمكنك شراء رتبة وانت مخالف",source,255,0,0,true) end
	if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة بالفعل",source,0,255,255,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
	aclGroupRemoveObject (aclGetGroup("RankName"), "user."..account) -- تحط إسم الرتبة الي تبيها تنحذف RankName مكان
		aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account);
		outputChatBox("* تم شراء الرتبة",source,255,0,0,true)
	else
		outputChatBox("* لا تملك ساعات كافية",source,0,255,255,true)
    end
end
addEvent("Accept:the:request",true)
addEventHandler("Accept:the:request",root,xAddToGroupFunction_)

و مكان 
 

aclGroupRemoveObject (aclGetGroup("RankName"), "user."..account)

لو تبي تضيف كمان رتب عشان تنحذف ,
فقط تكرر السطر وتحط ب كل سطر أسماء الرتب الي بالمود ..
حياك الله
لا تنسى تغير اسم الرتبة واسم رتبة المخالف .
بالتوفيقق ..

شكراا راح اجربها

[Ram,]

1 minute ago, [#]THaLLeK ~ 777 ! said:

شكراا راح اجربها

يو أر ولكم