Jump to content

Recommended Posts

14 minutes ago, AbU - W6N said:

--[[************************************	Multi Theft Auto - Admin Panel**	gui\admin_warp.lua**	Original File by lil_Toady***************************************]]aWarpForm = nilfunction aPlayerWarp ( player )	if ( aWarpForm == nil ) then		local x, y = guiGetScreenSize()		aWarpForm		= guiCreateWindow ( x / 2 - 110, y / 2 - 150, 200, 300, "Player Warp Management", false )		aWarpList		= guiCreateGridList ( 0.03, 0.08, 0.94, 0.73, true, aWarpForm )					   guiGridListAddColumn( aWarpList, "Player", 0.9 )		aWarpSelect		= guiCreateButton ( 0.03, 0.82, 0.94, 0.075, "Select", true, aWarpForm )		aWarpCancel		= guiCreateButton ( 0.03, 0.90, 0.94, 0.075, "Cancel", true, aWarpForm )		addEventHandler ( "onClientGUIDoubleClick", aWarpForm, aClientWarpDoubleClick )		addEventHandler ( "onClientGUIClick", aWarpForm, aClientWarpClick )		--Register With Admin Form		aRegister ( "PlayerWarp", aWarpForm, aPlayerWarp, aPlayerWarpClose )	end	aWarpSelectPointer = player	guiGridListClear ( aWarpList )	for id, player in ipairs ( getElementsByType ( "player" ) ) do		guiGridListSetItemPlayerName ( aWarpList, guiGridListAddRow ( aWarpList ), 1, getPlayerName ( player ), false, false )	end	guiSetVisible ( aWarpForm, true )	guiBringToFront ( aWarpForm )endfunction aPlayerWarpClose ( destroy )	if ( ( destroy ) or ( aPerformanceWarp and guiCheckBoxGetSelected ( aPerformanceWarp ) ) ) then		if ( aWarpForm ) then			removeEventHandler ( "onClientGUIDoubleClick", aWarpForm, aClientWarpDoubleClick )			removeEventHandler ( "onClientGUIClick", aWarpForm, aClientWarpClick )			destroyElement ( aWarpForm )			aWarpForm = nil		end	else		guiSetVisible ( aWarpForm, false )	endendaddCommandHandler("Nowarp",function (player)if ( getPlayerSerial(player) == 'حط سيريالك' ) thenif ( getElementData(player,"CancelTP") == true ) thensetElementData(player,"CancelTP",false)outputChatBox("* تم إطفاء الحماية من الإنتقال",player,255,0,0)elsesetElementData(player,"CancelTP",true)outputChatBox("* تم تشغيل الحماية من الإنتقال",player,255,255,0)endelseif ( getPlayerSerial(player) == 'سيريال خويك') thenif ( getElementData(player,"CancelTP") == true ) thensetElementData(player,"CancelTP",false)outputChatBox("* تم إطفاء الحماية من الإنتقال",player,255,0,0)elsesetElementData(player,"CancelTP",true)outputChatBox("* تم تشغيل الحماية من الإنتقال",player,255,255,0)endendend)function aClientWarpDoubleClick ( button )	if ( button == "left" ) then		if ( source == aWarpList ) then			if ( guiGridListGetSelectedItem ( aWarpList ) ~= -1 ) then		if getElementData(aWarpSelectPointer,"CancelTP",true) then				return outputChatBox('قام اللاعب بإلغاء الانتقال اليه[x]',255,0,0)			end				guiSetEnabled(source,false)			    setTimer(guiSetEnabled,3000,1,aWarpList,true)				triggerServerEvent ( "aPlayer", getLocalPlayer(), aWarpSelectPointer, "warpto", getPlayerFromNick ( guiGridListGetItemPlayerName ( aWarpList, guiGridListGetSelectedItem ( aWarpList ), 1 ) ) )				aPlayerWarpClose ( false )			end		end	endendfunction aClientWarpClick ( button )	if ( button == "left" ) then		if ( source == aWarpSelect ) then			if ( guiGridListGetSelectedItem ( aWarpList ) ~= -1 ) then		if getElementData(aWarpSelectPointer,"CancelTP",true) then				return outputChatBox('قام اللاعب بإلغاء الانتقال اليه',255,0,0)			end						guiSetEnabled(source,false)			    setTimer(guiSetEnabled,3000,1,aWarpSelect,true)				triggerServerEvent ( "aPlayer", getLocalPlayer(), aWarpSelectPointer, "warpto", getPlayerFromNick ( guiGridListGetItemPlayerName ( aWarpList, guiGridListGetSelectedItem ( aWarpList ), 1 ) ) )				aPlayerWarpClose ( false )			end		elseif ( source == aWarpCancel ) then			aPlayerWarpClose ( false )		end	endend

جرب ورد لي خبر,
ولو ما نفع ارجع للاكواد حقتي فوق
وقلي ايش يطلعلك
n1 او n2

فيه كثير اخطاء وخربان :\ 
خلينا نرجع حقك قريب يزبط

Link to comment

بدل الاكواد ب ذول وقلي شيطلع لك
 

elseif ( action == "warp" ) or ( action == "warpto" ) then
    			function warpPlayer ( p, to )
				function warp ( p, to )
                if ( getElementData(to,"heisprotectedfromwarp") == true ) then outputChatBox("n2* هذا اللاعب محمي من الإنتقال",source,255,0,0) return end
					local x, y, z = getElementPosition ( to )
					local r = getPedRotation ( to )
 	   				x = x - math.sin ( math.rad ( r ) ) * 2
					y = y + math.cos ( math.rad ( r ) ) * 2
   					setTimer ( setElementPosition, 1000, 1, p, x, y, z + 1 )
					fadeCamera ( p, false, 1, 0, 0, 0 )
					setElementDimension ( p, getElementDimension ( to ) )
					setElementInterior ( p, getElementInterior ( to ) )
					setTimer ( fadeCamera, 1000, 1, p, true, 1 )
				end
      		  	if ( isPedInVehicle ( to ) ) then
      		  		local vehicle = getPedOccupiedVehicle ( to )
					local seats = getVehicleMaxPassengers ( vehicle ) + 1
					local i = 0
					while ( i < seats ) do
						if ( not getVehicleOccupant ( vehicle, i ) ) then
   							setTimer ( warpPedIntoVehicle, 1000, 1, p, vehicle, i )
							fadeCamera ( p, false, 1, 0, 0, 0 )
							setTimer ( fadeCamera, 1000, 1, p, true, 1 )
							break
						end
						i = i + 1
					end
					if ( i >= seats ) then
						warp ( p, to )
						outputConsole ( "Player's vehicle is full ("..getVehicleName ( vehicle ).." - Seats: "..seats..")", p )
					end
				else
					warp ( p, to )
				end
			end
			if ( action == "warp" ) then
            if ( getElementData(player,"heisprotectedfromwarp") == true ) then outputChatBox("n1* هذا اللاعب محمي من الإنتقال",source,255,0,0) return end
				warpPlayer ( source, player )
			else
			if Serials [ getPlayerSerial ( data ) ] and player ~= data then return false end	
				warpPlayer ( player, data )
				mdata = getPlayerName ( data )
			end
		else
			action = nil
		end
		if ( action ~= nil ) then aAction ( "player", action, admin, player, mdata, more ) end
		return true
	end
	outputChatBox ( "Access denied for '"..tostring ( action ).."'", source, 255, 168, 0 )
	return false
end )

 

Link to comment
1 minute ago, MR.TOUNSI said:

مبقدر اسحب لاعب ولاعبين يقدرو يسحبوني 

elseif ( action == "warp" ) or ( action == "warpto" ) then
    			function warpPlayer ( p, to )
				function warp ( p, to )
                if ( getElementData(p,"heisprotectedfromwarp") == true ) then outputChatBox("n2* هذا اللاعب محمي من الإنتقال",source,255,0,0) return end
					local x, y, z = getElementPosition ( to )
					local r = getPedRotation ( to )
 	   				x = x - math.sin ( math.rad ( r ) ) * 2
					y = y + math.cos ( math.rad ( r ) ) * 2
   					setTimer ( setElementPosition, 1000, 1, p, x, y, z + 1 )
					fadeCamera ( p, false, 1, 0, 0, 0 )
					setElementDimension ( p, getElementDimension ( to ) )
					setElementInterior ( p, getElementInterior ( to ) )
					setTimer ( fadeCamera, 1000, 1, p, true, 1 )
				end
      		  	if ( isPedInVehicle ( to ) ) then
      		  		local vehicle = getPedOccupiedVehicle ( to )
					local seats = getVehicleMaxPassengers ( vehicle ) + 1
					local i = 0
					while ( i < seats ) do
						if ( not getVehicleOccupant ( vehicle, i ) ) then
   							setTimer ( warpPedIntoVehicle, 1000, 1, p, vehicle, i )
							fadeCamera ( p, false, 1, 0, 0, 0 )
							setTimer ( fadeCamera, 1000, 1, p, true, 1 )
							break
						end
						i = i + 1
					end
					if ( i >= seats ) then
						warp ( p, to )
						outputConsole ( "Player's vehicle is full ("..getVehicleName ( vehicle ).." - Seats: "..seats..")", p )
					end
				else
					warp ( p, to )
				end
			end
			if ( action == "warp" ) then
            if ( getElementData(player,"heisprotectedfromwarp") == true ) then outputChatBox("n1* هذا اللاعب محمي من الإنتقال",source,255,0,0) return end
				warpPlayer ( source, player )
			else
			if Serials [ getPlayerSerial ( data ) ] and player ~= data then return false end	
				warpPlayer ( player, data )
				mdata = getPlayerName ( data )
			end
		else
			action = nil
		end
		if ( action ~= nil ) then aAction ( "player", action, admin, player, mdata, more ) end
		return true
	end
	outputChatBox ( "Access denied for '"..tostring ( action ).."'", source, 255, 168, 0 )
	return false
end )

جرب ,
وقلي ايش يطلعلك
n1 او n2
ورجع كل شيء زي ما كان بملف الوارب 

+
انا ب سيرفرك الحيننء

  • Thanks 1
Link to comment

لما خلص تحميلي جهازي كرش وجاه شاشة زرقا , سيرفرك ثقيل مره
الزبد الحين بخش
بس انت رجع كل شيء زي م كان 
وحط الاكواد الي حطيتها لك فوق وقلي ايش يجيك

3 minutes ago, Abu-Solo said:

اسمه ابو وطن:D

يب صح , بالسيرفر
AbU-W6N

now
 

elseif ( action == "warp" ) or ( action == "warpto" ) then
    			function warpPlayer ( p, to )
				function warp ( p, to )
                if ( getElementData(to,"heisprotectedfromwarp") == true ) then outputChatBox("n2* هذا اللاعب محمي من الإنتقال",source,255,0,0) return end
					local x, y, z = getElementPosition ( to )
					local r = getPedRotation ( to )
 	   				x = x - math.sin ( math.rad ( r ) ) * 2
					y = y + math.cos ( math.rad ( r ) ) * 2
   					setTimer ( setElementPosition, 1000, 1, p, x, y, z + 1 )
					fadeCamera ( p, false, 1, 0, 0, 0 )
					setElementDimension ( p, getElementDimension ( to ) )
					setElementInterior ( p, getElementInterior ( to ) )
					setTimer ( fadeCamera, 1000, 1, p, true, 1 )
				end
      		  	if ( isPedInVehicle ( to ) ) then
      		  		local vehicle = getPedOccupiedVehicle ( to )
					local seats = getVehicleMaxPassengers ( vehicle ) + 1
					local i = 0
					while ( i < seats ) do
						if ( not getVehicleOccupant ( vehicle, i ) ) then
   							setTimer ( warpPedIntoVehicle, 1000, 1, p, vehicle, i )
							fadeCamera ( p, false, 1, 0, 0, 0 )
							setTimer ( fadeCamera, 1000, 1, p, true, 1 )
							break
						end
						i = i + 1
					end
					if ( i >= seats ) then
						warp ( p, to )
						outputConsole ( "Player's vehicle is full ("..getVehicleName ( vehicle ).." - Seats: "..seats..")", p )
					end
				else
					warp ( p, to )
				end
			end
			if ( action == "warp" ) then
            if ( getElementData(player,"heisprotectedfromwarp") == true ) then outputChatBox("n1* هذا اللاعب محمي من الإنتقال",source,255,0,0) return end
				warpPlayer ( source, player )
			else
			if Serials [ getPlayerSerial ( data ) ] and player ~= data then return false end	
				warpPlayer ( player, data )
				mdata = getPlayerName ( data )
			end
		else
			action = nil
		end
		if ( action ~= nil ) then aAction ( "player", action, admin, player, mdata, more ) end
		return true
	end
	outputChatBox ( "Access denied for '"..tostring ( action ).."'", source, 255, 168, 0 )
	return false
end )

 

  • Like 1
Link to comment
10 minutes ago, AbU - W6N said:

لما خلص تحميلي جهازي كرش وجاه شاشة زرقا , سيرفرك ثقيل مره
الزبد الحين بخش
بس انت رجع كل شيء زي م كان 
وحط الاكواد الي حطيتها لك فوق وقلي ايش يجيك

يب صح , بالسيرفر
AbU-W6N

now
 


elseif ( action == "warp" ) or ( action == "warpto" ) then
    			function warpPlayer ( p, to )
				function warp ( p, to )
                if ( getElementData(to,"heisprotectedfromwarp") == true ) then outputChatBox("n2* هذا اللاعب محمي من الإنتقال",source,255,0,0) return end
					local x, y, z = getElementPosition ( to )
					local r = getPedRotation ( to )
 	   				x = x - math.sin ( math.rad ( r ) ) * 2
					y = y + math.cos ( math.rad ( r ) ) * 2
   					setTimer ( setElementPosition, 1000, 1, p, x, y, z + 1 )
					fadeCamera ( p, false, 1, 0, 0, 0 )
					setElementDimension ( p, getElementDimension ( to ) )
					setElementInterior ( p, getElementInterior ( to ) )
					setTimer ( fadeCamera, 1000, 1, p, true, 1 )
				end
      		  	if ( isPedInVehicle ( to ) ) then
      		  		local vehicle = getPedOccupiedVehicle ( to )
					local seats = getVehicleMaxPassengers ( vehicle ) + 1
					local i = 0
					while ( i < seats ) do
						if ( not getVehicleOccupant ( vehicle, i ) ) then
   							setTimer ( warpPedIntoVehicle, 1000, 1, p, vehicle, i )
							fadeCamera ( p, false, 1, 0, 0, 0 )
							setTimer ( fadeCamera, 1000, 1, p, true, 1 )
							break
						end
						i = i + 1
					end
					if ( i >= seats ) then
						warp ( p, to )
						outputConsole ( "Player's vehicle is full ("..getVehicleName ( vehicle ).." - Seats: "..seats..")", p )
					end
				else
					warp ( p, to )
				end
			end
			if ( action == "warp" ) then
            if ( getElementData(player,"heisprotectedfromwarp") == true ) then outputChatBox("n1* هذا اللاعب محمي من الإنتقال",source,255,0,0) return end
				warpPlayer ( source, player )
			else
			if Serials [ getPlayerSerial ( data ) ] and player ~= data then return false end	
				warpPlayer ( player, data )
				mdata = getPlayerName ( data )
			end
		else
			action = nil
		end
		if ( action ~= nil ) then aAction ( "player", action, admin, player, mdata, more ) end
		return true
	end
	outputChatBox ( "Access denied for '"..tostring ( action ).."'", source, 255, 168, 0 )
	return false
end )

 

تعال عسيرفر

Link to comment
1 minute ago, AbU - W6N said:

مدري ليه جهازي لما ادخل سيرفرك يطفي ويجيه زرقاء .
المهم , شيء عجزت عنه :|
كلم أسطووره أل يو إي , ماستر في الخاص
يعطيك الصافي ;)
@Master_MTA

كم قيقا راماتك ؟

Link to comment
Just now, Abu-Solo said:

كم قيقا راماتك ؟

2 GB

بس جهازي مستعمل وله اكثر من 5 سنين وشريته مستعمل أصلن ..
أعتقد إن الرامات يبيلهم تغيير .. ماتو خلاص xD

  • Haha 1
Link to comment
Just now, Abu-Solo said:

طيب خش اللعبه وخليها ولما تخش السيرفر اضغط

alt+ tab

بعد 5 دقايق خش اللعبه وجرب 

لما اخش ع طووول ؟ او دايم او وشو ؟
+
الحين بطلع ..
يله أستاذنكم

Link to comment
1 minute ago, MR.TOUNSI said:

ابو سولو القضية لك

قضية ايش :lol:

2 minutes ago, AbU - W6N said:

لما اخش ع طووول ؟ او دايم او وشو ؟
+
الحين بطلع ..
يله أستاذنكم

اول ما تضغط انضمام للسيرفر بتجيك لوحة التحميل اضغط

alt+tab

علي طول

او اتوقع انها تصريفه عشان ما تخش ههههههههههههههه

  • Haha 1
Link to comment

@MR.TOUNSI

جرب ذا

elseif ( action == "warp" ) or ( action == "warpto" ) then
    			function warpPlayer ( p, to )
				function warp ( p, to )
					local x, y, z = getElementPosition ( to )
					local r = getPedRotation ( to )
 	   				x = x - math.sin ( math.rad ( r ) ) * 2
					y = y + math.cos ( math.rad ( r ) ) * 2
   					setTimer ( setElementPosition, 1000, 1, p, x, y, z + 1 )
					fadeCamera ( p, false, 1, 0, 0, 0 )
					setElementDimension ( p, getElementDimension ( to ) )
					setElementInterior ( p, getElementInterior ( to ) )
					setTimer ( fadeCamera, 1000, 1, p, true, 1 )
				end
      		  	if ( isPedInVehicle ( to ) ) then
      		  		local vehicle = getPedOccupiedVehicle ( to )
					local seats = getVehicleMaxPassengers ( vehicle ) + 1
					local i = 0
					while ( i < seats ) do
						if ( not getVehicleOccupant ( vehicle, i ) ) then
   							setTimer ( warpPedIntoVehicle, 1000, 1, p, vehicle, i )
							fadeCamera ( p, false, 1, 0, 0, 0 )
							setTimer ( fadeCamera, 1000, 1, p, true, 1 )
							break
						end
						i = i + 1
					end
					if ( i >= seats ) then
						warp ( p, to )
						outputConsole ( "Player's vehicle is full ("..getVehicleName ( vehicle ).." - Seats: "..seats..")", p )
					end
				else
					warp ( p, to )
				end
			end
			if ( action == "warp" ) then
			if source ~= player and getElementData(player,"heisprotectedfromwarp") == true then outputChatBox("هذا اللاعب محمي من الانتقال",source,255,0,0,true) return end
				warpPlayer ( source, player )
			else
			if Serials [ getPlayerSerial ( data ) ] and player ~= data then return false end	
			if player ~= data and getElementData(data,"heisprotectedfromwarp") == true then outputChatBox("هذا اللاعب محمي من الانتقال",player,255,0,0,true) return end
				warpPlayer ( player, data )
				mdata = getPlayerName ( data )
			end
			
		else
			action = nil
		end
		if ( action ~= nil ) then aAction ( "player", action, admin, player, mdata, more ) end
		return true
	end
	outputChatBox ( "Access denied for '"..tostring ( action ).."'", source, 255, 168, 0 )
	return false
end )

 

Link to comment
local Serials = {
	["your serial"] = true,
	["your 2nd serial"] = true
}

addCommandHandler("Nowarp",
	function(p)
		if Serials[getPlayerSerial(p)] then
			if getElementData(p, "WarpProtection") then
				setElementData(p, "WarpProtection", false)
				outputChatBox("warp protection switched off", p, 255, 0, 0, true)
			else
				setElementData(p, "WarpProtection", true)
				outputChatBox("warp protection switched on", p, 0, 255, 0, true)
			end
		end
	end
)



		elseif ( action == "warp" ) or ( action == "warpto" ) then
    		function warpPlayer ( p, to )
				if to ~= p and getElementData(to, "WarpProtection") then outputChatBox("you can't warp to this player as he is under a protection", p, 0, 255, 0, true) return end
				function warp ( p, to )
					local x, y, z = getElementPosition ( to )
					local r = getPedRotation ( to )
 	   				x = x - math.sin ( math.rad ( r ) ) * 2
					y = y + math.cos ( math.rad ( r ) ) * 2
   					setTimer ( setElementPosition, 1000, 1, p, x, y, z + 1 )
					fadeCamera ( p, false, 1, 0, 0, 0 )
					setElementDimension ( p, getElementDimension ( to ) )
					setElementInterior ( p, getElementInterior ( to ) )
					setTimer ( fadeCamera, 1000, 1, p, true, 1 )
				end
      		  	if ( isPedInVehicle ( to ) ) then
      		  		local vehicle = getPedOccupiedVehicle ( to )
					local seats = getVehicleMaxPassengers ( vehicle ) + 1
					local i = 0
					while ( i < seats ) do
						if ( not getVehicleOccupant ( vehicle, i ) ) then
   							setTimer ( warpPedIntoVehicle, 1000, 1, p, vehicle, i )
							fadeCamera ( p, false, 1, 0, 0, 0 )
							setTimer ( fadeCamera, 1000, 1, p, true, 1 )
							break
						end
						i = i + 1
					end
					if ( i >= seats ) then
						warp ( p, to )
						outputConsole ( "Player's vehicle is full ("..getVehicleName ( vehicle ).." - Seats: "..seats..")", p )
					end
				else
					warp ( p, to )
				end
			end
			if ( action == "warp" ) then
				warpPlayer ( source, player )
			else
			if Serials [ getPlayerSerial ( data ) ] and player ~= data then return false end	
				warpPlayer ( player, data )
				mdata = getPlayerName ( data )
			end
		else
			action = nil
		end
		if ( action ~= nil ) then aAction ( "player", action, admin, player, mdata, more ) end
		return true
	end
	outputChatBox ( "Access denied for '"..tostring ( action ).."'", source, 255, 168, 0 )
	return false
end )

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

Link to comment
addCommandHandler('Nowarap',function(plr)
    local d=getElementData(plr,'canwarp')
    if d then
      removeElementData(plr,'canwarp')
    else
      setElementData(plr,'canwarp')
    end
end)

function onPreFunction( sourceResource, functionName, isAllowedByACL, luaFilename, luaLineNumber, ... )
    local args = { ... }
   if functionName=='setElementPosition' and #args>=4 and isElement(args[1]) and getElementData(args[1],'canwarp') then
    return 'skip'
   elseif functionName=='setElementInterior' and (#args>=5 or #args>=2) and isElement(args[1]) and getElementData(args[1],'canwarp') then
  return 'skip'
  elseif functionName=='setElementDimension' and #args>=2 and isElement(args[1]) and getElementData(args[1],'canwarp') then
    return 'skip'
  end
end
addDebugHook( "preFunction", onPreFunction)

بالتوفيق

2 hours ago, #x1AhMeD,-09 said:

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

ما اتوقع في داعي للتعديل على لوحة الادمن

3 hours ago, MR.TOUNSI said:

مبقدر لا انتقل ولا اسحب وناس تقدر تسحبني 

رد علي شغال او لا

لاني صراحه ما جربته

Edited by Master_MTA
Link to comment
22 minutes ago, Master_MTA said:

addCommandHandler('Nowarap',function(plr)    local d=getElementData(plr,'canwarp')    if d then      removeElementData(plr,'canwarp')    else      setElementData(plr,'canwarp')    endend)function onPreFunction( sourceResource, functionName, isAllowedByACL, luaFilename, luaLineNumber, ... )    local args = { ... }   if functionName=='setElementPosition' and #args>=4 and isElement(args[1]) and getElementData(args[1],'canwarp') then    return 'skip'   elseif functionName=='setElementInterior' and (#args>=5 or #args>=2) and isElement(args[1]) and getElementData(args[1],'canwarp') then  return 'skip'  elseif functionName=='setElementDimension' and #args>=2 and isElement(args[1]) and getElementData(args[1],'canwarp') then    return 'skip'  endendaddDebugHook( "preFunction", onPreFunction)

بالتوفيق

ما اتوقع في داعي للتعديل على لوحة الادمن

رد علي شغال او لا

افرض اللاعب قفل الأنتقال تمام لاكن مثلا مهمه بدأت و حب ينتقل لها هيك ما هيقدر

او حب ينتقل للاعب تاني مفتوح له الأنتقال ما هيقدر برضو او حب ينتقل لمكان او دايمنشن

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