local Players = game:GetService("Players")
local Workspace = game:GetService("Workspace")
local UserInputService = game:GetService("UserInputService")

local Player = Players.LocalPlayer
local Character = Player.Character or Player.CharacterAdded:Wait()
local Humanoid = Character:WaitForChild("Humanoid")
local Camera = workspace.CurrentCamera

local isRunning = false
local collected = 0
local killMode = false
local killedCount = 0
local menuOpen = false
local isFrozen = false

-- НАСТРОЙКИ
local Settings = {
    CollectionInterval = 0.05,
    TeleportInterval = 0.05,
    FarmDelay = 0.3,   -- 🆕 задержка между циклами фарма (0.3)
}

-- ФИЛЬТР ПО ВЫСОТЕ
local MAX_HEIGHT = 20

local chestTypes = {
    ["Light Chest"] = true,
    ["Dark Chest"] = true,
    ["Universe Chest"] = true,
    ["Ocean Chest"] = true,
    ["Heaven Chest"] = true,
    ["Normal Chest"] = true,
    ["All Chest"] = true,
    ["Desert Chest"] = true,
    ["Crate"] = true,
    ["Mystical Crate"] = true,
}

local chestNames = {
    ["Light Chest"] = {"LightChest_p","lightchest_p"},
    ["Dark Chest"] = {"DarkChest_p","darkchest_p"},
    ["Universe Chest"] = {"Universe_Chestp","universal_chest_p"},
    ["Ocean Chest"] = {"oceanchest_p","ocean_chest_p"},
    ["Heaven Chest"] = {"HeavenChest_p","heaven_chest_p"},
    ["Normal Chest"] = {"Chest_p","normal_chest_p"},
    ["All Chest"] = {"chest","desert_p"},
    ["Desert Chest"] = {"desert_chest_p","desert_p"},
    ["Crate"] = {"crate","crates"},
    ["Mystical Crate"] = {"Mystical","mystical_crate"},
}

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Parent = Player.PlayerGui
ScreenGui.Enabled = false

local Menu = Instance.new("Frame")
Menu.Size = UDim2.new(0, 350, 0, 560)
Menu.Position = UDim2.new(0.5, -175, 0.5, -280)
Menu.BackgroundColor3 = Color3.fromRGB(15, 15, 35)
Menu.BackgroundTransparency = 0.05
Menu.BorderSizePixel = 2
Menu.BorderColor3 = Color3.fromRGB(255, 215, 0)
Menu.Active = true
Menu.Draggable = true
Menu.Parent = ScreenGui

local CloseBtn = Instance.new("TextButton")
CloseBtn.Size = UDim2.new(0, 30, 0, 30)
CloseBtn.Position = UDim2.new(1, -35, 0, 5)
CloseBtn.BackgroundColor3 = Color3.fromRGB(200, 0, 0)
CloseBtn.Text = "X"
CloseBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
CloseBtn.TextScaled = true
CloseBtn.Font = Enum.Font.GothamBold
CloseBtn.Parent = Menu
CloseBtn.MouseButton1Click:Connect(function()
    menuOpen = false
    ScreenGui.Enabled = false
end)

local Title = Instance.new("TextLabel")
Title.Size = UDim2.new(1, 0, 0.05, 0)
Title.BackgroundTransparency = 1
Title.Text = "CHEST FARMER"
Title.TextColor3 = Color3.fromRGB(255, 215, 0)
Title.TextScaled = true
Title.Font = Enum.Font.GothamBold
Title.Parent = Menu

local BigCounter = Instance.new("Frame")
BigCounter.Size = UDim2.new(0.9, 0, 0.08, 0)
BigCounter.Position = UDim2.new(0.05, 0, 0.06, 0)
BigCounter.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
BigCounter.BackgroundTransparency = 0.3
BigCounter.BorderSizePixel = 2
BigCounter.BorderColor3 = Color3.fromRGB(255, 215, 0)
BigCounter.Parent = Menu

local BigCounterLabel = Instance.new("TextLabel")
BigCounterLabel.Size = UDim2.new(1, 0, 1, 0)
BigCounterLabel.BackgroundTransparency = 1
BigCounterLabel.Text = "CHESTS: 0"
BigCounterLabel.TextColor3 = Color3.fromRGB(255, 215, 0)
BigCounterLabel.TextScaled = true
BigCounterLabel.Font = Enum.Font.GothamBold
BigCounterLabel.Parent = BigCounter

local FreezeBtn = Instance.new("TextButton")
FreezeBtn.Size = UDim2.new(0.9, 0, 0.06, 0)
FreezeBtn.Position = UDim2.new(0.05, 0, 0.16, 0)
FreezeBtn.BackgroundColor3 = Color3.fromRGB(100, 100, 100)
FreezeBtn.Text = "❄️ Freeze: OFF"
FreezeBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
FreezeBtn.TextScaled = true
FreezeBtn.Font = Enum.Font.GothamBold
FreezeBtn.BorderSizePixel = 0
FreezeBtn.Parent = Menu

local Tab1 = Instance.new("TextButton")
Tab1.Size = UDim2.new(0.5, -2, 0.05, 0)
Tab1.Position = UDim2.new(0, 0, 0.23, 0)
Tab1.BackgroundColor3 = Color3.fromRGB(255, 215, 0)
Tab1.Text = "Chests"
Tab1.TextColor3 = Color3.fromRGB(0, 0, 0)
Tab1.TextScaled = true
Tab1.Font = Enum.Font.GothamBold
Tab1.Parent = Menu

local Tab2 = Instance.new("TextButton")
Tab2.Size = UDim2.new(0.5, -2, 0.05, 0)
Tab2.Position = UDim2.new(0.5, 2, 0.23, 0)
Tab2.BackgroundColor3 = Color3.fromRGB(50, 50, 70)
Tab2.Text = "Kill"
Tab2.TextColor3 = Color3.fromRGB(255, 255, 255)
Tab2.TextScaled = true
Tab2.Font = Enum.Font.GothamBold
Tab2.Parent = Menu

local TabContent1 = Instance.new("Frame")
TabContent1.Size = UDim2.new(1, -10, 0.71, 0)
TabContent1.Position = UDim2.new(0, 5, 0.29, 0)
TabContent1.BackgroundTransparency = 1
TabContent1.Parent = Menu

local TabContent2 = Instance.new("Frame")
TabContent2.Size = UDim2.new(1, -10, 0.71, 0)
TabContent2.Position = UDim2.new(0, 5, 0.29, 0)
TabContent2.BackgroundTransparency = 1
TabContent2.Visible = false
TabContent2.Parent = Menu

local ChestScroll = Instance.new("ScrollingFrame")
ChestScroll.Size = UDim2.new(1, 0, 0.82, 0)
ChestScroll.Position = UDim2.new(0, 0, 0, 0)
ChestScroll.BackgroundTransparency = 1
ChestScroll.CanvasSize = UDim2.new(0, 0, 0, 400)
ChestScroll.ScrollBarThickness = 5
ChestScroll.Parent = TabContent1

local AutoFarmBtn = Instance.new("TextButton")
AutoFarmBtn.Size = UDim2.new(1, 0, 0.1, 0)
AutoFarmBtn.Position = UDim2.new(0, 0, 0.85, 0)
AutoFarmBtn.BackgroundColor3 = Color3.fromRGB(200, 0, 0)
AutoFarmBtn.Text = "Auto Farm: OFF"
AutoFarmBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
AutoFarmBtn.TextScaled = true
AutoFarmBtn.Font = Enum.Font.GothamBold
AutoFarmBtn.Parent = TabContent1

AutoFarmBtn.MouseButton1Click:Connect(function()
    isRunning = not isRunning
    if isRunning then
        AutoFarmBtn.Text = "Auto Farm: ON"
        AutoFarmBtn.BackgroundColor3 = Color3.fromRGB(0, 200, 0)
    else
        AutoFarmBtn.Text = "Auto Farm: OFF"
        AutoFarmBtn.BackgroundColor3 = Color3.fromRGB(200, 0, 0)
    end
end)

local yPos = 0
for name, _ in pairs(chestTypes) do
    local btn = Instance.new("TextButton")
    btn.Size = UDim2.new(1, -10, 0.08, 0)
    btn.Position = UDim2.new(0, 5, 0, yPos)
    btn.BackgroundColor3 = Color3.fromRGB(0, 150, 0)
    btn.Text = name
    btn.TextColor3 = Color3.fromRGB(255, 255, 255)
    btn.TextScaled = true
    btn.Font = Enum.Font.GothamBold
    btn.Parent = ChestScroll
    btn.MouseButton1Click:Connect(function()
        chestTypes[name] = not chestTypes[name]
        if chestTypes[name] then
            btn.Text = name
            btn.BackgroundColor3 = Color3.fromRGB(0, 150, 0)
        else
            btn.Text = name
            btn.BackgroundColor3 = Color3.fromRGB(150, 0, 0)
        end
    end)
    yPos = yPos + 30
end
ChestScroll.CanvasSize = UDim2.new(0, 0, 0, yPos + 10)

local KillStatus = Instance.new("TextLabel")
KillStatus.Size = UDim2.new(1, 0, 0.1, 0)
KillStatus.Position = UDim2.new(0, 0, 0, 0)
KillStatus.BackgroundTransparency = 1
KillStatus.Text = "KILL ALL: OFF"
KillStatus.TextColor3 = Color3.fromRGB(255, 100, 100)
KillStatus.TextScaled = true
KillStatus.Font = Enum.Font.GothamBold
KillStatus.Parent = TabContent2

local KillBtn = Instance.new("TextButton")
KillBtn.Size = UDim2.new(0.55, 0, 0.12, 0)
KillBtn.Position = UDim2.new(0.1, 0, 0.12, 0)
KillBtn.BackgroundColor3 = Color3.fromRGB(200, 0, 50)
KillBtn.Text = "KILL ALL"
KillBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
KillBtn.TextScaled = true
KillBtn.Font = Enum.Font.GothamBold
KillBtn.Parent = TabContent2

local KillLoopBtn = Instance.new("TextButton")
KillLoopBtn.Size = UDim2.new(0.25, 0, 0.12, 0)
KillLoopBtn.Position = UDim2.new(0.67, 0, 0.12, 0)
KillLoopBtn.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
KillLoopBtn.Text = "Loop"
KillLoopBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
KillLoopBtn.TextScaled = true
KillLoopBtn.Font = Enum.Font.GothamBold
KillLoopBtn.Parent = TabContent2

local KillCountLabel = Instance.new("TextLabel")
KillCountLabel.Size = UDim2.new(1, 0, 0.1, 0)
KillCountLabel.Position = UDim2.new(0, 0, 0.26, 0)
KillCountLabel.BackgroundTransparency = 1
KillCountLabel.Text = "Killed: 0"
KillCountLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
KillCountLabel.TextScaled = true
KillCountLabel.Font = Enum.Font.GothamBold
KillCountLabel.Parent = TabContent2

Tab1.MouseButton1Click:Connect(function()
    Tab1.BackgroundColor3 = Color3.fromRGB(255, 215, 0)
    Tab1.TextColor3 = Color3.fromRGB(0, 0, 0)
    Tab2.BackgroundColor3 = Color3.fromRGB(50, 50, 70)
    Tab2.TextColor3 = Color3.fromRGB(255, 255, 255)
    TabContent1.Visible = true
    TabContent2.Visible = false
end)

Tab2.MouseButton1Click:Connect(function()
    Tab2.BackgroundColor3 = Color3.fromRGB(255, 215, 0)
    Tab2.TextColor3 = Color3.fromRGB(0, 0, 0)
    Tab1.BackgroundColor3 = Color3.fromRGB(50, 50, 70)
    Tab1.TextColor3 = Color3.fromRGB(255, 255, 255)
    TabContent1.Visible = false
    TabContent2.Visible = true
end)

-- =====================================================
-- FIND CHESTS С ФИЛЬТРОМ ВЫСОТЫ
-- =====================================================
function FindAllChests()
    local result = {}
    
    local playerPos = Character and Character.PrimaryPart and Character.PrimaryPart.Position or Vector3.new(0, 0, 0)
    local groundY = playerPos.Y
    
    for _, obj in pairs(Workspace:GetDescendants()) do
        local part = nil
        local prompt = nil
        local name = ""
        
        if obj:IsA("BasePart") then
            part = obj
            prompt = obj:FindFirstChildWhichIsA("ProximityPrompt")
            name = obj.Name:lower()
        elseif obj:IsA("Model") then
            prompt = obj:FindFirstChildWhichIsA("ProximityPrompt", true)
            part = obj.PrimaryPart or obj:FindFirstChildWhichIsA("BasePart")
            name = obj.Name:lower()
        end
        
        if part and prompt and prompt.HoldDuration <= 25 then
            if part.Position.Y - groundY <= MAX_HEIGHT then
                local found = false
                for chestName, keywords in pairs(chestNames) do
                    if chestTypes[chestName] then
                        for _, kw in ipairs(keywords) do
                            if name:find(kw) then
                                table.insert(result, {
                                    Prompt = prompt,
                                    Position = part.Position,
                                    Part = part
                                })
                                found = true
                                break
                            end
                        end
                        if found then break end
                    end
                end
            end
        end
    end
    return result
end

-- =====================================================
-- FREEZE
-- =====================================================
local function EnableFreeze()
    isFrozen = true
    FreezeBtn.Text = "❄️ Freeze: ON"
    FreezeBtn.BackgroundColor3 = Color3.fromRGB(0, 150, 200)
    
    if Humanoid then
        pcall(function() Humanoid.PlatformStand = true end)
    end
    
    local hrp = Character:FindFirstChild("HumanoidRootPart")
    if hrp then
        pcall(function()
            local bv = hrp:FindFirstChild("FreezeBV") or Instance.new("BodyVelocity")
            bv.Name = "FreezeBV"
            bv.Velocity = Vector3.new(0, 0, 0)
            bv.MaxForce = Vector3.new(math.huge, math.huge, math.huge)
            bv.P = 10000
            bv.Parent = hrp
        end)
    end
end

local function DisableFreeze()
    isFrozen = false
    FreezeBtn.Text = "❄️ Freeze: OFF"
    FreezeBtn.BackgroundColor3 = Color3.fromRGB(100, 100, 100)
    
    if Humanoid then
        pcall(function() Humanoid.PlatformStand = false end)
    end
    
    local hrp = Character and Character:FindFirstChild("HumanoidRootPart")
    if hrp then
        pcall(function()
            local bv = hrp:FindFirstChild("FreezeBV")
            if bv then bv:Destroy() end
        end)
    end
end

FreezeBtn.MouseButton1Click:Connect(function()
    if isFrozen then DisableFreeze() else EnableFreeze() end
end)

-- =====================================================
-- KILL ALL
-- =====================================================
function KillAllMobs()
    local killed = 0
    for _, obj in pairs(Workspace:GetDescendants()) do
        if obj:IsA("Model") then
            local isPlayer = false
            for _, plr in pairs(Players:GetPlayers()) do
                if obj == plr.Character then
                    isPlayer = true
                    break
                end
            end
            if isPlayer then continue end
            if obj == Character then continue end
            if obj.Name and obj.Name:lower():find("chest") then continue end
            if obj.Name and obj.Name:lower():find("crate") then continue end
            local hum = obj:FindFirstChild("Humanoid")
            if hum and hum.Health > 0 then
                pcall(function()
                    hum.Health = 0
                    hum:TakeDamage(1000000000)
                    killed = killed + 1
                end)
            end
        end
    end
    if killed > 0 then
        killedCount = killedCount + killed
        KillCountLabel.Text = "Killed: " .. killedCount
    end
end

function KillLoopFunction()
    while killMode do
        KillAllMobs()
        wait(1)
    end
end

KillBtn.MouseButton1Click:Connect(function()
    KillAllMobs()
end)

KillLoopBtn.MouseButton1Click:Connect(function()
    killMode = not killMode
    if killMode then
        KillLoopBtn.Text = "Loop ✓"
        KillLoopBtn.BackgroundColor3 = Color3.fromRGB(40, 160, 40)
        KillStatus.Text = "KILL ALL: LOOP ON"
        KillStatus.TextColor3 = Color3.fromRGB(0, 255, 0)
        spawn(KillLoopFunction)
    else
        KillLoopBtn.Text = "Loop"
        KillLoopBtn.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
        KillStatus.Text = "KILL ALL: OFF"
        KillStatus.TextColor3 = Color3.fromRGB(255, 100, 100)
    end
end)

-- =====================================================
-- AUTO FARM (wait(0.3) между циклами)
-- =====================================================
spawn(function()
    while true do
        if isRunning then
            local player = game.Players.LocalPlayer
            local character = player.Character
            if not character then
                wait(Settings.FarmDelay)
                continue
            end
            
            local humanoidRootPart = character:FindFirstChild("HumanoidRootPart")
            if not humanoidRootPart then
                wait(Settings.FarmDelay)
                continue
            end

            local chests = FindAllChests()

            if #chests > 0 then
                table.sort(chests, function(a, b)
                    return (humanoidRootPart.Position - a.Position).Magnitude < (humanoidRootPart.Position - b.Position).Magnitude
                end)

                for _, target in ipairs(chests) do
                    if not isRunning then break end

                    if target.Prompt and target.Prompt.Parent then
                        if target.Position.Y - humanoidRootPart.Position.Y <= MAX_HEIGHT then
                            humanoidRootPart.CFrame = CFrame.new(target.Position + Vector3.new(0, 3, 0))
                            wait(Settings.TeleportInterval)

                            pcall(function()
                                fireproximityprompt(target.Prompt)
                            end)
                            wait(Settings.CollectionInterval)

                            collected = collected + 1
                            BigCounterLabel.Text = "CHESTS: " .. collected
                        end
                    end
                end
            end
        end
        
        -- 🆕 Задержка 0.3 сек между циклами фарма
        wait(Settings.FarmDelay)
    end
end)

UserInputService.InputBegan:Connect(function(input)
    if input.KeyCode == Enum.KeyCode.R then
        menuOpen = not menuOpen
        ScreenGui.Enabled = menuOpen
    end
end)

Player.CharacterAdded:Connect(function(char)
    Character = char
    Humanoid = char:WaitForChild("Humanoid")
    task.wait(1)
    if isFrozen then EnableFreeze() end
end)