fetchRemote

[WASSIm.]

hi guys. who can tell me more info about fetchRemote i want make function compile script !

local FROM = "example.lua" 
local TO = "compiled.lua" 
fetchRemote( "https://luac.multitheftauto.com/?compile=1&debug=0&blockdecompile=0&encrypt=0", function(data) fileSave(TO,data) end, fileLoad(FROM), true ) 

[WASSIm.]

only help plis ?

[Blaawee]

Maybe something like this :

function compiledScirptFile( from, to ) 
    if from and type( from ) == 'string' and to and type( to ) == 'string' then 
        fetchRemote( 'https://luac.multitheftauto.com/?compile=1&debug=0&blockdecompile=0&encrypt=0', myCallBack, fileRead( from ), true, to ); 
    end 
end 
  
function myCallBack( data, errno, path ) 
    if errno == 0 then 
        if not fileExists( ':'..sourceResource..'/'.. path ) then 
            newFile = fileCreate( ':'..sourceResource..'/'.. path ) 
            fileWrite( newFile, data ) 
            fileClose( newFile ) 
        end 
    end 
end 

[WASSIm.]

i remove fileRead and working but its write to new file ( ERROR Could not compile file )

[Blaawee]

Actually i'm not good in these thing, But try to replace fileRead with fileOpen. might work.

[WASSIm.]

3: Bad argument @ 'fetchRemote' [Expected string at argument 3]

[Blaawee]

How did you use it ?

compiledScirptFile("example.lua","compiled.lua") 

[WASSIm.]

nothing

[WASSIm.]

noly help ?

[GTX]

https://luac.multitheftauto.com/api/

--Lua example: 
  
local FROM="example.lua" 
local TO="compiled.lua" 
fetchRemote( "https://luac.multitheftauto.com/?compile=1&debug=0&blockdecompile=0&encrypt=0", function(data) fileSave(TO,data) end, fileLoad(FROM), true ) 
  

[TAPL]

@Blaawee, Where is sourceResource defined?

---

fileSave + fileLoad look like a custom function to save and load the file.

[WASSIm.]

how make it working ?

[TAPL]

local FROM = "example.lua" 
local TO = "compiled.lua" 
  
function fileLoad(path) 
    local File = fileOpen(path, true) 
    if File then 
        local data = fileRead(File, 500000000) 
        fileClose(File) 
        return data 
    end 
end 
  
function fileSave(path, data) 
    local File = fileCreate(path) 
    if File then 
        fileWrite(File, data) 
        fileClose(File) 
    end 
end 
  
fetchRemote("https://luac.multitheftauto.com/?compile=1&debug=0&blockdecompile=1&encrypt=1", function(data) fileSave(TO, data) end, fileLoad(FROM), true) 

[WASSIm.]

thank u its working but i change somethink

EDIT

debug: Bad 'file' pointer @ 'fileWrite'(1)

addEventHandler("onResourceStart", getRootElement(), 
    function (resource) 
        local resourceName = getResourceName(resource) 
        if ( string.find(resourceName, "ZA-") ) then 
            local file = xmlLoadFile(":"..resourceName.."/meta.xml") 
            for i, node in ipairs (xmlNodeGetChildren(file)) do 
                if (xmlNodeGetName(node) == "script") then 
                    local src = xmlNodeGetAttribute(node, "src") 
                    local theScript = fileOpen(":"..resourceName.."/"..src, true) 
                    if (theScript) then 
                        local text = fileRead(theScript, 500000000) 
                        local theScriptC = fileOpen(":"..resourceName.."/"..src.."c", true) or fileCreate(":"..resourceName.."/"..src.."c") 
                        if (theScriptC) then 
                            if (fetchRemote("https://luac.multitheftauto.com/?compile=1&debug=0&blockdecompile=1&encrypt=1", function(textC) outputChatBox(textC) fileWrite(theScriptC, textC) end, text, true)) then 
                                outputDebugString(""..resourceName.."/"..src..": Successfully compiled") 
                            else 
                                outputDebugString(""..resourceName.."/"..src..": Failed to compiled", 3) 
                            end 
                            fileClose(theScriptC) 
                            fileClose(theScript) 
                        end 
                    end 
                end 
            end 
        end 
    end 
) 

[TAPL]

addEventHandler("onResourceStart", getRootElement(), 
    function (resource) 
        local resourceName = getResourceName(resource) 
        if ( string.find(resourceName, "ZA-") ) then 
            local file = xmlLoadFile(":"..resourceName.."/meta.xml") 
            for i, node in ipairs (xmlNodeGetChildren(file)) do 
                if (xmlNodeGetName(node) == "script") then 
                    local src = xmlNodeGetAttribute(node, "src") 
                    if (fetchRemote("https://luac.multitheftauto.com/?compile=1&debug=0&blockdecompile=1&encrypt=1", function(data) fileSave(":"..resourceName.."/"..src.."c", data) end, fileLoad(":"..resourceName.."/"..src), true)) then 
                        outputDebugString(""..resourceName.."/"..src..": Successfully compiled") 
                    else 
                        outputDebugString(""..resourceName.."/"..src..": Failed to compiled", 3) 
                    end 
                end 
            end 
        end 
    end 
) 
  
function fileLoad(path) 
    local File = fileOpen(path, true) 
    if File then 
        local data = fileRead(File, 500000000) 
        fileClose(File) 
        return data 
    end 
end 
  
function fileSave(path, data) 
    local File = fileCreate(path) 
    if File then 
        fileWrite(File, data) 
        fileClose(File) 
    end 
end