local function Extract(dir)
    file.CreateDir("extracted/" .. dir)
    local tbFiles = file.Find(dir .. "*","MOD")
    for _,f in ipairs(tbFiles) do
        local c = file.Read(dir .. f,"MOD")
        if(c) then
            file.Write("extracted/" .. dir .. f .. ".txt",c)
        else ErrorNoHalt("WARNING: Unable to read file '" .. dir .. f .. "'!") end
    end
end
Extract("models/fallout/")
Extract("materials/models/fallout/gecko/")