local function Extract(dir,bSubDirs)
    file.CreateDir("extracted/" .. dir)
    local tbFiles = file.Find(dir .. "*","GAME")
    local tbDirs
    if(bSubDirs) then
        local _
        _,tbDirs = file.Find(dir .. "*","GAME")
    end
    for _,fName in ipairs(tbFiles) do
        local f = file.Open(dir .. fName,"rb","GAME")
        if(f) then
            local fNew = file.Open("extracted/" .. dir .. fName .. ".txt","wb","DATA")
            if(fNew) then
                MsgN("Writing '","data/extracted/" .. dir .. fName .. ".txt'")
                fNew:Write(f:Read(f:Size()))
                fNew:Close()
            else ErrorNoHalt("WARNING: Unable to write file '" .. dir .. fName .. ".txt'!") end
            f:Close()
        else ErrorNoHalt("WARNING: Unable to read file '" .. dir .. fName .. "'!") end
    end
    if(bSubDirs) then
        for _,d in ipairs(tbDirs) do
            Extract(dir .. d .. "/",true)
        end
    end
end
Extract("lua/",true)