Auto Farm Halloween Tokens

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 ]]

--[[=====================================================
    MENU HALLOWEEN v9 by IRON
=====================================================]]

local Players      = game:GetService("Players")
local RS           = game:GetService("ReplicatedStorage")
local RunService   = game:GetService("RunService")
local UIS          = game:GetService("UserInputService")

local plr = Players.LocalPlayer
local GameRemotes  = RS:WaitForChild("Remotes"):WaitForChild("Game")
local CollectCandy = GameRemotes:WaitForChild("CollectCandy")

local CANDY_FOLDER = workspace:WaitForChild("HalloweenCandy")
local DROPOFF      = workspace:WaitForChild("CandyDropOff")

local DepositRemote
for _, r in ipairs(GameRemotes:GetChildren()) do
    if r.Name:lower():find("deposit") then DepositRemote = r break end
end

local env = (getgenv and getgenv()) or _G
if env._menuCleanup then pcall(env._menuCleanup) end
env._menuId = (env._menuId or 0) + 1
local myId = env._menuId
env.auto   = false
env.speed  = 250
env.arc    = 8
env.mode   = "near"

-- ===================== GUI =====================
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "HalloweenMenu"; screenGui.ResetOnSpawn = false
screenGui.Parent = plr:WaitForChild("PlayerGui")

local mainFrame = Instance.new("Frame")
mainFrame.Size = UDim2.fromOffset(250, 278)
mainFrame.Position = UDim2.new(0, 20, 0, 120)
mainFrame.BackgroundColor3 = Color3.fromRGB(24, 24, 30)
mainFrame.BorderSizePixel = 0; mainFrame.Active = true; mainFrame.Draggable = true
mainFrame.Parent = screenGui
Instance.new("UICorner", mainFrame).CornerRadius = UDim.new(0, 8)

local titleLabel = Instance.new("TextLabel")
titleLabel.Size = UDim2.new(1, 0, 0, 32); titleLabel.BorderSizePixel = 0
titleLabel.BackgroundColor3 = Color3.fromRGB(255, 130, 0)
titleLabel.Text = "Auto Halloween | by IRON"; titleLabel.TextColor3 = Color3.new(1,1,1)
titleLabel.Font = Enum.Font.GothamBold; titleLabel.TextSize = 15; titleLabel.Parent = mainFrame

local autoButton = Instance.new("TextButton")
autoButton.Size = UDim2.new(1, -20, 0, 44)
autoButton.Position = UDim2.new(0, 10, 0, 40)
autoButton.BorderSizePixel = 0; autoButton.TextColor3 = Color3.new(1,1,1)
autoButton.Font = Enum.Font.GothamBold; autoButton.TextSize = 17
autoButton.Text = "AUTO: OFF"; autoButton.BackgroundColor3 = Color3.fromRGB(70, 40, 40)
autoButton.Parent = mainFrame
Instance.new("UICorner", autoButton).CornerRadius = UDim.new(0, 8)

local modeButton = Instance.new("TextButton")
modeButton.Size = UDim2.new(1, -20, 0, 30)
modeButton.Position = UDim2.new(0, 10, 0, 90)
modeButton.BorderSizePixel = 0; modeButton.TextColor3 = Color3.new(1,1,1)
modeButton.Font = Enum.Font.GothamBold; modeButton.TextSize = 12
modeButton.Text = "ORDER: NEAREST TO DROPOFF"; modeButton.BackgroundColor3 = Color3.fromRGB(45, 55, 75)
modeButton.Parent = mainFrame
Instance.new("UICorner", modeButton).CornerRadius = UDim.new(0, 8)

local speedLabel = Instance.new("TextLabel")
speedLabel.Size = UDim2.new(1, -20, 0, 16)
speedLabel.Position = UDim2.new(0, 10, 0, 126)
speedLabel.BackgroundTransparency = 1
speedLabel.TextColor3 = Color3.fromRGB(220,220,220)
speedLabel.Font = Enum.Font.Gotham; speedLabel.TextSize = 12
speedLabel.TextXAlignment = Enum.TextXAlignment.Left
speedLabel.Text = "Speed: 250"; speedLabel.Parent = mainFrame

-- ---- aviso do slider ----
local warnLabel = Instance.new("TextLabel")
warnLabel.Size = UDim2.new(1, -20, 0, 32)
warnLabel.Position = UDim2.new(0, 10, 0, 160)
warnLabel.BackgroundTransparency = 1
warnLabel.TextColor3 = Color3.fromRGB(255, 200, 90)
warnLabel.Font = Enum.Font.Gotham; warnLabel.TextSize = 11
warnLabel.TextXAlignment = Enum.TextXAlignment.Left
warnLabel.TextYAlignment = Enum.TextYAlignment.Top
warnLabel.TextWrapped = true
warnLabel.Text = "Warning: you need a fast enough animal equipped to actually move this fast, otherwise the character won't keep up (game update)."
warnLabel.Parent = mainFrame

local statusLabel = Instance.new("TextLabel")
statusLabel.Size = UDim2.new(1, -20, 0, 78)
statusLabel.Position = UDim2.new(0, 10, 0, 196)
statusLabel.BackgroundTransparency = 1
statusLabel.TextColor3 = Color3.fromRGB(200,200,200)
statusLabel.Font = Enum.Font.Gotham; statusLabel.TextSize = 12
statusLabel.TextXAlignment = Enum.TextXAlignment.Left
statusLabel.TextYAlignment = Enum.TextYAlignment.Top
statusLabel.Text = "Ready."; statusLabel.Parent = mainFrame

-- ---- slider de velocidade ----
local sliderTrack = Instance.new("Frame")
sliderTrack.Size = UDim2.new(1, -20, 0, 10)
sliderTrack.Position = UDim2.new(0, 10, 0, 146)
sliderTrack.BackgroundColor3 = Color3.fromRGB(55,55,65)
sliderTrack.BorderSizePixel = 0; sliderTrack.Parent = mainFrame
Instance.new("UICorner", sliderTrack).CornerRadius = UDim.new(1,0)

local sliderFill = Instance.new("Frame")
sliderFill.BackgroundColor3 = Color3.fromRGB(255,130,0)
sliderFill.BorderSizePixel = 0; sliderFill.Size = UDim2.new(0,0,1,0); sliderFill.Parent = sliderTrack
Instance.new("UICorner", sliderFill).CornerRadius = UDim.new(1,0)

local sliderKnob = Instance.new("TextButton")
sliderKnob.Size = UDim2.new(0, 18, 0, 18); sliderKnob.AnchorPoint = Vector2.new(0.5,0.5)
sliderKnob.Position = UDim2.new(0,0,0.5,0); sliderKnob.BackgroundColor3 = Color3.new(1,1,1)
sliderKnob.Text = ""; sliderKnob.Parent = sliderTrack
Instance.new("UICorner", sliderKnob).CornerRadius = UDim.new(1,0)

local MIN_SPEED, MAX_SPEED = 133, 700
local isDragging = false
local function updateFromX(x)
    local rel = math.clamp((x - sliderTrack.AbsolutePosition.X) / sliderTrack.AbsoluteSize.X, 0, 1)
    local v = math.floor(MIN_SPEED + (MAX_SPEED - MIN_SPEED) * rel)
    env.speed = v
    sliderFill.Size = UDim2.new(rel, 0, 1, 0)
    sliderKnob.Position = UDim2.new(rel, 0, 0.5, 0)
    speedLabel.Text = "Speed: " .. v
end
sliderTrack.InputBegan:Connect(function(i)
    if i.UserInputType == Enum.UserInputType.MouseButton1 or i.UserInputType == Enum.UserInputType.Touch then
        isDragging = true; updateFromX(i.Position.X)
    end
end)
UIS.InputChanged:Connect(function(i)
    if isDragging and (i.UserInputType == Enum.UserInputType.MouseMovement or i.UserInputType == Enum.UserInputType.Touch) then
        updateFromX(i.Position.X)
    end
end)
UIS.InputEnded:Connect(function(i)
    if i.UserInputType == Enum.UserInputType.MouseButton1 or i.UserInputType == Enum.UserInputType.Touch then
        isDragging = false
    end
end)
task.spawn(function()
    task.wait(0.1)
    local rel = (250 - MIN_SPEED) / (MAX_SPEED - MIN_SPEED)
    sliderFill.Size = UDim2.new(rel,0,1,0); sliderKnob.Position = UDim2.new(rel,0,0.5,0)
end)

-- ===================== util =====================
local function charHRP()
    local c = plr.Character
    return c and c:FindFirstChild("HumanoidRootPart")
end

-- collide=true restaura a colisão normal (HRP sem colisão, resto com),
-- collide=false liga o noclip em tudo
local function setCollide(collide)
    local char = plr.Character
    if not char then return end
    for _, p in ipairs(char:GetDescendants()) do
        if p:IsA("BasePart") then
            if collide then
                p.CanCollide = (p.Name ~= "HumanoidRootPart")
            else
                p.CanCollide = false
            end
        end
    end
end

local function setFlying(state)
    local char = plr.Character
    local hrp = charHRP()
    if hrp then hrp.Anchored = state end
    setCollide(not state)
    local hum = char and char:FindFirstChildOfClass("Humanoid")
    if hum then
        if state then
            env._origWalk = hum.WalkSpeed
            hum.WalkSpeed = 0
        else
            hum.WalkSpeed = env._origWalk or 16
        end
    end
end

local function triggerPrompt(prompt)
    if not prompt or not prompt.Enabled then return false end
    prompt:InputHoldBegin()
    task.wait(math.max(prompt.HoldDuration, 0.05) + 0.05)
    prompt:InputHoldEnd()
    return true
end

local function triggerPromptsNear(pos, radius)
    local any = false
    for _, d in ipairs(workspace:GetDescendants()) do
        if d:IsA("ProximityPrompt") and d.Enabled then
            local parent = d.Parent
            if parent and parent:IsA("BasePart") and (parent.Position - pos).Magnitude <= radius then
                if triggerPrompt(d) then any = true end
            end
        end
    end
    return any
end

local function flyTo(dest)
    local hrp = charHRP()
    if not hrp then return end
    hrp.Anchored = true
    local start = hrp.Position
    local total = (dest - start).Magnitude
    if total >= 2 then
        local travelled, guard = 0, 0
        while env.auto and env._menuId == myId and guard < 5000 do
            local dt = RunService.Heartbeat:Wait()
            guard += 1
            travelled = math.min(travelled + env.speed * dt, total)
            local prog = travelled / total
            local base = start:Lerp(dest, prog)
            local arc  = math.sin(prog * math.pi) * env.arc
            hrp.CFrame = CFrame.new(base + Vector3.new(0, arc, 0))
            if prog >= 1 then break end
        end
    end
    hrp.CFrame = CFrame.new(dest)

    hrp.AssemblyLinearVelocity = Vector3.zero
    hrp.Anchored = false
    task.wait(0.15)
    -- só re-ancora se AINDA estiver a voar (evita prender o boneco ao desligar)
    if env.auto and env._menuId == myId then hrp.Anchored = true end
    task.wait(0.05)
end

local function candyId(part, idx)
    for _, c in ipairs(part:GetChildren()) do
        if c:IsA("ValueBase") then return tostring(c.Value) end
    end
    for _, a in ipairs({"Id","CandyId","Index","Number","ID"}) do
        local v = part:GetAttribute(a); if v then return tostring(v) end
    end
    local n = part.Name:match("(%d+)")
    if n then return "Candy1_" .. tonumber(n) end
    return "Candy1_" .. idx
end

local function candyValue(part)
    for _, a in ipairs({"Value","Worth","Price","CandyValue","Rarity","Points","Amount","Cost","Tier"}) do
        local v = part:GetAttribute(a)
        if type(v) == "number" then return v end
    end
    for _, c in ipairs(part:GetChildren()) do
        if c:IsA("NumberValue") or c:IsA("IntValue") then return c.Value end
    end
    local n = part.Name:match("(%d+)")
    if n then return tonumber(n) end
    return 0
end

local function dropoffPad()
    return DROPOFF:IsA("BasePart") and DROPOFF or DROPOFF:FindFirstChildWhichIsA("BasePart")
end

-- ===================== botão AUTO =====================
local function setAuto(v)
    env.auto = v
    autoButton.Text = "AUTO: " .. (v and "ON" or "OFF")
    autoButton.BackgroundColor3 = v and Color3.fromRGB(0,150,80) or Color3.fromRGB(70,40,40)
    setFlying(v)

    -- ao desligar: garante que, passado o voo em curso, o boneco fica livre
    if not v then
        task.spawn(function()
            task.wait(0.4)
            if not env.auto then
                local hrp = charHRP()
                if hrp then hrp.Anchored = false end
                local hum = plr.Character and plr.Character:FindFirstChildOfClass("Humanoid")
                if hum then hum.WalkSpeed = env._origWalk or 16 end
            end
        end)
    end
end
autoButton.MouseButton1Click:Connect(function() setAuto(not env.auto) end)

-- ===================== botão ORDEM =====================
local function refreshModeButton()
    modeButton.Text = (env.mode == "value") and "ORDER: MOST VALUABLE" or "ORDER: NEAREST TO DROPOFF"
end
modeButton.MouseButton1Click:Connect(function()
    env.mode = (env.mode == "value") and "near" or "value"
    refreshModeButton()
end)

plr.CharacterAdded:Connect(function()
    task.wait(0.5)
    if env.auto then setFlying(true) end
end)

-- ===================== ciclo =====================
task.spawn(function()
    while env._menuId == myId do
        if env.auto then
            local candies = {}
            for _, p in ipairs(CANDY_FOLDER:GetChildren()) do
                if p:IsA("BasePart") then candies[#candies+1] = p end
            end

            if #candies == 0 then
                statusLabel.Text = "No candy, waiting..."
                task.wait(0.5)
            else
                if env.mode == "value" then
                    table.sort(candies, function(a, b)
                        return candyValue(a) > candyValue(b)
                    end)
                else
                    local pad = dropoffPad()
                    if pad then
                        table.sort(candies, function(a, b)
                            return (a.Position - pad.Position).Magnitude
                                 < (b.Position - pad.Position).Magnitude
                        end)
                    end
                end

                for i, part in ipairs(candies) do
                    if not env.auto or env._menuId ~= myId then break end

                    local id = candyId(part, i)
                    statusLabel.Text = "→ flying to " .. id
                    flyTo(part.Position)
                    task.wait(0.15)

                    for attempt = 1, 4 do
                        if not env.auto or env._menuId ~= myId then break end

                        local prompt = part:FindFirstChildWhichIsA("ProximityPrompt", true)
                        if not triggerPrompt(prompt) then
                            triggerPromptsNear(part.Position, 8)
                        end
                        CollectCandy:FireServer(id)
                        task.wait(0.3)

                        if part.Parent ~= CANDY_FOLDER then break end
                    end

                    if env.auto then
                        local pad = dropoffPad()
                        if pad then
                            statusLabel.Text = "→ flying to dropoff"
                            flyTo(pad.Position)
                            task.wait(0.2)
                            triggerPromptsNear(pad.Position, 8)
                            if DepositRemote then DepositRemote:FireServer() end
                            task.wait(0.4)
                        end
                    end
                end
            end
        else
            statusLabel.Text = "Idle."
            task.wait(0.3)
        end
    endend)

env._menuCleanup = function()
    setAuto(false)
    env._menuId = env._menuId + 1
    screenGui:Destroy()
end

print("[Menu Halloween v9 | by IRON] loaded.")

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