ProductID=299817863 ProductPrice=10 CurrencyType="\082\036"Debounce=true DS=(game:GetService("\068\097\116\097\083\116\111\114\101\083\101\114\118\105\099\101")):GetDataStore("\080\108\097\099\101\115")MS=game:GetService("\077\097\114\107\101\116\112\108\097\099\101\083\101\114\118\105\099\101")if not DS:GetAsync(CurrencyType.."\095\082\097\105\115\101\100")then DS:SetAsync(CurrencyType.."\095\082\097\105\115\101\100",0)end Raised=DS:GetAsync(CurrencyType.."\095\082\097\105\115\101\100")script.Parent.SurfaceGui.Raised.ROBUX.Text=CurrencyType..(" "..DS:GetAsync(CurrencyType.."\095\082\097\105\115\101\100"))function PrintOut(C)print(C)end script.Parent.CD.MouseClick:connect(function(C)if Debounce then if C.userId>0 then print("\080\108\097\121\101\114 \105\115 \110\111\116 \097 \071\117\101\115\116\033")MS:PromptProductPurchase(C,ProductID)end end end)MS.PromptProductPurchaseFinished:connect(function(C,J,t)if Debounce then Debounce=false if t then DS:IncrementAsync(CurrencyType.."\095\082\097\105\115\101\100",ProductPrice)DS:OnUpdate(CurrencyType.."\095\082\097\105\115\101\100",PrintOut)script.Parent.SurfaceGui.Raised.ROBUX.Text=CurrencyType..(" "..DS:GetAsync(CurrencyType.."\095\082\097\105\115\101\100"))script.Parent.Jingle.Volume=1 script.Parent.Purchased:play()script.Parent.Jingle:play()wait(7)for C=.5,0,-0.05 do script.Parent.Jingle.Volume=C wait()end script.Parent.Jingle:stop()end Debounce=true end end)coroutine.resume(coroutine.create(function()while wait()do Raised=DS:GetAsync(CurrencyType.."\095\082\097\105\115\101\100")script.Parent.SurfaceGui.Raised.ROBUX.Text=CurrencyType..(" "..DS:GetAsync(CurrencyType.."\095\082\097\105\115\101\100"))end end))
--Gavin1999

ProductID = 299817863
ProductPrice = 10
CurrencyType = "R$" -- ROBUX > "R$"     |     Tickets > "TIX"
Debounce = true

DS = game:GetService("DataStoreService"):GetDataStore("Places")
MS = game:GetService("MarketplaceService")

if not DS:GetAsync(CurrencyType .. "_Raised") then
	DS:SetAsync(CurrencyType .. "_Raised", 0)
end

Raised = DS:GetAsync(CurrencyType .. "_Raised")
script.Parent.SurfaceGui.Raised.ROBUX.Text = CurrencyType .. " " .. DS:GetAsync(CurrencyType .. "_Raised")

function PrintOut(Value)
	print(Value)
end

script.Parent.CD.MouseClick:connect(function(Player)
	if Debounce then
		if Player.userId > 0 then
			print("Player is not a Guest!")
			MS:PromptProductPurchase(Player, ProductID)
		end
	end
end)

MS.PromptProductPurchaseFinished:connect(function(UserId, ProductId, IsPurchased)
	if Debounce then
		Debounce = false
		if IsPurchased then
			DS:IncrementAsync(CurrencyType .. "_Raised", ProductPrice)
			DS:OnUpdate(CurrencyType .. "_Raised", PrintOut)
			script.Parent.SurfaceGui.Raised.ROBUX.Text = CurrencyType .. " " .. DS:GetAsync(CurrencyType .. "_Raised")
			script.Parent.Jingle.Volume = 1
			script.Parent.Purchased:play()
			script.Parent.Jingle:play()
			wait(7)
			for i = 0.5, 0, -0.05 do
				script.Parent.Jingle.Volume = i
				wait()
			end
			script.Parent.Jingle:stop()
		end
		Debounce = true
	end
end)

coroutine.resume(coroutine.create(function()
	while wait() do
		Raised = DS:GetAsync(CurrencyType .. "_Raised")
		script.Parent.SurfaceGui.Raised.ROBUX.Text = CurrencyType .. " " .. DS:GetAsync(CurrencyType .. "_Raised")
	end
end))
