local function Extract(dir)
    file.CreateDir("extracted/" .. dir)
    local tbFiles = file.Find(dir .. "*","GAME")
    for _,f in ipairs(tbFiles) do
        local c = file.Read(dir .. f,"GAME")
        if(c) then
            MsgN("Writing file 'data/extracted/" .. dir .. f .. ".txt'...")
            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/")