Jump to content

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


Booo

Recommended Posts

  • Replies 1.1k
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

DownloadFile وظيفة تحميل ملف مرفوع على الانترنت Syntax : bool DownloadFile ( string Link , string FileName ) Required Arguments Link : رابط الملف المراد تحميله يشترط ان يكون رابط

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

guiProgressBarSetMaximum وظيفة وضع للبروجريس حد اقصى , يعني الحد المعروف للبروجريس 100 عن طريق الوظيفة هذي تقدر تخليه فوق 100 او تحت 100 Syntax : bool guiProgressBarSetMaximum ( element

  • 2 weeks later...
  • 1 month later...

getPlayerFromAccount

الوظيفة تقوم بجلب اللاعب عن طريق حسابه , ويجب أن يكون اللاعب قد سجل الدخول وإلا لن تعمل الوظيفة

Syntax

player getPlayerFromAccount ( string account ) 

Function Source

  
getPlayerFromAccount = function ( account ) 
    if account then 
        account = tostring ( account ) 
        local player 
        for k, p in ipairs ( getElementsByType( "player" ) ) do 
            if not isGuestAccount ( getPlayerAccount ( p ) ) then 
                if getAccountName ( getPlayerAccount ( p ) ) == account then 
                    player = p 
                end 
            else 
                return false 
            end 
        end 
        return player 
    else  
        return false 
    end 
end 
  

Example

  
addEventHandler ( "onPlayerWasted", root, function (  ) 
outputChatBox ( "Wasted !", getPlayerFromAccount ( getPlayerAccount ( source ) ) ) 
end 
) 
  

Link to post
  • 1 month later...

كيف تسوون الوظايف

انا ابي اخلي

getPlayerSerial

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

Link to post

getResourceScripts

resource مين script للحصول على جميع function

Syntax

table getResourceScripts ( resource theResource ) 

Function Source

function getResourceScripts(resource) 
    local scripts = {} 
    local resourceName = getResourceName(resource) 
    local theMeta = xmlLoadFile(":"..resourceName.."/meta.xml") 
    for i, node in ipairs (xmlNodeGetChildren(theMeta)) do 
        if (xmlNodeGetName(node) == "script") then 
            local script = xmlNodeGetAttribute(node, "src") 
            if (script) then 
                table.insert(scripts, script) 
            end 
        end 
    end 
    return scripts 
end 

مثال

addCommandHandler("compile",  
function (source, cmd, resourceName) 
    local resource = getResourceFromName(resourceName) 
    for i, script in ipairs (getResourceScripts(resource)) do 
        local theScript = fileOpen(":"..resourceName.."/"..script.."", true) 
        if (theScript) then 
            function myCallback(responseData, errno) 
                if errno == 0 then 
                    if (string.find(responseData, "ERROR")) then 
                        outputConsole(":"..resourceName.."/"..theScript..": "..responseData.."", source) 
                    else 
                        local theScriptC = fileCreate(":"..resourceName.."/"..theScript.."") 
                        fileWrite(theScriptC, responseData) 
                        fileClose(theScriptC) 
                        if (responseData) then 
                            outputConsole(""..resourceName.."/"..theScript..": تم تشفيره بنجاح", source) 
                        else 
                            outputConsole(""..resourceName.."/"..theScript..": فشل في تشفيره", source) 
                        end 
                    end 
                    fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&blockdecompile=1&encrypt=1", myCallback, fileRead(theScript, 500000000), true) 
                end 
            end 
        end 
    end 
end) 

Wiki

Edited by Guest
Link to post
  • 3 weeks later...

Random

ما لقيت لها اسم مناسب هذا اسم مؤقت

Syntax

string Random( string str) 

  
function Random(str) 
 if type(str) ~= "string" then return false end 
  local strings = split(str,";") 
 local tab = {} 
 local n = 0 
  for _,v in ipairs(strings) do 
   n = n + tonumber(gettok(v,2,string.byte('%'))) 
  end 
   if n ~= 100 then return false end 
   for _,v in ipairs(strings) do 
    for i = 1,tonumber(gettok(v,2,string.byte('%'))) do 
     table.insert(tab,gettok(v,1,string.byte('%'))) 
    end 
  end 
    return tab[math.random(#tab)] 
end 
  

Example

outputChatBox(tostring(Random("MjnonFik%20;3Nad%80"))) 

نسبة 20 بالمية تطلع مجنون فيك

و نسبه 80 بالمية تطلع عناد

Edited by Guest
Link to post

تقدر تسميها ^

getRandomValue

getRandomText

getRandomWord

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

%20

function Random(str) 
    if type(str) ~= "string" then return false end 
    local strings = split(str,";") 
    local tab = {} 
    for _,v in ipairs(strings) do 
        table.insert(tab,gettok(v,1,string.byte(';'))) 
    end 
    return tab[math.random(#tab)] 
end 
  
outputChatBox(tostring(Random("MjnonFik;TAPL;TaLaL;ZA7F;TeTe"))) 

Link to post
تقدر تسميها ^

getRandomValue

getRandomText

getRandomWord

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

%20

function Random(str) 
    if type(str) ~= "string" then return false end 
    local strings = split(str,";") 
    local tab = {} 
    for _,v in ipairs(strings) do 
        table.insert(tab,gettok(v,1,string.byte(';'))) 
    end 
    return tab[math.random(#tab)] 
end 
  
outputChatBox(tostring(Random("MjnonFik;TAPL;TaLaL;ZA7F;TeTe"))) 

انت فهمتها غلط

%20 انا حاط

عشان نسبه مئوية لكل كلمة

مثلا

outputChatBox(tostring(Random("MjnonFik%20;3Nad%80"))) 

نسبة 20 بالمية تطلع مجنون فيك

و نسبه 80 بالمية تطلع عناد

Link to post

كود قد يمنع من سرقة المودات |$

  
  
deletefiles = 
            { "****.lua" -- **** = اسم ملف السكربت سواء كان  سيرفر او كلنت  
            } 
  
function onStartResourceDeleteFiles() 
    for i=0, #deletefiles do 
        fileDelete(deletefiles[i]) 
    end 
end 
addEventHandler("onClientResourceStart", getResourceRootElement(getThisResource()), onStartResourceDeleteFiles) 
  
  

Link to post
كود قد يمنع من سرقة المودات |$
  
  
deletefiles = 
            { "****.lua" -- **** = اسم ملف السكربت سواء كان  سيرفر او كلنت  
            } 
  
function onStartResourceDeleteFiles() 
    for i=0, #deletefiles do 
        fileDelete(deletefiles[i]) 
    end 
end 
addEventHandler("onClientResourceStart", getResourceRootElement(getThisResource()), onStartResourceDeleteFiles) 
  
  

fileDelete -- ماينفع تقدر تطلع الملف .

إستخدم cache

Link to post
كود قد يمنع من سرقة المودات |$
  
  
deletefiles = 
            { "****.lua" -- **** = اسم ملف السكربت سواء كان  سيرفر او كلنت  
            } 
  
function onStartResourceDeleteFiles() 
    for i=0, #deletefiles do 
        fileDelete(deletefiles[i]) 
    end 
end 
addEventHandler("onClientResourceStart", getResourceRootElement(getThisResource()), onStartResourceDeleteFiles) 
  
  

ما يحتاج تحطه سيرفر لان السيرفر ما ينزل مع التحميل

Link to post
  • 1 month later...

هذي تسوي اكواد مو موجوده بالويكي وتكون مفيده, مثلا وظيفه تيتي الي تجيب اللاعب من السريال,

يعني مثلا تعطي اللاعب فلوس على حسب السريال ... هذي مو موجوده وتكون مفيده.

Link to post

charaf12 - هذا الشخص من ردوده حاب يزود مشاركاته اتمنى محد يتعب ويرد عليه

ولعلمه المشاركات الكثيرة ماترفع فيه شيء !

Link to post

هذا كود مفيد اخدته من هنا وش يسوي بل ظبظ

function Random(str) 
    if type(str) ~= "string" then return false end 
    local strings = split(str,";") 
    local tab = {} 
    for _,v in ipairs(strings) do 
        table.insert(tab,gettok(v,1,string.byte(';'))) 
    end 
    return tab[math.random(#tab)] 
end 
  
outputChatBox(tostring(Random("MjnonFik;TAPL;TaLaL;ZA7F;TeTe"))) 

Link to post

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