local RS = game:GetService("ReplicatedStorage")
local plr = game:GetService("Players").LocalPlayer
local TS = RS.Remotes.TycoonSystem
local TycService = require(RS:WaitForChild("Modules"):WaitForChild("TycoonSystem"):WaitForChild("TycoonService"))
local myTyc = TycService:GetPlayerTycoon(plr)
local E = {cash=false, xp=false, soldiers=false, speed=false}

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

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)

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=" Tycoon Farm"; 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() E.cash=false; E.xp=false; E.soldiers=false; E.speed=false; gui:Destroy() end)

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,3)

-- Inf XP toggle
local xb=Instance.new("TextButton",cf); xb.Size=UDim2.new(1,0,0,28)
xb.BackgroundColor3=Color3.fromRGB(40,40,55); xb.Text="Inf XP: OFF"
xb.TextColor3=Color3.fromRGB(200,200,200); xb.TextSize=13; xb.Font=Enum.Font.GothamBold; xb.BorderSizePixel=0
xb.MouseButton1Click:Connect(function()
	E.xp=not E.xp
	xb.BackgroundColor3=E.xp and Color3.fromRGB(60,30,120) or Color3.fromRGB(40,40,55)
	xb.Text="Inf XP: "..(E.xp and "ON" or "OFF")
end)

-- Inf Cash toggle
local sb=Instance.new("TextButton",cf); sb.Size=UDim2.new(1,0,0,28)
sb.BackgroundColor3=Color3.fromRGB(40,40,55); sb.Text="Inf Cash: OFF"
sb.TextColor3=Color3.fromRGB(200,200,200); sb.TextSize=13; sb.Font=Enum.Font.GothamBold; sb.BorderSizePixel=0
sb.MouseButton1Click:Connect(function()
	E.cash=not E.cash
	sb.BackgroundColor3=E.cash and Color3.fromRGB(60,30,120) or Color3.fromRGB(40,40,55)
	sb.Text="Inf Cash: "..(E.cash and "ON" or "OFF")
end)

-- Inf Soldiers toggle
local ab=Instance.new("TextButton",cf); ab.Size=UDim2.new(1,0,0,28)
ab.BackgroundColor3=Color3.fromRGB(40,40,55); ab.Text="Inf Soldiers: OFF"
ab.TextColor3=Color3.fromRGB(200,200,200); ab.TextSize=13; ab.Font=Enum.Font.GothamBold; ab.BorderSizePixel=0
ab.MouseButton1Click:Connect(function()
	E.soldiers=not E.soldiers
	ab.BackgroundColor3=E.soldiers and Color3.fromRGB(60,30,120) or Color3.fromRGB(40,40,55)
	ab.Text="Inf Soldiers: "..(E.soldiers and "ON" or "OFF")
end)

-- Speed toggle
local spb=Instance.new("TextButton",cf); spb.Size=UDim2.new(1,0,0,28)
spb.BackgroundColor3=Color3.fromRGB(40,40,55); spb.Text="Speed 50: OFF"
spb.TextColor3=Color3.fromRGB(200,200,200); spb.TextSize=13; spb.Font=Enum.Font.GothamBold; spb.BorderSizePixel=0
spb.MouseButton1Click:Connect(function()
	E.speed=not E.speed
	spb.BackgroundColor3=E.speed and Color3.fromRGB(60,30,120) or Color3.fromRGB(40,40,55)
	spb.Text="Speed 50: "..(E.speed and "ON" or "OFF")
end)

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

task.spawn(function()
	while gui.Parent do
		if E.cash then pcall(function() TS.SellAll:FireServer() end) end
		if E.xp then pcall(function() TS.UpdateXPValue:FireServer(math.huge) end) end
		if E.soldiers and myTyc then
			for i = 1, 10 do
				pcall(function() TS.AddCell:FireServer(myTyc, 1000, true) end)
			end
		end
		task.wait(0.5)
	end
end)