Issue with developer products, why is it doing this?

This is the script that is supposed to add the money to your value which is in the localplayer, Why is it not adding to the players money value?

(The value is connected to a TextLabel in the StarterGui )

wait()
game.Players.PlayerAdded:Connect(function(plr)
local Money = plr.MoneyValue
local MarketplaceService = game:GetService("MarketplaceService")
local ds = game:GetService("DataStoreService"):GetDataStore("PurchaseHistory")
local pid1 = 363906114
local pid2 = 363906921
local pid3 = 365773688
local pid4 = 365773990
local pid5 = 365774250
local pid6 = 365774578
local sid = 364007259 -- StarterPack

MarketplaceService.ProcessReceipt = function(receiptInfo) 
    for i, player in ipairs(game.Players:GetChildren()) do
        if player.userId == receiptInfo.PlayerId then
            if receiptInfo.ProductId == pid1 then
                Money.Value = Money.Value + 1000

            elseif receiptInfo.ProductId == pid2 then
                Money.Value = Money.Value + 5000                

            elseif receiptInfo.ProductId == sid then
                Money.Value = Money.Value + 10750

            elseif receiptInfo.ProductId == pid3 then
                Money.Value = Money.Value + 10000

            elseif receiptInfo.ProductId == pid4 then
                Money.Value = Money.Value + 25000

            elseif receiptInfo.ProductId == pid5 then
                Money.Value = Money.Value + 50000

            elseif receiptInfo.ProductId == pid6 then
                Money.Value = Money.Value + 100000              
                    end
                end
            end 
        return Enum.ProductPurchaseDecision.PurchaseGranted     
    end
end)