Fast Farm 2

local services = {
    players = game:GetService("Players"),
    replicatedstorage = game:GetService("ReplicatedStorage"),
    runservice = game:GetService("RunService"),
    tws = game:GetService("TweenService"),
    userinputservice = game:GetService("UserInputService"),
    httpservice = game:GetService("HttpService"),
    virtualuser = game:GetService("VirtualUser"),
    virtualinputmanager = game:GetService("VirtualInputManager"),
    lighting = game:GetService("Lighting"),
    startergui = game:GetService("StarterGui"),
    stats = game:GetService("Stats")
}

local lp = {
    player = services.players.LocalPlayer,
    userid = services.players.LocalPlayer.UserId,
    username = services.players.LocalPlayer.Name,
    displayname = services.players.LocalPlayer.DisplayName
}

-- Zarządzanie połączeniami (Janitor / Cleaning pattern)
local Connections = {}
local function cleanConnections()
    for _, conn in ipairs(Connections) do
        if conn and conn.Connected then
            conn:Disconnect()
        end
    end
    table.clear(Connections)
end

-- Anti-AFK
table.insert(Connections, lp.player.Idled:Connect(function()
    services.virtualinputmanager:SendKeyEvent(true, Enum.KeyCode.Y, false, game)
    task.wait(0.05)
    services.virtualinputmanager:SendKeyEvent(false, Enum.KeyCode.Y, false, game)
end))

-- Usuwanie reklam
function deleteAds()
    for _, portal in ipairs(workspace:GetDescendants()) do
        if portal.Name == "RobloxForwardPortals" then
            portal:Destroy()
        end
    end
    if _G.adsConnection then
        _G.adsConnection:Disconnect()
    end

    _G.adsConnection = workspace.DescendantAdded:Connect(function(descendant)
        if descendant.Name == "RobloxForwardPortals" then
            descendant:Destroy()
        end
    end)
end
deleteAds()

function deleteBodyMovementScript()
    if lp.player.Character and lp.player.Character:FindFirstChild("bodyMovementScript") then
        lp.player.Character.bodyMovementScript:Destroy()
    end
end
deleteBodyMovementScript()

services.muscleEvent = lp.player:WaitForChild("muscleEvent", 10)
local library = loadstring(game:HttpGet("https://gist.githubusercontent.com/vyuxaqx/e041d7f5912c4dd2f65fe2d4f63f1641/raw/ab75c61265078b5a024f0e9e2e9a8afdcf696fde/eleriumLibraryMod.luau", true))()
local silence, silenceWindow = library:AddWindow("Neutron", {
    main_color = Color3.fromRGB(135, 45, 90),
    min_size = Vector2.new(500, 400),
    can_resize = false
})

local tabs = {
    rebirths = silence:AddTab("Rebirths"),
    strength2 = silence:AddTab("Fast Farm"),
    other = silence:AddTab("Other"),
}

tabs.other:Show()

function formatNumber(num)
    if not num then return "0" end
    if num >= 1e18 then return string.format("%.2fQi", num/1e18) end
    if num >= 1e15 then return string.format("%.2fQa", num/1e15) end
    if num >= 1e12 then return string.format("%.2fT", num/1e12) end
    if num >= 1e9 then return string.format("%.2fB", num/1e9) end
    if num >= 1e6 then return string.format("%.2fM", num/1e6) end
    if num >= 1e3 then return string.format("%.2fK", num/1e3) end
    return string.format("%.0f", num)
end

function formatDuration(seconds)
    seconds = math.max(0, math.floor(seconds))
    return string.format("%dd %dh %dm %ds",
        math.floor(seconds / 86400),
        math.floor((seconds % 86400) / 3600),
        math.floor((seconds % 3600) / 60),
        seconds % 60
    )
end

-- ==================== REBIRTH TAB ====================
local rb = tabs.rebirths
rb.leaderstats = lp.player:WaitForChild("leaderstats")
rb.rebirths = rb.leaderstats:WaitForChild("Rebirths")
rb.strength = rb.leaderstats:WaitForChild("Strength")

rb.target = nil
rb.autoTarget = false
rb.infinite = false
rb.running = false
rb.workerActive = false
rb.samples = {}
rb.lastGainAt = tick()
rb.lastValue = rb.rebirths.Value
rb.startValue = rb.rebirths.Value

rb.Status = rb:AddLabel("Status: Inactive")
rb.Count = rb:AddLabel("Rebirths: " .. formatNumber(rb.rebirths.Value))
rb.Objective = rb:AddLabel("Target: --")
rb.Remaining = rb:AddLabel("Remaining: --")
rb.Eta = rb:AddLabel("Time: --")
rb.Cycle = rb:AddLabel("Cycle: --")
rb.Status.TextColor3 = Color3.fromRGB(255, 80, 80)

local function parseNumber(text)
    local cleaned = (tostring(text or ""):gsub("[%s,%.]", ""))
    return tonumber(cleaned)
end

local function setStatus(text, color)
    rb.Status.Text = "Status: " .. text
    rb.Status.TextColor3 = color
end

local function getRate()
    if #rb.samples < 2 then return nil end
    local totalTime, totalGain = 0, 0
    for _, s in ipairs(rb.samples) do
        totalTime = totalTime + s.time
        totalGain = totalGain + s.gain
    end
    if totalTime <= 0 or totalGain <= 0 then return nil end
    return totalGain / totalTime, totalTime / #rb.samples, totalGain / #rb.samples
end

local function resetEstimator()
    rb.samples = {}
    rb.lastGainAt = tick()
    rb.lastValue = rb.rebirths.Value
    rb.startValue = rb.rebirths.Value
end

table.insert(Connections, rb.rebirths:GetPropertyChangedSignal("Value"):Connect(function()
    local value = rb.rebirths.Value
    if rb.running and value > rb.lastValue then
        local now = tick()
        table.insert(rb.samples, { time = now - rb.lastGainAt, gain = value - rb.lastValue })
        if #rb.samples > 5 then
            table.remove(rb.samples, 1)
        end
        rb.lastGainAt = now
    end
    rb.lastValue = value
end))

rb.updateLabels = function()
    local current = rb.rebirths.Value
    rb.Count.Text = "Rebirths: " .. formatNumber(current) .. " | Gained: " .. formatNumber(current - rb.startValue)

    if rb.target and not rb.infinite then
        rb.Objective.Text = "Target: " .. formatNumber(rb.target)
    else
        rb.Objective.Text = "Target: --"
    end

    if rb.autoTarget and rb.target then
        local remaining = math.max(0, rb.target - current)
        local rate, cycleTime, cycleGain = getRate()
        rb.Remaining.Text = "Remaining: " .. formatNumber(remaining)

        if remaining <= 0 then
            rb.Eta.Text = "Time: Target reached"
        elseif rate then
            rb.Eta.Text = "Time: " .. formatDuration(remaining / rate)
        else
            rb.Eta.Text = "Time: Calculating..."
        end

        if cycleTime then
            rb.Cycle.Text = string.format("Cycle: %.2fs | +%s | Samples: %d", cycleTime, formatNumber(math.floor(cycleGain + 0.5)), #rb.samples)
        else
            rb.Cycle.Text = "Measuring cycles: " .. #rb.samples .. "/2"
        end
    else
        rb.Remaining.Text = "Remaining: --"
        rb.Eta.Text = "Time: --"
        rb.Cycle.Text = "Cycle: --"
    end
end

rb.performRebirth = function()
    local strengthTarget = 5000 + rb.rebirths.Value * 2550

    if rb.running and rb.strength.Value >= strengthTarget then
        local before = rb.rebirths.Value
        repeat
            services.replicatedstorage.rEvents.rebirthRemote:InvokeServer("rebirthRequest")
            task.wait(0.05)
        until rb.rebirths.Value > before or not rb.running
    end
end

rb.stopAll = function()
    rb.autoTarget = false
    rb.infinite = false
    rb.running = false
end

rb.startWorker = function()
    if rb.workerActive then return end
    rb.workerActive = true

    task.spawn(function()
        while rb.running do
            if rb.autoTarget and rb.target and rb.rebirths.Value >= rb.target then
                rb.stopAll()
                rb.switching = true
                rb.targetSwitch:Set(false)
                rb.switching = false
                setStatus("Target reached", Color3.fromRGB(80, 200, 255))
                break
            end

            rb.performRebirth()
            task.wait(0.1)
        end
        rb.workerActive = false
    end)
end

rb.begin = function(statusText)
    resetEstimator()
    rb.running = true
    setStatus(statusText, Color3.fromRGB(80, 255, 120))
    rb.startWorker()
end

rb.finish = function()
    rb.running = false
    setStatus("Paused", Color3.fromRGB(255, 180, 70))
end

rb:AddTextBox("Rebirth target (e.g. 18980)", function(text)
    local parsed = parseNumber(text)
    rb.target = (parsed and parsed > 0) and parsed or nil
    rb.updateLabels()
end)

rb.targetSwitch = rb:AddSwitch("Rebirth until target", function(state)
    if rb.switching then return end
    if state then
        if not rb.target then
            setStatus("Set a target first!", Color3.fromRGB(255, 80, 80))
            rb.switching = true
            rb.targetSwitch:Set(false)
            rb.switching = false
            return
        end
        rb.infinite = false
        rb.autoTarget = true
        rb.switching = true
        rb.infiniteSwitch:Set(false)
        rb.switching = false
        rb.begin("Rebirthing to target")
    else
        rb.autoTarget = false
        if not rb.infinite then rb.finish() end
    end
end)

rb.infiniteSwitch = rb:AddSwitch("Infinite Rebirths", function(state)
    if rb.switching then return end
    if state then
        rb.autoTarget = false
        rb.infinite = true
        rb.switching = true
        rb.targetSwitch:Set(false)
        rb.switching = false
        rb.begin("Rebirthing (infinite)")
    else
        rb.infinite = false
        if not rb.autoTarget then rb.finish() end
    end
end)

rb.targetSwitch:Set(false)
rb.infiniteSwitch:Set(false)

task.spawn(function()
    while silenceWindow do
        rb.updateLabels()
        task.wait(0.5)
    end
end)

-- ==================== STRENGTH TAB ====================
local str = tabs.strength2
str.running = false
str.workerActive = false
str.startedAt = 0
str.totalElapsed = 0
str.timerStarted = false
str.repSpeed = 40
str.pingControl = true
str.currentPing = 0
str.Status = str:AddLabel("Status: Inactive")
str.Runtime = str:AddLabel("Runtime: 0d 0h 0m 0s")
str.Status.TextColor3 = Color3.fromRGB(255, 80, 80)
str.leaderstats = lp.player:WaitForChild("leaderstats")
str.strength = str.leaderstats:WaitForChild("Strength")
str.startStrength = str.strength.Value
str.StrengthStats = str:AddLabel("Strength: " .. formatNumber(str.strength.Value) .. " | Gained: 0")

str.updateStats = function()
    str.StrengthStats.Text = "Strength: " .. formatNumber(str.strength.Value)
        .. " | Gained: " .. formatNumber(str.strength.Value - str.startStrength)
end

table.insert(Connections, str.strength:GetPropertyChangedSignal("Value"):Connect(function()
    str.updateStats()
end))

str.updateRuntime = function()
    local elapsed = str.totalElapsed
    if str.running and str.timerStarted then
        elapsed = elapsed + tick() - str.startedAt
    end
    str.Runtime.Text = string.format("Runtime: %dd %dh %dm %ds",
        math.floor(elapsed / 86400),
        math.floor((elapsed % 86400) / 3600),
        math.floor((elapsed % 3600) / 60),
        math.floor(elapsed % 60)
    )
end

str.networkStats = services.stats.Network.ServerStatsItem["Data Ping"]

str.getCurrentPing = function()
    return str.networkStats:GetValue()
end

str.getAdaptiveSpeed = function(ping)
    if ping < 80 then return 500
    elseif ping < 150 then return 300
    elseif ping < 250 then return 100
    end
    return 50
end

str.workerLoop = function()
    str.lastPingUpdate = time()
    str.currentPing = str.getCurrentPing()

    while str.running do
        if time() - str.lastPingUpdate > 0.5 then
            str.currentPing = str.getCurrentPing()
            str.lastPingUpdate = time()
        end

        local repsToFire = str.pingControl and str.getAdaptiveSpeed(str.currentPing) or str.repSpeed
        repsToFire = math.min(repsToFire, str.repSpeed)
        local delayBetweenBatches = math.clamp(str.currentPing / 2500, 0.001, 0.1)

        str.Status.Text = "Status: Farming | " .. formatNumber(repsToFire) .. " reps/batch | " .. formatNumber(str.currentPing) .. " ms"
        str.Status.TextColor3 = Color3.fromRGB(80, 255, 120)

        for repCount = 1, repsToFire do
            if not str.running then break end
            if services.muscleEvent then
                services.muscleEvent:FireServer("rep")
            end
            if repCount % 500 == 0 then
                task.wait()
            end
        end
        task.wait(delayBetweenBatches)
    end

    str.workerActive = false
end

str.startWorker = function()
    if str.workerActive then return end
    str.workerActive = true
    task.spawn(str.workerLoop)
end

str.repSpeedSlider = str:AddSlider("Reps/s", function(value)
    str.repSpeed = math.clamp(math.floor(value), 1, 100)
end, {min = 1, max = 100})
str.repSpeedSlider:Set(40)

str:AddSwitch("Controlled Speed", function(state)
    str.pingControl = state
end):Set(true)

str.FastRepToggle = str:AddSwitch("Fast Rep", function(state)
    str.running = state
    if state then
        str.timerStarted = true
        str.startedAt = tick()
        str.Status.Text = "Status: Starting..."
        str.Status.TextColor3 = Color3.fromRGB(80, 255, 120)
        str.startWorker()
    else
        if str.timerStarted and str.startedAt > 0 then
            str.totalElapsed = str.totalElapsed + tick() - str.startedAt
            str.startedAt = 0
            str.timerStarted = false
        end
        str.Status.Text = str.totalElapsed > 0 and "Status: Paused" or "Status: Inactive"
        str.Status.TextColor3 = str.totalElapsed > 0 and Color3.fromRGB(255, 180, 70) or Color3.fromRGB(255, 80, 80)
        str.updateRuntime()
    end
end)
str.FastRepToggle:Set(false)

task.spawn(function()
    while true do
        str.updateRuntime()
        task.wait(1)
    end
end)
str:AddLabel("20-50 rep speed is recommended, higher might cause lags.")

-- ==================== OTHER TAB ====================
local oth = tabs.other

oth.eggsowned = oth:AddLabel("Protein Eggs: 0")
oth.eggsowned.TextSize = 14
oth.autoEgg = false
oth.autoShake = false
oth.autoCrystal = false
oth.autoEvolve = false
oth.eatAllBoostsRunning = false
oth.evolvePetName = "Nova Phoenix"

task.spawn(function()
    while true do
        local count = 0
        local backpack = lp.player:FindFirstChild("Backpack")
        if backpack then
            for _, item in ipairs(backpack:GetChildren()) do
                if item.Name == "Protein Egg" then count = count + 1 end
            end
        end
        oth.eggsowned.Text = "Protein Eggs: " .. count
        task.wait(1)
    end
end)

oth.x2str = oth:AddLabel("x2 Strength: 00:00")
oth.x2str.TextSize = 14

task.spawn(function()
    while true do
        local boostTimers = lp.player:FindFirstChild("boostTimersFolder")
        local boost = boostTimers and boostTimers:FindFirstChild("Protein Egg")
        local seconds = (boost and boost:IsA("IntValue")) and boost.Value or 0
        oth.x2str.Text = "x2 Strength: " .. formatDuration(seconds)
        task.wait(1)
    end
end)

local function eatEgg()
    local char = lp.player.Character
    local backpack = lp.player:FindFirstChild("Backpack")
    local tool = (char and char:FindFirstChild("Protein Egg")) or (backpack and backpack:FindFirstChild("Protein Egg"))
    if tool and services.muscleEvent then
        for _ = 1, 5 do
            services.muscleEvent:FireServer("proteinEgg", tool)
        end
    end
end

task.spawn(function()
    while true do
        if oth.autoEgg then
            eatEgg()
            task.wait(0.5)
        else
            task.wait(1)
        end
    end
end)

oth:AddSwitch("Eat Eggs", function(state)
    oth.autoEgg = state
end)

local function eatShake()
    local char = lp.player.Character
    local backpack = lp.player:FindFirstChild("Backpack")
    local tool = (char and char:FindFirstChild("Tropical Shake")) or (backpack and backpack:FindFirstChild("Tropical Shake"))
    if tool and services.muscleEvent then
        services.muscleEvent:FireServer("tropicalShake", tool)
    end
end

task.spawn(function()
    while true do
        if oth.autoShake then
            eatShake()
            task.wait(150)
        else
            task.wait(1)
        end
    end
end)

oth:AddSwitch("Auto Shake", function(state)
    oth.autoShake = state
end)

-- Auto Spin Wheel
oth:AddSwitch("Spin Fortune Wheel", function(bool)
    _G.AutoSpinWheel = bool
    if bool then
        task.spawn(function()
            local rspin = services.replicatedstorage.rEvents:FindFirstChild("openFortuneWheelRemote")
            local chances = services.replicatedstorage.shared.catalogs.fortuneWheelChances["Fortune Wheel"]
            while _G.AutoSpinWheel and rspin do
                rspin:InvokeServer("openFortuneWheel", chances)
                task.wait(1)
            end
        end)
    end
end)

-- Auto Crystal
task.spawn(function()
    while true do
        if oth.autoCrystal then
            pcall(function()
                services.replicatedstorage.rEvents.openCrystalRemote:InvokeServer("openCrystalBulk", "Overcharged Crystal", 10)
            end)
            task.wait(0.2)
        else
            task.wait(1)
        end
    end
end)

oth:AddSwitch("Bulk Open Overcharged Crystal", function(state)
    oth.autoCrystal = state
end):Set(false)

-- Anti-Lag
local antiLagActive = false
oth:AddButton("Anti Lag (Optimization)", function()
    if antiLagActive then return end
    antiLagActive = true

    for _, v in ipairs(services.lighting:GetChildren()) do
        if v:IsA("Sky") or v:IsA("Atmosphere") then
            v:Destroy()
        end
    end

    local darkSky = Instance.new("Sky")
    darkSky.Name = "DarkSky"
    darkSky.SkyboxBk, darkSky.SkyboxDn, darkSky.SkyboxFt = "rbxassetid://0", "rbxassetid://0", "rbxassetid://0"
    darkSky.SkyboxLf, darkSky.SkyboxRt, darkSky.SkyboxUp = "rbxassetid://0", "rbxassetid://0", "rbxassetid://0"
    darkSky.Parent = services.lighting

    services.lighting.Brightness = 0
    services.lighting.GlobalShadows = false

    for _, obj in ipairs(workspace:GetDescendants()) do
        if obj:IsA("ParticleEmitter") or obj:IsA("PointLight") or obj:IsA("SpotLight") or obj:IsA("SurfaceLight") then
            obj:Destroy()
        elseif obj:IsA("BasePart") then
            obj.Color = Color3.new(0, 0, 0)
            obj.Material = Enum.Material.SmoothPlastic
        end
    end
end)

-- Titling & Ping Display
task.spawn(function()
    while silence do
        local ok, ping = pcall(function()
            return str.networkStats:GetValue()
        end)
        silence:SetTitle("Neutron | ping: " .. (ok and math.floor(ping) or "?") .. " ms")
        task.wait(2)
    end
end)