Wiring in game purchases to produce game commission?

I made an in game catalog where you could wear any item from the catalog. I also made it so that you could buy it from the real catalog while in game. How would I wire the script so that I get commissions from any purchases made through the catalog?

--[[if script.Parent~=workspace.CurrentCamera then
    repeat wait() script.Parent=workspace.CurrentCamera

    until script.Parent==workspace.CurrentCamera
end
repeat wait() script.Parent=nil until script.Parent==nil
print(script.Parent," is my parent")--]]
local plr=game.Players.LocalPlayer; repeat wait() until plr.Character
local char = plr.Character
local catChar=nil
local rot=0
local tim = tick()
local curAnim = nil
local run=game:GetService('RunService')
local input=game:GetService'UserInputService'
local mouseCnn={}
local deviceT="MouseButton1Down"
local ghost = {}
local trooper=require(script.Parent:WaitForChild'cloneTrooper')
local market=game:GetService'MarketplaceService'

local catalog=script.Parent
local menu=catalog:WaitForChild'Menus':WaitForChild'Catalog'
local cover=menu:WaitForChild('Cover')
local comm=game.ReplicatedStorage:WaitForChild'Com'
local function rota()
    spawn(function()
        while cover.Visible do
            cover:WaitForChild'ImageLabel'.Rotation=cover:WaitForChild'ImageLabel'.Rotation+1
            game:GetService'RunService'.RenderStepped:wait()
        end
    end)
end
cover.Changed:connect(function()
    if cover.Visible then rota() end
end)
function loadCat()
local head=menu:WaitForChild("Header")
local ex=menu:WaitForChild("Example")
local frmEx=menu:WaitForChild'FrameEx'
local nav=menu:WaitForChild('Nav')
local purchase=game.ReplicatedStorage:WaitForChild('ITEM_PURCHASE')
local stuff=game.ReplicatedStorage:WaitForChild('Items')
local get_query=game.ReplicatedStorage:WaitForChild('SEARCH')
local page=1
local turning=false
local footer=menu:WaitForChild('Footer')
local frm=menu:WaitForChild('Container')
local searching=false
local query=''
local searches={}
print('Loaded most global variables!')
local search_type='Accessories'
local hat_={}
local clickeds={}
head.Search.FocusLost:connect(function(enterPressed)


local wearingFX={}
nav:WaitForChild'Display':WaitForChild'wear'.MouseButton1Down:connect(function()
    click();flood(nav:WaitForChild'Display':WaitForChild'wear')
    purchase:InvokeServer(hat_[1],hat_[2],hat_[3])
    local box=Instance.new("Frame",hat_[4]);wearingFX[hat_[1]]=box
    box.Size=UDim2.new(0,10,0,10)
    box.BackgroundColor3=Color3.new(1/255, 150/255, 213/255)
    box.BorderSizePixel=0
    box.Position=UDim2.new(0,10,0,10)
    box.ZIndex=4
    desModel()
    loadModel()
end)

-- The relevant part below

nav:WaitForChild'Display':WaitForChild'buy'.MouseButton1Down:connect(function()
    click();flood(nav:WaitForChild'Display':WaitForChild'wear')
    market:PromptPurchase(plr,hat_[3])
end)

plr.Character.DescendantRemoving:connect(function(c)
    local nam=c.Name
    if wearingFX[nam] then
        c.Name="NULL"
        if not plr.Character:findFirstChild(nam) then
            wearingFX[nam]:Destroy()
        end
    end
end)

i deleted parts of the script and left only the relevant part becuase it was over 10,000 words