Jump to content

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


Booo

Recommended Posts

60727218.png

اليوم اقدم لكم وظيفه getAdminsByGroup

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

Server function

Syntax

table getAdminsByGroup( string Group ) 

Required Arguments

  • Group : اسم القروب المطلوب الحصول على الأدمنز منه

Returns

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

Code

function getAdminsByGroup( Group ) 
    local users = {}; 
    for index, value in ipairs(aclGroupListObjects(aclGetGroup(Group))) do 
        if value:find("user.", 1, true) then 
            local accountname = value:sub(6, #value); 
            local OnlineStatus = getAccountPlayer(getAccount(accountname)) and true or false 
            table.insert(users, { 
                ["Name"] = OnlineStatus and getPlayerName(getAccountPlayer(getAccount(accountname))) or accountname, 
                ["Online"] = OnlineStatus and "Online" or "Offline" 
            }); 
        end 
    end 
    return users or false; 
end 

Example - Server Side

GroupsT = {"Console", "Admin"}; 
  
addCommandHandler("groups", 
function () 
    for i, group in ipairs(GroupsT) do 
        outputChatBox("~~> "..group.." :"); 
        local list = getAdminsByGroup(group); 
        for index=1, #list do 
            outputChatBox("* Name: "..list[index]["Name"].." ~~ Status: "..list[index]["Online"]); 
        end 
    end 
end ); 

Example Result

2ejtJEj.png

Author MoDeR2014

لا اعرف اذا كانت هذه الوظيفه موجودة من قبل ولكنني برمجتها للأخ White

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

Link to comment
60727218.png

اليوم اقدم لكم وظيفه getAdminsByGroup

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

Server function

Syntax

table getAdminsByGroup( string Group ) 

Required Arguments

  • Group : اسم القروب المطلوب الحصول على الأدمنز منه

Returns

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

Code

function getAdminsByGroup( Group ) 
    local users = {}; 
    for index, value in ipairs(aclGroupListObjects(aclGetGroup(Group))) do 
        if value:find("user.", 1, true) then 
            local accountname = value:sub(6, #value); 
            local OnlineStatus = getAccountPlayer(getAccount(accountname)) and true or false 
            table.insert(users, { 
                ["Name"] = OnlineStatus and getPlayerName(getAccountPlayer(getAccount(accountname))) or accountname, 
                ["Online"] = OnlineStatus and "Online" or "Offline" 
            }); 
        end 
    end 
    return users or false; 
end 

Example - Server Side

GroupsT = {"Console", "Admin"}; 
  
addCommandHandler("groups", 
function () 
    for i, group in ipairs(GroupsT) do 
        outputChatBox("~~> "..group.." :"); 
        local list = getAdminsByGroup(group); 
        for index=1, #list do 
            outputChatBox("* Name: "..list[index]["Name"].." ~~ Status: "..list[index]["Online"]); 
        end 
    end 
end ); 

Example Result

2ejtJEj.png

Author MoDeR2014

لا اعرف اذا كانت هذه الوظيفه موجودة من قبل ولكنني برمجتها للأخ White

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

واصل <3

Link to comment

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

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

Name : getPlayersInZone

Author : xiProGamer Or Default

بـ اختصار الوظيفة هاذي تجيب الاعبين الي بالمنطقة الي انت تحددها

Source Code :

  
function getPlayersInZone ( Zone ) 
assert ( type ( Zone ) == 'string' , '@ Bad Argument ' )  
local Table = { } 
for k,plrs in ipairs ( getElementsByType('player') ) do  
local pos = { getElementPosition ( plrs ) } 
if ( getZoneName ( pos[1] , pos[2] , pos[3] , true ) == Zone ) then  
table.insert (Table,plrs) 
end 
end 
return Table 
end 

Required Arguments :

Zone : Zone Name | اسم المنطقة

Example :

  
addCommandHandler('Get', function (plr) 
for i,v in ipairs ( getPlayersInZone ('Las Venturas') ) do  
outputChatBox('Players : '..getPlayerName(v),plr,0,255,0,true) 
end 
end 
) 
  

End

Link to comment
  • 2 weeks later...

set/get/removeSQLData

وظيفة مفيدة تسهل عملية استخدام قواعد البيانات

setSQLData(string data_name, string data_value) 
getSQLData(string data_name) 
removeSQLData(string data_name) 

( string ) قيمة الداتا تقبل السلسة النصية فقط

( tostring ) لتحويل الارقام قم باستخدام

( toJSON, fromJSON) JSON لتحويل الجداول استخدم دوال الـ

Code :

sql = executeSQLQuery 
sql "CREATE TABLE IF NOT EXISTS string_data(data_name TEXT, data_value TEXT)" 
function setSQLData(data, value) 
    assert(type(data) == "string", "Bad Argument @setStringData #1 [string expect, got "..type(data).."]") 
    assert(type(value) == "string", "Bad Argument @setStringData #2 [string expect, got "..type(value).."]") 
    local query = sql("SELECT * FROM string_data WHERE data_name=?", data) 
    if query and type(query) == "table" and #query == 1 then 
        sql("UPDATE string_data SET data_value=? WHERE data_name=?", value, data) 
    else 
        sql("INSERT INTO string_data(data_name, data_value) VALUES(?, ?)", data, value) 
    end 
    return true 
end 
  
function getSQLData(data) 
    assert(type(data) == "string", "Bad Argument @getStringData #1 [string expect, got "..type(data).."]") 
    local query = sql("SELECT data_value FROM string_data WHERE data_name=?", data) 
    return query and type(query) == "table" and #query == 1 and query[1]["data_value"] 
end 
  
function removeSQLData(data) 
    assert(type(data) == "string", "Bad Argument @removeSQLData #1 [string expect, got "..type(data).."]") 
    return sql("DELETE FROM string_data WHERE data_name=?", data) 
end 

Example :

setSQLData("money"..getPlayerSerial(player), tostring(getPlayerMoney(player))) -- نقوم بوضع داتا على سريال الاعب وقيمتها فلوس الاعب 
outputChatBox(getSQLData("money"..getPlayerSerial(player)) or "none") -- كتابة بالشات قيمة الداتا 
removeSQLData("money"..getPlayerSerial(player)) -- حذف الداتا 

Edited by Guest
  • Like 1
Link to comment

set/getSQLData

وظيفة مفيدة تسهل عملية استخدام قواعد البيانات

setSQLData(string data_name, string data_value) 
getSQLData(string data_name) 

( string ) قيمة الداتا تقبل السلسة النصية فقط

( tostring ) لتحويل الارقام قم باستخدام

( toJSON, fromJSON) JSON لتحويل الجداول استخدم دوال الـ

Code :

sql = executeSQLQuery 
sql "CREATE TABLE IF NOT EXISTS string_data(data_name TEXT, data_value TEXT)" 
function setSQLData(data, value) 
    assert(type(data) == "string", "Bad Argument @setStringData #1 [string expect, got "..type(data).."]") 
    assert(type(value) == "string", "Bad Argument @setStringData #2 [string expect, got "..type(value).."]") 
    local query = sql("SELECT * FROM string_data WHERE data_name=?", data) 
    if query and type(query) == "table" and #query == 1 then 
        sql("UPDATE string_data SET data_value=? WHERE data_name=?", value, data) 
    else 
        sql("INSERT INTO string_data(data_name, data_value) VALUES(?, ?)", data, value) 
    end 
    return true 
end 
  
function getSQLData(data) 
    assert(type(data) == "string", "Bad Argument @getStringData #1 [string expect, got "..type(data).."]") 
    local query = sql("SELECT data_value FROM string_data WHERE data_name=?", data) 
    return query and type(query) == "table" and #query == 1 and query[1]["data_value"] 
end 

Example :

setSQLData("money"..getPlayerSerial(player), tostring(getPlayerMoney(player))) 
outputChatBox(getSQLData("money"..getPlayerSerial(player)) or "none") 

وظيفة قادحة , اهنيك

الى الامام ي بطل

Link to comment

set/get/removeSQLData

وظيفة مفيدة تسهل عملية استخدام قواعد البيانات

setSQLData(string data_name, string data_value) 
getSQLData(string data_name) 
removeSQLData(string data_name) 

( string ) قيمة الداتا تقبل السلسة النصية فقط

( tostring ) لتحويل الارقام قم باستخدام

( toJSON, fromJSON) JSON لتحويل الجداول استخدم دوال الـ

Code :

sql = executeSQLQuery 
sql "CREATE TABLE IF NOT EXISTS string_data(data_name TEXT, data_value TEXT)" 
function setSQLData(data, value) 
    assert(type(data) == "string", "Bad Argument @setStringData #1 [string expect, got "..type(data).."]") 
    assert(type(value) == "string", "Bad Argument @setStringData #2 [string expect, got "..type(value).."]") 
    local query = sql("SELECT * FROM string_data WHERE data_name=?", data) 
    if query and type(query) == "table" and #query == 1 then 
        sql("UPDATE string_data SET data_value=? WHERE data_name=?", value, data) 
    else 
        sql("INSERT INTO string_data(data_name, data_value) VALUES(?, ?)", data, value) 
    end 
    return true 
end 
  
function getSQLData(data) 
    assert(type(data) == "string", "Bad Argument @getStringData #1 [string expect, got "..type(data).."]") 
    local query = sql("SELECT data_value FROM string_data WHERE data_name=?", data) 
    return query and type(query) == "table" and #query == 1 and query[1]["data_value"] 
end 
  
function removeSQLData(data) 
    assert(type(data) == "string", "Bad Argument @removeSQLData #1 [string expect, got "..type(data).."]") 
    return sql("DELETE FROM string_data WHERE data_name=?", data) 
end 

Example :

setSQLData("money"..getPlayerSerial(player), tostring(getPlayerMoney(player))) -- نقوم بوضع داتا على سريال الاعب وقيمتها فلوس الاعب 
outputChatBox(getSQLData("money"..getPlayerSerial(player)) or "none") -- كتابة بالشات قيمة الداتا 
removeSQLData("money"..getPlayerSerial(player)) -- حذف الداتا 

واصل وظيفة مفيدة وباين متعوب عليها :)

Link to comment
  • 2 weeks later...

* dxDrawImageOnElement

*only Client Side

Author: HasoN

Syntax:

boolean dxDrawImageOnElement(element TheElement, element Image [, int distance, int height, int width, int R, int G, int B, int alpha ] ) 

Required Arguments:

• TheElement : الألمنت الي تبي ترسم عليه الصورة

• Image : عشان تسويها dxCreateTexture ألصورة الي تبي تحطها ، استعمل

Optional Arguments:

• distance : ألمسافة الي تقدر منها تشوف الصورة ، المسافة الافتراضية هي 20

• height : أرتفاع الصورة ، الارتفاع الافتراضي هو 1

• width : عرض الصورة ، العرض الافتراضي هو 1

• R : الون الافتراضي 255 , R لون الـ

• G : الون الافتراضي 255 , G لون الـ

• B : الون الافتراضي 255 , B لون الـ

• alpha : شفافية الصورة ، الشفافية الأفتراضية 255

Code:

  
function dxDrawImageOnElement(TheElement,Image,distance,height,width,R,G,B,alpha) 
                local x, y, z = getElementPosition(TheElement) 
                local x2, y2, z2 = getElementPosition(localPlayer) 
                local distance = distance or 20 
                local height = height or 1 
                local width = width or 1 
                if (isLineOfSightClear(x, y, z, x2, y2, z2, true, false, false, false)) then 
                    local sx, sy = getScreenFromWorldPosition(x, y, z+height) 
                    if(sx) and (sy) then 
                        local distanceBetweenPoints = getDistanceBetweenPoints3D(x, y, z, x2, y2, z2) 
                        if(distanceBetweenPoints < distance) then 
                            dxDrawMaterialLine3D(x, y, z+1+height-(distanceBetweenPoints/distance), x, y, z+height, Image, width-(distanceBetweenPoints/distance), tocolor(R or 255, G or 255, B or 255, alpha or 255)) 
                        end 
                    end 
            end 
    end 
  

Example: #1

_______

Grove street ألمثال ذا يرسم صورة على بيد انا مسويه بال

  
randomPed = createPed(285,2506.83423,-1684.89941,13.55648) 
tag = dxCreateTexture("crown.png") 
  
addEventHandler("onClientPreRender", root, 
function() 
dxDrawImageOnElement(randomPed,tag) 
end) 
  

Example: #2

_______

ألمثال ذا يرسم صورة على كل السيارات بالعبة

  
local tag = dxCreateTexture("bike.png") 
  
addEventHandler("onClientPreRender", root, 
function() 
for k,v in ipairs(getElementsByType("vehicle")) do 
dxDrawImageOnElement(v,tag) 
end 
end) 
  

اتمنى الكود نال على اعجابكم وشكرا

wikiPage: https://wiki.multitheftauto.com/wiki/Dx ... eOnElement

Link to comment

* dxDrawTextOnElement

*only Client Side

Author: HasoN

Syntax:

boolean dxDrawTextOnElement(element TheElement, string text [, int height, int distance, int R, int G, int B, int alpha, int size, string font ] ) 

Required Arguments:

• TheElement : الألمنت الي تبي تكتب عليه الكلام

• text : الكلآم الي تبي تكتبه

Optional Arguments:

• height : ألمسافة الي تقدر منها تشوف الكتابة ، المسافة الافتراضية 20

• distance : أرتفاع الصورة ، الارتفاع الافتراضي 1

• R : الون الافتراضي 255 , R لون الـ

• G : الون الافتراضي 255 , G لون الـ

• B : الون الافتراضي 255 , B لون الـ

• alpha : شفافية الكتابة ، الشفافية الأفتراضية 255

• size : حجم الخط ، الحجم الأفتراضي 1

• font : arial نوع الخط ، النوع الأفتراضية

Code:

  
function dxDrawTextOnElement(TheElement,text,height,distance,R,G,B,alpha,size,font) 
                local x, y, z = getElementPosition(TheElement) 
                local x2, y2, z2 = getElementPosition(localPlayer) 
                local distance = distance or 20 
                local height = height or 1 
                if (isLineOfSightClear(x, y, z, x2, y2, z2, true, true, false, true)) then 
                    local sx, sy = getScreenFromWorldPosition(x, y, z+height) 
                    if(sx) and (sy) then 
                        local distanceBetweenPoints = getDistanceBetweenPoints3D(x, y, z, x2, y2, z2) 
                        if(distanceBetweenPoints < distance) then 
                            dxDrawText(text, sx+2, sy+2, sx, sy, tocolor(R or 255, G or 255, B or 255, alpha or 255), (size or 1)-(distanceBetweenPoints / distance), font or "arial", "center", "center") 
            end 
        end 
    end 
end 
  

Example: #1

_______

Grove street ألمثال ذا يكتب كلام على بيد انا مسويه بال

  
randomPed = createPed(285,2476.91406,-1665.31799,13.32435) 
  
addEventHandler("onClientRender", getRootElement(),  
function () 
dxDrawTextOnElement(randomPed,"SWATTEAM Officer",1,20,0,0,255,255,1,"pricedown") 
end) 
  

Example: #2

_______

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

  
addEventHandler("onClientRender", getRootElement(),  
function () 
for k,v in ipairs(getElementsByType("player")) do 
        if getPlayerTeam(v) == getTeamFromName("HassoN") then 
            if v == localPlayer then return end 
            dxDrawTextOnElement(v,"HassoN",1,20,0,0,255,255,1,"arial") 
        end 
    end 
end) 
  

اتمنى الكود نال على اعجابكم وشكرا

wikiPage: https://wiki.multitheftauto.com/wiki/Dx ... tOnElement

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