HACK

-- PET SIMULATOR SCRIPT GUI
-- UPDATE 21/08/2018
-- Instances:
local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local TextButton = Instance.new("TextButton")
local TextLabel = Instance.new("TextLabel")
local Close = Instance.new("TextButton")
--Properties:

ScreenGui.Parent = game.CoreGui

Frame.Parent = ScreenGui
Frame.Active = true
Frame.BackgroundColor3 = Color3.new(0.666667, 1, 1)
Frame.Position = UDim2.new(0.0978689864, 0, 0.427872837, 0)
Frame.Size = UDim2.new(0, 219, 0, 118)
Frame.Selectable = true
Frame.Draggable = true
Frame.Visible = true

TextButton.Parent = Frame
TextButton.BackgroundColor3 = Color3.new(1, 1, 0.498039)
TextButton.Position = UDim2.new(0.260273993, 0, 0.322033912, 0)
TextButton.Size = UDim2.new(0, 105, 0, 41)
TextButton.Font = Enum.Font.SourceSans
TextButton.Text = "PRESS TO FARM"
TextButton.TextColor3 = Color3.new(0, 0, 0)
TextButton.TextSize = 14
TextButton.MouseButton1Click:connect(function()
local amount = 1000 -- experiment with this value, 1000 is maximum and for pets with high levels
local coins = game.Workspace:WaitForChild("__REMOTES"):WaitForChild("Coins")
local save = game.Workspace:WaitForChild("__REMOTES"):WaitForChild("Get Other Stats"):InvokeServer()
local plr = game:GetService("Players").LocalPlayer
local petids = {}
local pets = game:GetService("Workspace")["__REMOTES"].Pets
local a = #save[plr.Name]["Save"]["Pets"]
local done = "lol meme"
function random(t)
   local keys = {}
   for key, value in pairs(t) do
       keys[#keys+1] = key
   end
   index = keys[math.random(1, #keys)]
   return t[index]
end
for i=1,a do
   if(save[plr.Name]["Save"]["Pets"][a].e == true) then
       table.insert(petids, save[plr.Name]["Save"]["Pets"][a].id)
   end
   a = a - 1
end
function co(b)
   local done = b
   print("Mining coin: " .. b.Name)
   while(b:FindFirstChild"Health" ~= nil and b:FindFirstChild"Health".Value > 0) do
       warn(b.Name .. "- Health: " .. b.Health.Value)
       wait(0.2)
       coins:FireServer("Mine",b.Name, amount, random(petids))
   end
end
for _,b in next, workspace.__THINGS.Coins:GetChildren() do
   if(done ~= b) then
       coroutine.wrap(function()co(b)end)()
   end
end
end)

TextLabel.Parent = Frame
TextLabel.BackgroundColor3 = Color3.new(0.666667, 1, 1)
TextLabel.BorderSizePixel = 0
TextLabel.Size = UDim2.new(0, 219, 0, 20)
TextLabel.Font = Enum.Font.SourceSans
TextLabel.Text = "PET SIMULATOR SCRIPT GUI"
TextLabel.TextColor3 = Color3.new(0, 0, 0)
TextLabel.TextSize = 14

Close.Name = "Close"
Close.Parent = TextLabel
Close.BackgroundColor3 = Color3.new(0.666667, 1, 1)
Close.BorderSizePixel = 0
Close.Position = UDim2.new(0.90867579, 0, 0.0194915235, 0)
Close.Size = UDim2.new(0, 20, 0, 20)
Close.Font = Enum.Font.SourceSans
Close.Text = "X"
Close.TextColor3 = Color3.new(0, 0, 0)
Close.TextSize = 20
Close.MouseButton1Click:connect(function()
Frame.Visible = false
end)
-- Scripts: