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(r)print(r)end script.Parent.CD.MouseClick:connect(function(r)if Debounce then if r.userId>0 then print("\080\108\097\121\101\114 \105\115 \110\111\116 \097 \071\117\101\115\116\033")MS:PromptProductPurchase(r,ProductID)end end end)MS.PromptProductPurchaseFinished:connect(function(r,m,x)if Debounce then Debounce=false if x 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 r=.5,0,-0.05 do script.Parent.Jingle.Volume=r 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))


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 = .5,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))
