Jump to content

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


Booo

Recommended Posts

منور ميزو

فنكشن كويس زي الفل

لكن افضل لك تغير اسمه عشان مايتبدل مع الفنكشن الي باللعبة #

بالتوفيق :fadein:

راح تختفي وظيفة اللعبة وتجي حقتي بدون اخطاء

function a(b, c) -- وظيفة اللعبة 
return a+b 
end 
function a( ) -- وظيفتي 
return 1 
end 
print(a()) 

Link to comment

منور ميزو

فنكشن كويس زي الفل

لكن افضل لك تغير اسمه عشان مايتبدل مع الفنكشن الي باللعبة #

بالتوفيق :fadein:

راح تختفي وظيفة اللعبة وتجي حقتي بدون اخطاء

function a(b, c) -- وظيفة اللعبة
return a+b
end
function a( ) -- وظيفتي
return 1
end
print(a())

انا ادري ان حقتك بتجي بدون اخطاء وقلت لك بتتبدل لكن قلت لك افضل تغير الاسم وخلها اسم خاص افضل واحسن

Link to comment

اليوم اقدم لكم وظيفة

:D

changeGridListItemToVehiclesName

فايدة الوظيفة :

تحول قيم الجريد ليست الى اسماء سيارة مرسبنة

Syntax :

  
bool changeGridListItemToVehiclesName ( element gridlist, int column ) 
  

الوظيفة الاصلية كانت اسماء لاعبين من قبل عناد

بس انا معدلها وخليتها اسماء سيارات

بسم الله نبدأ

Code :

  
        changeGridListItemToVehiclesName = function ( GridList, Column ) 
    if GridList and Column then -- Check Parematers 
        if getElementType ( GridList ) == "gui-gridlist" then -- Check The Type of ' GridList ' 
            if guiGridListClear ( GridList ) then -- Clear GridList 
                for i, v in next, getElementsByType ( "vehicle" ) do -- Get Everything by Type ' vehicle ' 
                    local Row = guiGridListAddRow ( GridList ) -- Add Row 
                    guiGridListSetItemText ( GridList, Row, Column, getVehicleName ( v ), false, false ); -- Set New Values 
                end; -- end of ' for ' 
            end; -- end of ' clear gridlist ' 
        end; -- end of ' check gridlist type ' 
    end; -- end of ' check parematers 
end; -- end of ' function ' 

Ex :

  
wnd = guiCreateWindow(313, 199, 291, 451, "Test", false) 
grid = guiCreateGridList(25, 71, 255, 318, false, wnd) 
col = guiGridListAddColumn( grid, "Vehicles :", 0.85 ) 
changeGridListItemToVehiclesName( grid, col) 
  

اعذروني لو كان في اخطاء لانها المرة الاولى اطرح فنكشن

Author : 3NAD

Edit : iMr.WiFi

Why I returned the function ?

ترجمة : ليش انا رجعت الفنكشن ؟

عشان في بعض المبرمجين طلبو وقالو افضل فنكشنك للاختصار والافادةة

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

Edited by Guest
Link to comment

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

اليوم اقدم لكم وظيفة :D

changeGridListItemToVehiclesName

فايدة الوظيفة :

تحول قيم الجريد ليست الى اسماء سيارات اللعبه

Syntax :

  
bool changeGridListItemToVehiclesName ( element gridlist, int column ) 
  

الوظيفة الاصلية كانت اسماء لاعبين من قبل عناد

بس انا معدلها وخليتها اسماء سيارات

بسم الله نبدأ

Code :

  
        changeGridListItemToVehiclesName = function ( GridList, Column ) 
    if GridList and Column then -- Check Parematers 
        if getElementType ( GridList ) == "gui-gridlist" then -- Check The Type of ' GridList ' 
            if guiGridListClear ( GridList ) then -- Clear GridList 
                for i, v in next, getElementsByType ( "vehicle" ) do -- Get Everything by Type ' vehicle ' 
                    local Row = guiGridListAddRow ( GridList ) -- Add Row 
                    guiGridListSetItemText ( GridList, Row, Column, getVehicleName ( v ), false, false ); -- Set New Values 
                end; -- end of ' for ' 
            end; -- end of ' clear gridlist ' 
        end; -- end of ' check gridlist type ' 
    end; -- end of ' check parematers 
end; -- end of ' function ' 
  

Ex :

  
wnd = guiCreateWindow(313, 199, 291, 451, "Test", false) 
grid = guiCreateGridList(25, 71, 255, 318, false, wnd) 
col = guiGridListAddColumn( grid, "Vehicles :", 0.85 ) 
changeGridListItemToVehiclesName( grid, col) 
  

اعذروني لو كان في اخطاء لانها المرة الاولى اطرح فنكشن

Author : 3NAD

Edit : iMr.WiFi

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

بسم الله الرحمن الرحيم

changeGridlistToNameVehicle

وظيفه تحول القريد لست الى اسامي السيارات

vehicleIDS = { 602, 545, 496, 517, 401, 410, 518, 600, 527, 436, 589, 580, 419, 439, 533, 549, 526, 491, 474, 445, 467, 604, 426, 507, 547, 585, 
405, 587, 409, 466, 550, 492, 566, 546, 540, 551, 421, 516, 529, 592, 553, 577, 488, 511, 497, 548, 563, 512, 476, 593, 447, 425, 519, 520, 460, 
417, 469, 487, 513, 581, 510, 509, 522, 481, 461, 462, 448, 521, 468, 463, 586, 472, 473, 493, 595, 484, 430, 453, 452, 446, 454, 485, 552, 431, 
438, 437, 574, 420, 525, 408, 416, 596, 433, 597, 427, 599, 490, 432, 528, 601, 407, 428, 544, 523, 470, 598, 499, 588, 609, 403, 498, 514, 524, 
423, 532, 414, 578, 443, 486, 515, 406, 531, 573, 456, 455, 459, 543, 422, 583, 482, 478, 605, 554, 530, 418, 572, 582, 413, 440, 536, 575, 534, 
567, 535, 576, 412, 402, 542, 603, 475, 449, 537, 538, 441, 464, 501, 465, 564, 568, 557, 424, 471, 504, 495, 457, 539, 483, 508, 571, 500, 
444, 556, 429, 411, 541, 559, 415, 561, 480, 560, 562, 506, 565, 451, 434, 558, 494, 555, 502, 477, 503, 579, 400, 404, 489, 505, 479, 442, 458, 
606, 607, 610, 590, 569, 611, 584, 608, 435, 450, 591, 594 } 
  
  
function changeGridlistToNameVehicle(gridlist,col) 
if not col then col = 1 end 
    if gridlist then 
        if getElementType ( GridList ) == "gui-gridlist" then 
        guiGridListClear (gridlist) 
            for k, v in pairs(vehicleIDS) do 
if getVehicleNameFromModel(v) ~= "" or nil then 
       guiGridListSetItemText (gridlist,guiGridListAddRow (gridlist),col,getVehicleNameFromModel(v), false, false ) 
end 
            end 
    end 
    end 
end 

مثآل

vehicleIDS = { 602, 545, 496, 517, 401, 410, 518, 600, 527, 436, 589, 580, 419, 439, 533, 549, 526, 491, 474, 445, 467, 604, 426, 507, 547, 585, 
405, 587, 409, 466, 550, 492, 566, 546, 540, 551, 421, 516, 529, 592, 553, 577, 488, 511, 497, 548, 563, 512, 476, 593, 447, 425, 519, 520, 460, 
417, 469, 487, 513, 581, 510, 509, 522, 481, 461, 462, 448, 521, 468, 463, 586, 472, 473, 493, 595, 484, 430, 453, 452, 446, 454, 485, 552, 431, 
438, 437, 574, 420, 525, 408, 416, 596, 433, 597, 427, 599, 490, 432, 528, 601, 407, 428, 544, 523, 470, 598, 499, 588, 609, 403, 498, 514, 524, 
423, 532, 414, 578, 443, 486, 515, 406, 531, 573, 456, 455, 459, 543, 422, 583, 482, 478, 605, 554, 530, 418, 572, 582, 413, 440, 536, 575, 534, 
567, 535, 576, 412, 402, 542, 603, 475, 449, 537, 538, 441, 464, 501, 465, 564, 568, 557, 424, 471, 504, 495, 457, 539, 483, 508, 571, 500, 
444, 556, 429, 411, 541, 559, 415, 561, 480, 560, 562, 506, 565, 451, 434, 558, 494, 555, 502, 477, 503, 579, 400, 404, 489, 505, 479, 442, 458, 
606, 607, 610, 590, 569, 611, 584, 608, 435, 450, 591, 594 } 
  
  
function changeGridlistToNameVehicle(gridlist,col) 
if not col then col = 1 end 
    if gridlist then 
        if getElementType ( GridList ) == "gui-gridlist" then 
        guiGridListClear (gridlist) 
            for k, v in pairs(vehicleIDS) do 
if getVehicleNameFromModel(v) ~= "" or nil then 
       guiGridListSetItemText (gridlist,guiGridListAddRow (gridlist),col,getVehicleNameFromModel(v), false, false ) 
end 
            end 
    end 
    end 
end 
  
addEventHandler( "onClientResourceStart",resourceRoot, 
    function ( ) 
    local carsList = guiCreateGridList ( 0.80, 0.10, 0.15, 0.60, true ) 
    local column = guiGridListAddColumn(carsList, "cars", 0.85 ) 
changeGridlistToNameVehicle(carsList) 
  
end 
) 
  
  

-

:!:

Link to comment

ValidateURL

This function validates the URL

هذه الوظيفة تقوم بالتحقق من صحة الرابط

Code

function ValidateURL(s) 
    return s:match("[A-Za-z0-9%.%%%+%-]+://[A-Za-z0-9%.%%%+%-]+%.[A-Za-z0-9%.%%%+%-]+%.%w%w%w?%w?") 
end 

Example :

print(ValidateURL("https://www.google.com")) 

Returns :

Returns url string if url correct, nil if invalid url were passed.

  • Like 2
Link to comment

ValidateURL

This function validates the URL

هذه الوظيفة تقوم بالتحقق من صحة الرابط

Code

function ValidateURL(s)
    return s:match("[A-Za-z0-9%.%%%+%-]+://[A-Za-z0-9%.%%%+%-]+%.[A-Za-z0-9%.%%%+%-]+%.%w%w%w?%w?")
end

Example :

print(ValidateURL("https://www.google.com"))

Returns :

Returns url string if url correct, nil if invalid url were passed.

شبك ؟؟

كل يوم تفجير ؟

استمر ولا توقف

Link to comment

ValidateURL

This function validates the URL

هذه الوظيفة تقوم بالتحقق من صحة الرابط

Code

function ValidateURL(s)
    return s:match("[A-Za-z0-9%.%%%+%-]+://[A-Za-z0-9%.%%%+%-]+%.[A-Za-z0-9%.%%%+%-]+%.%w%w%w?%w?")
end

Example :

print(ValidateURL("https://www.google.com"))

Returns :

Returns url string if url correct, nil if invalid url were passed.

كفووووووووووو استمر

Link to comment

isMouseInCircle

واضحة من الاسم

x, y = احداثيات الدائرة

r = نصف قطر الدائرة

local sx, sy = guiGetScreenSize( ) 
function isMouseInPosition(x, y, w, h) 
    if isCursorShowing( ) then 
        local cx, cy = getCursorPosition( ) 
        local cx, cy = cx*sx, cy*sy 
        return cx >= x and cx <= x+w and cy >= y and cy <= y+h 
    end 
    return false 
end 
function isMouseInCircle(x, y, r) 
    local i = 0 
    for k=(-r), r do 
        local q = math.sqrt((r/2)*(r/2)-k*k) 
        if isMouseInPosition(x-q+(r/2), y+k+(r/2), 2*q, 1) then 
            i = i+1 
        end 
    end 
    return i ~= (-r)+r 
end 

Link to comment

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

اليوم اقدم لكم وظيفة :D

changeGridListItemToVehiclesName

فايدة الوظيفة :

تحول قيم الجريد ليست الى اسماء سيارات اللعبه

Syntax :

  
bool changeGridListItemToVehiclesName ( element gridlist, int column ) 
  

الوظيفة الاصلية كانت اسماء لاعبين من قبل عناد

بس انا معدلها وخليتها اسماء سيارات

بسم الله نبدأ

Code :

  
        changeGridListItemToVehiclesName = function ( GridList, Column ) 
    if GridList and Column then -- Check Parematers 
        if getElementType ( GridList ) == "gui-gridlist" then -- Check The Type of ' GridList ' 
            if guiGridListClear ( GridList ) then -- Clear GridList 
                for i, v in next, getElementsByType ( "vehicle" ) do -- Get Everything by Type ' vehicle ' 
                    local Row = guiGridListAddRow ( GridList ) -- Add Row 
                    guiGridListSetItemText ( GridList, Row, Column, getVehicleName ( v ), false, false ); -- Set New Values 
                end; -- end of ' for ' 
            end; -- end of ' clear gridlist ' 
        end; -- end of ' check gridlist type ' 
    end; -- end of ' check parematers 
end; -- end of ' function ' 
  

Ex :

  
wnd = guiCreateWindow(313, 199, 291, 451, "Test", false) 
grid = guiCreateGridList(25, 71, 255, 318, false, wnd) 
col = guiGridListAddColumn( grid, "Vehicles :", 0.85 ) 
changeGridListItemToVehiclesName( grid, col) 
  

اعذروني لو كان في اخطاء لانها المرة الاولى اطرح فنكشن

Author : 3NAD

Edit : iMr.WiFi

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

بسم الله الرحمن الرحيم

changeGridlistToNameVehicle

وظيفه تحول القريد لست الى اسامي السيارات

vehicleIDS = { 602, 545, 496, 517, 401, 410, 518, 600, 527, 436, 589, 580, 419, 439, 533, 549, 526, 491, 474, 445, 467, 604, 426, 507, 547, 585, 
405, 587, 409, 466, 550, 492, 566, 546, 540, 551, 421, 516, 529, 592, 553, 577, 488, 511, 497, 548, 563, 512, 476, 593, 447, 425, 519, 520, 460, 
417, 469, 487, 513, 581, 510, 509, 522, 481, 461, 462, 448, 521, 468, 463, 586, 472, 473, 493, 595, 484, 430, 453, 452, 446, 454, 485, 552, 431, 
438, 437, 574, 420, 525, 408, 416, 596, 433, 597, 427, 599, 490, 432, 528, 601, 407, 428, 544, 523, 470, 598, 499, 588, 609, 403, 498, 514, 524, 
423, 532, 414, 578, 443, 486, 515, 406, 531, 573, 456, 455, 459, 543, 422, 583, 482, 478, 605, 554, 530, 418, 572, 582, 413, 440, 536, 575, 534, 
567, 535, 576, 412, 402, 542, 603, 475, 449, 537, 538, 441, 464, 501, 465, 564, 568, 557, 424, 471, 504, 495, 457, 539, 483, 508, 571, 500, 
444, 556, 429, 411, 541, 559, 415, 561, 480, 560, 562, 506, 565, 451, 434, 558, 494, 555, 502, 477, 503, 579, 400, 404, 489, 505, 479, 442, 458, 
606, 607, 610, 590, 569, 611, 584, 608, 435, 450, 591, 594 } 
  
  
function changeGridlistToNameVehicle(gridlist,col) 
if not col then col = 1 end 
    if gridlist then 
        if getElementType ( GridList ) == "gui-gridlist" then 
        guiGridListClear (gridlist) 
            for k, v in pairs(vehicleIDS) do 
if getVehicleNameFromModel(v) ~= "" or nil then 
       guiGridListSetItemText (gridlist,guiGridListAddRow (gridlist),col,getVehicleNameFromModel(v), false, false ) 
end 
            end 
    end 
    end 
end 

مثآل

vehicleIDS = { 602, 545, 496, 517, 401, 410, 518, 600, 527, 436, 589, 580, 419, 439, 533, 549, 526, 491, 474, 445, 467, 604, 426, 507, 547, 585, 
405, 587, 409, 466, 550, 492, 566, 546, 540, 551, 421, 516, 529, 592, 553, 577, 488, 511, 497, 548, 563, 512, 476, 593, 447, 425, 519, 520, 460, 
417, 469, 487, 513, 581, 510, 509, 522, 481, 461, 462, 448, 521, 468, 463, 586, 472, 473, 493, 595, 484, 430, 453, 452, 446, 454, 485, 552, 431, 
438, 437, 574, 420, 525, 408, 416, 596, 433, 597, 427, 599, 490, 432, 528, 601, 407, 428, 544, 523, 470, 598, 499, 588, 609, 403, 498, 514, 524, 
423, 532, 414, 578, 443, 486, 515, 406, 531, 573, 456, 455, 459, 543, 422, 583, 482, 478, 605, 554, 530, 418, 572, 582, 413, 440, 536, 575, 534, 
567, 535, 576, 412, 402, 542, 603, 475, 449, 537, 538, 441, 464, 501, 465, 564, 568, 557, 424, 471, 504, 495, 457, 539, 483, 508, 571, 500, 
444, 556, 429, 411, 541, 559, 415, 561, 480, 560, 562, 506, 565, 451, 434, 558, 494, 555, 502, 477, 503, 579, 400, 404, 489, 505, 479, 442, 458, 
606, 607, 610, 590, 569, 611, 584, 608, 435, 450, 591, 594 } 
  
  
function changeGridlistToNameVehicle(gridlist,col) 
if not col then col = 1 end 
    if gridlist then 
        if getElementType ( GridList ) == "gui-gridlist" then 
        guiGridListClear (gridlist) 
            for k, v in pairs(vehicleIDS) do 
if getVehicleNameFromModel(v) ~= "" or nil then 
       guiGridListSetItemText (gridlist,guiGridListAddRow (gridlist),col,getVehicleNameFromModel(v), false, false ) 
end 
            end 
    end 
    end 
end 
  
addEventHandler( "onClientResourceStart",resourceRoot, 
    function ( ) 
    local carsList = guiCreateGridList ( 0.80, 0.10, 0.15, 0.60, true ) 
    local column = guiGridListAddColumn(carsList, "cars", 0.85 ) 
changeGridlistToNameVehicle(carsList) 
  
end 
) 
  
  

-

:!:

الله يهديك

الوظيفة الأولى تجيب اسامي كل السيارات من الجدول

اما الوظيفة الثانية تجيب اسامي السيارات الموجودة في السيرفر او المرسبنة

:redhotevil::redhotevil:

Link to comment

isMouseInCircle

واضحة من الاسم

x, y = احداثيات الدائرة

r = نصف قطر الدائرة

local sx, sy = guiGetScreenSize( )
function isMouseInPosition(x, y, w, h)
    if isCursorShowing( ) then
        local cx, cy = getCursorPosition( )
        local cx, cy = cx*sx, cy*sy
        return cx >= x and cx <= x+w and cy >= y and cy <= y+h
    end
    return false
end
function isMouseInCircle(x, y, r)
    local i = 0
    for k=(-r), r do
        local q = math.sqrt((r/2)*(r/2)-k*k)
        if isMouseInPosition(x-q+(r/2), y+k+(r/2), 2*q, 1) then
            i = i+1
        end
    end
    return i ~= (-r)+r
end

@Mr.Tn6eL

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

استمر ولا توقف <3

Link to comment

بسم الله الرحمن الرحيم

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

dxDrawText2D

ClientSide

Syntax :

dxDrawText2D ( string text, float left, float top , float width, float height,int  color, float scale,  string  font , string alignX="left", string alignY="top", bool clip=false, bool wordBreak=false,bool postGUI=false,int frameColor, float fRotation=0)  
  

string text = نص

float left = شمال

float top = فوق

float width = العرض

float height = ارتفاع

int color = لون خط

float scale = حجم

string font = الخط

string alignX= "left"

string alignY= "top"

bool clip= false

bool wordBreak= false

bool postGUI= false

int frameColor = لون ظلال الخط

float fRotation= إمالة

Code :

function dxDrawText2D(text, left, top, width, height, color, scale, font, alignX, alignY,clip,wordBreak, postGUI,frameColor,fRotation) 
if  color and frameColor and scale and font and alignX and alignY and not fRotation then 
    color = tocolor(255, 255, 255, 255) 
    frameColor = tocolor(0, 0, 0, 255) 
    scale = 1 
    fRotation = 0 
    font = "default-bold" 
    alignX = "left" 
    alignY = "top" 
  end 
if not clip and not wordBreak and not postGUI then 
    clip = false 
    wordBreak = false 
    postGUI = false 
  end 
  for k=1,scale+4 do 
 dxDrawText(text, left + 1 + k, top - 1 + k, width + 1 + k, height - 1 + k, frameColor, scale, font, alignX, alignY, clip,wordBreak, postGUI,true, true,fRotation) 
 dxDrawText(text, left + k, top + k, width + k, height + k, color, scale, font, alignX, alignY, clip,wordBreak, postGUI,true, true,fRotation) 
end 
end 

Example :

 addEventHandler("onClientRender", root, 
    function() 
dxDrawText2D("Medo#1ceae37", 5,5,100,100, tocolor(200, 255, 0, 255), 3, "default-bold", "left", "top", false, false, false, tocolor(0, 255, 0, 255),0) 
dxDrawText2D("me#f00f00Do7", 75,245,100,100, tocolor(0, 0, 0, 255), 10, "default-bold", "left", "top", false, false, false, tocolor(0, 255, 0, 255),-40) 
dxDrawText2D("Medo7 $", 105,335,100,100, tocolor(200, 255, 0, 255), 7, "default-bold", "left", "top", false, false, false, tocolor(0, 0, 0, 255),20) 
 end 
) 
  

146130035502081.png

Author : Medo7

Link to comment
بسم الله الرحمن الرحيم

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

dxDrawText2D

ClientSide

Syntax :

dxDrawText2D ( string text, float left, float top , float width, float height,int  color, float scale,  string  font , string alignX="left", string alignY="top", bool clip=false, bool wordBreak=false,bool postGUI=false,int frameColor, float fRotation=0)  
  

string text = نص

float left = شمال

float top = فوق

float width = العرض

float height = ارتفاع

int color = لون خط

float scale = حجم

string font = الخط

string alignX= "left"

string alignY= "top"

bool clip= false

bool wordBreak= false

bool postGUI= false

int frameColor = لون ظلال الخط

float fRotation= إمالة

Code :

function dxDrawText2D(text, left, top, width, height, color, scale, font, alignX, alignY,clip,wordBreak, postGUI,frameColor,fRotation) 
if  color and frameColor and scale and font and alignX and alignY and not fRotation then 
    color = tocolor(255, 255, 255, 255) 
    frameColor = tocolor(0, 0, 0, 255) 
    scale = 1 
    fRotation = 0 
    font = "default-bold" 
    alignX = "left" 
    alignY = "top" 
  end 
if not clip and not wordBreak and not postGUI then 
    clip = false 
    wordBreak = false 
    postGUI = false 
  end 
  for k=1,scale+4 do 
 dxDrawText(text, left + 1 + k, top - 1 + k, width + 1 + k, height - 1 + k, frameColor, scale, font, alignX, alignY, clip,wordBreak, postGUI,true, true,fRotation) 
 dxDrawText(text, left + k, top + k, width + k, height + k, color, scale, font, alignX, alignY, clip,wordBreak, postGUI,true, true,fRotation) 
end 
end 

Example :

 addEventHandler("onClientRender", root, 
    function() 
dxDrawText2D("Medo#1ceae37", 5,5,100,100, tocolor(200, 255, 0, 255), 3, "default-bold", "left", "top", false, false, false, tocolor(0, 255, 0, 255),0) 
dxDrawText2D("me#f00f00Do7", 75,245,100,100, tocolor(0, 0, 0, 255), 10, "default-bold", "left", "top", false, false, false, tocolor(0, 255, 0, 255),-40) 
dxDrawText2D("Medo7 $", 105,335,100,100, tocolor(200, 255, 0, 255), 7, "default-bold", "left", "top", false, false, false, tocolor(0, 0, 0, 255),20) 
 end 
) 
  

146130035502081.png

Author : Medo7

كفو ي شنب

استمر ولا توقف

Link to comment
بسم الله الرحمن الرحيم

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

dxDrawText2D

ClientSide

Syntax :

dxDrawText2D ( string text, float left, float top , float width, float height,int  color, float scale,  string  font , string alignX="left", string alignY="top", bool clip=false, bool wordBreak=false,bool postGUI=false,int frameColor, float fRotation=0)  
  

string text = نص

float left = شمال

float top = فوق

float width = العرض

float height = ارتفاع

int color = لون خط

float scale = حجم

string font = الخط

string alignX= "left"

string alignY= "top"

bool clip= false

bool wordBreak= false

bool postGUI= false

int frameColor = لون ظلال الخط

float fRotation= إمالة

Code :

function dxDrawText2D(text, left, top, width, height, color, scale, font, alignX, alignY,clip,wordBreak, postGUI,frameColor,fRotation) 
if  color and frameColor and scale and font and alignX and alignY and not fRotation then 
    color = tocolor(255, 255, 255, 255) 
    frameColor = tocolor(0, 0, 0, 255) 
    scale = 1 
    fRotation = 0 
    font = "default-bold" 
    alignX = "left" 
    alignY = "top" 
  end 
if not clip and not wordBreak and not postGUI then 
    clip = false 
    wordBreak = false 
    postGUI = false 
  end 
  for k=1,scale+4 do 
 dxDrawText(text, left + 1 + k, top - 1 + k, width + 1 + k, height - 1 + k, frameColor, scale, font, alignX, alignY, clip,wordBreak, postGUI,true, true,fRotation) 
 dxDrawText(text, left + k, top + k, width + k, height + k, color, scale, font, alignX, alignY, clip,wordBreak, postGUI,true, true,fRotation) 
end 
end 

Example :

 addEventHandler("onClientRender", root, 
    function() 
dxDrawText2D("Medo#1ceae37", 5,5,100,100, tocolor(200, 255, 0, 255), 3, "default-bold", "left", "top", false, false, false, tocolor(0, 255, 0, 255),0) 
dxDrawText2D("me#f00f00Do7", 75,245,100,100, tocolor(0, 0, 0, 255), 10, "default-bold", "left", "top", false, false, false, tocolor(0, 255, 0, 255),-40) 
dxDrawText2D("Medo7 $", 105,335,100,100, tocolor(200, 255, 0, 255), 7, "default-bold", "left", "top", false, false, false, tocolor(0, 0, 0, 255),20) 
 end 
) 
  

146130035502081.png

Author : Medo7

كفو ي شنب

استمر ولا توقف

Link to comment

zWDoHTl.png

getPlayersInGroup

وظيفة جلب جميع الاعبين من القروب

Syntax :

table getPlayersInGroup ( string GroupName ) 

Required Arguments

GroupName : اسم القروب المراد جلب لاعبينه

Returns

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

الفنكشن نوعه سيرفر سايد فقط

Code :

function getPlayersInGroup ( GroupName ) 
  
    local aTable = {} 
  
    assert ( tostring ( GroupName ) , "Bad Argument At Argument #1 Group Moust String" )  
     
    assert ( aclGetGroup ( tostring ( GroupName ) ) , "Bad Argument At Argument #1 Group not Found "  )  
     
    for i , player_ in ipairs ( getElementsByType ( "player" ) ) do 
     
    local TheAcc =  getPlayerAccount ( player_ )  
     
    if not isGuestAccount ( TheAcc ) then   
  
    if isObjectInACLGroup ( "user." ..getAccountName ( TheAcc ) , aclGetGroup ( tostring ( GroupName ) ) ) then 
      
    table.insert ( aTable , player_ ) 
             end   
        end  
    end  
    return aTable 
end 
  

Ex 1 :

addCommandHandler ( "killPlayerGroup",   
  
function ( _ , _ , GroupName_ ) 
  
Players = getPlayersInGroup (  GroupName_  ) 
  
for i , PlayersGroup in ipairs ( Players ) do 
  
killPed ( PlayersGroup )  
        end 
    end 
    ) ; 
     
-- F8 Say : killPlayerGroup Console 

Ex 2 :

addCommandHandler("GiveGroupMoney", 
  
function ( p , _ , Group_ , aMoney ) 
  
    Players = getPlayersInGroup ( Group_ ) 
  
    for i , PlayersGroup in ipairs ( Players ) do 
  
    givePlayerMoney ( PlayersGroup , tonumber ( aMoney ) ) 
  
    end 
end 
    ) ; 
  
--F8 Say : GiveGroupMoney Console 500 

Author : Abdul KariM

اتمنى ان الفنكشن اعجبكم

وياريت لو واحد يضيفه بصفحة الفنكشنات المفيدة

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

Link to comment
ابي كود اول م اظغط اف1 للفري روم يسحبه من اليمين لين يوصل النص

هذا مو مكان طلبات هذا مكان فنشكنات مفيدة

اطلب في القسم

اسف م دريت

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