sss

local DataStoreService = game:GetService("DataStoreService")
local CreditDatastore = DataStoreService:GetDataStore("DevelopmentCreditsTest")
local configfile = require(script.configData)
local dataConfig = configfile.dataConfig
local Credit = { }
local QueuedPlayers = { }
local RunService = game:GetService("RunService")

Credit.SetupPlayer = function(Player)
	local Data = Instance.new("Folder")
	Data.Name = "Data"
	Data.Parent = Player

	local Successful, Save = Credit:LocateSave(Player)
	local Credits = Instance.new("IntValue")
	Credits.Name = "Credits"
	Credits.Parent = Data

	Credits.Value = Save or dataConfig.StarterCash

	while Player do
		wait(dataConfig.CreditCooldown)

		if Player ~= nil and Player:IsDescendantOf(game.Players) then

			Credits.Value += dataConfig.IncomeIncrease

		end
	end
end

function Credit:LocateSave(Player)

	local UserId = Player.UserId
	assert(type(UserId) == "number", "Credit:LocateSave() failed! (Invalid UserId)")

	local DataReturn = CreditDatastore:GetAsync(UserId)
	return DataReturn ~= nil, DataReturn
end

function Credit:SavePlayer(Player)

	if RunService:IsStudio() then
		return
	end

	local UserId = Player.UserId
	assert(type(UserId) == "number", "Credit:LocateSave() failed! (Invalid UserId)")

	local Data = Player:FindFirstChild("Data"):FindFirstChild("Credits")

	if not Data then
		Data = { }
		Data["Value"] = dataConfig.StarterCash
	end

	local Successful = pcall(function()
		CreditDatastore:SetAsync(UserId, Data.Value)
	end)

	if not Successful then
		warn("[DATASTORE] UNSUCCESSFUL SAVE OF ".. Player.Name.. "! RETRYING")
		delay(dataConfig.RetryTime, function()
			self:SavePlayer(Player)
		end)
	else
		print("[DATASTORE] SUCCESSFUL SAVE OF ".. Player.Name)
	end

end

Credit.SaveAllPlayers = function()
	for _, Player in next, game.Players:GetPlayers() do
		local Credits = Player:FindFirstChild("Data"):FindFirstChild("Credits")
		Credit:SavePlayer(Player)
	end
end


return Credit