re heads please

Script source Luau

Copy Script

-- [[ BloxScripts Risk Notice ]]
-- This script has not been verified by BloxScripts.fun. Deal with caution.
--
-- Stay safe:
--   • Never log in on unofficial Roblox sites or lookalike domains.
--   • Real Roblox links use roblox.com (check the .com ending).
--   • Treat fake Roblox login / "claim reward" pages as phishing.
-- [[ End BloxScripts Risk Notice ]]

-- ============================================
-- Candy2026 自動撿取 v19
-- - 移除反掛機
-- - 嚴格「兩次 TP」: 去一趟 + 回一趟，中間絕不亂跳
-- ============================================

local AlanUI = loadstring(game:HttpGet("https://raw.githubusercontent.com/alanbeikers9/AlanUI/main/AlanUI.lua"))()

local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local RunService = game:GetService("RunService")
local Stats = game:GetService("Stats")

local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local rootPart = character:WaitForChild("HumanoidRootPart")

-- ========== 設定 ==========
local TP_OFFSET            = Vector3.new(0, 0.5, 0)
local TP_STAND_DELAY       = 0.15    -- 傳過去後站著等的時間
local RETURN_DELAY         = 0.2     -- 最多等糖果消失的時間
local POST_RETURN_COOLDOWN = 0.4     -- 回原位後的冷卻
local SCAN_INTERVAL        = 0.25

local RETURN_ENABLED       = true
local RIDE_HEIGHT          = 3

local ESP_ENABLED          = true
local ESP_COLOR            = Color3.fromRGB(255, 100, 200)
local ESP_FILL_ALPHA       = 0.4
local ESP_TEXT             = "🍬"

-- ========== 狀態 ==========
local running = false
local collectCount = 0
local processedObjects = {}   -- 🆕 永久黑名單: 處理過的糖果物件
local lastScan = 0
local startTime = nil
local elapsed = 0
local fpsFrameCount = 0
local fpsLastTime = tick()
local currentFPS = 0
local currentPing = 0

local ridingTarget = nil
local currentWeld = nil

local isTeleporting = false
local returnToken = 0
local lastReturnTime = 0
local espCache = {}
local selectedPlayer = nil

-- ========== Remote ==========
local candy = ReplicatedStorage:FindFirstChild("Candy2026")
local remote = candy and candy:FindFirstChild("Remote")
if not remote then warn("[AutoPick] ❌ 找不到 Remote"); return end

-- ============================================
-- 工具函式
-- ============================================
local function getCandyFolder()
    return workspace:FindFirstChild("LocalCandy2026")
end
local candyFolder = getCandyFolder()

local function getPrecisePos(obj)
    if obj:IsA("BasePart") then return obj.Position end
    if not obj:IsA("Model") then return nil end
    if obj.PrimaryPart then return obj.PrimaryPart.Position end
    local sum, count = Vector3.zero, 0
    for _, part in ipairs(obj:GetChildren()) do
        if part:IsA("BasePart") then
            sum = sum + part.Position
            count += 1
        end
    end
    if count > 0 then return sum / count end
    return nil
end

local function getRoot()
    if not character or not character.Parent then
        character = player.Character
        if not character then return nil end
    end
    local rp = character:FindFirstChild("HumanoidRootPart")
    if rp then rootPart = rp end
    return rootPart
end

local function formatTime(sec)
    sec = math.floor(sec)
    local h = math.floor(sec / 3600)
    local m = math.floor((sec % 3600) / 60)
    local s = sec % 60
    return string.format("%02d:%02d:%02d", h, m, s)
end

-- ============================================
-- 糖果透視
-- ============================================
local function clearESP(obj)
    local data = espCache[obj]
    if not data then return end
    if data.highlight then data.highlight:Destroy() end
    if data.billboard then data.billboard:Destroy() end
    espCache[obj] = nil
end

local function clearAllESP()
    for obj, _ in pairs(espCache) do clearESP(obj) end
    espCache = {}
end

local function createESP(obj)
    if not obj or not obj.Parent then return end
    if espCache[obj] then return end

    local targetPart = obj.PrimaryPart or obj:FindFirstChildWhichIsA("BasePart")
    if not targetPart then return end

    local highlight = Instance.new("Highlight")
    highlight.Name = "AutoPickESP"
    highlight.Adornee = obj
    highlight.FillColor = ESP_COLOR
    highlight.OutlineColor = ESP_COLOR
    highlight.FillTransparency = 1 - ESP_FILL_ALPHA
    highlight.OutlineTransparency = 0
    highlight.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
    highlight.Parent = obj

    local billboard = Instance.new("BillboardGui")
    billboard.Name = "AutoPickBillboard"
    billboard.Adornee = targetPart
    billboard.Size = UDim2.new(0, 80, 0, 30)
    billboard.StudsOffset = Vector3.new(0, 2.5, 0)
    billboard.AlwaysOnTop = true
    billboard.MaxDistance = 300
    billboard.Parent = obj

    local textLabel = Instance.new("TextLabel")
    textLabel.Size = UDim2.new(1, 0, 0.6, 0)
    textLabel.BackgroundTransparency = 1
    textLabel.Text = ESP_TEXT
    textLabel.TextColor3 = ESP_COLOR
    textLabel.TextStrokeTransparency = 0
    textLabel.TextStrokeColor3 = Color3.fromRGB(0, 0, 0)
    textLabel.Font = Enum.Font.GothamBold
    textLabel.TextScaled = true
    textLabel.Parent = billboard

    local distLabel = Instance.new("TextLabel")
    distLabel.Size = UDim2.new(1, 0, 0.4, 0)
    distLabel.Position = UDim2.new(0, 0, 0.6, 0)
    distLabel.BackgroundTransparency = 1
    distLabel.Text = "0m"
    distLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
    distLabel.TextStrokeTransparency = 0
    distLabel.TextStrokeColor3 = Color3.fromRGB(0, 0, 0)
    distLabel.Font = Enum.Font.Gotham
    distLabel.TextScaled = true
    distLabel.Parent = billboard

    espCache[obj] = {
        highlight = highlight,
        billboard = billboard,
        distLabel = distLabel,
    }
end

local function updateESP()
    if not ESP_ENABLED then
        clearAllESP()
        return
    end
    local folder = candyFolder
    if not folder or not folder.Parent then
        folder = getCandyFolder()
        candyFolder = folder
    end
    if not folder then return end

    local seen = {}
    for _, obj in ipairs(folder:GetChildren()) do
        if obj:IsA("Model") then
            seen[obj] = true
            if not espCache[obj] then createESP(obj) end
        end
    end
    for obj, _ in pairs(espCache) do
        if not seen[obj] or not obj.Parent then clearESP(obj) end
    end
end

local function updateESPDistance()
    if not ESP_ENABLED then return end
    local rp = getRoot()
    if not rp then return end
    local myPos = rp.Position
    for obj, data in pairs(espCache) do
        if obj.Parent and data.distLabel then
            local targetPart = obj.PrimaryPart or obj:FindFirstChildWhichIsA("BasePart")
            if targetPart then
                local d = (targetPart.Position - myPos).Magnitude
                data.distLabel.Text = string.format("%.0fm", d)
            end
        end
    end
end

-- ============================================
-- 🎯 嚴格兩次 TP (去 + 回)
-- ============================================
local function strictTeleport(obj, pos)
    -- 三重鎖
    if isTeleporting then return false end

    local now = os.clock()
    if now - lastReturnTime < POST_RETURN_COOLDOWN then return false end

    local rp = getRoot()
    if not rp then return false end

    -- 🔒 立刻上鎖, 整個流程只有這裡和 task.spawn 裡能動
    isTeleporting = true
    returnToken += 1
    local myToken = returnToken

    -- 記住原位
    local originalCF = rp.CFrame
    local targetPos = pos + TP_OFFSET
    local dist = (targetPos - originalCF.Position).Magnitude
    local shouldReturn = RETURN_ENABLED and dist <= 1000

    -- 🚀 TP #1: 傳過去
    rp.CFrame = CFrame.new(targetPos)
    rp.AssemblyLinearVelocity = Vector3.zero
    rp.AssemblyAngularVelocity = Vector3.zero

    -- 非同步流程: 站一下 → 等糖果消失 → TP #2 回原位
    task.spawn(function()
        -- 站著讓伺服器判定觸發
        task.wait(TP_STAND_DELAY)

        -- 等糖果消失 (最多 RETURN_DELAY)
        local checkStart = tick()
        while tick() - checkStart < RETURN_DELAY do
            if not obj or not obj.Parent then
                break
            end
            task.wait(0.02)
        end

        -- 再多站一點, 確保加錢結算完成
        task.wait(0.05)

        -- 🔙 TP #2: 傳回原位 (只有 token 還是我的 + 沒在騎乘時)
        if shouldReturn and myToken == returnToken and running and not ridingTarget then
            local rp2 = getRoot()
            if rp2 then
                rp2.CFrame = originalCF
                rp2.AssemblyLinearVelocity = Vector3.zero
                rp2.AssemblyAngularVelocity = Vector3.zero
            end
        end

        -- 記錄回原位時間 (給冷卻用)
        lastReturnTime = os.clock()

        -- 🔓 解鎖
        if myToken == returnToken then
            isTeleporting = false
        end
    end)

    return true
end

-- ============================================
-- 騎乘功能
-- ============================================
local function stopRiding()
    if currentWeld then
        pcall(function() currentWeld:Destroy() end)
        currentWeld = nil
    end
    if character then
        local hum = character:FindFirstChildOfClass("Humanoid")
        if hum then hum.PlatformStand = false end
    end
    ridingTarget = nil
    if _G.__updateRideStatus then _G.__updateRideStatus(nil) end
end

local function startRiding(targetPlayer)
    if currentWeld then
        pcall(function() currentWeld:Destroy() end)
        currentWeld = nil
    end
    ridingTarget = nil

    if not targetPlayer or targetPlayer == player then return end

    local myChar = player.Character
    local myRoot = myChar and myChar:FindFirstChild("HumanoidRootPart")
    if not myRoot then return end

    local targetChar = targetPlayer.Character
    local targetHead = targetChar and targetChar:FindFirstChild("Head")
    if not targetHead then return end

    myRoot.CFrame = CFrame.new(targetHead.Position + Vector3.new(0, RIDE_HEIGHT, 0))
    myRoot.AssemblyLinearVelocity = Vector3.zero
    myRoot.AssemblyAngularVelocity = Vector3.zero

    task.wait(0.1)
    if not targetHead.Parent then return end

    local weld = Instance.new("WeldConstraint")
    weld.Part0 = myRoot
    weld.Part1 = targetHead
    weld.Parent = myRoot

    currentWeld = weld
    ridingTarget = targetPlayer
    if _G.__updateRideStatus then _G.__updateRideStatus(targetPlayer.Name) end
end

-- ============================================
-- 主循環
-- ============================================
RunService.Heartbeat:Connect(function()
    -- FPS / Ping
    fpsFrameCount += 1
    local now = tick()
    if now - fpsLastTime >= 1 then
        currentFPS = fpsFrameCount
        fpsFrameCount = 0
        fpsLastTime = now
    end

    pcall(function()
        local ps = Stats:FindFirstChild("PerformanceStats")
        if ps and ps:FindFirstChild("Ping") then
            currentPing = math.floor(tonumber(ps.Ping:GetValue()) or 0)
        end
    end)

    -- 騎乘維護
    if ridingTarget then
        if not ridingTarget.Parent then
            stopRiding()
        elseif not currentWeld or not currentWeld.Parent then
            local myChar = player.Character
            local myRoot = myChar and myChar:FindFirstChild("HumanoidRootPart")
            local targetChar = ridingTarget.Character
            local targetHead = targetChar and targetChar:FindFirstChild("Head")
            if myRoot and targetHead then
                local weld = Instance.new("WeldConstraint")
                weld.Part0 = myRoot
                weld.Part1 = targetHead
                weld.Parent = myRoot
                currentWeld = weld
            end
        end
    end

    -- 透視
    updateESP()
    if not _G.__lastESPDist or tick() - _G.__lastESPDist > 0.2 then
        _G.__lastESPDist = tick()
        updateESPDistance()
    end

    if not running then return end
    now = os.clock()

    if startTime then
        elapsed = now - startTime
    end

    -- 騎乘中不撿取
    if ridingTarget then return end

    -- 🔒 TP 中完全不掃描 (這是關鍵! 防止亂 TP)
    if isTeleporting then return end

    -- 回原位後的冷卻
    if now - lastReturnTime < POST_RETURN_COOLDOWN then return end

    -- 掃描節流
    if now - lastScan < SCAN_INTERVAL then return end
    lastScan = now

    local rp = getRoot()
    if not rp then return end

    if not candyFolder or not candyFolder.Parent then
        candyFolder = getCandyFolder()
        if not candyFolder then return end
    end

    local myPos = rp.Position
    local closest, closestDist, closestObj = nil, math.huge, nil

    for _, obj in ipairs(candyFolder:GetChildren()) do
        if obj:IsA("Model") then
            -- 🆕 用物件本身當 key, 處理過就永不再選
            if not processedObjects[obj] then
                local pos = getPrecisePos(obj)
                if pos then
                    local d = (pos - myPos).Magnitude
                    if d < closestDist then
                        closest, closestDist, closestObj = pos, d, obj
                    end
                end
            end
        end
    end

    if closest then
        -- 立刻標記為已處理 (即使後面 TP 失敗也不重試)
        processedObjects[closestObj] = true

        if strictTeleport(closestObj, closest) then
            collectCount += 1
            if _G.__updateCount then _G.__updateCount(collectCount) end
        end
    end
end)

-- ============================================
-- 清理: 移除已消失的物件 (從黑名單)
-- ============================================
task.spawn(function()
    while true do
        task.wait(3)
        for obj, _ in pairs(processedObjects) do
            if not obj.Parent then
                processedObjects[obj] = nil
            end
        end
    end
end)

-- 收到 Add 事件: 清空黑名單 (新一批糖果出現)
remote.OnClientEvent:Connect(function(...)
    local args = {...}
    if args[1] == "Add" then
        processedObjects = {}
    end
end)

-- ============================================
-- 建立 AlanUI
-- ============================================
local Ventana = AlanUI:CrearVentana({
    Titulo       = "🍬 Candy2026 自動撿取",
    Subtitulo    = "v19 · Strict 2-TP",
    TamanoX      = 500,
    TamanoY      = 460,
    TeclaToggle  = Enum.KeyCode.RightControl,
    Buscador     = true,
    AutoGuardar  = true,
    NombreConfig = "Candy2026_AutoPick_v19",
})

local TabMain = Ventana:CrearTab("主控台", "🏠")
local TabRide = Ventana:CrearTab("騎乘", "🎯")

local SecStatus  = TabMain:CrearSeccion("📊 狀態")
local SecControl = TabMain:CrearSeccion("🎮 控制")
local SecESP     = TabMain:CrearSeccion("👁 糖果透視")
local SecReturn  = TabMain:CrearSeccion("🔙 撿完回原位")
local SecRide    = TabRide:CrearSeccion("🎯 坐在玩家頭上")

-- 狀態
SecStatus:Label({
    Texto = "運行狀態", Flag = "status_run", Valor = "⛔ 已停止",
})
SecStatus:Label({
    Texto = "運行時間", Flag = "status_timer", Valor = "00:00:00",
})
SecStatus:Label({
    Texto = "已傳送", Flag = "status_count", Valor = "0",
})
SecStatus:Label({
    Texto = "FPS", Flag = "status_fps", Valor = "60",
    Cada = 0.5,
    Actualizar = function() return tostring(currentFPS) end,
})
SecStatus:Label({
    Texto = "Ping", Flag = "status_ping", Valor = "0 ms",
    Cada = 1,
    Actualizar = function() return tostring(currentPing) .. " ms" end,
})

-- 控制
SecControl:Toggle({
    Texto = "▶ 啟動自動撿取",
    Flag = "auto_start",
    Defecto = false,
    Callback = function(on)
        running = on
        if on then
            collectCount = 0
            processedObjects = {}
            startTime = os.clock()
            isTeleporting = false
            lastReturnTime = 0
            returnToken += 1
            AlanUI:ActualizarLabel("status_run", "✅ 運行中")
            AlanUI:ActualizarLabel("status_count", "0")
            AlanUI:Notificar({
                Titulo = "已啟動",
                Texto = "嚴格兩次 TP 模式",
                Tipo = "Success",
                Duracion = 3,
            })
        else
            returnToken += 1
            isTeleporting = false
            AlanUI:ActualizarLabel("status_run", "⛔ 已停止")
            AlanUI:Notificar({
                Titulo = "已停止",
                Texto = string.format("本次運行 %s", formatTime(elapsed)),
                Tipo = "Info",
                Duracion = 3,
            })
        end
    end,
})

-- 透視
SecESP:Toggle({
    Texto = "👁 啟用糖果透視",
    Flag = "esp_enabled",
    Defecto = true,
    Callback = function(on)
        ESP_ENABLED = on
        if not on then clearAllESP() end
    end,
})

SecESP:Slider({
    Texto = "透視距離",
    Flag = "esp_max_distance",
    Min = 50, Max = 1000, Incremento = 50,
    Defecto = 300, Sufijo = " studs",
    Callback = function(v)
        for _, data in pairs(espCache) do
            if data.billboard then data.billboard.MaxDistance = v end
        end
    end,
})

-- 回原位
SecReturn:Toggle({
    Texto = "🔙 撿完回原位",
    Flag = "return_enabled",
    Defecto = true,
    Callback = function(on)
        RETURN_ENABLED = on
        if not on then returnToken += 1 end
    end,
})

SecReturn:Slider({
    Texto = "傳送後站著等 (秒)",
    Flag = "tp_stand",
    Min = 0.05, Max = 0.5, Incremento = 0.05,
    Defecto = 0.15, Sufijo = " 秒",
    Callback = function(v) TP_STAND_DELAY = v end,
})

SecReturn:Slider({
    Texto = "等糖果消失 (秒)",
    Flag = "return_delay",
    Min = 0.1, Max = 1, Incremento = 0.05,
    Defecto = 0.2, Sufijo = " 秒",
    Callback = function(v) RETURN_DELAY = v end,
})

SecReturn:Slider({
    Texto = "回原位後冷卻 (秒)",
    Flag = "post_return_cd",
    Min = 0.1, Max = 2, Incremento = 0.1,
    Defecto = 0.4, Sufijo = " 秒",
    Callback = function(v) POST_RETURN_COOLDOWN = v end,
})

-- 騎乘
local rideDropdown = SecRide:Dropdown({
    Texto = "選擇目標玩家",
    Flag = "ride_target",
    Opciones = {"(無)"},
    Defecto = "(無)",
    Callback = function(v)
        if v == "(無)" then
            selectedPlayer = nil
            return
        end
        for _, p in ipairs(Players:GetPlayers()) do
            if p.Name == v then
                selectedPlayer = p
                break
            end
        end
    end,
})

local function refreshPlayerDropdown()
    local list = {"(無)"}
    for _, p in ipairs(Players:GetPlayers()) do
        if p ~= player then table.insert(list, p.Name) end
    end
    rideDropdown.ActualizarOpciones(list)
end

refreshPlayerDropdown()
Players.PlayerAdded:Connect(function() task.wait(0.5) refreshPlayerDropdown() end)
Players.PlayerRemoving:Connect(function() task.wait(0.5) refreshPlayerDropdown() end)

SecRide:Toggle({
    Texto = "🎯 啟動騎乘",
    Flag = "ride_enabled",
    Defecto = false,
    Callback = function(on)
        if on then
            if not selectedPlayer then
                AlanUI:Notificar({
                    Titulo = "⚠ 未選擇玩家",
                    Texto = "請先從上方下拉選擇目標",
                    Tipo = "Warning",
                    Duracion = 3,
                })
                return
            end
            if not selectedPlayer.Parent then
                AlanUI:Notificar({
                    Titulo = "⚠ 玩家離線",
                    Texto = "請重新選擇目標",
                    Tipo = "Warning",
                    Duracion = 3,
                })
                selectedPlayer = nil
                return
            end
            startRiding(selectedPlayer)
            if ridingTarget then
                AlanUI:ActualizarLabel("ride_status", "🎯 騎乘中: " .. ridingTarget.Name)
                AlanUI:Notificar({
                    Titulo = "已開始騎乘",
                    Texto = ridingTarget.Name,
                    Tipo = "Success",
                    Duracion = 3,
                })
            end
        else
            stopRiding()
            AlanUI:ActualizarLabel("ride_status", "目前無目標")
        end
    end,
})

SecRide:Label({
    Texto = "目前狀態", Flag = "ride_status", Valor = "目前無目標",
})

SecRide:Slider({
    Texto = "騎乘高度",
    Flag = "ride_height",
    Min = 1, Max = 10, Incremento = 0.5,
    Defecto = 3, Sufijo = " studs",
    Callback = function(v) RIDE_HEIGHT = v end,
})

-- ============================================
-- 更新函式
-- ============================================
_G.__updateCount = function(n)
    AlanUI:ActualizarLabel("status_count", tostring(n))
end

_G.__updateRideStatus = function(name)
    if name then
        AlanUI:ActualizarLabel("ride_status", "🎯 騎乘中: " .. name)
    else
        AlanUI:ActualizarLabel("ride_status", "目前無目標")
    end
end

task.spawn(function()
    while true do
        task.wait(0.5)
        if running and startTime then
            AlanUI:ActualizarLabel("status_timer", formatTime(elapsed))
        end
    end
end)

player.CharacterAdded:Connect(function(c)
    character = c
    rootPart = c:WaitForChild("HumanoidRootPart", 10)
    if ridingTarget then
        task.wait(0.5)
        startRiding(ridingTarget)
    end
end)

AlanUI:Notificar({
    Titulo = "🍬 Candy2026 已載入",
    Texto = "按 RightCtrl 開關介面",
    Tipo = "Success",
    Duracion = 5,
})

print("[AutoPick] v19 已載入 ✅ (嚴格兩次 TP, 無反掛機)")

Review the source before using it. Executions count successful copies, capped at 10 per user and network per script in 24 hours.