This script I've created doesn't save, but has no errors. Please help?

So, here's the script:

local ReplicatedStorage = game:GetService("ReplicatedStorage")
local DS = game:GetService("DataStoreService"):GetDataStore("Statsandstuff")


game.Players.PlayerAdded:Connect(function(plr)
	local player = plr
	repeat wait() until player.Character
	
	local hitbox = Instance.new("Part")
	local weld = Instance.new("Weld",hitbox)
	hitbox.Parent = player.Character
	hitbox.Name = "PlayerHitBox"
	hitbox.Size = Vector3.new(3.85, 5.74, 1.19)
	hitbox.Position = Vector3.new(player.Character.UpperTorso.Position.X,player.Character.UpperTorso.Position.Y - 2,player.Character.UpperTorso.Position.Z)
	hitbox.Transparency = 1
	hitbox.CanCollide = false
	weld.Part0 = hitbox
	weld.Part1 = player.Character.HumanoidRootPart
	
	local folder = Instance.new("Folder")
	folder.Name = player.Name
	folder.Parent = ReplicatedStorage
	
	local folder2 = Instance.new("Folder")
	folder2.Name = player.Name
	folder2.Parent = game:GetService("ServerScriptService")
	
	local vars = Instance.new("Folder")	
	vars.Parent = folder
	vars.Name = "Vars"
	
	local Int = Instance.new("NumberValue")
	Int.Parent = vars
	Int.Name = "Intelligence"
	
	local Lev = Instance.new("NumberValue")
	Lev.Parent = vars
	Lev.Name = "Level"
	
	local Points = Instance.new("NumberValue")
	Points.Parent = vars
	Points.Name = "Points"
	
	local Quirk = Instance.new("StringValue")
	Quirk.Parent = vars
	Quirk.Name = "Quirk"
	
	local QuirkD = Instance.new("NumberValue")
	QuirkD.Parent = vars
	QuirkD.Name = "QuirkDevelopment"
	
	local Stam = Instance.new("NumberValue")
	Stam.Parent = vars
	Stam.Name = "Stamina"
	
	local Str = Instance.new("NumberValue")
	Str.Parent = vars
	Str.Name = "Strength"
	
	local XP = Instance.new("NumberValue")
	XP.Parent = vars
	XP.Name = "XP"
	
	local XPTL = Instance.new("NumberValue")	
	XPTL.Parent = vars
	XPTL.Name = "XPtolevel"
	
	local savedstuff = DS:GetAsync(plr.userId)
	if savedstuff then
		for i,v in pairs(savedstuff) do
			if i % 2 == 0 then
				ReplicatedStorage[plr.Name].Vars:FindFirstChild(savedstuff[i-1]).Value = v
			end
		end
		
	else
	Int.Value = 1
	Lev.Value = 0
	Points.Value = 0
	Quirk.Value = "Quirkless"
	QuirkD.Value = 1
	Stam.Value = 1
	Str.Value = 1
	XP.Value = 0
	XPTL.Value = 50	
	end
	
end)

local function savestuff(plr)
	local saveddata = {}
	for i,v in pairs(ReplicatedStorage[plr.Name].Vars:GetChildren()) do
		saveddata[#saveddata + 1] = v.Name
		saveddata[#saveddata + 1] = v.Value 
	end
	DS:SetAsync(plr.userId, saveddata)
end

game.Players.PlayerRemoving:Connect(function(plr)
	savestuff(plr)
end)

I get no errors whatsoever, but it won't save. Please help!