local TweenService = game:GetService("TweenService")
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local Lighting = game:GetService("Lighting")
local LocalPlayer = Players.LocalPlayer


local State = {
    Active = false,
    ESPEnabled = false,
    AntiAFK = true,
    FullBright = false,
    WalkSpeed = 16,
    JumpPower = 50,
    CollectDelay = 0.3,
    CratesPath = workspace:WaitForChild("Map"):WaitForChild("Crates")
}

local OriginalBrightness = Lighting.Brightness
local OriginalClock = Lighting.ClockTime

local ScreenGui = Instance.new("ScreenGui", LocalPlayer:WaitForChild("PlayerGui"))
ScreenGui.Name = "ArchonMenu"

local MainFrame = Instance.new("Frame", ScreenGui)
MainFrame.Size = UDim2.new(0, 320, 0, 460)
MainFrame.Position = UDim2.new(0.5, -160, 0.5, -230)
MainFrame.BackgroundColor3 = Color3.fromRGB(236, 229, 216)
MainFrame.BorderSizePixel = 0
Instance.new("UICorner", MainFrame).CornerRadius = UDim.new(0, 12)

local MainStroke = Instance.new("UIStroke", MainFrame)
MainStroke.Thickness = 2
MainStroke.Color = Color3.fromRGB(189, 171, 137)


local Header = Instance.new("Frame", MainFrame)
Header.Size = UDim2.new(1, 0, 0, 60)
Header.BackgroundTransparency = 1

local TitleText = Instance.new("TextLabel", Header)
TitleText.Size = UDim2.new(1, 0, 1, 0)
TitleText.Text = "✦  Game Menu  ✦"
TitleText.Font = Enum.Font.GothamBold
TitleText.TextSize = 17
TitleText.TextColor3 = Color3.fromRGB(73, 83, 102)
TitleText.BackgroundTransparency = 1

local Scroll = Instance.new("ScrollingFrame", MainFrame)
Scroll.Size = UDim2.new(1, -24, 1, -80)
Scroll.Position = UDim2.new(0, 12, 0, 65)
Scroll.BackgroundTransparency = 1
Scroll.CanvasSize = UDim2.new(0, 0, 0, 550)
Scroll.ScrollBarThickness = 0 

local Layout = Instance.new("UIListLayout", Scroll)
Layout.Padding = UDim.new(0, 10)
Layout.HorizontalAlignment = Enum.HorizontalAlignment.Center


local function NewToggle(icon, text, callback)
    local Btn = Instance.new("TextButton", Scroll)
    Btn.Size = UDim2.new(0, 280, 0, 45)
    Btn.BackgroundColor3 = Color3.fromRGB(218, 210, 192)
    Btn.Text = icon .. "  " .. text
    Btn.Font = Enum.Font.GothamMedium
    Btn.TextSize = 14
    Btn.TextColor3 = Color3.fromRGB(73, 83, 102)
    Btn.AutoButtonColor = false
    Instance.new("UICorner", Btn).CornerRadius = UDim.new(0, 8)
    
    local Stroke = Instance.new("UIStroke", Btn)
    Stroke.Thickness = 1.2
    Stroke.Color = Color3.fromRGB(160, 150, 130)
    Stroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Border

    local active = false
    Btn.MouseButton1Click:Connect(function()
        active = not active
        callback(active)
        
        local targetColor = active and Color3.fromRGB(234, 187, 65) or Color3.fromRGB(218, 210, 192)
        local targetStroke = active and Color3.fromRGB(255, 255, 255) or Color3.fromRGB(160, 150, 130)
        
        TweenService:Create(Btn, TweenInfo.new(0.3), {BackgroundColor3 = targetColor}):Play()
        TweenService:Create(Stroke, TweenInfo.new(0.3), {Color = targetStroke}):Play()
    end)
end

local function NewSlider(icon, text, min, max, default, callback)
    local Frame = Instance.new("Frame", Scroll)
    Frame.Size = UDim2.new(0, 280, 0, 60)
    Frame.BackgroundTransparency = 1
    
    local Lab = Instance.new("TextLabel", Frame)
    Lab.Size = UDim2.new(1, 0, 0, 25)
    Lab.Text = icon .. "  " .. text .. ": " .. default
    Lab.TextColor3 = Color3.fromRGB(100, 90, 80)
    Lab.Font = Enum.Font.GothamBold
    Lab.TextSize = 12
    Lab.BackgroundTransparency = 1
    
    local Bar = Instance.new("Frame", Frame)
    Bar.Size = UDim2.new(0, 240, 0, 4)
    Bar.Position = UDim2.new(0.5, -120, 0, 42)
    Bar.BackgroundColor3 = Color3.fromRGB(189, 180, 160)
    
    local Fill = Instance.new("Frame", Bar)
    Fill.Size = UDim2.new((default-min)/(max-min), 0, 1, 0)
    Fill.BackgroundColor3 = Color3.fromRGB(234, 187, 65)
    
    local Trig = Instance.new("TextButton", Bar)
    Trig.Size = UDim2.new(1, 10, 4, 0)
    Trig.Position = UDim2.new(0, -5, -1.5, 0)
    Trig.BackgroundTransparency = 1
    Trig.Text = ""

    local function update()
        local input = UserInputService:GetMouseLocation()
        local pos = math.clamp((input.X - Bar.AbsolutePosition.X) / Bar.AbsoluteSize.X, 0, 1)
        Fill.Size = UDim2.new(pos, 0, 1, 0)
        local val = math.floor(min + (max-min)*pos)
        Lab.Text = icon .. "  " .. text .. ": " .. val
        callback(val)
    end

    local dragging = false
    Trig.MouseButton1Down:Connect(function() dragging = true end)
    UserInputService.InputEnded:Connect(function(i) if i.UserInputType == Enum.UserInputType.MouseButton1 then dragging = false end end)
    RunService.RenderStepped:Connect(function() if dragging then update() end end)
end


task.spawn(function()
    while true do
        if State.Active and LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
            local root = LocalPlayer.Character.HumanoidRootPart
            local items = State.CratesPath:GetChildren()
            
            for _, model in pairs(items) do
                if not State.Active then break end
                local part = model:FindFirstChild("CollectPart")
                
                if part and part:IsA("BasePart") then
                    local oldPos = root.CFrame
          
                    root.CFrame = part.CFrame * CFrame.new(0, 1, 0) 
                    
                    if firetouchinterest then
                        firetouchinterest(root, part, 0)
                        task.wait(0.03)
                        firetouchinterest(root, part, 1)
                    end
                    
                    root.CFrame = oldPos
                    task.wait(State.CollectDelay)
                end
            end
        end
        task.wait(0.5)
    end
end)

-- ESP
local highlights = {}
RunService.RenderStepped:Connect(function()
    if State.ESPEnabled then
        for _, crate in pairs(State.CratesPath:GetChildren()) do
            if not highlights[crate] then
                local h = Instance.new("Highlight", crate)
                h.FillColor = Color3.fromRGB(234, 187, 65)
                h.OutlineColor = Color3.fromRGB(255, 255, 255)
                highlights[crate] = h
            end
        end
    else
        for i, h in pairs(highlights) do h:Destroy() highlights[i] = nil end
    end
end)

-- Утилиты
local function ToggleBright(v)
    State.FullBright = v
    Lighting.Brightness = v and 2 or OriginalBrightness
    Lighting.ClockTime = v and 14 or OriginalClock
    Lighting.GlobalShadows = not v
end

LocalPlayer.Idled:Connect(function()
    if State.AntiAFK then
        game:GetService("VirtualUser"):Button2Down(Vector2.new(0,0), workspace.CurrentCamera.CFrame)
        task.wait(1)
        game:GetService("VirtualUser"):Button2Up(Vector2.new(0,0), workspace.CurrentCamera.CFrame)
    end
end)



NewToggle("🏹", "AUTO-COLLECT CRATES", function(v) State.Active = v end)
NewToggle("👁", "ELEMENTAL SIGHT (ESP)", function(v) State.ESPEnabled = v end)
NewToggle("☀️", "FULLBRIGHT MODE", function(v) ToggleBright(v) end)
NewToggle("🛡", "ANTI-AFK PROTECTION", function(v) State.AntiAFK = v end)

NewSlider("⏳", "COLLECT SPEED", 0, 5, 0, function(v) State.CollectDelay = v / 10 end)
NewSlider("⚡", "WALK SPEED", 16, 200, 16, function(v) if LocalPlayer.Character then LocalPlayer.Character.Humanoid.WalkSpeed = v end end)
NewSlider("🦘", "JUMP POWER", 50, 300, 50, function(v) if LocalPlayer.Character then LocalPlayer.Character.Humanoid.JumpPower = v end end)


local dragging, startPos, dragStart
MainFrame.InputBegan:Connect(function(i) if i.UserInputType == Enum.UserInputType.MouseButton1 then dragging = true dragStart = i.Position startPos = MainFrame.Position end end)
UserInputService.InputChanged:Connect(function(i) if i.UserInputType == Enum.UserInputType.MouseMovement and dragging then
    local delta = i.Position - dragStart
    MainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end end)
UserInputService.InputEnded:Connect(function(i) if i.UserInputType == Enum.UserInputType.MouseButton1 then dragging = false end end)

print("✧Loaded ✧")