Роблокс Студио (Rebirth)

 local dataStoreService = game:GetService("DataStoreService")
local leaderstatsDataStore = dataStoreService:GetDataStore("data") --data это имя сохранения

game.Players.PlayerAdded:Connect(function(player)
	local leaderstats = Instance.new("Folder",player)
	leaderstats.Name = "leaderstats"
	leaderstats.Parent = player
	 
	local wins = Instance.new("IntValue",leaderstats)
	wins.Name = "Wins"
	wins.Parent = leaderstats
	wins.Value = 0
	 
	local Rebirths = Instance.new("IntValue",leaderstats)
	Rebirths.Name = "Rebirths"
	Rebirths.Parent = leaderstats
	Rebirths.Value = 0

	local coins = Instance.new("IntValue",leaderstats)
	coins.Name = "Coins"
	coins.Parent = leaderstats
	coins.Value = 0
	
	local leaderstatsData = leaderstatsDataStore:GetAsync(player.UserId)
	if leaderstatsData ~= nil then
		wins.Value = leaderstatsData[1]
		Rebirths.Value = leaderstatsData[2]
		coins.Value = leaderstatsData[3]
	end
end)

game.Players.PlayerRemoving:Connect(function(player) --когда игрок покидает игру
	local values = {}
	for _, child in pairs(player.leaderstats:GetChildren()) do
		table.insert(values,child.Value)
	end
	pcall(function()
		leaderstatsDataStore:SetAsync(player.UserId, values)
	end)
end)

game:BindToClose(function() --привязка игры к закрытию (сохранение данных)
	for _, player in pairs(game.Players:GetPlayers()) do
		local values = {}
		for _, child in pairs(player.leaderstats:GetChildren()) do
			table.insert(values,child.Value)
		end
		pcall(function()
			leaderstatsDataStore:SetAsync(player.UserId, values)
		end)
	end
end) 

 local player = game.Players.LocalPlayer
local wins = player:WaitForChild("leaderstats"):WaitForChild("Wins")
local coins = player:WaitForChild("leaderstats"):WaitForChild("Coins")
local rebirths = player:WaitForChild("leaderstats"):WaitForChild("Rebirths")
 
local price = script.Parent.Price.Value --цена
local amount = script.Parent.Amount.Value --сколько перерождений за эту цену

script.Parent.MouseButton1Click:Connect(function()
	if coins.Value >= price then -- Здесь указываем цену Ребёртса
		wins.Value = 0
		coins.Value = 0
		rebirths.Value += amount
		price = price * 2
	end
	
	if coins.Value < 2 then
		script.Parent.Text = "You have not Wins!"
		wait(2)
		script.Parent.Text = "Rebirth"
	end
end)