Jump to content

تصحيح كود بسيط


MA[S]RIY

Recommended Posts

السلام عليكم

addEventHandler ( "onPlayerQuit", root, 
function ( )
 local Name = getPlayerName ( source )
  setElementData ( source, "_Name", Name )
 end
)


addEventHandler("onPlayerLogin", root,
function ( )
 local Name = getElementData ( source, "_Name" ):gsub("#%x%x%x%x%x%x","")
 local Namen = getPlayerName ( source ):gsub("#%x%x%x%x%x%x","")
  if Name ~= Namen then
outputChatBox ( "#00EE00"..Namen.."#FF0000 x بالخروج من السرفر وتغير اسمه إلي #aaaaaa"..Name.."#FF0000 x لقد قام الاعب",root, 255, 0, 0, true )
  end
 end
)

ميطلع اي اخطاء بالدي بق

فكره الاكواد

لما الاعب يطلع من السرفر

ويغير اسمه

ويدخل واول م يدخل 

يطلع بالشات اسمه القديم واسمه الجديد

------

بس مو راضي يظبط

لما اطلع واغير اسمي وادخل

م يطلع اي شئ بالشات

؟؟

Link to comment
6 minutes ago, MARIY said:

السلام عليكم


addEventHandler ( "onPlayerQuit", root, 
function ( )
 local Name = getPlayerName ( source )
  setElementData ( source, "_Name", Name )
 end
)


addEventHandler("onPlayerLogin", root,
function ( )
 local Name = getElementData ( source, "_Name" ):gsub("#%x%x%x%x%x%x","")
 local Namen = getPlayerName ( source ):gsub("#%x%x%x%x%x%x","")
  if Name ~= Namen then
outputChatBox ( "#00EE00"..Namen.."#FF0000 x بالخروج من السرفر وتغير اسمه إلي #aaaaaa"..Name.."#FF0000 x لقد قام الاعب",root, 255, 0, 0, true )
  end
 end
)

ميطلع اي اخطاء بالدي بق

فكره الاكواد

لما الاعب يطلع من السرفر

ويغير اسمه

ويدخل واول م يدخل 

يطلع بالشات اسمه القديم واسمه الجديد

------

بس مو راضي يظبط

لما اطلع واغير اسمي وادخل

م يطلع اي شئ بالشات

؟؟

الداتا تروح لما يطلع اللاعب إستعمل إكوانت داتا ..

Link to comment
32 minutes ago, iMr.WiFi..! said:

الداتا تروح لما يطلع اللاعب إستعمل إكوانت داتا ..

انا م ابي استعمل ااكونت داتا

لان الي يخرج ذا ويغير اسمه ويدخل

بيكون ناوي يخرب او يسب او كذا

مو لازم ابدا يكون مسجل

استعمل سريال داتا ؟

Link to comment
16 minutes ago, -Le[3]bA. said:

لا, استعمل الداتا بيس او السجل

لما يسوي, خروج

تسويله INSERT

لما يخش تجلبه

جربت بس م ظبتط

addEventHandler ( 'onResourceStart', resourceRoot, function (    )

executeSQLQuery("CREATE TABLE IF NOT EXISTS _Name( Name, serial )")

end 
)


addEventHandler ( "onPlayerQuit", root, 
function ( )
 local Name = getPlayerName ( source )
  local aSerial = getPlayerSerial ( source )
  executeSQLQuery("INSERT INTO _Name ( Name, serial ) VALUES( ?, ? )", Name, aSerial )
 end
)


addEventHandler("onPlayerJoin", root,
function ( )
 local Name = executeSQLQuery ( 'SELECT Name FROM _Name WHERE Serial=?' , getPlayerSerial ( source ) )
 if Name then
 local Namen = getPlayerName ( source )
  if Name ~= Namen then
outputChatBox ( "#00EE00"..Namen:gsub("#%x%x%x%x%x%x","").."#FF0000 x بالخروج من السرفر وتغير اسمه إلي #aaaaaa"..Name:gsub("#%x%x%x%x%x%x","").."#FF0000 x لقد قام الاعب",root, 255, 0, 0, true )
  end
 end
 end
)

 

Link to comment
addEventHandler ( 'onResourceStart', root, 
	function (    )
		executeSQLQuery("CREATE TABLE IF NOT EXISTS _Name( Name, serial )")
	end 
)


addEventHandler ( "onPlayerQuit", root, 
	function ( )
		local Info = executeSQLQuery ( 'SELECT * FROM _Name WHERE serial=?' , getPlayerSerial ( source ) )
			if Info and type(Info) == 'table' and #Info ~= 0 then
				executeSQLQuery ( "UPDATE _Name SET Name = ? WHERE serial=?", getPlayerName ( source ), getPlayerSerial( source ) )
			else
				executeSQLQuery( "INSERT INTO _Name ( Name, serial ) VALUES( ?, ? )", getPlayerName ( source ), getPlayerSerial ( source ) )
			end
	end
)


addEventHandler("onPlayerJoin", root,
	function ( )
		local Info = executeSQLQuery ( 'SELECT * FROM _Name WHERE serial=?' , getPlayerSerial ( source ) )
			if Info and type(Info) == 'table' and #Info ~= 0 then
				local CurrentName = getPlayerName ( source )
				if Info['Name'] ~= CurrentName then
					outputChatBox ( "#00EE00"..CurrentName:gsub("#%x%x%x%x%x%x","").."#FF0000 x بالخروج من السرفر وتغير اسمه إلي #aaaaaa"..Info['Name']:gsub("#%x%x%x%x%x%x","").."#FF0000 x لقد قام الاعب",root, 255, 0, 0, true )
				end
			end
	end
)

 

Link to comment
5 hours ago, iMr.WiFi..! said:

addEventHandler ( 'onResourceStart', root, 
	function (    )
		executeSQLQuery("CREATE TABLE IF NOT EXISTS _Name( Name, serial )")
	end 
)


addEventHandler ( "onPlayerQuit", root, 
	function ( )
		local Info = executeSQLQuery ( 'SELECT * FROM _Name WHERE serial=?' , getPlayerSerial ( source ) )
			if Info and type(Info) == 'table' and #Info ~= 0 then
				executeSQLQuery ( "UPDATE _Name SET Name = ? WHERE serial=?", getPlayerName ( source ), getPlayerSerial( source ) )
			else
				executeSQLQuery( "INSERT INTO _Name ( Name, serial ) VALUES( ?, ? )", getPlayerName ( source ), getPlayerSerial ( source ) )
			end
	end
)


addEventHandler("onPlayerJoin", root,
	function ( )
		local Info = executeSQLQuery ( 'SELECT * FROM _Name WHERE serial=?' , getPlayerSerial ( source ) )
			if Info and type(Info) == 'table' and #Info ~= 0 then
				local CurrentName = getPlayerName ( source )
				if Info['Name'] ~= CurrentName then
					outputChatBox ( "#00EE00"..CurrentName:gsub("#%x%x%x%x%x%x","").."#FF0000 x بالخروج من السرفر وتغير اسمه إلي #aaaaaa"..Info['Name']:gsub("#%x%x%x%x%x%x","").."#FF0000 x لقد قام الاعب",root, 255, 0, 0, true )
				end
			end
	end
)

 

لم تظبط

Link to comment
9 hours ago, MARIY said:

لم تظبط

addEventHandler ( 'onResourceStart', root, 
	function (    )
		executeSQLQuery("CREATE TABLE IF NOT EXISTS _Name( Name, serial )")
	end 
)


addEventHandler ( "onPlayerQuit", root, 
	function ( )
		local Info = executeSQLQuery ( 'SELECT * FROM _Name WHERE serial=?' , getPlayerSerial ( source ) )
			if Info and type(Info) == 'table' and #Info ~= 0 then
				executeSQLQuery ( "UPDATE _Name SET Name = ? WHERE serial=?", getPlayerName ( source ), getPlayerSerial( source ) )
			else
				executeSQLQuery( "INSERT INTO _Name ( Name, serial ) VALUES( ?, ? )", getPlayerName ( source ), getPlayerSerial ( source ) )
			end
	end
)


addEventHandler("onPlayerJoin", root,
	function ( )
		if isChanged ( source ) then
			outputChatBox ( "#00EE00"..getPlayerName(source):gsub("#%x%x%x%x%x%x","").."#FF0000 x بالخروج من السرفر وتغير اسمه إلي #aaaaaa"..isC:gsub("#%x%x%x%x%x%x","").."#FF0000 x لقد قام الاعب",root, 255, 0, 0, true )
	end
end
)


function isChanged(player)
	isC = false
	local Info = executeSQLQuery ( 'SELECT * FROM _Name WHERE serial=?' ,getPlayerSerial ( player ))
	if Info and type(Info) == 'table' and #Info ~= 0 then
	for i,v in ipairs (Info) do
		if v.Name ~= getPlayerName(player) then
			isC = v.Name
				break
			end
		end
	end
	return isC
end









 

Link to comment
24 minutes ago, Some*1 said:

addEventHandler ( 'onResourceStart', root, 
	function (    )
		executeSQLQuery("CREATE TABLE IF NOT EXISTS _Name( Name, serial )")
	end 
)


addEventHandler ( "onPlayerQuit", root, 
	function ( )
		local Info = executeSQLQuery ( 'SELECT * FROM _Name WHERE serial=?' , getPlayerSerial ( source ) )
			if Info and type(Info) == 'table' and #Info ~= 0 then
				executeSQLQuery ( "UPDATE _Name SET Name = ? WHERE serial=?", getPlayerName ( source ), getPlayerSerial( source ) )
			else
				executeSQLQuery( "INSERT INTO _Name ( Name, serial ) VALUES( ?, ? )", getPlayerName ( source ), getPlayerSerial ( source ) )
			end
	end
)


addEventHandler("onPlayerJoin", root,
	function ( )
		if isChanged ( source ) then
			outputChatBox ( "#00EE00"..getPlayerName(source):gsub("#%x%x%x%x%x%x","").."#FF0000 x بالخروج من السرفر وتغير اسمه إلي #aaaaaa"..isC:gsub("#%x%x%x%x%x%x","").."#FF0000 x لقد قام الاعب",root, 255, 0, 0, true )
	end
end
)


function isChanged(player)
	isC = false
	local Info = executeSQLQuery ( 'SELECT * FROM _Name WHERE serial=?' ,getPlayerSerial ( player ))
	if Info and type(Info) == 'table' and #Info ~= 0 then
	for i,v in ipairs (Info) do
		if v.Name ~= getPlayerName(player) then
			isC = v.Name
				break
			end
		end
	end
	return isC
end









 

تمام مشكور

Link to comment

الإفضل تعدل الفنكشن الى :
 

function isChanged(player)
	isC = false
	local Info = executeSQLQuery ( 'SELECT * FROM _Name WHERE serial=?' ,getPlayerSerial ( player ))
	if Info and type(Info) == 'table' and #Info ~= 0 then
		if Info[1].Name ~= getPlayerName(player) then
			isC = Info[1].Name
		end
	end
	return isC
end

^ عشان تقلل من إستهلاك  إو سوو الي يعجبك

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