-- Настройки
local AmberName = "Amber"
local GoatName = "Goat"
local TeleportOffset = Vector3.new(0, 3, 0)
local DefaultRadius = 100
local DefaultDelay = 0.5
local AttackKey = "E"

-- Сервисы
local Players = game:GetService("Players")
local UIS = game:GetService("UserInputService")
local RunService = game:GetService("RunService")
local LocalPlayer = Players.LocalPlayer
local Character = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait()
local HumanoidRootPart = Character:WaitForChild("HumanoidRootPart")
local VirtualInputManager = game:GetService("VirtualInputManager")

-- Состояние фарма
local FarmEnabled = {
    Amber = true,
    Goats = true
}
local Radius = DefaultRadius
local Delay = DefaultDelay
local Running = false

-- Создаем интерфейс
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "JurassicFarmGUI"
ScreenGui.Parent = game.CoreGui

local Frame = Instance.new("Frame")
Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
Frame.BackgroundTransparency = 0.3
Frame.BorderSizePixel = 0
Frame.Position = UDim2.new(0.05, 0, 0.05, 0)
Frame.Size = UDim2.new(0.2, 0, 0.35, 0)
Frame.Active = true
Frame.Draggable = true

local Title = Instance.new("TextLabel")
Title.Parent = Frame
Title.Text = "Jurassic Blocky Farmer"
Title.TextColor3 = Color3.new(1, 1, 1)
Title.BackgroundTransparency = 1
Title.Position = UDim2.new(0.1, 0, 0.05, 0)
Title.Size = UDim2.new(0.8, 0, 0.1, 0)
Title.Font = Enum.Font.SourceSansBold

-- Кнопка янтарей
local AmberToggle = Instance.new("TextButton")
AmberToggle.Parent = Frame
AmberToggle.Text = "Янтарь: ВКЛ"
AmberToggle.TextColor3 = Color3.new(0, 1, 0)
AmberToggle.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
AmberToggle.BackgroundTransparency = 0.3
AmberToggle.Position = UDim2.new(0.1, 0, 0.2, 0)
AmberToggle.Size = UDim2.new(0.8, 0, 0.1, 0)
AmberToggle.Font = Enum.Font.SourceSans

-- Кнопка коз
local GoatsToggle = Instance.new("TextButton")
GoatsToggle.Parent = Frame
GoatsToggle.Text = "Козы: ВКЛ"
GoatsToggle.TextColor3 = Color3.new(0, 1, 0)
GoatsToggle.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
GoatsToggle.BackgroundTransparency = 0.3
GoatsToggle.Position = UDim2.new(0.1, 0, 0.35, 0)
GoatsToggle.Size = UDim2.new(0.8, 0, 0.1, 0)
GoatsToggle.Font = Enum.Font.SourceSans

-- Кнопка старта/стопа
local StartStop = Instance.new("TextButton")
StartStop.Parent = Frame
StartStop.Text = "СТАРТ"
StartStop.TextColor3 = Color3.new(1, 1, 1)
StartStop.BackgroundColor3 = Color3.fromRGB(80, 80, 80)
StartStop.BackgroundTransparency = 0.3
StartStop.Position = UDim2.new(0.1, 0, 0.5, 0)
StartStop.Size = UDim2.new(0.8, 0, 0.1, 0)
StartStop.Font = Enum.Font.SourceSansBold

-- Поля ввода
local RadiusLabel = Instance.new("TextLabel")
RadiusLabel.Parent = Frame
RadiusLabel.Text = "Радиус: "..tostring(Radius)
RadiusLabel.TextColor3 = Color3.new(1, 1, 1)
RadiusLabel.BackgroundTransparency = 1
RadiusLabel.Position = UDim2.new(0.1, 0, 0.65, 0)
RadiusLabel.Size = UDim2.new(0.8, 0, 0.05, 0)
RadiusLabel.Font = Enum.Font.SourceSans

local RadiusBox = Instance.new("TextBox")
RadiusBox.Parent = Frame
RadiusBox.Text = tostring(Radius)
RadiusBox.TextColor3 = Color3.new(1, 1, 1)
RadiusBox.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
RadiusBox.BackgroundTransparency = 0.3
RadiusBox.Position = UDim2.new(0.1, 0, 0.7, 0)
RadiusBox.Size = UDim2.new(0.8, 0, 0.08, 0)
RadiusBox.Font = Enum.Font.SourceSans

local DelayLabel = Instance.new("TextLabel")
DelayLabel.Parent = Frame
DelayLabel.Text = "Задержка: "..tostring(Delay).." сек"
DelayLabel.TextColor3 = Color3.new(1, 1, 1)
DelayLabel.BackgroundTransparency = 1
DelayLabel.Position = UDim2.new(0.1, 0, 0.8, 0)
DelayLabel.Size = UDim2.new(0.8, 0, 0.05, 0)
DelayLabel.Font = Enum.Font.SourceSans

local DelayBox = Instance.new("TextBox")
DelayBox.Parent = Frame
DelayBox.Text = tostring(Delay)
DelayBox.TextColor3 = Color3.new(1, 1, 1)
DelayBox.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
DelayBox.BackgroundTransparency = 0.3
DelayBox.Position = UDim2.new(0.1, 0, 0.85, 0)
DelayBox.Size = UDim2.new(0.8, 0, 0.08, 0)
DelayBox.Font = Enum.Font.SourceSans

-- Функции кнопок
AmberToggle.MouseButton1Click:Connect(function()
    FarmEnabled.Amber = not FarmEnabled.Amber
    AmberToggle.Text = "Янтарь: "..(FarmEnabled.Amber and "ВКЛ" or "ВЫКЛ")
    AmberToggle.TextColor3 = FarmEnabled.Amber and Color3.new(0, 1, 0) or Color3.new(1, 0, 0)
end)

GoatsToggle.MouseButton1Click:Connect(function()
    FarmEnabled.Goats = not FarmEnabled.Goats
    GoatsToggle.Text = "Козы: "..(FarmEnabled.Goats and "ВКЛ" or "ВЫКЛ")
    GoatsToggle.TextColor3 = FarmEnabled.Goats and Color3.new(0, 1, 0) or Color3.new(1, 0, 0)
end)

StartStop.MouseButton1Click:Connect(function()
    Running = not Running
    StartStop.Text = Running and "СТОП" or "СТАРТ"
    StartStop.BackgroundColor3 = Running and Color3.fromRGB(120, 0, 0) or Color3.fromRGB(0, 120, 0)
end)

-- Обработчики полей ввода
RadiusBox.FocusLost:Connect(function()
    local num = tonumber(RadiusBox.Text)
    if num and num > 0 then
        Radius = num
        RadiusLabel.Text = "Радиус: "..tostring(Radius)
    else
        RadiusBox.Text = tostring(Radius)
    end
end)

DelayBox.FocusLost:Connect(function()
    local num = tonumber(DelayBox.Text)
    if num and num > 0 then
        Delay = num
        DelayLabel.Text = "Задержка: "..tostring(Delay).." сек"
    else
        DelayBox.Text = tostring(Delay)
    end
end)

-- Основная функция фарма
local function Farm()
    while task.wait() do
        if not Running then continue end
        
        if FarmEnabled.Amber then
            for _, item in pairs(workspace:GetDescendants()) do
                if item.Name == AmberName and item:IsA("BasePart") then
                    if (HumanoidRootPart.Position - item.Position).Magnitude <= Radius then
                        HumanoidRootPart.CFrame = CFrame.new(item.Position + TeleportOffset)
                        VirtualInputManager:SendKeyEvent(true, Enum.KeyCode.E, false, nil)
                        task.wait(0.1)
                        VirtualInputManager:SendKeyEvent(false, Enum.KeyCode.E, false, nil)
                    end
                end
            end
        end
        
        if FarmEnabled.Goats then
            for _, enemy in pairs(workspace:GetDescendants()) do
                if enemy.Name == GoatName and enemy:FindFirstChild("Humanoid") then
                    if (HumanoidRootPart.Position - enemy.PrimaryPart.Position).Magnitude <= Radius then
                        HumanoidRootPart.CFrame = CFrame.new(enemy.PrimaryPart.Position + TeleportOffset)
                        VirtualInputManager:SendKeyEvent(true, Enum.KeyCode[AttackKey], false, nil)
                        task.wait(0.1)
                        VirtualInputManager:SendKeyEvent(false, Enum.KeyCode[AttackKey], false, nil)
                    end
                end
            end
        end
        
        task.wait(Delay)
    end
end

-- Запускаем фарм в отдельном потоке
coroutine.wrap(Farm)()