تحت التطوير :كود - Useful Arab functions

</Mr.Tn6eL> · September 16, 2018

معاك حق لكن هذا في البرامترات اللي تعوض قيمة علامة ?

لكن انت حاط مباشرة داخل كود السكل

انصحك تتحقق من وجود ارقام وحروف انكليزية فقط للسيريال

Master_MTA · September 24, 2018

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

حقة التكست لو استخدمت ارقمنت

wordbreak

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

السورس كود

function getTextNumbersOfLines(text,borderwidth,scale,font)
	
	local scale=scale or 1
	local font=font or 'default'

	if dxGetTextWidth(text,scale,font)>borderwidth then---if it's in new line then
		local mytext=''
		local numoflines=1
		for c in string.gmatch(text,"%w+") do

			mytext=mytext..' '..c
			local currentwidth=dxGetTextWidth(mytext,scale,font)
			
			if currentwidth>borderwidth then
			
				numoflines=numoflines+1
				mytext=c
		
			end
		end

		return numoflines
	
	
	end
	
return 1---else
end

الساينتكس

getTextNumbersOfLines(string text,float borderheight,float borderwidth,float scale,string/fontelement font)

الارقمنتات:

text: التكست اللي تبي تجيب عدد السطور حقته

borderheight: ارتفاع المربع يعني كيف اقولك افرض التكست انت حاط احداثياته كذا

startx=200,starty=200,endx= 300,endy=400

فال borderheight=endy-starty=200

borderwidth: عنا عرض المربع

نفس اللي فوقه لكن

endx-startx=100

scale: حجم الخط

font : هذا ممكن يكون فونت المنت اللي انشاته بفنكشنات الدي اكس او يكوون

هذا النص:

"default": Tahoma
"default-bold": Tahoma Bold
"clear": Verdana
"arial": Arial
"sans": Microsoft Sans Serif
"pricedown": Pricedown (GTA's theme text)
"bankgothic": Bank Gothic Medium
"diploma": Diploma Regular
"beckett": Beckett Regular

كيفية الاستخدام مثال:

addEventHandler('onClientRender',root,function()

dxDrawText ( 'hello world this is just test text to check word warp calculate function ', 200,200, 300, 400, tocolor(255,255,255,255),1, "default", "left", "top", true,true, false)

end)

addCommandHandler('testheight',function()

print(getTextNumbersOfLines('hello world this is just test text to check word warp calculate function ',200,100,1,'default'))
print(dxGetFontHeight(1,'default'))

end)

وش المميز بخصوص الفنكشن هذا

المميز بخصوصه انكم تعرفون اننا نقدر نسوي اليه للورد بريك خاصه بنا ونستغني عن ارقمنت الورد بريك

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

وما يحتاج اي تعب منك

بالتوفيق اتمنى تستمتعو

Edited September 25, 2018 by !#NssoR_)
Edited as requested

Master_MTA · September 30, 2018

dxDrawRoundedRectangle

السلام عليكم ورحمة الله وبركاته مثل ما بالعنوان الفنكشن يرسم ريكتانجل مع حواف دائريه

وما اتوقع يحتاج شرح للبراميترز او شي

السورس كود



function dxDrawRoundedRectangle(x,y,width,height,raduis,color,postgui)

dxDrawRectangle(x,y+raduis,width+1,height-(raduis*2),color,postgui)--horezantal rectangle
dxDrawRectangle(x+raduis,y,width-(raduis*2),height+1,color,postgui)--vertical rectangle

for k=180,270 do--left top
	local co=math.cos(math.rad(k))* raduis
	local si=math.sin(math.rad(k))* raduis
	dxDrawLine((x+raduis)+co,(y+raduis)+si,x+raduis,y+raduis,color,1,postgui)
end
for k=270,360 do--right top
	local co=math.cos(math.rad(k))* raduis
	local si=math.sin(math.rad(k))* raduis
	dxDrawLine((x+width-raduis)+co,(y+raduis)+si,x+width-raduis,y+raduis,color,1,postgui)
end

for k=90,180 do--left bottom
	local co=math.cos(math.rad(k))* raduis
	local si=math.sin(math.rad(k))* raduis
	dxDrawLine((x+raduis)+co,(y+height-raduis)+si,x+raduis,y+height-raduis,color,1,postgui)
end
local k=360
while(k<=(360+90))do
if k~= 360 then
	local co=math.cos(math.rad(k))* raduis
	local si=math.sin(math.rad(k))* raduis
	dxDrawLine((x-raduis+width)+co,(y+height-raduis)+si,x+width-raduis,y+height-raduis,color,1,postgui)
	
end
	k=k+1;
end

end

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

بالتوفيق

^iiEcoo'x_) · October 27, 2018

وظيفة بسيطة و مفيدة ,
وظيفة إنشاء تنبيه باللوحة ,

CreateAttentionBox = function ( Window , Text , RedLabel , GreenLabel , BlueLabel , AlphaLabel , PropertyBox , AlphaBox , TimerSecond )
	assert ( Window , 'Bug @ #1 CreateAttentionBox ; No Window' )
	assert ( isElement ( Window ) , 'Bug @ #1 CreateAttentionBox ; This is not Element' )
	assert ( getElementType ( Window ) == 'gui-window' , 'Bug @ #1 CreateAttentionBox ; This is not gui window' )
	assert ( Text , 'Bug @ #2 CreateAttentionBox ; No Text !' )
	assert ( type ( Text ) == 'string' , 'Bug @ #2 CreateAttentionBox ; Not String' )
	local Table = { 
		RedLabel = RedLabel or 255
		, GreenLabel = GreenLabel or 255
		, BlueLabel = BlueLabel or 255
		, AlphaLabel = AlphaLabel or 255
		, PropertyBox = PropertyBox or 'tl:FFA30000 tr:FFA30000 bl:FFA30000 br:FFA30000' 
		, AlphaBox = AlphaBox or 255 
		, TimerSecond = TimerSecond or 4
	}
	Box = guiCreateStaticImage ( 10 , 19 , guiGetSize ( Window , false ) - 20 , 21 , ':guieditor/images/dot_white.png' , false , Window )
	guiSetProperty ( Box , 'ImageColours' , Table.PropertyBox ) 
	guiSetAlpha ( Box , Table.AlphaBox )
	guiSetProperty ( Box , 'AlwaysOnTop' , 'True' )
	Label = guiCreateLabel ( 10 , 0 , guiGetSize ( Window , false ) - 20 , 21 , Text , false , Box )
	guiLabelSetHorizontalAlign ( Label , 'center' , false ) 
	guiLabelSetVerticalAlign ( Label , 'center' )
	guiLabelSetColor ( Label , Table.RedLabel , Table.GreenLabel , Table.BlueLabel , Table.AlphaLabel )
	setTimer ( function ( Box , Label )
		destroyElement ( Label ) destroyElement ( Box )
	end , 1000 * Table.TimerSecond , 1 , Box , Label )
end

- لازم مود الجيوإدتور يكون شغال ..

مثال :

Master_MTA · October 27, 2018

3 hours ago, #_iMr,[E]coo said:

الجيوإدتور

اولا اهتم باللوكال

2- حسن منها بالاعتماد على ال dx

ما بيحتاج تسوي تايمر ثاني 1 تايمر يكفي لالغاء الجيو والدي اكس

وبس بالتوفيق وظيفه جيده

Rockyz · October 28, 2018

السلام عليكم ورحمة الله وبركاته

dxGetTextHeight

الوظيفة تقوم بجلب طول النص

Syntax:

dxGetTextHeight(string text, [float scale=1, mixed font="default"])

Source Code:

function dxGetTextHeight(text, scale, font)
    if type(text) == "string" then
        scale = type(scale) == "number" and scale or 1
        font = (type(font) == "string" or (isElement(font) and getElementType(font) == "dx-font")) and font or "default"
        local height = dxGetFontHeight(scale, font)
        return ((text:len()-text:gsub("\n", ""):len())*height)+height
    end
    return false
end

SycroX · November 1, 2018

فانكشن علي السريع من الموب هههه مفيد ذا ولا مو مفيد برايكم

function sum(...)
  local numbers, result = {...}, false
  if #numbers > 0 then
    result = 0
    for i = 1, #numbers do
      result = result and (result + numbers[i])
    end
  end
  return result
end

MrBiG · November 27, 2018

On 01/11/2018 at 18:18, #َxLysandeR said:

فانكشن علي السريع من الموب هههه مفيد ذا ولا مو مفيد برايكم


function sum(...)
  local numbers, result = {...}, false
  if #numbers > 0 then
    result = 0
    for i = 1, #numbers do
      result = result and (result + numbers[i])
    end
  end
  return result
end

هاي الوظيفة بترجعلك المتغيرات الي حطتهم على شكل جدول على حسب الكود بس له اكثر من استخدام

ما اظن يفيدك

هذا لمكاتب الدي اكس

بستخدم كثير على حسب علمي

SycroX · November 27, 2018

3 hours ago, Debo15 said:

هاي الوظيفة بترجعلك المتغيرات الي حطتهم على شكل جدول على حسب الكود بس له اكثر من استخدام

ما اظن يفيدك

هذا لمكاتب الدي اكس

بستخدم كثير على حسب علمي

تشوفني مبتداء ؟

واضح جدا ان المقصد مزاح لا اكثر

الكود كامل تقدر تختصره بذي فقط

+

بدل

sum(1,2,3,4)

1+2+3+4

و كمان الكود في غلطات حتي يعني :-

Edited November 27, 2018 by #َxLysandeR

#[K]iLLeR<3 · November 27, 2018

نبي يوزفلات دي اكس ي عيال

مثلا كذا

function dxDrawButton(x, y, w, h, text, tx, ty, tw, th)
	if ButtonSpam and (x == ButtonSpam[1]) and (y == ButtonSpam[2]) and (w == ButtonSpam[3]) and (h == ButtonSpam[4]) then
	    dxDrawRectangle(x, y, w, h, tocolor(0, 0, 0, 255), false)
	    dxDrawText(text, tx, ty+1, tw, th, tocolor(100, 100, 100, 255), 1.00, "default-bold", "left", "top", false, false, false, false, false)	
	elseif isMouseInPosition(x, y, w, h) or CursorOB and (x == CursorOB[1]) and (y == CursorOB[2]) and (w == CursorOB[3]) and (h == CursorOB[4]) then
	    dxDrawRectangle(x, y, w, h, tocolor(255, 255, 255, 255), false)
	    dxDrawText(text, tx, ty+1, tw, th, tocolor(100, 100, 100, 255), 1.00, "default-bold", "left", "top", false, false, false, false, false)
	else
	    dxDrawRectangle(x, y, w, h, tocolor(1, 101, 252, 255), false)
	    dxDrawText(text, tx, ty+1, tw, th, tocolor(255, 255, 255, 255), 1.00, "default-bold", "left", "top", false, false, false, false, false)
	end
end

بس طبعاً ذا مو حقي و على الغالب بكون ل @#َxLysandeR

SycroX · November 27, 2018

1 hour ago, #[K]iLLeR<3 said:

نبي يوزفلات دي اكس ي عيال

مثلا كذا


function dxDrawButton(x, y, w, h, text, tx, ty, tw, th)	if ButtonSpam and (x == ButtonSpam[1]) and (y == ButtonSpam[2]) and (w == ButtonSpam[3]) and (h == ButtonSpam[4]) then	    dxDrawRectangle(x, y, w, h, tocolor(0, 0, 0, 255), false)	    dxDrawText(text, tx, ty+1, tw, th, tocolor(100, 100, 100, 255), 1.00, "default-bold", "left", "top", false, false, false, false, false)		elseif isMouseInPosition(x, y, w, h) or CursorOB and (x == CursorOB[1]) and (y == CursorOB[2]) and (w == CursorOB[3]) and (h == CursorOB[4]) then	    dxDrawRectangle(x, y, w, h, tocolor(255, 255, 255, 255), false)	    dxDrawText(text, tx, ty+1, tw, th, tocolor(100, 100, 100, 255), 1.00, "default-bold", "left", "top", false, false, false, false, false)	else	    dxDrawRectangle(x, y, w, h, tocolor(1, 101, 252, 255), false)	    dxDrawText(text, tx, ty+1, tw, th, tocolor(255, 255, 255, 255), 1.00, "default-bold", "left", "top", false, false, false, false, false)	endend

بس طبعاً ذا مو حقي و على الغالب بكون ل @#َxLysandeR

يب حقي تقدر تختصره اكتر

function dxDrawButton(x, y, w, h, color, text)
	if isMouseInPosition(x, y, w, h) then
        dxDrawRectangle(x, y, w, h, tocolor(50, 50, 50, 255), false)
        dxDrawText(text, x, y, x+w, y+h, tocolor(255, 255, 255, 255), 1.00, "default", "center", "center", false, false, false, false, false)
	else
        dxDrawRectangle(x, y, w, h, color, false)
        dxDrawText(text, x, y, x+w, y+h, tocolor(255, 255, 255, 255), 1.00, "default", "center", "center", false, false, false, false, false)
	end
end

Master_MTA · November 27, 2018

بعض اليوزفل فنكشن من مكتبتي

كنز والله المكتبة متعوب عليها

function dxDrawRoundedRectangle(x,y,width,height,raduis,color,postgui)

dxDrawRectangle(x,y+raduis,width+1,height-(raduis*2),color,postgui)--horezantal rectangle
dxDrawRectangle(x+raduis,y,width-(raduis*2),height+1,color,postgui)--vertical rectangle

for k=180,270 do--left top
	local co=math.cos(math.rad(k))* raduis
	local si=math.sin(math.rad(k))* raduis
	dxDrawLine((x+raduis)+co,(y+raduis)+si,x+raduis,y+raduis,color,1,postgui)
end
for k=270,360 do--right top
	local co=math.cos(math.rad(k))* raduis
	local si=math.sin(math.rad(k))* raduis
	dxDrawLine((x+width-raduis)+co,(y+raduis)+si,x+width-raduis,y+raduis,color,1,postgui)
end

for k=90,180 do--left bottom
	local co=math.cos(math.rad(k))* raduis
	local si=math.sin(math.rad(k))* raduis
	dxDrawLine((x+raduis)+co,(y+height-raduis)+si,x+raduis,y+height-raduis,color,1,postgui)
end
local k=360
while(k<=(360+90))do
if k~= 360 then
	local co=math.cos(math.rad(k))* raduis
	local si=math.sin(math.rad(k))* raduis
	dxDrawLine((x-raduis+width)+co,(y+height-raduis)+si,x+width-raduis,y+height-raduis,color,1,postgui)
	
end
	k=k+1;
end

end

function dxDrawCutUpRectangle(x,y,width,height,color,postgui,topcolor,bordercolor)

dxDrawRectangle(x,y+(height*5/100),width,height-(height*5/100),color,postgui)--down
dxDrawRectangle(x+(width*6.5/100),y,width-(width*6.5/100),(height*5/100),topcolor,postgui)---top
dxDrawRectangle(x,y,(width*6.5/100),(height*5/100),bordercolor,postgui)---chip left
dxDrawRectangle(x+(width*93.5/100),y,(width*6.5/100),(height*5/100),bordercolor,postgui)---chip right
dxDrawLine(x,y+(height*5/100),x,y+(height),bordercolor,1,postgui)--left
dxDrawLine(x+(width)-1,y+(height*5/100),x+width-1,y+(height),bordercolor,1,postgui)--right
dxDrawLine(x,y+(height)-1,x+width,y+(height)-1,bordercolor,1,postgui)--bottom


end

function dxDrawRoundUpRectangle(x, y, width, height,topcolor, color,postgui)
local radius=(height*5/100)/2
   local width = width - (radius * 2)
   local height = height -( radius * 2)
  local  x = x + radius
  local  y = y + radius

        
        dxDrawCircle(x, y+radius, radius*2, 180, 270, topcolor, topcolor, 7,1,postgui)
        dxDrawCircle(x + width, y+radius, radius*2, 270, 360, topcolor, topcolor, 7,1,postgui)
		dxDrawRectangle(x, y-radius, width, radius*2, topcolor,postgui)
        dxDrawRectangle(x-(radius*2), y+radius, width+(radius*4), height+radius, color,postgui)
		

end

function dxDrawDxWindow(x, y, width, height,topcolor, color,bordercolor,postgui)

dxDrawRectangle(x,y,width,height,color,postgui)
dxDrawRectangle(x,y,width,height*5/100,topcolor,postgui)


dxDrawLine(x,y,x+width-1,y,bordercolor,1,postgui)--top top :D

dxDrawLine(x,y,x,y+height,bordercolor,1,postgui)--left  

dxDrawLine(x+width-1,y,x+width-1,y+height,bordercolor,1,postgui)--right  

dxDrawLine(x,y+height,x+width-1,y+height,bordercolor,1,postgui)--bottom  

end

function getMaxStringForWidth(text,width,isinvers,scale,font)

	local scale=scale or 1.15
	
	local font=font or 'default-bold'
	
	local isinvers= isinvers or false
	
	local mystring=''
	
	local inverstable={}
	
	local num=0
		
	if text~=nil then
			
		local txtwidth=dxGetTextWidth( text,scale,font)
			
			if width>=txtwidth then
			
				return text,text
			
			end
						
		for v in text:gmatch('.') do
		

				if not isinvers then

				mystring=mystring..v
				
					local finalWidth=dxGetTextWidth( mystring,scale,font)
					
						if finalWidth>=width then
							
							mystring=mystring:gsub("[%z\1-\127\194-\244][\128-\191]*$", "")
							
							return mystring,text
							
						end
				
				else
				
					table.insert(inverstable,v)
				
				end
		end
		
				if isinvers then
 
					num=#inverstable
					
					while(num>=1) do
					
						mystring=inverstable[num]..mystring
						
						local finalWidth=dxGetTextWidth( mystring,scale,font)
					
						if finalWidth>=width then
														
							return mystring,text
							
						end
						
						num=num-1
					
					end
					
			return mystring,text
				
				
			
		end
		
	end
	
	return false,text
end

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

core

usefulfunctions.lua

#[K]iLLeR<3 · November 27, 2018

Just now, #َxLysandeR said:

يب حقي تقدر تختصره اكتر

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

MrBiG · December 7, 2018

On 27/11/2018 at 16:32, #َxLysandeR said:

تشوفني مبتداء ؟

واضح جدا ان المقصد مزاح لا اكثر

الكود كامل تقدر تختصره بذي فقط

+

بدل

sum(1,2,3,4)

1+2+3+4

و كمان الكود في غلطات حتي يعني :-

اسف لاني رديت عليك

ما توقعت انك تزعل وتعصب 0_0

^iiEcoo'x_) · December 10, 2018

On 27/11/2018 at 16:32, #َxLysandeR said:

تشوفني مبتداء ؟

واضح جدا ان المقصد مزاح لا اكثر

الكود كامل تقدر تختصره بذي فقط

+

بدل

sum(1,2,3,4)

1+2+3+4

و كمان الكود في غلطات حتي يعني :-

انا اشوفك مبتدئ , ?

#Major . · December 14, 2018

On 06/08/2018 at 00:35, *RayaN-Alharbi. said:
السلام عليكم ورحمة الله وبركاتة

اليوم وانا جالس اتعلم طريقة احفظ فيها الجداول في السكل بستخدام ( التوجوسن, فروم جوسن ) سويت 2 يوزفل فنكشن

يمكن تفيد المبتدئين المهم حبيت انشرها بدال م اجلس محتفظ فيها

نبدا بالاول

x[ setTableToSql ]x

السانتكس \ Syntax
setTableToSql( id, theTable )
id = ايدي او رقم الجدول الي تبي تحفظة

theTable = اسم الجدول الي تبي تحفظة بالسكل

الكود \ Code
executeSQLQuery ('CREATE TABLE IF NOT EXISTS Table_System (ID, myTable)')

function setTableToSql( id, theTable )
    local Results = executeSQLQuery("SELECT myTable FROM `Table_System` WHERE ID=?", id ) 
     if ( type ( Results ) == "table" and #Results == 0 or not Results ) then 
		executeSQLQuery ( "INSERT INTO `Table_System` ( ID, myTable ) VALUES(?, ?)",id , toJSON ( theTable ) )
    else 
        executeSQLQuery('UPDATE `Table_System` SET myTable =? WHERE ID =?',toJSON ( theTable ),id ) 
    end  
end
مثآل \ Examble
Table = {
  {"I'm"},
  {"The"},
  {"King"},
 }
  addEventHandler( "onResourceStop",resourceRoot,
function()
setTableToSql( 1, Table)
end )
x[ getTableFromSql ] x

طبعًا الوضيفة سواها لي عبد الكريم وانا عدلت عليها وضفت ارقمنت الايدي عشان لو حاب يضيف اكثر من جدول @Abdul KariM

السانتكس \ Syntax
getTableFromSql ( id )
id = ايدي او رقم الجدول الي تبي تجيبة من السكل

الكود \ Code
function getTableFromSql ( id )
	  
	local aRow = executeSQLQuery( "SELECT myTable FROM `Table_System` WHERE ID=?",id )

	if ( type ( aRow ) == "table" and #aRow == 0 ) or not aRow then return {""} end	
	
		return fromJSON ( aRow [1] [ "myTable" ] )
	end
مثآل \ Examble
TableT = {}

addEventHandler( "onResourceStart",resourceRoot,
function()
local table = getTableFromSql( 1 )
	if table then
		TableT = table
	end
end )

ضيف هارابطين لاهنت

Edited December 14, 2018 by *RayaN-Alharbi.

#FeldMan · December 17, 2018

وظيفة تسوي Ped مع حدث عند ضرب أل Ped

Ped = createPed( id skin , ألأ حدأثيات ألي تبي فيها ال Ped يرسبن فيها )


function أسم الفنكشن أي أسم تبيه()
local sound = playSound("أسم الأغنية او الصرخة الي حطيتها ب الملف حق المود.mp3") 
	setSoundVolume(sound, 0.5)
end
addEventHandler("onClientPedDamage", root, أسم الفنكشن الي حطيته فوق)

مثأل

Ped = createPed(12,-2391.20850, -613.10767, 132.75192 )


function mahdi1()
local sound = playSound("Mahdi.mp3") 
	setSoundVolume(sound, 0.5)
end
addEventHandler("onClientPedDamage", root, mahdi1)

كود بسيط (:

وظيفة عندما ألأعب يتحرك يحدث حدث ولما يوقف يصير حدث

------------------------------------------ ألكود --------------------------------

addEvent("onLocalPlayerStartsMoving")
addEvent("onLocalPlayerStopsMoving")
local localPlayerMoving = false
local deadSpeed = 0.01
setTimer(function ()
    local vx, vy, vz = getElementVelocity(localPlayer)
    local speed = (vx^2 + vy^2 + vz^2)^0.5
    if not localPlayerMoving and speed > deadSpeed then -- if starts moving
        localPlayerMoving = true
        triggerEvent("onLocalPlayerStartsMoving", localPlayer)
    elseif localPlayerMoving and speed <= deadSpeed then -- if stops moving
        localPlayerMoving = false
        triggerEvent("onLocalPlayerStopsMoving", localPlayer)
    end
end, 8000, 0)



addEventHandler("onLocalPlayerStartsMoving", localPlayer, function()
-------------- هنأ تحط الحدث ألي تبيه يصير لمأ الأعب يبدأ الحركة 
end)
addEventHandler("onLocalPlayerStopsMoving", localPlayer, function()
----------- هنأ تحط الحدث الي تبيه يضهر لمأ الأعب يوقف عن الحركة
end)

------------------------------------مثأل--------------------------------------

addEvent("onLocalPlayerStartsMoving")
addEvent("onLocalPlayerStopsMoving")
local localPlayerMoving = false
local deadSpeed = 0.01
setTimer(function ()
    local vx, vy, vz = getElementVelocity(localPlayer)
    local speed = (vx^2 + vy^2 + vz^2)^0.5
    if not localPlayerMoving and speed > deadSpeed then -- if starts moving
        localPlayerMoving = true
        triggerEvent("onLocalPlayerStartsMoving", localPlayer)
    elseif localPlayerMoving and speed <= deadSpeed then -- if stops moving
        localPlayerMoving = false
        triggerEvent("onLocalPlayerStopsMoving", localPlayer)
    end
end, 8000, 0)



addEventHandler("onLocalPlayerStartsMoving", localPlayer, function()
         dxDrawRectangle(473, 109, 92, 27, tocolor(0, 0, 0, 150))
end)
addEventHandler("onLocalPlayerStopsMoving", localPlayer, function()
         dxDrawRectangle(473, 109, 92, 27, tocolor(0, 0, 0, 150))
end)

بألتوفيق (:

ميدوح · December 20, 2018

السلام عليكم ورحمة الله وبركاته

guiSwitch
Client-only function

Syntax:

element guiSwitch ( float x, float y, bool relative, [ element parent = nil ] )

Source Code:

function guiSwitch(x,y,bool,parent)
local gridlist = guiCreateGridList(x,y, 70, 33,false,parent)
local label = guiCreateLabel(0,0, 38, 30,"O", false,gridlist)
        guiSetFont(label, "default-small")
        guiSetProperty(label, "BackgroundEnabled", "True")
        guiSetProperty(label, "FrameEnabled", "True")
        guiLabelSetHorizontalAlign(label, "center", false)
        guiLabelSetVerticalAlign(label, "center") 
		guiLabelSetColor(label, 255, 0, 0)
addEventHandler("onClientGUIFocus", label, function()
    	if (bool) then	bool = true
		guiSetPosition ( label, 30, 0, false )
		guiLabelSetColor(label, 0, 255, 0)
		guiSetText(label, "|" )
		 else	 bool = false
		guiSetPosition (label, 1, 0, false )
	        guiLabelSetColor(label, 255, 0, 0)
		guiSetText(label, "O" )
		end end)
		addEventHandler("onClientGUIBlur",label,function() bool = true end,true)
		addEventHandler("onClientGUIBlur",label,function() bool = false end,false)
end

Example:

addEventHandler ( "onClientResourceStart",root,
 function ()
 local myWindow = guiCreateWindow ( 0, 0.3, 0.2, 0.1, "Window", true )
 guiCreateLabel(0.1,0.3, 38, 30,"showChat", true,myWindow)
 Switch = guiSwitch(180, 20,true,myWindow) -- new element GUI
 end)

addEventHandler("onClientGUIClick",root,
function ()
	if ( not Switch == true and isChatVisible ) then
        showChat(false) 
        isChatVisible = false
    else
        showChat(true) 
        isChatVisible = true
    end
end
)

#[K]iLLeR<3 · December 20, 2018

7 hours ago, ميدوح said:

guiSwitch

وعليكم السلام , بوش يفيد ذا وش الافاه منه قبل ما اجربه يعني ياريت تحط وش الفائدة من اليوزفل

ميدوح · December 21, 2018

10 hours ago, #[K]iLLeR<3 said:

وعليكم السلام , بوش يفيد ذا وش الافاه منه قبل ما اجربه يعني ياريت تحط وش الفائدة من اليوزفل

Doffy · December 23, 2018

السلام عليكم

اليوم رجعتلكم بيوزفل فنكشن جديد والي هو

warpToPlayer

طبعا الفنكشن واضح من اسمه ,. ادري ان ما بيكون له لزوم عند بعضكم ولاكن سويته للأفادة

الحين نيجي لل syntax

bool warpToPlayer(player thePlayer, player thePlayerToWarpTo)

player thePlayer = اللاعب الي تبي تنقله

thePlayerToWarpTo = اللاعب الي بينتقله

Source Code :

function warpToPlayer(thePlr,plrr)

	if getElementType(plrr) == "player" then
	
		if isPedInVehicle(plrr) then
		
			local veh = getPedOccupiedVehicle ( plrr )
			
				local maxp = getVehicleMaxPassengers ( veh )
				
					local passengers = getVehicleOccupants ( veh )
				
						if maxp > 1 and #passengers ~= maxp then
					
							warpPedIntoVehicle(thePlr,veh, #passengers+1)
							
					end
					
else
		
			local x,y,z = getElementPosition(plrr)
			
			setElementPosition(thePlr, x+1,y,z)
			
				end
		end
end

Edited December 23, 2018 by !#DesTroyeR_,)

ميدوح · January 6, 2019

السلام عليكم ورحمة الله وبركاته
dxDrawMaterial3D
syntax

dxDrawMaterial3D(x,y,z,w,h,Material,images,...)

Material :

"Sphere" see video by medo7
"Box" see video by Ren712
"Triangle"

Source Code:

	local images = dxCreateTexture("");
function dxDrawMaterial3D(x,y,z,w,h,Material,images,...)
		if Material == "Sphere" then
			local segAngle , radius = 360 / 30 , 0.5 ;
			local fX, fY, tX, tY; 
				for i = 1, 360 do 
				fX = x + math.cos( math.rad( segAngle * i ) ) * radius ;
				fY = y + math.sin( math.rad( segAngle * i ) ) * radius ;
				tX = x + math.cos( math.rad( segAngle * (i+7) ) ) * radius ;
				tY = y + math.sin( math.rad( segAngle * (i+7) ) ) * radius ;
				end
				w,h = 1 ;
			return  dxDrawMaterialLine3D(fX, fY, z+h, tX, tY, z+h, images,w,tocolor(0,0,0,100),false) or "Sphere" ;
		elseif Material == "Box" then
			local w2,h2 = math.floor(4* math.sin( h+ math.rad(100) ) ) ;
			return dxDrawMaterialLine3D(x,y,z, w2, h2, z, images, h,tocolor(0,0,0,100),false) or "Box" ;
		elseif Material == "Triangle" then
				t3 = 360/3 ;
				tX2 = x + math.cos( math.rad( t3 * (h+1) ) ) / w ;
				tY2 = y + math.sin( math.rad( t3 * (h+1) ) ) / w ;
				tZ2 = z + math.tan( math.rad( t3 * (h+1) ) ) / w ;
			return dxDrawMaterialLine3D(x,y,z, tX2, tY2, tZ2, images, h,tocolor(0,0,0,100),false) or "Triangle" ;
		end
end

Example

addEventHandler("onClientPreRender", root,
function()
dxDrawMaterial3D(0,0,5,5,5,"Sphere","logo.png")
end)

Doffy · January 28, 2019

اليوم رجعتلكم بوظيفة جديدة والوظيفة واضحة من اسمها

getPlayerInfo - Server side only

الحين نجي للساينتكس

playername, accountname, serial, ip, money, teamname, vehicle, health, armor, dimension, interior = getPlayerInfo(thePlayer)

Source Code :

function getPlayerInfo(thePlayer)
	if isElement(thePlayer) and getElementType(thePlayer) == "player" then
	local aName = getPlayerName(thePlayer)
	local aAcc = getPlayerAccount(thePlayer)
	if not isGuestAccount(aAcc) then
	aAccName = getAccountName(aAcc)
	else
	aAccName = "Guest"
	end
	local hisSerial = getPlayerSerial(thePlayer)
	local aIP = getPlayerIP(thePlayer)
	local hisMoney = getPlayerMoney(thePlayer)
	local hisTeam = getPlayerTeam(thePlayer) or false
	if hisTeam ~= false then
	hisTeamName = getTeamName(hisTeam)
	else
	hisTeamName = "N/A"
	end
	if isPedInVehicle(thePlayer) then
	local theVehicle = getPedOccupiedVehicle ( thePlayer )
	hisVehicleName = getVehicleName(thePlayer)
	else
	hisVehicleName = "On Foot"
	end
	local hisHealth = getElementHealth(thePlayer)
	local hisArmor = getPedArmor(thePlayer)
	local hisDimension = getElementDimension(thePlayer)
	local hisInterior = getElementInterior(thePlayer)
	else
	error("Bad Argument At Argument #1 player not found")
	end
	return aName, aAccName, hisSerial, aIP, hisMoney, hisTeamName, hisVehicleName, hisHealth, hisArmor, hisDimension, hisInterior
end

مثال :

function getPlayerInfo(thePlayer)
	if isElement(thePlayer) and getElementType(thePlayer) == "player" then
	local aName = getPlayerName(thePlayer)
	local aAcc = getPlayerAccount(thePlayer)
	if not isGuestAccount(aAcc) then
	aAccName = getAccountName(aAcc)
	else
	aAccName = "Guest"
	end
	local hisSerial = getPlayerSerial(thePlayer)
	local aIP = getPlayerIP(thePlayer)
	local hisMoney = getPlayerMoney(thePlayer)
	local hisTeam = getPlayerTeam(thePlayer) or false
	if hisTeam ~= false then
	hisTeamName = getTeamName(hisTeam)
	else
	hisTeamName = "N/A"
	end
	if isPedInVehicle(thePlayer) then
	local theVehicle = getPedOccupiedVehicle ( thePlayer )
	hisVehicleName = getVehicleName(thePlayer)
	else
	hisVehicleName = "On Foot"
	end
	local hisHealth = getElementHealth(thePlayer)
	local hisArmor = getPedArmor(thePlayer)
	local hisDimension = getElementDimension(thePlayer)
	local hisInterior = getElementInterior(thePlayer)
	else
	error("Bad Argument At Argument #1 player not found")
	end
	return aName, aAccName, hisSerial, aIP, hisMoney, hisTeamName, hisVehicleName, hisHealth, hisArmor, hisDimension, hisInterior
end

addCommandHandler("getmyinfo",
function(plr)
local name, accountname, serial, ip, money, team, vehicle, health, armor, dimension, interior = getPlayerInfo(plr)
outputChatBox("Your Name: "..name, plr,255,0,0,true)
outputChatBox("Your Account name: "..accountname, plr,255,0,0,true)
outputChatBox("Your Serial: "..serial, plr,255,0,0,true)
outputChatBox("Your IP: "..ip, plr,255,0,0,true)
outputChatBox("Your Money: "..money, plr,255,0,0,true)
outputChatBox("Your Team: "..team, plr,255,0,0,true)
outputChatBox("Your Vehicle: "..vehicle, plr,255,0,0,true)
outputChatBox("Your Health: "..health, plr,255,0,0,true)
outputChatBox("Your Armor: "..armor, plr,255,0,0,true)
outputChatBox("Your Dimension: "..dimension, plr,255,0,0,true)
outputChatBox("Your Interior: "..interior, plr,255,0,0,true)
end
)

النتيجة :

_____________________________________________
ادري ان اغلبكم ما بيتهم للفنكشن ولاكن سويته للأفادة

في امان الله

Rakan# · January 29, 2019

11 hours ago, !#DesTroyeR_,) said:

اليوم رجعتلكم بوظيفة جديدة والوظيفة واضحة من اسمها

getPlayerInfo - Server side only

الحين نجي للساينتكس


playername, accountname, serial, ip, money, teamname, vehicle, health, armor, dimension, interior = getPlayerInfo(thePlayer)

Source Code :


function getPlayerInfo(thePlayer)	if isElement(thePlayer) and getElementType(thePlayer) == "player" then	local aName = getPlayerName(thePlayer)	local aAcc = getPlayerAccount(thePlayer)	if not isGuestAccount(aAcc) then	aAccName = getAccountName(aAcc)	else	aAccName = "Guest"	end	local hisSerial = getPlayerSerial(thePlayer)	local aIP = getPlayerIP(thePlayer)	local hisMoney = getPlayerMoney(thePlayer)	local hisTeam = getPlayerTeam(thePlayer) or false	if hisTeam ~= false then	hisTeamName = getTeamName(hisTeam)	else	hisTeamName = "N/A"	end	if isPedInVehicle(thePlayer) then	local theVehicle = getPedOccupiedVehicle ( thePlayer )	hisVehicleName = getVehicleName(thePlayer)	else	hisVehicleName = "On Foot"	end	local hisHealth = getElementHealth(thePlayer)	local hisArmor = getPedArmor(thePlayer)	local hisDimension = getElementDimension(thePlayer)	local hisInterior = getElementInterior(thePlayer)	else	error("Bad Argument At Argument #1 player not found")	end	return aName, aAccName, hisSerial, aIP, hisMoney, hisTeamName, hisVehicleName, hisHealth, hisArmor, hisDimension, hisInteriorend

مثال :


function getPlayerInfo(thePlayer)	if isElement(thePlayer) and getElementType(thePlayer) == "player" then	local aName = getPlayerName(thePlayer)	local aAcc = getPlayerAccount(thePlayer)	if not isGuestAccount(aAcc) then	aAccName = getAccountName(aAcc)	else	aAccName = "Guest"	end	local hisSerial = getPlayerSerial(thePlayer)	local aIP = getPlayerIP(thePlayer)	local hisMoney = getPlayerMoney(thePlayer)	local hisTeam = getPlayerTeam(thePlayer) or false	if hisTeam ~= false then	hisTeamName = getTeamName(hisTeam)	else	hisTeamName = "N/A"	end	if isPedInVehicle(thePlayer) then	local theVehicle = getPedOccupiedVehicle ( thePlayer )	hisVehicleName = getVehicleName(thePlayer)	else	hisVehicleName = "On Foot"	end	local hisHealth = getElementHealth(thePlayer)	local hisArmor = getPedArmor(thePlayer)	local hisDimension = getElementDimension(thePlayer)	local hisInterior = getElementInterior(thePlayer)	else	error("Bad Argument At Argument #1 player not found")	end	return aName, aAccName, hisSerial, aIP, hisMoney, hisTeamName, hisVehicleName, hisHealth, hisArmor, hisDimension, hisInteriorendaddCommandHandler("getmyinfo",function(plr)local name, accountname, serial, ip, money, team, vehicle, health, armor, dimension, interior = getPlayerInfo(plr)outputChatBox("Your Name: "..name, plr,255,0,0,true)outputChatBox("Your Account name: "..accountname, plr,255,0,0,true)outputChatBox("Your Serial: "..serial, plr,255,0,0,true)outputChatBox("Your IP: "..ip, plr,255,0,0,true)outputChatBox("Your Money: "..money, plr,255,0,0,true)outputChatBox("Your Team: "..team, plr,255,0,0,true)outputChatBox("Your Vehicle: "..vehicle, plr,255,0,0,true)outputChatBox("Your Health: "..health, plr,255,0,0,true)outputChatBox("Your Armor: "..armor, plr,255,0,0,true)outputChatBox("Your Dimension: "..dimension, plr,255,0,0,true)outputChatBox("Your Interior: "..interior, plr,255,0,0,true)end)

النتيجة :

_____________________________________________
ادري ان اغلبكم ما بيتهم للفنكشن ولاكن سويته للأفادة

في امان الله

جميل لكن لو تسوي تحقق أن اللاعب حي مب ميت + تخليه جدول أفضل .

Master_MTA · February 4, 2019

On 28/01/2019 at 15:08, !#DesTroyeR_,) said:

local aName = getPlayerName(thePlayer)

فشخت الرامات يا راجل

تقل على البروسيسور ماشي لكن الرامات غالبا للي بيلعبو mta

بتبقى 2GB

فمتقلش عليها بكل المتغيرات دي

يكفيك انك

تعمل

return getPlayerName(plr),getPlayerSerial(plr)

...etc

بالتوفيق

تحت التطوير :كود - Useful Arab functions

Recommended Posts

Link to comment

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

Abdul KariM

iPrestege

shwaeki

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Example:

Link to comment

Link to comment

Link to comment

Link to comment

Example

Link to comment

Link to comment

Link to comment

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members