Prompting Developer Product Problems. ??????

Local Script (Ignore the part at the top):

local player = game:GetService("Players").LocalPlayer
local PlayerGui = player.PlayerGui

while true do
	Money = player:WaitForChild("leaderstats").Money.Value
	PlayerGui.ScreenGui.MoneyLabel.Text = "Money: " .. Money
	Gems = player:WaitForChild("leaderstats").Gems.Value
	PlayerGui.ScreenGui.GemsLabel.Text = "Gems: " .. Gems
	wait(.1)
end


function onClicked()
game.ReplicatedStorage.RemoteEvent:FireServer(player)
end

script.Parent.ShopButton.Activated:Connect(onClicked)

Normal Script (Ignore the part at the top):

local function onPlayerJoin(player)
	local leaderstats = Instance.new("Folder")
	leaderstats.Name = "leaderstats"
	leaderstats.Parent = player
 
	local Money = Instance.new("IntValue")
	Money.Name = "Money"
	Money.Value = 0
	Money.Parent = leaderstats
	
	
	local Gems = Instance.new("IntValue")
	Gems.Name = "Gems"
	Gems.Value = 0
	Gems.Parent = leaderstats
end
 
game.Players.PlayerAdded:Connect(onPlayerJoin)


local MarketplaceService = game:GetService("MarketplaceService")
local productID = 453120071

function OnServerEvent(plr)
	MarketplaceService:PromptProductPurchase(plr, productID)
end

game.ReplicatedStorage.RemoteEvent.OnServerEvent:Connect(OnServerEvent)