local Toggle = false
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local LocalPlayer = Players.LocalPlayer
local ScreenGui = Instance.new("ScreenGui")
local MainFrame = Instance.new("Frame")
local ToggleButton = Instance.new("TextButton")
ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui")
ScreenGui.ResetOnSpawn = false
MainFrame.Size = UDim2.new(0, 150, 0, 50)
MainFrame.Position = UDim2.new(0.1, 0, 0.1, 0)
MainFrame.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
MainFrame.Parent = ScreenGui
local dragging, dragInput, dragStart, startPos
MainFrame.InputBegan:Connect(function(input)
if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
dragging = true
dragStart = input.Position
startPos = MainFrame.Position
input.Changed:Connect(function()
if input.UserInputState == Enum.UserInputState.End then dragging = false end
end)
end
end)
MainFrame.InputChanged:Connect(function(input)
if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
dragInput = input
end
end)
UserInputService.InputChanged:Connect(function(input)
if input == dragInput and dragging then
local delta = input.Position - dragStart
MainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end
end)
ToggleButton.Size = UDim2.new(1, -10, 1, -10)
ToggleButton.Position = UDim2.new(0, 5, 0, 5)
ToggleButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
ToggleButton.Text = "Farm: OFF"
ToggleButton.TextColor3 = Color3.fromRGB(255, 255, 255)
ToggleButton.Font = Enum.Font.SourceSansBold
ToggleButton.TextSize = 16
ToggleButton.Parent = MainFrame
local function startFarming()
while Toggle do
local character = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait()
local hrp = character:WaitForChild("HumanoidRootPart")
local targets = {}
for _, tree in ipairs(workspace:GetDescendants()) do
if not Toggle then break end
if tree.Name == "LemonTree" and tree:IsA("Model") then
for _, obj in ipairs(tree:GetDescendants()) do
if obj:IsA("Part") then
local cd = obj:FindFirstChildOfClass("ClickDetector")
if cd then
table.insert(targets, {part = obj, cd = cd})
end
end
end
end
end
for i = 1, #targets do
if not Toggle then break end
local data = targets[i]
if data.part and data.cd then
hrp.CFrame = data.part.CFrame + Vector3.new(0, 3, 0)
fireclickdetector(data.cd)
task.wait(0.15)
end
end
task.wait()
end
end
ToggleButton.MouseButton1Click:Connect(function()
Toggle = not Toggle
if Toggle then
ToggleButton.Text = "Farm: ON"
ToggleButton.BackgroundColor3 = Color3.fromRGB(50, 200, 50)
task.spawn(startFarming)
else
ToggleButton.Text = "Farm: OFF"
ToggleButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
end
end)
Comments
No comments yet
Be the first to share your thoughts!