How do you make a saving script that saves multiple values?

Heres my code, I want to be able to save multiple values but it says to many requests.

local DSService = game:GetService('DataStoreService'):GetDataStore('Protectiveses')
game.Players.PlayerAdded:connect(function(plr)
	--Define varibles
	local uniquekey= 'id'..plr.userId
	local leaderstats = Instance.new('IntValue',plr)
	local savevalue = Instance.new('IntValue')
	local savevalue2 = Instance.new('IntValue')
	leaderstats.Name = 'leaderstats'
	savevalue.Parent = leaderstats
	savevalue.Name = 'Money'
	savevalue2.Parent = leaderstats
	savevalue2.Name = 'Level'
	savevalue2.Value = 1
	
	-- GetAsync
	local GetSaved = DSService:GetAsync(uniquekey)
	local GetSaved2 = DSService:GetAsync(uniquekey)
	if GetSaved then
		savevalue.Value = GetSaved[1]
		savevalue2.Value = GetSaved2[1]
	else
		local NumbersForSaving = {savevalue.Value}
		DSService:SetAsync(uniquekey,NumbersForSaving)
		local NumbersForSaving2 = {savevalue2.Value}
		DSService:SetAsync(uniquekey,NumbersForSaving2)
		
		game.ServerStorage.Give.Event:Connect(function(Amount)
		savevalue.Value = savevalue.Value + Amount
		game.ServerStorage.Give.Event:Connect(function(Amount)
		savevalue2.Value = savevalue2.Value + Amount
	  end)
	end)
  end
end)

game.Players.PlayerRemoving:connect(function(plr)
	local uniquekey = 'id-'..plr.userId
	local Savetable = {plr.leaderstats.Money.Value}
	DSService:SetAsync(uniquekey, Savetable)
	local uniquekey = 'id-'..plr.userId
	local Savetable = {plr.leaderstats.Level.Value}
	DSService:SetAsync(uniquekey, Savetable)
end)