local DataStoreService = game:GetService("DataStoreService")
local CoinsDataStore = DataStoreService:GetOrderedDataStore("CashLeaderBoardDataStore")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

local LeaderboardPart = script.Parent.Parent.Parent.Parent.LeaderboardPart
local RefreshRate = 60

local function RefreshLeaderboard()

	for i, Player in pairs(game.Players:GetPlayers()) do

		CoinsDataStore:SetAsync(Player.UserId, Player.leaderstats.Cash.Value)
	end

	local Success, Error = pcall(function()

		local Data = CoinsDataStore:GetSortedAsync(false, 60)
		local RollsPage = Data:GetCurrentPage()

		for Rank, SavedData in ipairs(RollsPage) do

			local UserId = tonumber(SavedData.key)
			local Cash = SavedData.value

			if Cash > 0 then

				local Username = game.Players:GetNameFromUserIdAsync(UserId)

				local NewSample = script:WaitForChild("Template"):Clone()

				NewSample.Parent = LeaderboardPart.SurfaceGui.ScrollingFrame.Container
				NewSample.Name = Username

				NewSample.RankLabel.Text = "#" .. Rank
				NewSample.NameLabel.Text = Username
				NewSample.NumberLabel.Text = Cash

				if Rank == 1 then

					NewSample.BackgroundColor3 = Color3.fromRGB(255, 213, 0)

				elseif Rank == 2 then

					NewSample.BackgroundColor3 = Color3.fromRGB(192, 192, 192)

				elseif Rank == 3 then

					NewSample.BackgroundColor3 = Color3.fromRGB(205, 127, 50)

				else

					NewSample.BackgroundColor3 = Color3.fromRGB(216, 216, 216)
				end
			end
		end
	end)
end

while true do

	for i, Frame in pairs(LeaderboardPart.SurfaceGui:WaitForChild("ScrollingFrame").Container:GetChildren()) do

		if Frame.Name ~= "Template" and Frame:IsA("Frame") then

			Frame:Destroy()
		end
	end

	RefreshLeaderboard()

	task.wait(RefreshRate)
end