Scripting Helpers is winding down operations and is now read-only. More info→
Ad
Log in to vote
0

How to sell multi dev products?

Asked by
minetrackmania 186
10 years ago

I made a gui shop for buy cash in game [TYCOON] I made 2 test "Buy 500 Cash" and " Buy 1000 Cash" The 1000 works the 500 not

This script going in my TextButtom from my gui; [1000 Cash]

local productId = 22197517 
local player = game.Players.LocalPlayer

script.Parent.MouseButton1Click:connect(function()
    Game:GetService("MarketplaceService"):PromptProductPurchase(player, productId)
end)

This script in starterpack;


local MarketplaceService = Game:GetService("MarketplaceService")
local ds = game:GetService("DataStoreService"):GetDataStore("PurchaseHistory")

CASHID = 22197517 -- Put the Developer Product ID here

MarketplaceService.ProcessReceipt = function(receiptInfo)
    local playerProductKey = "player_" .. receiptInfo.PlayerId .. "_product_" .. receiptInfo.ProductId
    local numberBought = ds:IncrementAsync(playerProductKey, 11)
    for i,v in pairs (game.Players:GetChildren()) do
        if v.userId == receiptInfo.PlayerId then
            if receiptInfo.ProductId == CASHID then


                lds = v:FindFirstChild("leaderstats")
                if lds ~= nil then
                    cs = lds:FindFirstChild("Cash") --Change to your leaderstat
                    if cs ~= nil then
                        cs.Value = cs.Value + 1000 --Change to the amount you want this to add
                    end
                end
            end
        end
    end
    return Enum.ProductPurchaseDecision.PurchaseGranted     
end

This works but when in do the 500 cash [First script the same] Starterpack


local MarketplaceService = Game:GetService("MarketplaceService")
local ds = game:GetService("DataStoreService"):GetDataStore("PurchaseHistory")

CASHID = 22197521 -- Put the Developer Product ID here

MarketplaceService.ProcessReceipt = function(receiptInfo)
    local playerProductKey = "player_" .. receiptInfo.PlayerId .. "_product_" .. receiptInfo.ProductId
    local numberBought = ds:IncrementAsync(playerProductKey, 1)
    for i,v in pairs (game.Players:GetChildren()) do
        if v.userId == receiptInfo.PlayerId then
            if receiptInfo.ProductId == CASHID then


                lds = v:FindFirstChild("leaderstats")
                if lds ~= nil then
                    cs = lds:FindFirstChild("Cash") --Change to your leaderstat
                    if cs ~= nil then
                        cs.Value = cs.Value + 500 --Change to the amount you want this to add
                    end
                end
            end
        end
    end
    return Enum.ProductPurchaseDecision.PurchaseGranted     
end

This does not work... And i already did change

local numberBought = ds:IncrementAsync(playerProductKey, 1) --To 11 or 14 (14 is number where product is)

I hope some one can help me Thanks you :)

0
Try just combining the two scripts into one, then putting the one script in the ServerScriptService. Tkdriverx 514 — 10y

1 answer

Log in to vote
2
Answered by
Goulstem 8144 Badge of Merit Moderation Voter Administrator Community Moderator
10 years ago

To have multiple Developer products, you have to check the ProductId of the receiptInfo. And you'd have to have separate Developer Products.

local MarketplaceService = Game:GetService("MarketplaceService")
local ds = game:GetService("DataStoreService"):GetDataStore("PurchaseHistory")
local thousandCash = 00000 --Put the ID for the thousand cash buy
local five_hundredCash = 000000 --ID for 500 cash buy

MarketplaceService.ProcessReceipt = function(receiptInfo)
    local playerProductKey = "player_" .. receiptInfo.PlayerId .. "_product_" .. receiptInfo.ProductId
    local numberBought = ds:IncrementAsync(playerProductKey, 1)
    for i,v in pairs (game.Players:GetChildren()) do
        if v.userId == receiptInfo.PlayerId then
            if receiptInfo.ProductId == five_hundredCash then
                local stat = v.leaderstats:FindFirstChild("Cash")
                if stat ~= nil then
                    stat.Value = stat.Value + 500
                end
            elseif receiptInfo.ProductId == thousandCash then
                local stat = v.leaderstats:FindFirstChild("Cash")
                if stat ~= nil then
                    stat.Value = stat.Value + 1000
                end
            end
        end
    end
    return Enum.ProductPurchaseDecision.PurchaseGranted
end
0
and if i need more i can do this look down! ;p minetrackmania 186 — 10y
0
Do it need a local script? or just a script into starterpack minetrackmania 186 — 10y
1
Regular script in Workspace(: Goulstem 8144 — 10y
0
Okayy thanks it works :) I have now for 10 more ;) minetrackmania 186 — 10y
Ad

Answer this question