Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- Farewell Infortality.
- -- Version: 2.82
- -- Instances:
- FarmStart = false
- FarmArea = "none"
- local petTable = {}
- local Try = 0
- local Amount = 0
- function PetTable()
- local Stats = workspace["__REMOTES"]["Core"]["Get Other Stats"]:InvokeServer()
- local Times = #Stats[game.Players.LocalPlayer.Name]["Save"]["Pets"]
- local Name = game:GetService("Players").LocalPlayer.Name
- petTable = {}
- Try = 0
- Amount = 0
- for i=1,Times do
- if(Stats[Name]["Save"]["Pets"][Times].e == true) then
- Amount = Amount + 1
- petTable[Amount] = {
- ["ID"] = tonumber(Stats[Name]["Save"]["Pets"][Times].id),
- ["LEVEL"] = tonumber(Stats[Name]["Save"]["Pets"][Times].l),
- }
- end
- Times = Times - 1
- end
- end
- local ScreenGui = Instance.new("ScreenGui")
- local Frame = Instance.new("Frame")
- local Open = Instance.new("TextButton")
- local FarmFrame = Instance.new("Frame")
- local StartFarmingMoon = Instance.new("TextButton")
- local Close = Instance.new("TextButton")
- local MoonHealthMin = Instance.new("TextBox")
- local MoonHealthMax = Instance.new("TextBox")
- local MoonHealthMinLabel = Instance.new("TextLabel")
- local MoonHealthMaxLabel = Instance.new("TextLabel")
- local TextLabel = Instance.new("TextLabel")
- --Properties:
- ScreenGui.Parent = game.CoreGui
- Frame.Parent = ScreenGui
- Frame.BackgroundColor3 = Color3.new(0, 0, 0)
- Frame.BackgroundTransparency = 0.60000002384186
- Frame.Position = UDim2.new(0, 0, 0.447852761, 0)
- Frame.Size = UDim2.new(0, 75, 0, 32)
- Open.Name = "Open"
- Open.Parent = Frame
- Open.AnchorPoint = Vector2.new(0.600000024, 0.600000024)
- Open.BackgroundColor3 = Color3.new(0, 0, 0)
- Open.BackgroundTransparency = 0.60000002384186
- Open.Position = UDim2.new(0.606666744, 0, 0.59375, 0)
- Open.Size = UDim2.new(0, 76, 0, 32)
- Open.Font = Enum.Font.SourceSans
- Open.Text = "Open"
- Open.TextColor3 = Color3.new(1, 1, 1)
- Open.TextSize = 14
- Open.MouseButton1Down:connect(function()
- FarmFrame.Visible = true
- Frame.Visible = false
- end)
- FarmFrame.Name = "FarmFrame"
- FarmFrame.Parent = ScreenGui
- FarmFrame.BackgroundColor3 = Color3.new(0, 0, 0)
- FarmFrame.BackgroundTransparency = 0.34999999403954
- FarmFrame.Position = UDim2.new(0.0883977935, 0, 0.373006165, 0)
- FarmFrame.Size = UDim2.new(0, 232, 0, 153)
- FarmFrame.Visible = false
- StartFarmingMoon.Name = "StartFarmingMoon"
- StartFarmingMoon.Parent = FarmFrame
- StartFarmingMoon.BackgroundColor3 = Color3.new(0, 0, 0)
- StartFarmingMoon.Position = UDim2.new(0.068965517, 0, 0.618496299, 0)
- StartFarmingMoon.Size = UDim2.new(0, 200, 0, 50)
- StartFarmingMoon.Font = Enum.Font.SourceSans
- StartFarmingMoon.Text = "Mine Moon: OFF"
- StartFarmingMoon.TextColor3 = Color3.new(1, 1, 1)
- StartFarmingMoon.TextSize = 14
- StartFarmingMoon.TextWrapped = true
- Close.Name = "Close"
- Close.Parent = FarmFrame
- Close.BackgroundColor3 = Color3.new(0, 0, 0)
- Close.Position = UDim2.new(0.896551728, 0, 0, 0)
- Close.Size = UDim2.new(0, 24, 0, 22)
- Close.Font = Enum.Font.SourceSans
- Close.Text = "X"
- Close.TextColor3 = Color3.new(1, 1, 1)
- Close.TextSize = 14
- Close.MouseButton1Down:connect(function()
- Frame.Visible = true
- FarmFrame.Visible = false
- end)
- MoonHealthMin.Name = "MoonHealthMin"
- MoonHealthMin.Parent = FarmFrame
- MoonHealthMin.BackgroundColor3 = Color3.new(1, 1, 1)
- MoonHealthMin.Position = UDim2.new(0.232758626, 0, 0.19859226, 0)
- MoonHealthMin.Size = UDim2.new(0, 154, 0, 23)
- MoonHealthMin.Font = Enum.Font.SourceSans
- MoonHealthMin.Text = "10e04"
- MoonHealthMin.TextColor3 = Color3.new(0, 0, 0)
- MoonHealthMin.TextSize = 14
- MoonHealthMin.TextWrapped = true
- MoonHealthMax.Name = "MoonHealthMax"
- MoonHealthMax.Parent = FarmFrame
- MoonHealthMax.BackgroundColor3 = Color3.new(1, 1, 1)
- MoonHealthMax.Position = UDim2.new(0.232758626, 0, 0.420311749, 0)
- MoonHealthMax.Size = UDim2.new(0, 154, 0, 23)
- MoonHealthMax.Font = Enum.Font.SourceSans
- MoonHealthMax.Text = "60e06"
- MoonHealthMax.TextColor3 = Color3.new(0, 0, 0)
- MoonHealthMax.TextSize = 14
- MoonHealthMax.TextWrapped = true
- MoonHealthMinLabel.Name = "MoonHealthMinLabel"
- MoonHealthMinLabel.Parent = FarmFrame
- MoonHealthMinLabel.BackgroundColor3 = Color3.new(1, 1, 1)
- MoonHealthMinLabel.Position = UDim2.new(0.068965517, 0, 0.19859226, 0)
- MoonHealthMinLabel.Size = UDim2.new(0, 36, 0, 23)
- MoonHealthMinLabel.Font = Enum.Font.SourceSans
- MoonHealthMinLabel.Text = "Min"
- MoonHealthMinLabel.TextColor3 = Color3.new(0, 0, 0)
- MoonHealthMinLabel.TextSize = 14
- MoonHealthMinLabel.TextWrapped = true
- MoonHealthMaxLabel.Name = "MoonHealthMaxLabel"
- MoonHealthMaxLabel.Parent = FarmFrame
- MoonHealthMaxLabel.BackgroundColor3 = Color3.new(1, 1, 1)
- MoonHealthMaxLabel.Position = UDim2.new(0.068965517, 0, 0.420311749, 0)
- MoonHealthMaxLabel.Size = UDim2.new(0, 36, 0, 23)
- MoonHealthMaxLabel.Font = Enum.Font.SourceSans
- MoonHealthMaxLabel.Text = "Max"
- MoonHealthMaxLabel.TextColor3 = Color3.new(0, 0, 0)
- MoonHealthMaxLabel.TextSize = 14
- MoonHealthMaxLabel.TextWrapped = true
- TextLabel.Parent = FarmFrame
- TextLabel.BackgroundColor3 = Color3.new(0, 0, 0)
- TextLabel.BackgroundTransparency = 0.85000002384186
- TextLabel.Position = UDim2.new(0, 0, -0.0040221368, 0)
- TextLabel.Size = UDim2.new(0, 208, 0, 20)
- TextLabel.Font = Enum.Font.SourceSans
- TextLabel.Text = "MoonFarm"
- TextLabel.TextColor3 = Color3.new(1, 0, 0)
- TextLabel.TextSize = 14
- TextLabel.TextWrapped = true
- -- Farm --
- StartFarmingMoon.MouseButton1Click:connect(function()
- if not FarmStart then
- FarmArea = "moon"
- FarmFrame.BackgroundColor3 = Color3.new(0, 0.3, 0)
- StartFarmingMoon.BackgroundColor3 = Color3.new(0, 0.3, 0)
- StartFarmingMoon.Text = "Mine Moon: ON"
- PetTable()
- FarmStart = true
- else
- FarmStart = false
- FarmArea = "none"
- FarmFrame.BackgroundColor3 = Color3.new(0, 0, 0)
- StartFarmingMoon.BackgroundColor3 = Color3.new(0, 0, 0)
- StartFarmingMoon.Text = "Mine Moon: OFF"
- end
- end)
- function Mine(Coin)
- while FarmStart and (Coin:FindFirstChild("Health") ~= nil) and (Coin:FindFirstChild("Health").Value > 0) do
- wait(0.1)
- for PetNumber,_ in pairs(petTable) do
- workspace["__REMOTES"]["Game"]["Coins"]:FireServer("Mine",Coin.Name,petTable[PetNumber]["LEVEL"],petTable[PetNumber]["ID"])
- end
- end
- end
- spawn(function()
- while true do
- while FarmStart do
- for _,Coin in next, workspace["__THINGS"].Coins:GetChildren() do
- if (done ~= Coin) then
- if (FarmArea == "all") then
- if workspace.__THINGS.Coins:FindFirstChild(Coin.Name) then
- if Coin.Health.Value > tonumber(AllHealthMin.Text) and Coin.Health.Value < tonumber(AllHealthMax.Text) then
- Mine(Coin)
- end
- end
- elseif (FarmArea == "earth") then
- if workspace.__THINGS.Coins:FindFirstChild(Coin.Name) then
- if Coin.Position.Y < 100 then
- if Coin.Health.Value > tonumber(EarthHealthMin.Text) and Coin.Health.Value < tonumber(EarthHealthMax.Text) then
- Mine(Coin)
- end
- end
- end
- elseif (FarmArea == "moon") then
- if workspace.__THINGS.Coins:FindFirstChild(Coin.Name) then
- if Coin.Position.Y > 100 then
- if Coin.Health.Value > tonumber(MoonHealthMin.Text) and Coin.Health.Value < tonumber(MoonHealthMax.Text) then
- Mine(Coin)
- end
- end
- end
- else
- end
- end
- end
- wait()
- end
- wait()
- end
- end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement