I made sure that after the purchase of the developer product, money was given out. In a single test, they are issued, as soon as you log in to the team test, they stop being issued, I also tried to publish a place and go into it, nothing worked
local MarketplaceService = game:GetService("MarketplaceService")
local DataStoreService = game:GetService("DataStoreService")
local Players = game:GetService("Players")
-- Data store for tracking purchases that were successfully processed
local purchaseHistoryStore = DataStoreService:GetDataStore("PurchaseHistory")
-- Table setup containing product IDs and functions for handling purchases
local productFunctions = {}
-- ProductId 123123 for a full heal
productFunctions[1695321017] = function(_receipt, player)
print("11")
-- Logic/code for player buying 100 gold (may vary)
local gold = player.DR
if gold then
gold.Value = gold.Value + 100
-- Indicate a successful purchase
return true
end
end
-- ProductId 456456 for 100 gold
productFunctions[1695321140] = function(_receipt, player)
print("11")
-- Logic/code for player buying 100 gold (may vary)
local gold = player.DR
if gold then
gold.Value = gold.Value + 500
-- Indicate a successful purchase
return true
end
end
productFunctions[1695321256] = function(_receipt, player)
-- Logic/code for player buying 100 gold (may vary)
local gold = player.DR
if gold then
gold.Value = gold.Value + 1000
-- Indicate a successful purchase
return true
end
end
productFunctions[1695321331] = function(_receipt, player)
-- Logic/code for player buying 100 gold (may vary)
local gold = player.DR
if gold then
gold.Value = gold.Value + 2500
-- Indicate a successful purchase
return true
end
end
productFunctions[1695321390] = function(_receipt, player)
-- Logic/code for player buying 100 gold (may vary)
local gold = player.DR
if gold then
gold.Value = gold.Value + 5000
-- Indicate a successful purchase
return true
end
end
-- The core 'ProcessReceipt' callback function
local function processReceipt(receiptInfo)
-- Determine if the product was already granted by checking the data store
local playerProductKey = receiptInfo.PlayerId .. "_" .. receiptInfo.PurchaseId
local purchased = false
local success, result, errorMessage
success, errorMessage = pcall(function()
purchased = purchaseHistoryStore:GetAsync(playerProductKey)
end)
-- If purchase was recorded, the product was already granted
if success and purchased then
return Enum.ProductPurchaseDecision.PurchaseGranted
elseif not success then
error("Data store error:" .. errorMessage)
end
-- Determine if the product was already granted by checking the data store
local playerProductKey = receiptInfo.PlayerId .. "_" .. receiptInfo.PurchaseId
local success, isPurchaseRecorded = pcall(function()
return purchaseHistoryStore:UpdateAsync(playerProductKey, function(alreadyPurchased)
if alreadyPurchased then
return true
end
-- Find the player who made the purchase in the server
local player = Players:GetPlayerByUserId(receiptInfo.PlayerId)
if not player then
-- The player probably left the game
-- If they come back, the callback will be called again
return nil
end
local handler = productFunctions[receiptInfo.ProductId]
local success, result = pcall(handler, receiptInfo, player)
-- If granting the product failed, do NOT record the purchase in datastores.
if not success or not result then
error("Failed to process a product purchase for ProductId: " .. tostring(receiptInfo.ProductId) .. " Player: " .. tostring(player) .. " Error: " .. tostring(result))
return nil
end
-- Record the transcation in purchaseHistoryStore.
return true
end)
end)
if not success then
error("Failed to process receipt due to data store error.")
return Enum.ProductPurchaseDecision.NotProcessedYet
elseif isPurchaseRecorded == nil then
-- Didn't update the value in data store.
return Enum.ProductPurchaseDecision.NotProcessedYet
else
-- IMPORTANT: Tell Roblox that the game successfully handled the purchase
return Enum.ProductPurchaseDecision.PurchaseGranted
end
end
-- Set the callback; this can only be done once by one script on the server!
MarketplaceService.ProcessReceipt = processReceipt
type or paste code here