How Come IT Wont Give Player Points?

local plr = script.Parent.Parent.Parent 
local link = game:GetService("MarketplaceService")
local y = 75 --Offset is fine. Leave it alone.
local statn = "KOs" 

local function create(instanc)
    return function(object)
        local button = Instance.new(instanc)
        for i,v in pairs(object) do 
            button[i] = v
        end
        return button
    end
end



repeat wait() until plr:findFirstChild("leaderstats")
local stat = plr.leaderstats[statn]



local conversions = 
{
    {id = 20024310, points = 1, cost = 4, nam = "Buy 1 Point"}; --Change 123456 to your dev product ID
    {id = 20024777, points = 100, cost = 100, nam = "Buy 100 Point"}; --Do the same
    {id = 20024310, points = 1, cost = 4, nam = "Buy 1 Point"};--Do the same

}


local main = create("Frame")
{
    Size = UDim2.new(0, 250, 0, 0);
    BackgroundTransparency = 1;
    ZIndex = 3;
    Position = UDim2.new(0,-250,.5,-165);
    Name = "Shop";
    Parent = script.Parent
}

local folder = create("Frame")
{
    Size = UDim2.new(0,200,0,300);
    BackgroundColor = BrickColor.new("Really black");
    BackgroundTransparency = .3;
    Active = true;
    ZIndex = 2;
    Parent = main

}

local header = create("Frame")
{
    Size = UDim2.new(.5,0,0,20);
    Position = UDim2.new(1,0,0,0);
    Name = "ShopHeader";
    BackgroundTransparency = 1;
    ZIndex = 3;
    Parent = main
}

local Tbutton = create("TextButton")
{
    Size = UDim2.new(0,20,0,20);
    Position = UDim2.new(1,3,0,0);
    BackgroundTransparency = .25;
    BackgroundColor = BrickColor.new("Really black");
    ZIndex = 3;
    BorderSizePixel = 0;
    Text = ">>";
    TextColor = BrickColor.White();
    Parent = header

}

local label = create("TextLabel")
{
    Text = "PointsShop";
    Size = UDim2.new(1,0,0,20);
    BackgroundTransparency = .25;
    BackgroundColor = BrickColor.new("Really black");
    ZIndex = 3;
    BorderSizePixel = 0;
    TextColor = BrickColor.White();
    Font = "Legacy";
    FontSize = "Size12";
    Parent = header

}

local watermark = create("TextLabel")
{
    Size = UDim2.new(0,0,0,0);
    Position = UDim2.new(1,0,1,0);
    TextXAlignment = "Right";
    TextYAlignment = "Bottom";
    BackgroundTransparency = 1;
    ZIndex = 3;
    TextColor = BrickColor.new("Institutional white");
    Font = "Legacy";
    FontSize = "Size10";
    Text = "GUI by Azarth and stopthecakehate";
    TextTransparency = .9;
    Parent = folder

}

local function buyItem(button)
    button.MouseButton1Click:connect(function()
        local marketId = button["market"].Value
        local pointsToAward = button["points"].Value
        link:PromptProductPurchase(plr,marketId) 
        link.ProcessReceipt = function(receiptInfo)
            if Enum.ProductPurchaseDecision.PurchaseGranted and receiptInfo.PlayerId == plr.userId then
                stat.Value = stat.Value + pointsToAward
            end
        end
    end)
end

for i,v in ipairs(conversions) do 
    local button = create("TextButton")

    {
        Size = UDim2.new(1,0,0,y);
        BackgroundColor = BrickColor.Black();
        TextColor = BrickColor.White();
        TextXAlignment = "Left";
        FontSize = "Size14";
        Position = UDim2.new(0,0,0,((i*y)+2)-(y+2));
        BorderSizePixel = 0;
        Font = "Legacy";
        Text = v.nam;
        ZIndex = 3;
        Parent = folder

    }

    local cost = create("TextLabel")

    {
        Size = UDim2.new(0,0,1,0);
        BackgroundColor = BrickColor.Black();
        TextXAlignment = "Right";
        FontSize = "Size14";
        Position = UDim2.new(1,0,0,0);
        BorderSizePixel = 0;
        TextColor3 = Color3.new(20/255, 166/255, 0/255);
        Text = v.cost.."R$";
        ZIndex = 3;
        Parent = button

    }

    local buyTag = create("IntValue")

    {
        Name = "market";
        Value = v.id;
        Parent = button;

    }

    local pointsTag = create("IntValue")

    {
        Name = "points";
        Value = v.points;
        Parent = button;

    }

    buyItem(button)

end


local gui = main
Tbutton.MouseButton1Click:connect(function()
    if Tbutton.Text == ">>" then
        gui:TweenPosition(UDim2.new(0,0,.5,-165), "Out", "Back", true,.5)
        header:TweenPosition(header.Position - UDim2.new(0,45,0,0), "In", "Quad", true)
        Tbutton.Text = "<<"
    else
        gui:TweenPosition(UDim2.new(0,-250,.5,-165), "Out", "Quad", true,.5)
        header:TweenPosition(UDim2.new(1,0,0,0), "In", "Quad", true)
        Tbutton.Text = ">>"
    end
end)