Ragnarope
|
  |
| Joined: 12 Jul 2014 |
| Total Posts: 3852 |
|
|
| 14 Aug 2014 02:12 AM |
game.StarterGui:SetCoreGuiEnabled("All", false)
local items = require(Workspace.ItemInfo)
local result = script.Parent.Parent:WaitForChild("Result")
function getItem(name) for _, item in pairs(items) do for _, v in pairs(item.name) do if v:lower() == name:lower() then return item end end end return false end
function comma(amount) local formatted = tostring(amount) while true do formatted, k = string.gsub(formatted, "^(-?%d+)(%d%d%d)", '%1,%2') if k == 0 then break end end return formatted end
function add(tab) local count = 0 for i, v in pairs(tab) do count = count + v end return count end
script.Parent.MouseButton1Click:connect(function() local give, get = {}, {} for i, v in pairs(script.Parent.Parent:GetChildren()) do if v.Name:sub(1, 3) == "Get" then if not tonumber(v.Text) then local item = getItem(v.Text:lower()) if item then table.insert(get, item.value) v.Text = item.name[1] .. " ( R$ " .. item.value .. " )" elseif not v.Text:find("Item") and not v.Text == "Robux" and v.Text:len() > 0 then v.Text = "ERROR : Unknown item!" else v.Text = "" end else table.insert(get, tonumber(v.Text)) end elseif v.Name:sub(1, 4) == "Give" then if not tonumber(v.Text) then local item = getItem(v.Text:lower()) if item then table.insert(give, item.value) v.Text = item.name[1] .. " ( R$ " .. item.value .. " )" elseif not v.Text:find("Item") and not v.Text == "Robux" and v.Text:len() > 0 then v.Text = "ERROR : Unknown item!" else v.Text = "" end else table.insert(give, tonumber(v.Text)) end end end local giveR, getR = add(give), add(get) local profit = getR - giveR if profit > 500 then result.Text = "Accept : You will earn ~R$" .. comma(profit) .. "." result.TextColor3 = Color3.new(0, 1, 0) else result.Text = "Decline : You will lose ~R$" .. comma(profit * -1) .. "." result.TextColor3 = Color3.new(1, 0, 0) end end) |
|
|
| Report Abuse |
|
|
| 14 Aug 2014 02:13 AM |
| and this does what exactly |
|
|
| Report Abuse |
|
Ragnarope
|
  |
| Joined: 12 Jul 2014 |
| Total Posts: 3852 |
|
|
| 14 Aug 2014 02:15 AM |
| that is highly classified information |
|
|
| Report Abuse |
|