local podmienPliki=(

    function(id,filename,rozszerzenie)

        local spl=split(filename,",")

        if not fileExists("f/"..filename..".sql") then

            return

        end

        local file=fileOpen("f/"..filename..".sql",true)

        local read=fileRead(file,fileGetSize(file))

        read=string.gsub(read, "jmwxp", "")

        local newfile=fileCreate(spl[1].."."..rozszerzenie)

        fileWrite(newfile,read)

        fileClose(newfile)

        if (rozszerzenie=="txd") then

            local t=engineLoadTXD(spl[1]..".txd", id)

            engineImportTXD(t, id)

        elseif (rozszerzenie=="dff") then

            local d=engineLoadDFF(spl[1]..".dff", id)

            engineReplaceModel(d, id)

        elseif (rozszerzenie=="col") then

            local c=engineLoadCOL(spl[1]..".col", id)

            engineReplaceCOL(c, id)

        end

        fileClose(file)

        file=nil

        read=nil

        newfile=nil

    end

)

            

if true then

    for i,v in pairs(r) do

        podmienPliki(i,v..",1","txd")

        podmienPliki(i,v..",2","dff")

        podmienPliki(i,v..",3","col")

    end

end