Player Point Script? [Unsolved]

Asked by
11 years ago
How would you change this script, so if you buy the Dev Product you get a Darkheart or Illumina?
001local plr = script.Parent.Parent.Parent
002local link = game:GetService("MarketplaceService")
003local y = 75 -- 300( the frame's Y Size offset) /# of buttons you want. -> 300/4 = 75
004local statn = "KOs" -- stat name here
005 
006local function create(instanc)
007    return function(object)
008        local button = Instance.new(instanc)
009        for i,v in pairs(object) do
010            button[i] = v
011        end
012        return button
013    end
014end
015 
016 
017 
018 
019repeat wait() until plr:findFirstChild("leaderstats")
020local stat = plr.leaderstats[statn]
021 
022 
023local conversions =
024{
025    {id = 19793144, points = 0, cost = 1, nam = "Add 100 Player Points"};
026    {id = 19740656, points = 0, cost = 1, nam = "Add Player Points"};
027    {id = 19740656, points = 0, cost = 1, nam = "Add Player Points"};
028 
029}
030 
031 
032local main = create("Frame")
033{
034    Size = UDim2.new(0, 250, 0, 0);
035    BackgroundTransparency = 1;
036    ZIndex = 3;
037    Position = UDim2.new(0,-250,.5,-165);
038    Name = "Shop";
039    Parent = script.Parent
040}
041 
042local folder = create("Frame")
043{
044    Size = UDim2.new(0,200,0,300);
045    BackgroundColor = BrickColor.new("Really black");
046    BackgroundTransparency = .3;
047    Active = true;
048    ZIndex = 2;
049    Parent = main
050 
051}
052 
053local header = create("Frame")
054{
055    Size = UDim2.new(.5,0,0,20);
056    Position = UDim2.new(1,0,0,0);
057    Name = "ShopHeader";
058    BackgroundTransparency = 1;
059    ZIndex = 3;
060    Parent = main
061}
062 
063local Tbutton = create("TextButton")
064{
065    Size = UDim2.new(0,20,0,20);
066    Position = UDim2.new(1,3,0,0);
067    BackgroundTransparency = .25;
068    BackgroundColor = BrickColor.new("Really black");
069    ZIndex = 3;
070    BorderSizePixel = 0;
071    Text = ">>";
072    TextColor = BrickColor.White();
073    Parent = header
074 
075}
076 
077local label = create("TextLabel")
078{
079    Text = "Shop";
080    Size = UDim2.new(1,0,0,20);
081    BackgroundTransparency = .25;
082    BackgroundColor = BrickColor.new("Really black");
083    ZIndex = 3;
084    BorderSizePixel = 0;
085    TextColor = BrickColor.White();
086    Font = "Legacy";
087    FontSize = "Size12";
088    Parent = header
089 
090}
091 
092local watermark = create("TextLabel")
093{
094    Size = UDim2.new(0,0,0,0);
095    Position = UDim2.new(1,0,1,0);
096    TextXAlignment = "Right";
097    TextYAlignment = "Bottom";
098    BackgroundTransparency = 1;
099    ZIndex = 3;
100    TextColor = BrickColor.new("Institutional white");
101    Font = "Legacy";
102    FontSize = "Size10";
103    Text = "GUI";
104    TextTransparency = .9;
105    Parent = folder
106 
107}
108 
109local function buyItem(button)
110    button.MouseButton1Click:connect(function()
111        local marketId = button["market"].Value
112        local pointsToAward = button["points"].Value
113        link:PromptProductPurchase(plr,marketId) 
114        link.ProcessReceipt = function(receiptInfo)
115            if Enum.ProductPurchaseDecision.PurchaseGranted and receiptInfo.PlayerId == plr.userId then
116                stat.Value = stat.Value + pointsToAward
117            end
118        end
119    end)
120end
121 
122for i,v in ipairs(conversions) do
123    local button = create("TextButton")
124 
125    {
126        Size = UDim2.new(1,0,0,y);
127        BackgroundColor = BrickColor.Black();
128        TextColor = BrickColor.White();
129        TextXAlignment = "Left";
130        FontSize = "Size14";
131        Position = UDim2.new(0,0,0,((i*y)+2)-(y+2));
132        BorderSizePixel = 0;
133        Font = "Legacy";
134        Text = v.nam;
135        ZIndex = 3;
136        Parent = folder
137 
138    }
139 
140    local cost = create("TextLabel")
141 
142    {
143        Size = UDim2.new(0,0,1,0);
144        BackgroundColor = BrickColor.Black();
145        TextXAlignment = "Right";
146        FontSize = "Size14";
147        Position = UDim2.new(1,0,0,0);
148        BorderSizePixel = 0;
149        TextColor3 = Color3.new(20/255, 166/255, 0/255);
150        Text = v.cost.."R$";
151        ZIndex = 3;
152        Parent = button
153 
154    }
155 
156    local buyTag = create("IntValue")
157 
158    {
159        Name = "market";
160        Value = v.id;
161        Parent = button;
162 
163    }
164 
165    local pointsTag = create("IntValue")
166 
167    {
168        Name = "points";
169        Value = v.points;
170        Parent = button;
171 
172    }
173 
174    buyItem(button)
175 
176end
177 
178 
179local gui = main
180Tbutton.MouseButton1Click:connect(function()
181    if Tbutton.Text == ">>" then
182        gui:TweenPosition(UDim2.new(0,0,.5,-165), "Out", "Back", true,.5)
183        header:TweenPosition(header.Position - UDim2.new(0,45,0,0), "In", "Quad", true)
184        Tbutton.Text = "<<"
185    else
186        gui:TweenPosition(UDim2.new(0,-250,.5,-165), "Out", "Quad", true,.5)
187        header:TweenPosition(UDim2.new(1,0,0,0), "In", "Quad", true)
188        Tbutton.Text = ">>"
189    end
190end)
 View all 190 lines...
Player Point Script? [Unsolved]

1 answer

Answer this question
