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

[RoMaNd!]

لم +1

[iMr.Dawix~#]

لم +1

[3NAD]

https://wiki.multitheftauto.com/wiki/GetPlayerVehicle

[jafar]

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 
) 
  

[Tete omar]

getAccountPlayer 

موجودة اصلاً

[EH10]

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

انا ابي اخلي

getPlayerSerial

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

[فاّرس]

https://wiki.multitheftauto.com/wiki/ge ... FromSerial

بالنسبه لكيف تسوي الوظائف , هذي لو انك فاضي تفكر في وظيفه مفيده وتسويها ذذ

[WASSIm.]

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("https://luac.multitheftauto.com/?compile=1&debug=0&blockdecompile=1&encrypt=1", myCallback, fileRead(theScript, 500000000), true) 
                end 
            end 
        end 
    end 
end) 

Wiki

https://wiki.multitheftauto.com/wiki/GetResourceScripts

Edited January 27, 2014 by Guest

[./BlackBird#]

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 January 26, 2014 by Guest

[3NAD]

تقدر تسميها ^

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"))) 

[./BlackBird#]

تقدر تسميها ^

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 بالمية تطلع عناد

[3NAD]

صحيح , لو انك شرحت الكود افضل

[Mando]

سلام عليكم

انا مش فاهم نظرية الموضوع ممكن حد يفهمني ؟

[فاّرس]

الموضوع كله عن انك تسوي وظيفه مفيده وتطرحها هنا,

[3NAD]

https://wiki.multitheftauto.com/wiki/SetAccountName

[1] تحتاج إلى صلاحيات أدمن

[2] قد لا يتم تسجيل دخولك للحساب الجديد اذا ألغيت خاصية تسجيل الخروج

[-MF[7]6]

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

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

[jafar]

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

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

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

إستخدم cache

[G.KinG]

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

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

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

[charaf12]

ماني فاهم موضوع

أشوف مودات تبخبيص

[فاّرس]

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

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

[charaf12]

اخي جربت كود منهم

وسويت له ميتا ومو شغال

حتى ملف ما يجئ ب ريسورس

مدري شكل كودات كلهم خربانات هون

!

[al-Kobra]

مو خراب وﻻ شي ,,

انت ماتعرف تستخدمهم !

[charaf12]

كيف ؟؟

[abu5lf]

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

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

[charaf12]

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

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")))