Booo

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

Recommended Posts

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

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

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

  • Confused 1

Share this post


Link to post

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

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

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 by !#NssoR_)
Edited as requested

Share this post


Link to post

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

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

بالتوفيق

Share this post


Link to post

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

 

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 


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

مثال : 
v22J7a0.png

  • Like 1

Share this post


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

الجيوإدتور

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

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

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

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

  • Like 1

Share this post


Link to post

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

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

 

Share this post


Link to post

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

:D 

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

 

Share this post


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

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

:D 


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

 

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

ما اظن يفيدك 

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

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

Share this post


Link to post
3 hours ago, Debo15 said:

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

ما اظن يفيدك 

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

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

](*,)](*,)

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

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

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

+

بدل 

sum(1,2,3,4)

1+2+3+4

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

Edited by #َxLysandeR
  • Confused 1

Share this post


Link to post

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

مثلا كذا

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

Share this post


Link to post
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

 

  • Like 1
  • Confused 1

Share this post


Link to post

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

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

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

  • Like 2

Share this post


Link to post
Just now, #َxLysandeR said:

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

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

  • Thanks 1

Share this post


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

](*,)](*,)

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

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

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

+

بدل 

sum(1,2,3,4)

1+2+3+4

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

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

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

 

Share this post


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

](*,)](*,)

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

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

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

+

بدل 

sum(1,2,3,4)

1+2+3+4

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

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

:lol: :lover:

  • Like 1

Share this post


Link to post
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 )


 

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

setTableToSql

getTableFromSql

@!#NssoR_)

@N3xT

Edited by *RayaN-Alharbi.

Share this post


Link to post

وظيفة تسوي 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)

بألتوفيق (:

  • Like 1

Share this post


Link to post

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

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
)

 

  • Like 1

Share this post


Link to post
7 hours ago, ميدوح said:

guiSwitch

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

  • Like 1

Share this post


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

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

687474703a2f2f692e696d6775722e636f6d2f4d

  • Thanks 1

Share this post


Link to post

السلام عليكم

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

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 by !#DesTroyeR_,)
  • Like 1

Share this post


Link to post

السلام عليكم ورحمة الله وبركاته
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)

 

  • Like 2

Share this post


Link to post

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

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
)


النتيجة :
p_1123rorjf1.png
_____________________________________________
ادري ان اغلبكم ما بيتهم للفنكشن ولاكن سويته للأفادة

في امان الله

  • Like 4

Share this post


Link to post
11 hours ago, !#DesTroyeR_,) said:

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

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)


النتيجة :
p_1123rorjf1.png
_____________________________________________
ادري ان اغلبكم ما بيتهم للفنكشن ولاكن سويته للأفادة

في امان الله

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

  • Like 4

Share this post


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

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

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

بتبقى 2GB

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

يكفيك انك 

تعمل

return getPlayerName(plr),getPlayerSerial(plr)

...etc

بالتوفيق

 

  • Haha 3

Share this post


Link to post

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.