How would I make this be able to save Color3 values as well?

local DSService = game:GetService('DataStoreService'):GetDataStore('DBSRClosedTestv9')
game.Players.PlayerAdded:connect(function(p)
    wait(game.Lighting.TimeToLoad.Value)
    -- Define variables
    local stats = game.ServerStorage.PlayerData:Clone()
    stats.Parent = p
    stats.Level.Value = 1
    stats.StrengthValue.Value = 0
    stats.speedValue.Value = 1
    stats.maxKi.Value = 100
    stats.MaxStaminaValue.Value = 100
    stats.kiDamage.Value = 0
    stats.kiControl.Value = 0
    stats.kiValue.Value = 100
    stats.AgilityValue.Value = 0
    stats.PowerLevel.Value = 100
    stats.currentHealth.Value = 100
    stats.defenseValue.Value = 0
    stats.attributePoints.Value = 0
    stats.exp.Value = 0
    stats.Zeni.Value = 0
    stats.Hair.Value = 0
    stats.BodyHeight.Value = 1
    stats.BodyWidth.Value = 1
    print("Done")
    --stats.mouth.Value = 1
    stats.Face.Value = 1
    local uniquekey = 'id-'..p.userId
    local names = {}
    for i, v in pairs(p.PlayerData:GetChildren()) do
        table.insert(names, v.Name)
    end

    -- GetAsync
    local GetSaved = DSService:GetAsync(uniquekey)
    if GetSaved then
        for i, v in pairs(p.PlayerData:GetChildren()) do
            v.Value = GetSaved[i]
        end

        for i=1, #GetSaved do
                print(i .. ": " .. names[i] .. " = " .. tostring(GetSaved[i]))
        end
    else
        local NumbersForSaving = {}
            for i, v in pairs(p.PlayerData:GetChildren()) do
                table.insert(NumbersForSaving, v.Value)
            end
        DSService:SetAsync(uniquekey, NumbersForSaving)
    end
end)

game.Players.PlayerRemoving:connect(function(p)
    local uniquekey = 'id-'..p.userId
    local Savetable = {}
        for i, v in pairs(p.PlayerData:GetChildren()) do
            table.insert(Savetable, v.Value)
        end

    DSService:SetAsync(uniquekey, Savetable)            
end)