Revise paste Legends Of Speed - 8 - Data Script

local Players = game:GetService("Players")
local DataStoreService = game:GetService("DataStoreService")

local DataStore = DataStoreService:GetDataStore("_0")

local function OnPlayerJoin(Player)
	local UserId = Player.UserId
	local Key = "Player_" .. UserId

local Leaderstats = Instance.new("Folder")
	Leaderstats.Name = "leaderstats"
	Leaderstats.Parent = Player

local RedeemedCodes = Instance.new("Folder")
	RedeemedCodes.Name = "RedeemedCodes"
	RedeemedCodes.Parent = Player

local Gems = Instance.new("IntValue")
	Gems.Name = "Gems"
	Gems.Value = 0
	Gems.Parent = Player

local XP = Instance.new("IntValue")
	XP.Name = "XP"
	XP.Value = 0
	XP.Parent = Player

local RequiredXP = Instance.new("IntValue")
	RequiredXP.Name = "RequiredXP"
	RequiredXP.Value = 0
	RequiredXP.Parent = Player

local Level = Instance.new("IntValue")
	Level.Name = "Level"
	Level.Value = 1
	Level.Parent = Player

local Steps = Instance.new("IntValue")
	Steps.Name = "Steps"
	Steps.Value = 0
	Steps.Parent = Leaderstats

local Rebirths = Instance.new("IntValue")
	Rebirths.Name = "Rebirths"
	Rebirths.Value = 0
	Rebirths.Parent = Leaderstats

local Races = Instance.new("IntValue")
	Races.Name = "Races"
	Races.Value = 0
	Races.Parent = Leaderstats

local Hoops = Instance.new("IntValue")
	Hoops.Name = "Hoops"
	Hoops.Value = 0
	Hoops.Parent = Leaderstats

local Success, SavedData = pcall(function()
		return DataStore:GetAsync(Key)
	end)

if Success and SavedData then
		Gems.Value = SavedData.Gems or 0
		XP.Value = SavedData.XP or 0
		RequiredXP.Value = SavedData.RequiredXP or 0
		Level.Value = SavedData.Level or 1
		Steps.Value = SavedData.Steps or 0
		Rebirths.Value = SavedData.Rebirths or 0
		Races.Value = SavedData.Races or 0
		Hoops.Value = SavedData.Hoops or 0

if SavedData.RedeemedCodes then
			for _, Code in ipairs(SavedData.RedeemedCodes) do
				local CodeInstance = Instance.new("StringValue")
				CodeInstance.Name = Code
				CodeInstance.Parent = RedeemedCodes
			end
		end
	else
		warn("Failed To Load Data For", Player.Name)
	end
end

local function OnPlayerLeave(Player)
	local UserId = Player.UserId
	local Key = "Player_" .. UserId

local Leaderstats = Player:FindFirstChild("leaderstats")
	local RedeemedCodes = Player:FindFirstChild("RedeemedCodes")

if Leaderstats and RedeemedCodes then
		local Gems = Player:FindFirstChild("Gems")
		local XP = Player:FindFirstChild("XP")
		local RequiredXP = Player:FindFirstChild("RequiredXP")
		local Level = Player:FindFirstChild("Level")

local Steps = Leaderstats:FindFirstChild("Steps")
		local Rebirths = Leaderstats:FindFirstChild("Rebirths")
		local Races = Leaderstats:FindFirstChild("Races")
		local Hoops = Leaderstats:FindFirstChild("Hoops")

if Gems and XP and RequiredXP and Level and Steps and Rebirths and Races and Hoops then
			local Data = {
				Gems = Gems.Value,
				XP = XP.Value,
				RequiredXP = RequiredXP.Value,
				Level = Level.Value,
				Steps = Steps.Value,
				Rebirths = Rebirths.Value,
				Races = Races.Value,
				Hoops = Hoops.Value,
				RedeemedCodes = {}
			}

for _, CodeInstance in ipairs(RedeemedCodes:GetChildren()) do
				if CodeInstance:IsA("StringValue") then
					table.insert(Data.RedeemedCodes, CodeInstance.Name)
				end
			end

local Success, Error = pcall(function()
				DataStore:SetAsync(Key, Data)
			end)

if not Success then
				warn("Failed To Save Data For", Player.Name, "Error:", Error)
			end
		end
	end
end

Players.PlayerAdded:Connect(OnPlayerJoin)
Players.PlayerRemoving:Connect(OnPlayerLeave)

game:BindToClose(function()
	for _, Player in pairs(Players:GetPlayers()) do
		OnPlayerLeave(Player)
		Player:Kick("The server has shutdown!")
	end
end)