Not giving the money from the Developer Product?

Asked by

22To 70

9 years ago

Works, but when they buy they get no money?

01--
02 
03local devProductId = 33890734   --The Developer Product ID if your item, must be a Product of the game place it is in
04local player= script.Parent.Parent.Parent.Parent.Parent
05 
06--Well, as always, don't touch anything below if you have no idea what you are doing--
07 
08--Prompt Buy--
09script.Parent.MouseButton1Click:connect(function()
10    game:GetService("MarketplaceService"):PromptProductPurchase(player, devProductId)
11end)
12 
13--Transaction--
14local MarketplaceService = game:GetService("MarketplaceService")
15local ds = game:GetService("DataStoreService"):GetDataStore("PurchaseHistory")
16MarketplaceService.ProcessReceipt = function(receiptInfo)
17    for i, player in ipairs(game.Players:GetChildren()) do
18        if player.userId == receiptInfo.PlayerId then
19            if receiptInfo.ProductId == devProductId then       --you can put the event here, or whatever
20                local L = game.ServerStorage.MoneyStorage[player.Name]
21                     if (L ~= nil) then
22                     L.Value = L.Value + 5000 --- Amount of cash goes here.
23            end
24        end
25    end
26    local playerProductKey = "player_" .. receiptInfo.PlayerId .. "_purchase_" .. receiptInfo.ProductId
27        ds:IncrementAsync(playerProductKey, 1)  
28    return Enum.ProductPurchaseDecision.PurchaseGranted
29    end
30    end
 View all 30 lines...

Try in pairs but tbh i cant see any error in the script. Try checking values and if the variables are correct. LifeInDevelopment 364 — 9y

idk why it isnt working like for real. 22To 70 — 9y

Not giving the money from the Developer Product?

1 answer

Answer this question