Jump to content

تحويل كود


Recommended Posts

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        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] ~= "Managers" and rn[1] ~= "Maps" ) then                        aclGroupRemoveObject(aclGetGroup(rn[1]),"user."..account)                    end                end            end            end            aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account);        outputChatBox("مبروك لقد حصلت على الرتبه "..Name,source,238,158,73,true);    else        outputChatBox("-_____-",source,238,158,73,true);    endendaddEvent("Accept:the:request",true)addEventHandler("Accept:the:request",root,xAddToGroupFunction_)  

السلام عليكم ورحمة الله وبركاته ابغى احول الكود ذا من داتا ساعات الى داتا لفل

  • Confused 1
Link to comment

جرب

مو متأكد


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,'Level or اسم الداتا' )  
		if not sValue then sValue = '0' end 
		local level = tonumber( sValue )    
		if level == nil or not tonumber(level) then level = 0 end 
		if ( level >= 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] ~= "Managers" and rn[1] ~= "Maps" ) then    
		aclGroupRemoveObject(aclGetGroup(rn[1]),"user."..account)            
        end          
		end          
		end          
		end          
		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_)  

 

5 hours ago, #BrosS said:

اها

طيب ممكن تحط الأكواد مرتبة عشان نسويلك لأني جوال جربت ارتب طلع اسوء

اهنيك ع Signature

Link to comment
11 hours ago, #MR.NaiF said:


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,'Level or اسم الداتا' )  
		if not sValue then sValue = '0' end 
		local level = tonumber( sValue )    
		if level == nil or not tonumber(level) then level = 0 end 
		if ( level >= 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] ~= "Managers" and rn[1] ~= "Maps" ) then    
		aclGroupRemoveObject(aclGetGroup(rn[1]),"user."..account)            
        end          
		end          
		end          
		end          
		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_)  

 

 

3 hours ago, coNolel said:

 

Link to comment
12 hours ago, #BrosS said:

شوف انت حاطط

Lua progress 70%

قربت تختم اللغة وما شفنا منك شي :') .

وكودك غلط اصلا

كفو

جربته ؟

وش رايك احط 99% ?

انا افهم بأشياء أخرى يمكن م تعرفها انت

ف لا تسوي الخبير علينا

:):D 

8 hours ago, mohameed223 said:

 

 ?

Edited by coNolel
Link to comment
Just now, mohameed223 said:

ها يالطيب متى تسويه

قلت لك هات الأكواد مرتبة

وليه ماتحاول انت بالأول

سهلة استبدل اسم الداتا فقط وشيل الوظائف حقت الوقت مثل اللي تفصل

Link to comment
-----------------------
-- ** Buy Admin's Script
-- Created By Mr.Pres[T]ege
-- Ver 1.0.0
-- Mail : [email protected]
-- www.gta-arabs.com
----------------------
local Admin = {
{"level-1","2"},
{"KingServer","5"},
{"lvl-1","10"},
{"lvl-2","20"},
{"lvl-3","30"},
{"lvl-4","40"},
{"lvl-5","50"},
{"V.I.P","55"},
{"Moderator","65"},
{"SuperModerator","80"},
{"Admin","100"},
{"Head.Admin","130"},
{"Big.Admin","160"},
{"AdminDiymond","180"},
{"AdminPro","220"},
{"AdminKing","250"},
{"VoteManager","300"},
}

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,'PlayLevel' )
	if not sValue then sValue = '0:0:0' end
	local data = split(sValue,':')
	local level = tonumber( data[1] )  
	if level == nil or not tonumber(level) then level = 0 end
	if ( level >= 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] ~= "Managers" and rn[1] ~= "Maps" ) then
						aclGroupRemoveObject(aclGetGroup(rn[1]),"user."..account)
					end
				end
			end	
		end	
		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_)

هاذي الاكواد مرتبه + والله ماعرف ولا لي بالبرمجه كثير بس اعدل وكذا اذا ماتقدر تسويه مو مشكله 

Link to comment
local uLevelData_ = '' -- إسم داتا الليفل

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 sLevel = getElementData( source , uLevelData_ )     
	if ( sLevel >= 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] ~= "Managers" and rn[1] ~= "Maps" ) then                        
						aclGroupRemoveObject(aclGetGroup(rn[1]),"user."..account)   
						
					end                
				end            
			end            
		end            
		setElementData ( source , uLevelData_ , nil )
		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_)  

 

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
  • Recently Browsing   0 members

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