Datastore loses data often, even after all I did to prevent that?

Gotta say first, I hate datastores, I'm not too bad at them, but they're really difficult and lose data often, this shouldn't be happening though, I even check if the getasynced data is equal to the setasynced data, if anyone has an idea or sees something bad in the code, please help.

local DataNum = script.Parent:WaitForChild('DataNum')
local DataStore = game:GetService("DataStoreService")

local PlayerSave = DataStore:GetDataStore("PS_"..DataNum.Value)
local SaveGUI = script.Parent:WaitForChild('SaveGUI')

-- or {0,0,2,1,20, 100, 240, 0, 1, 1, 1, 1000, 1, 1, 1, 1, 1, 1, 100000, 777, 10000, 10, 1}

local function writeplr(plr)
	
end

local function load(plr)
	local key = 'Key_'..plr.UserId
	local Stats = plr:WaitForChild('Stats')
	
	local UpGradeFrame = plr:WaitForChild("PlayerGui"):WaitForChild("Main"):WaitForChild("UpgradeFrame")

	local success, message = pcall(function()
		
		local success, saves = pcall(function()
			local saves = PlayerSave:GetAsync(key)
			return saves
		end)
		
		if saves then
		
			Stats:WaitForChild('Cash').Value = saves[1] or 0
			Stats:WaitForChild('CashL').Value = saves[2] or 0
			Stats:WaitForChild('Damage').Value = saves[3] or 2
			Stats:WaitForChild('BuxDrop').Value = saves[4] or 1
			Stats:WaitForChild('TixDrop').Value = saves[5] or 20
			Stats:WaitForChild('BagDrop').Value= saves[6] or 100
			Stats:WaitForChild('AutoClick').Value = saves[7] or 240
			Stats:WaitForChild('NetWorth').Value = saves[8] or 0
			Stats:WaitForChild('Multiplier').Value = saves[9] or 1
			Stats:WaitForChild('UltraR').Value = saves[10] or 1
			Stats:WaitForChild('Square').Value = saves[11] or 1
			plr.Character:WaitForChild('Humanoid').MaxHealth = saves[12] or 1000
			
			UpGradeFrame:WaitForChild('ACUpgrade').Button.Times.Value = saves[13] or 1
			UpGradeFrame.BagUpgrade.Button.Times.Value = saves[14] or 1
			UpGradeFrame.BuxUpgrade.Button.Times.Value = saves[15] or 1
			UpGradeFrame.HPUpgrade.Button.Times.Value = saves[16] or 1
			UpGradeFrame.TixUpgrade.Button.Times.Value = saves[17] or 1
			plr.PlayerGui.Main.SquareFrame.Chance.Value = saves[18] or 777
			plr.PlayerGui.Main.SquareFrame.SDO.Value = saves[19] or 10000
			UpGradeFrame.DMGUpgrade.Button.Times.Value = saves[20] or 1
			
			local Loaded = Instance.new("BoolValue")
			Loaded.Value = true
			Loaded.Name = "Loaded"
			Loaded.Parent = plr
			
		else
			if plr:FindFirstChild('LoadAttempts') then
				local Attempts = plr:FindFirstChild('LoadAttempts')
				if Attempts.Value > 3 then
					local Loaded = Instance.new("BoolValue")
					Loaded.Value = true
					Loaded.Name = "Loaded"
					Loaded.Parent = plr
				else
					wait(5)
					Attempts.Value = Attempts.Value + 1
					load(plr)
				end
			else
				local Attempts = Instance.new('IntValue')
				Attempts.Name = 'LoadAttempts'
				Attempts.Value = 1
				Attempts.Parent = plr
			end
		end
	end)
end

game.Players.PlayerAdded:Connect(function(plr)
	load(plr)
end)

function SavePlr(plr)
	
	local SavingMessage = SaveGUI:Clone()
	SavingMessage.Name = 'SavingMessage'
		
	local mainText = SavingMessage:WaitForChild('mainText')
	local mScript = mainText:WaitForChild('Main')
	
	local success, message = pcall(function()
		
		local key = 'Key_'..plr.UserId
		local Stats = plr:WaitForChild('Stats')
	
		local UpGradeFrame = plr:WaitForChild("PlayerGui"):WaitForChild("Main"):WaitForChild("UpgradeFrame")
		
		local ValuesToSave = {
			
			Stats:WaitForChild('Cash').Value,
			Stats:WaitForChild('CashL').Value,
			Stats:WaitForChild('Damage').Value,
			Stats:WaitForChild('BuxDrop').Value,
			Stats:WaitForChild('TixDrop').Value,
			Stats:WaitForChild('BagDrop').Value,
			Stats:WaitForChild('AutoClick').Value,
			Stats:WaitForChild('NetWorth').Value,
			Stats:WaitForChild('Multiplier').Value,
			Stats:WaitForChild('UltraR').Value,
			Stats:WaitForChild('Square').Value,
			plr.Character:WaitForChild('Humanoid').MaxHealth,
			
			UpGradeFrame.ACUpgrade.Button.Times.Value,
			UpGradeFrame.ACUpgrade.Button.Times.Value,
			UpGradeFrame.BagUpgrade.Button.Times.Value,	
			UpGradeFrame.BuxUpgrade.Button.Times.Value,
			UpGradeFrame.HPUpgrade.Button.Times.Value,
			UpGradeFrame.TixUpgrade.Button.Times.Value,
			plr.PlayerGui.Main.SquareFrame.Chance.Value,
			plr.PlayerGui.Main.SquareFrame.SDO.Value,
			UpGradeFrame.DMGUpgrade.Button.Times.Value
		}
		
		if ValuesToSave and plr and plr:FindFirstChild('Loaded') then
			PlayerSave:SetAsync(key, ValuesToSave)
			
			local TestValues = PlayerSave:GetAsync(key)
			if TestValues == ValuesToSave then
				mainText.Text = 'Saved!'
					
				mScript.Disabled = false
				SavingMessage.Parent = plr:WaitForChild('PlayerGui')
			else
				mainText.Text = 'Error saving values! (datastore does not match to stats)'
				mainText.TextColor3 = Color3.fromRGB(255,0,0)
					
				mScript.Disabled = false
				SavingMessage.Parent = plr:WaitForChild('PlayerGui')
			end
		end
	end)
	
	if success then
		mainText.Text = 'Saved!'
					
		mScript.Disabled = false
		SavingMessage.Parent = plr:WaitForChild('PlayerGui')
	else
		mainText.Text = 'Failed to save: '..message
		mainText.TextColor3 = Color3.fromRGB(255,0,0)
					
		mScript.Disabled = false
		SavingMessage.Parent = plr:WaitForChild('PlayerGui')
	end
end

while wait() do
	for i, plr in pairs(game.Players:GetPlayers()) do
		SavePlr(plr)
		wait((60/#game.Players:GetPlayers())/2)
	end
end

If you're confused here wait((60/#game.Players:GetPlayers())/2), what is does basicly is waiting 30 seconds/save. For errors, no I don't get them, for throtthles or so, not sure, It's in team create so I can't see the dev console.