local RS = game:GetService("ReplicatedStorage")
local plr = game:GetService("Players").LocalPlayer
local eco = plr:WaitForChild("Eco")
local TryAddEco = RS.Remote.Event.Eco:WaitForChild("[C-S]TryAddEco")
local TryClaim = RS.Remote.Event.OPQuest:WaitForChild("[C-S]TryClaim")
local GetReward = RS.Remote.Event.Online:WaitForChild("[C-S]GetReward")
local E = {chip=false,rebirth=false,damage=false,opquest=false,online=false,speed=false}

local gui = Instance.new("ScreenGui"); gui.Name="FarmGUI"; gui.ResetOnSpawn=false; gui.Parent=plr.PlayerGui
local main = Instance.new("Frame"); main.Size=UDim2.new(0,220,0,242); main.Position=UDim2.new(0.5,-110,0,20)
main.BackgroundColor3=Color3.fromRGB(15,15,25); main.BorderSizePixel=0; main.Parent=gui

-- Drag
local dr,ds,sp
main.InputBegan:Connect(function(i)
	if i.UserInputType==Enum.UserInputType.MouseButton1 or i.UserInputType==Enum.UserInputType.Touch then
		dr=true;ds=i.Position;sp=main.Position
		i.Changed:Connect(function() if i.UserInputState==Enum.UserInputState.End then dr=false end end)
	end
end)
game:GetService("UserInputService").InputChanged:Connect(function(i)
	if dr and (i.UserInputType==Enum.UserInputType.MouseMovement or i.UserInputType==Enum.UserInputType.Touch) then
		local d=i.Position-ds; main.Position=UDim2.new(sp.X.Scale,sp.X.Offset+d.X,sp.Y.Scale,sp.Y.Offset+d.Y)
	end
end)

-- Title + Close
local t=Instance.new("TextLabel",main); t.Size=UDim2.new(1,-30,0,25); t.BackgroundColor3=Color3.fromRGB(60,30,120)
t.BorderSizePixel=0; t.Text=" Farm GUI"; t.TextColor3=Color3.fromRGB(220,220,220); t.TextSize=13; t.Font=Enum.Font.GothamBold; t.TextXAlignment=Enum.TextXAlignment.Left
local x=Instance.new("TextButton",main); x.Size=UDim2.new(0,25,0,25); x.Position=UDim2.new(1,-27,0,0)
x.BackgroundColor3=Color3.fromRGB(180,50,50); x.Text="X"; x.TextColor3=Color3.fromRGB(255,255,255); x.TextSize=12; x.Font=Enum.Font.GothamBold; x.BorderSizePixel=0
x.MouseButton1Click:Connect(function() for k in pairs(E) do E[k]=false end; gui:Destroy() end)

-- Content
local cf=Instance.new("Frame",main); cf.Size=UDim2.new(1,-10,1,-30); cf.Position=UDim2.new(0,5,0,28); cf.BackgroundTransparency=1
Instance.new("UIListLayout",cf).Padding=UDim.new(0,4)

local function tog(name,key)
	local b=Instance.new("TextButton",cf); b.Size=UDim2.new(1,0,0,28)
	b.BackgroundColor3=Color3.fromRGB(40,40,55); b.Text=name..": OFF"
	b.TextColor3=Color3.fromRGB(200,200,200); b.TextSize=13; b.Font=Enum.Font.GothamBold; b.BorderSizePixel=0
	b.MouseButton1Click:Connect(function()
		E[key]=not E[key]
		b.BackgroundColor3=E[key] and Color3.fromRGB(60,30,120) or Color3.fromRGB(40,40,55)
		b.Text=name..": "..(E[key] and "ON" or "OFF")
	end)
end

tog("Inf Chips","chip")
tog("Inf Rebirth","rebirth")
tog("Inf Power","damage")
tog("Auto OPQuest","opquest")
tog("Auto Online 1-12","online")
tog("Fast Speed","speed")

game:GetService("RunService").Heartbeat:Connect(function()
	if E.speed and plr.Character and plr.Character:FindFirstChildOfClass("Humanoid") then
		plr.Character:FindFirstChildOfClass("Humanoid").WalkSpeed = 50
	end
end)

task.spawn(function()
	while gui.Parent do
		if E.chip then pcall(function() TryAddEco:FireServer("gem",math.huge) end) end
		if E.damage then pcall(function() TryAddEco:FireServer("power",math.huge) end) end
		if E.rebirth then pcall(function() TryAddEco:FireServer("rebirth",math.huge) end) end
		if E.opquest then pcall(function() TryClaim:FireServer() end) end
		if E.online then for i=1,12 do pcall(function() GetReward:FireServer(i) end) end end
		task.wait(0.1)
	end
end)