Why doesn't ProcessReceipt Fire?

Asked by

10 years ago

I've tried everything I could think of, but the function won't fire when I buy the dev product. sometimes after I rejoin the place, it recognises that I bought the item, but I'd like it to recognise instantly.

the place with the script in question is here

and here is the script in question, all variable references are to existing items

001if game.ServerScriptService:FindFirstChild("VaporPurchaseHandler") ~= nil then
002    script.Parent = game.ServerScriptService
003else
004    script:Destroy()
005end
006 
007-- debugging code added by ihaveamac
008enable_debug_print = true
009function print_d(m)
010    if enable_debug_print then
011        print("<debug> "..m)
012    end
013end
014 
015print_d("DEBUG MODE ACTIVE")
016 
017local MarketplaceService = game:GetService("MarketplaceService")
018local PurchaseHistory = game:GetService("DataStoreService"):GetDataStore("PurchaseHistory")
019local data = game:GetService("DataStoreService"):GetDataStore("VaporData")
020 
021print_d("psready")
022 
023MarketplaceService.ProcessReceipt = function(receiptInfo) 
024    print_d("purchased")
025    local playerProductKey = receiptInfo.PlayerId .. ":" .. receiptInfo.PurchaseId
026    if PurchaseHistory:GetAsync(playerProductKey) then
027        return Enum.ProductPurchaseDecision.PurchaseGranted
028    end
029    print_d("RUNNING: for i, player in ipairs(game.Players:GetPlayers()) do")
030    for i, player in ipairs(game.Players:GetPlayers()) do
031        print_d("RUNNING: if player.userId == receiptInfo.PlayerId then")
032        if player.userId == receiptInfo.PlayerId then
033                print_d("condition successful")
034 
035                local vapor = player.PlayerGui:FindFirstChild("Vapor")
036                local props = vapor.Properties
037                local GameId = props.ProductId.Value
038                local suffix = props.DataSuffix.Value
039                local main = vapor.Window
040 
041            if receiptInfo.ProductId == GameId then
042                print(player.Name)
043                print(main.Name)
044                main.Buy.Visible = false
045                main.Load.Visible = true
046                print_d("gameIdAffirmative")
047                if main.Buy:FindFirstChild("Gift") ~= nil and main.Buy:FindFirstChild("Gift").isGift.Value == true then
048                    print_d("isGift")
049                    local text = string.lower(main.Buy:FindFirstChild("Gift").GiftBox.Text)
050                    local giftlist = data:GetAsync("giftlist"..suffix)
051                    if giftlist ~= nil then
052                        local gifted = false
053                        for i = 1,#giftlist do
054                            if giftlist[i] == text then
055                                print_d("already gifted to "..text)
056                                gifted = true
057                            end
058                        end
059 
060                        if gifted == false then
061                            print_d("gifted")
062                            table.insert(giftlist,text)
063                            data:SetAsync_d("giftlist"..suffix,giftlist)
064                            main.Load.Text.Text = "Gift Sent.."
065                        end                    
066 
067                    end
068 
069                    wait(1)
070                    main.Load.Text.Text = "Processing.."
071                    main.Load.Visible = false
072                    main:FindFirstChild("Buy").Visible = true
073 
074                elseif main.Buy:FindFirstChild("Gift").isGift.Value == false then
075 
076                print_d("notgift")
077                data:SetAsync(player.userId..suffix,true)
078                main.Load.Text.Text = "Purchase Complete.."
079                wait(1)
080                main.Load.Text.Text = "Processing.."
081                wait(1)
082                main.Load.Visible = false
083                main.Buy.Visible = true
084                main.Visible = false
085                vapor.Back.Visible = false
086                print_d("buydone")
087 
088                else print_d("notgift, and not notgift")
089 
090                end
091            end
092        else
093            print_d("condition failed")
094        end
095        print_d("if statement completed")
096    end
097    PurchaseHistory:SetAsync(playerProductKey, true)    
098    print_d("purchasefinish")
099    return Enum.ProductPurchaseDecision.PurchaseGranted 
100end
101 
102print_d("purchase handler is ready")
 View all 102 lines...

Just a tip for testing this: make this a named function, and have ProcessReceipt call that function, passing in the receipt itself as an argument. This lets you create a "spoof" receipt that bypasses actually purchasing anything to check your code. adark 5487 — 10y

Just skimming this I don't see anything wrong. You used ProcessReceipt as a callback and not an event, which is correct. My only guess is that the datastore stuff is causing it the break without properly erroring. adark 5487 — 10y

That was my first guess, but if it were the data stores, the function should have at least run up to the point where datastores were used, currently it doesn't run at all between lines 23, and 100 ZeroBits 142 — 10y

I've had this problem too. Especially when I have multiple products. I'm not sure why it doesn't work right :/ lightpower26 399 — 10y

View all comments (4 more)

Is this in a Server Script? Goulstem 8144 — 9y

yes. ZeroBits 142 — 9y

Could this be roblox sided, not you? Teeter11 281 — 9y

yes. ZeroBits 142 — 9y

Why doesn't ProcessReceipt Fire?

1 answer

Answer this question