Jump to content

استفسارين بالبرمجة ..


Recommended Posts

On 18/09/2018 at 00:14, KillerX said:

جرب ^


local taple , dor = {} , 0 
  
addCommandHandler("dor",
	function(source)
		if( source ~= taple.dor ) then
			dor = dor + 1
			outputChatBox("تم وضعك في الدور , انتظر حتي ياتي دورك لسحبك",source,255,0,0,true)
			outputChatBox(""..dor.." انت الدور رقم",source,255,0,0,true)
			taple.dor = source
		else
			outputChatBox( 'لقد اخذت دور من قبل انتظر دورك' , source , 255 , 0 , 0 , true )
		end
	end
)

addCommandHandler("getDor",-- يسحب الاعب الي عليه الدور
	function(source)
		if ( dor ~= 0 ) then
			if ( taple.dor == false ) then return end
			if ( isElement( taple.dor ) ) then			
				outputChatBox( dor .. ' هو ' .. getPlayerName( taple.dor ) .. ' دور الاعب ' , source , 0 , 255 , 0 , true )
				outputChatBox( 'لقد حان دورك الان' , taple.dor)
				Try = 1
			else
				outputChatBox( 'لقد خرج هذا الاعب من السيرفر' , source)
			end
			dor = dor - 1
			taple.dor = false
		end
	end
)

 

الكود مب حلو , لو احد كتب دور , واحد تاني كتب دور , كتبت جت دور يجيب اخر واحد كتب الامر , المفروض يجيب بالترتيب

ياريت لو احد يقدر يسويلي الكود .

Link to comment
On 17/09/2018 at 20:43, Mr.Mostafa said:

آبي توضيح لحقت آلترتيب مآ عرفت آسويهآ آلصرآحة 

ــ

آنآ فكرتي آبي لو كتب كومآند dor

يسجله مثلا انه رقم 1 , لو احد تاني كتب يسجله رقم اتنين , الخ الخ الخ

ولما اكتب كوماند مثلا getdor

يسحب الشخص الي عليه الدور

ــ


local taple = {}
  
addCommandHandler("dor",-- يحط نفسه بالدور
	function(source)
		local dor = -- ما عرفت كودها ..
		outputChatBox("تم وضعك في الدور , انتظر حتي ياتي دورك لسحبك",source,255,0,0,true)
			outputChatBox(""..dor.." انت الدور رقم",source,255,0,0,true)
				table.insert(taple,{player=source})
	end
)

addCommandHandler("getDor",-- يسحب الاعب الي عليه الدور
	function(source)
	  local x,y,z = getElementPosition(source)
		if #ta~=0 then
			setElementPosition(player,x,y,z)
			table.remove(ta,1)
		end
	end
)

 

local taple = {}
  
getPlayerDor = function ( source )
	for i, v in ipairs ( taple ) do
		if v.player == source then
			return i
		end
	end
end

addCommandHandler("dor",-- يحط نفسه بالدور
	function(source)
		local dor = getPlayerDor ( source )
		if not dor then
			outputChatBox("تم وضعك في الدور , انتظر حتي ياتي دورك لسحبك",source,255,255,0,true)
			table.insert(taple,{player=source})
			outputChatBox(""..#taple.." انت الدور رقم",source,255,255,0,true)
		else
			outputChatBox(""..dor.." قمت بأخذ دور مسبقاً, الرقم",source,255,0,0,true)
		end
	end
)

addCommandHandler("getDor",
	function(source)
		local dorNow = taple[1]
		if dorNow then
			local player = dorNow.player
			local x,y,z = getElementPosition(source)
			setElementPosition(player,x,y,z+2)
			table.remove(taple,1)
		else
			outputChatBox("لايوجد دور",source,255,0,0,true)
		end
	end
)

 

Link to comment
On 23/09/2018 at 20:07, 3NAD said:

local taple = {}
  
getPlayerDor = function ( source )
	for i, v in ipairs ( taple ) do
		if v.player == source then
			return i
		end
	end
end

addCommandHandler("dor",-- يحط نفسه بالدور
	function(source)
		local dor = getPlayerDor ( source )
		if not dor then
			outputChatBox("تم وضعك في الدور , انتظر حتي ياتي دورك لسحبك",source,255,255,0,true)
			table.insert(taple,{player=source})
			outputChatBox(""..#taple.." انت الدور رقم",source,255,255,0,true)
		else
			outputChatBox(""..dor.." قمت بأخذ دور مسبقاً, الرقم",source,255,0,0,true)
		end
	end
)

addCommandHandler("getDor",
	function(source)
		local dorNow = taple[1]
		if dorNow then
			local player = dorNow.player
			local x,y,z = getElementPosition(source)
			setElementPosition(player,x,y,z+2)
			table.remove(taple,1)
		else
			outputChatBox("لايوجد دور",source,255,0,0,true)
		end
	end
)

 

تمام ظبط

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

Table.remove?

ولا ما ينفع

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