farm monet

local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local TweenService = game:GetService("TweenService")
local TeleportService = game:GetService("TeleportService")
local HttpService = game:GetService("HttpService")

-- Настройки
local SETTINGS = {
    -- Основные
    TeleportHeight = 3,          -- На сколько единиц выше телепортироваться
    ForwardTime = 0.5,           -- Время движения вперед
    BackwardTime = 1,            -- Время движения назад
    WalkSpeed = 16,              -- Скорость ходьбы
    TeleportDelay = 1,           -- Задержка между телепортами
    SearchInterval = 5,          -- Интервал поиска монет

    -- Noclip
    NoclipDuration = 60,         -- Длительность Noclip
    NoclipCooldown = 60,         -- Охлаждение Noclip

    -- Сервер хоп
    ServerHopInterval = 60,     -- Интервал смены сервера (10 мин)

    -- Цвета
    ColorMain = Color3.fromRGB(30, 30, 40),
    ColorAccent = Color3.fromRGB(0, 150, 255),
    ColorText = Color3.fromRGB(240, 240, 240),
    ColorSuccess = Color3.fromRGB(0, 200, 100),
    ColorWarning = Color3.fromRGB(255, 150, 0),
    ColorError = Color3.fromRGB(255, 50, 50)
}

-- Создаем продвинутый GUI
local player = Players.LocalPlayer
local gui = Instance.new("ScreenGui")
gui.Name = "PremiumAutoFarm"
gui.ResetOnSpawn = false
gui.Parent = player:WaitForChild("PlayerGui")

-- Основной фрейм
local mainFrame = Instance.new("Frame")
mainFrame.Size = UDim2.new(0, 360, 0, 300)
mainFrame.Position = UDim2.new(0.5, -180, 0.5, -150)
mainFrame.AnchorPoint = Vector2.new(0.5, 0.5)
mainFrame.BackgroundColor3 = SETTINGS.ColorMain
mainFrame.BackgroundTransparency = 0.1
mainFrame.BorderSizePixel = 0
mainFrame.Parent = gui

-- Скругление углов
local corner = Instance.new("UICorner")
corner.CornerRadius = UDim.new(0, 12)
corner.Parent = mainFrame

-- Верхняя панель
local topBar = Instance.new("Frame")
topBar.Size = UDim2.new(1, 0, 0, 45)
topBar.BackgroundColor3 = SETTINGS.ColorAccent
topBar.BorderSizePixel = 0
topBar.Parent = mainFrame

local topCorner = Instance.new("UICorner")
topCorner.CornerRadius = UDim.new(0, 12)
topCorner.Parent = topBar

-- Заголовок
local title = Instance.new("TextLabel")
title.Text = "AUTO FARM v3.0"
title.Size = UDim2.new(1, -50, 1, 0)
title.Font = Enum.Font.GothamBold
title.TextColor3 = SETTINGS.ColorText
title.BackgroundTransparency = 1
title.TextSize = 18
title.TextXAlignment = Enum.TextXAlignment.Left
title.Position = UDim2.new(0, 15, 0, 0)
title.Parent = topBar

-- Кнопка закрытия
local closeBtn = Instance.new("TextButton")
closeBtn.Text = "×"
closeBtn.Size = UDim2.new(0, 45, 0, 45)
closeBtn.Position = UDim2.new(1, -45, 0, 0)
closeBtn.Font = Enum.Font.GothamBold
closeBtn.TextColor3 = SETTINGS.ColorText
closeBtn.TextSize = 24
closeBtn.BackgroundTransparency = 1
closeBtn.Parent = topBar

-- Основное содержимое
local contentFrame = Instance.new("Frame")
contentFrame.Size = UDim2.new(1, -20, 1, -65)
contentFrame.Position = UDim2.new(0, 10, 0, 55)
contentFrame.BackgroundTransparency = 1
contentFrame.Parent = mainFrame

-- Главная кнопка
local toggleBtn = Instance.new("TextButton")
toggleBtn.Text = "ОСТАНОВИТЬ"
toggleBtn.Size = UDim2.new(1, 0, 0, 50)
toggleBtn.Position = UDim2.new(0, 0, 0, 0)
toggleBtn.Font = Enum.Font.GothamBold
toggleBtn.TextColor3 = SETTINGS.ColorText
toggleBtn.BackgroundColor3 = SETTINGS.ColorError
toggleBtn.AutoButtonColor = false
toggleBtn.Parent = contentFrame

local btnCorner = Instance.new("UICorner")
btnCorner.CornerRadius = UDim.new(0, 8)
btnCorner.Parent = toggleBtn

-- Функция создания информационных строк
local function createInfoRow(icon, yPos)
    local frame = Instance.new("Frame")
    frame.Size = UDim2.new(1, 0, 0, 28)
    frame.Position = UDim2.new(0, 0, 0, yPos)
    frame.BackgroundTransparency = 1
    frame.Parent = contentFrame

    local iconLabel = Instance.new("TextLabel")
    iconLabel.Text = icon
    iconLabel.Size = UDim2.new(0, 28, 0, 28)
    iconLabel.Font = Enum.Font.GothamBold
    iconLabel.TextColor3 = SETTINGS.ColorAccent
    iconLabel.BackgroundTransparency = 1
    iconLabel.TextXAlignment = Enum.TextXAlignment.Left
    iconLabel.Parent = frame

    local textLabel = Instance.new("TextLabel")
    textLabel.Name = "TextLabel"
    textLabel.Text = "Загрузка..."
    textLabel.Size = UDim2.new(1, -28, 1, 0)
    textLabel.Position = UDim2.new(0, 28, 0, 0)
    textLabel.Font = Enum.Font.Gotham
    textLabel.TextColor3 = SETTINGS.ColorText
    textLabel.BackgroundTransparency = 1
    textLabel.TextXAlignment = Enum.TextXAlignment.Left
    textLabel.Parent = frame

    return textLabel
end

-- Информационные строки
local statusLabel = createInfoRow("📊", 60)
local bundlesLabel = createInfoRow("💰", 95)
local noclipLabel = createInfoRow("🚀", 130)
local serverLabel = createInfoRow("🔁", 165)

-- Анимация кнопок
local function animateButton(btn, color)
    local tweenInfo = TweenInfo.new(0.15, Enum.EasingStyle.Quad, Enum.EasingDirection.Out)
    local tween = TweenService:Create(btn, tweenInfo, {BackgroundColor3 = color:lerp(Color3.new(1,1,1), 0.3)})
    tween:Play()
    tween.Completed:Connect(function()
        local tweenBack = TweenService:Create(btn, tweenInfo, {BackgroundColor3 = color})
        tweenBack:Play()
    end)
end

-- Система обновления статусов
local function updateStatus(text, color)
    statusLabel.Text = text
    statusLabel.TextColor3 = color or SETTINGS.ColorText
end

local function updateBundles(count)
    bundlesLabel.Text = "Монет: "..count
end

local function updateNoclip(status, color)
    noclipLabel.Text = "Noclip: "..status
    noclipLabel.TextColor3 = color or SETTINGS.ColorText
end

local function updateServerTime(seconds)
    local mins = math.floor(seconds / 60)
    local secs = seconds % 60
    serverLabel.Text = "Сервер: "..string.format("%02d:%02d", mins, secs)
end

-- Noclip система
local noclipActive = false
local noclipConnection

local function enableNoclip()
    if noclipActive then return end
    noclipActive = true
    updateNoclip("ВКЛ", SETTINGS.ColorSuccess)

    local character = player.Character
    if not character then return end

    noclipConnection = RunService.Stepped:Connect(function()
        if not noclipActive then return end
        for _, part in ipairs(character:GetDescendants()) do
            if part:IsA("BasePart") then
                part.CanCollide = false
            end
        end
    end)
end

local function disableNoclip()
    if not noclipActive then return end
    noclipActive = false
    updateNoclip("ВЫКЛ", SETTINGS.ColorWarning)

    if noclipConnection then
        noclipConnection:Disconnect()
    end
end

-- Цикл Noclip
local function noclipCycle()
    while true do
        enableNoclip()
        wait(SETTINGS.NoclipDuration)
        disableNoclip()
        wait(SETTINGS.NoclipCooldown)
    end
end

-- Система перехода на сервер
local serverHopTime = 0

local function findNewServer()
    local success, result = pcall(function()
        return HttpService:JSONDecode(game:HttpGet("https://games.roblox.com/v1/games/"..game.PlaceId.."/servers/Public?limit=100"))
    end)

    if success and result.data then
        for _, server in ipairs(result.data) do
            if server.playing < server.maxPlayers and server.id ~= game.JobId then
                return server.id
            end
        end
    end
    return nil
end

local function serverHop()
    local newJobId = findNewServer()
    if newJobId then
        TeleportService:TeleportToPlaceInstance(game.PlaceId, newJobId, player)
    else
        TeleportService:Teleport(game.PlaceId, player)
    end
end

local function serverHopCycle()
    while true do
        updateServerTime(SETTINGS.ServerHopInterval - serverHopTime)
        serverHopTime = serverHopTime + 1

        if serverHopTime >= SETTINGS.ServerHopInterval then
            updateStatus("Переход на новый сервер...", SETTINGS.ColorWarning)
            wait(2)
            serverHop()
            break
        end

        wait(1)
    end
end

-- Основная система фарма
local isRunning = true -- Автоматически включен

local function teleportToBundle(bundle)
    local character = player.Character
    if not character then return false end

    local humanoidRootPart = character:FindFirstChild("HumanoidRootPart")
    if not humanoidRootPart then return false end

    if not bundle or not bundle.PrimaryPart then return false end

    -- Телепортация немного выше монеты
    local targetCFrame = bundle.PrimaryPart.CFrame + Vector3.new(0, SETTINGS.TeleportHeight, 0)
    humanoidRootPart.CFrame = targetCFrame

    -- Движение вперед-назад
    local humanoid = character:FindFirstChildOfClass("Humanoid")
    if humanoid then
        humanoid.WalkSpeed = SETTINGS.WalkSpeed
        humanoid:Move(Vector3.new(1, 0, 0))
        wait(SETTINGS.ForwardTime)
        humanoid:Move(Vector3.new(-1, 0, 0))
        wait(SETTINGS.BackwardTime)
        humanoid:Move(Vector3.new(0, 0, 0))
    end

    return true
end

local function farmLoop()
    while isRunning do
        local cashBundles = workspace:FindFirstChild("Game") and
                          workspace.Game:FindFirstChild("Entities") and
                          workspace.Game.Entities:FindFirstChild("CashBundle")

        if cashBundles then
            local bundles = {}

            -- Собираем все доступные монеты
            for _, bundle in ipairs(cashBundles:GetChildren()) do
                if bundle:IsA("Model") and bundle.PrimaryPart then
                    table.insert(bundles, bundle)
                end
            end

            updateBundles(#bundles)

            -- Телепортируемся к каждой монете
            for _, bundle in ipairs(bundles) do
                if not isRunning then break end
                if teleportToBundle(bundle) then
                    wait(SETTINGS.TeleportDelay)
                end
            end
        else
            updateStatus("Монеты не найдены", SETTINGS.ColorWarning)
        end

        wait(SETTINGS.SearchInterval)
    end
end

-- Обработчики кнопок
toggleBtn.MouseButton1Click:Connect(function()
    animateButton(toggleBtn, isRunning and SETTINGS.ColorSuccess or SETTINGS.ColorError)
    isRunning = not isRunning

    if isRunning then
        toggleBtn.Text = "ОСТАНОВИТЬ"
        toggleBtn.BackgroundColor3 = SETTINGS.ColorError
        updateStatus("Работает", SETTINGS.ColorSuccess)
    else
        toggleBtn.Text = "ЗАПУСТИТЬ"
        toggleBtn.BackgroundColor3 = SETTINGS.ColorSuccess
        updateStatus("Остановлено", SETTINGS.ColorError)
    end
end)

closeBtn.MouseButton1Click:Connect(function()
    gui:Destroy()
end)

-- Восстановление после смерти
player.CharacterAdded:Connect(function(character)
    if isRunning then
        wait(3) -- Даем время на появление персонажа
        updateStatus("Работает", SETTINGS.ColorSuccess)
    end
end)

-- Автоматический запуск всех систем
spawn(farmLoop)
spawn(noclipCycle)
spawn(serverHopCycle)
updateStatus("Автозапуск...", SETTINGS.ColorSuccess)
wait(2)
updateStatus("Работает", SETTINGS.ColorSuccess)