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