logoHaxHell
local SharedRequire = getrenv().shared.require

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

local RemoteFunctions = ReplicatedStorage.remoteFunctions
local ClientStatManager = require(ReplicatedStorage.Modules.Client.Game.Managers.ClientStatManager)

local Npcs = SharedRequire("NPCs")
local Quests = SharedRequire("Quests")
local Network = SharedRequire("Network")

local Flags = {
    WantedBuffs = { },
    AutoQuest = false,
    AutoStar = false,
    AutoTool = false,
    ShowSettings = false,
}

local WantedBuffOptions = {
    "Super Smoothie",
    "Stinger",
    "Red Extract",
    "Blue Extract",
    "Glue",
    "Oil",
    "Enzymes",
    "Tropical Drink",
    "Purple Potion"
}

local BuffTime = 0
local LastCall = {}
local CallCooldown = 1.0

local QuestTickAccumulator = 0
local QuestTickInterval = 0.6

local Library = loadstring(game:HttpGet("https://raw.githubusercontent.com/theneutral0ne/wally-modified/refs/heads/main/wally-modified.lua"))()

local WindowOptions = {
    persistwindow = true,
    itemspacing = 2,
    togglestyle = "checkmark",
    underlinecolor = "rainbow",
}

local MainWindow = Library:CreateWindow("1000x BSS", WindowOptions)
local SettingsWindowApi = Library:SettingsWindows({
    title = "1000x BSS - Settings",
    windowOptions = WindowOptions,
    scriptFolder = "1000xBSS",
    presets = {
        extension = ".json",
        clearOnLoad = true,
        separateByPlace = true,
    },
})

local function SetSettingsWindowVisible(State)
    if SettingsWindowApi and SettingsWindowApi.Window and SettingsWindowApi.Window.object then
        SettingsWindowApi.Window.object.Visible = (State == true)
        if State == true then
            SettingsWindowApi.Window:BringToFront()
        end
    end
end

MainWindow:Section("Automation")

MainWindow:Toggle("Auto Tool", {
    location = Flags,
    flag = "AutoTool",
    default = Flags.AutoTool,
})

MainWindow:Toggle("Auto Quest", {
    location = Flags,
    flag = "AutoQuest",
    default = Flags.AutoQuest,
})

MainWindow:Toggle("Auto Star Saw", {
    location = Flags,
    flag = "AutoStar",
    default = Flags.AutoStar,
})

MainWindow:Section("Buffs")

MainWindow:MultiSelectList("Wanted Buffs", {
    location = Flags,
    flag = "WantedBuffs",
    list = WantedBuffOptions,
    default = Flags.WantedBuffs,
    search = true,
    sort = true,
    maxVisibleRows = 7,
    listHeight = 120,
    placeholder = "Select buffs to auto-use...",
}, function(SelectedMap)
    Flags.WantedBuffs = SelectedMap
end)

MainWindow:Section("Misc")

MainWindow:Toggle("Show Settings", {
    location = Flags,
    flag = "ShowSettings",
    default = Flags.ShowSettings,
})

Library:OnFlagChanged("ShowSettings", function(NewValue)
    SetSettingsWindowVisible(NewValue == true)
end, {
    location = Flags,
})

SetSettingsWindowVisible(Flags.ShowSettings == true)

local function CallRemote(RemoteName, Arg)
    local Ok = pcall(function()
        Network.ClientCall(RemoteName, Arg)
    end)

    if not Ok then
        pcall(function()
            Network:ClientCall(RemoteName, Arg)
        end)
    end
end

local function CallLimited(Key, Fn)
    local Now = os.clock()
    if LastCall[Key] and (Now - LastCall[Key] < CallCooldown) then
        return
    end

    LastCall[Key] = Now
    Fn()
end

local function HandleEvent(NpcName, EventDef, Phase)
    if not EventDef or not EventDef.Type then
        return
    end

    if EventDef.Type == "Single Quest" and EventDef.Quest then
        if Phase == "Start" then
            CallLimited("give:" .. EventDef.Quest, function()
                CallRemote("GiveQuest", EventDef.Quest)
            end)
        elseif Phase == "Finish" then
            CallLimited("finish:" .. EventDef.Quest, function()
                CallRemote("CompleteQuest", EventDef.Quest)
            end)
        end
    elseif EventDef.Type == "Repeat Quest" and EventDef.QuestPool then
        if Phase == "Start" then
            CallLimited("poolgive:" .. EventDef.QuestPool, function()
                CallRemote("GiveQuestFromPool", EventDef.QuestPool)
            end)
        elseif Phase == "Finish" then
            CallLimited("poolfinish:" .. EventDef.QuestPool, function()
                CallRemote("CompleteQuestFromPool", EventDef.QuestPool)
            end)
        end
    end
end

local NpcNames = {}
do
    local Seen = {}

    if type(Npcs.GetAll) == "function" then
        local OkAll, AllNpcs = pcall(function()
            return Npcs.GetAll()
        end)

        if OkAll and type(AllNpcs) == "table" then
            for Name in pairs(AllNpcs) do
                if not Seen[Name] then
                    Seen[Name] = true
                    table.insert(NpcNames, Name)
                end
            end
        end
    end

    for _, NpcObject in workspace.NPCs:GetChildren() do
        if not Seen[NpcObject.Name] then
            Seen[NpcObject.Name] = true
            table.insert(NpcNames, NpcObject.Name)
        end
    end
end

RunService.RenderStepped:Connect(function(DeltaTime)
    BuffTime += DeltaTime

    local Stats = ClientStatManager.getStats()
    local Buffs = Stats and Stats.Buffs

    if Flags.AutoTool == true then
        RemoteFunctions.toolClick:InvokeServer()
    end

    if BuffTime < 1 then
        return
    end

    BuffTime = 0

    for BuffName, IsSelected in Flags.WantedBuffs do
        if IsSelected == true and BuffName ~= "" then
            if not Buffs or not Buffs[BuffName] then
                RemoteFunctions.PlayerActivesCommand:InvokeServer({ Name = BuffName })
            end
        end
    end

    if Flags.AutoStar == true then
        if not workspace.Particles:FindFirstChild("Star") then
            for Attempt = 1, 3 do
                RemoteFunctions.PlayerActivesCommand:InvokeServer({Name = "Stinger"})
            end
        end
    end
end)

RunService.Heartbeat:Connect(function(DeltaTime)
    if Flags.AutoQuest ~= true then
        QuestTickAccumulator = 0
        return
    end

    QuestTickAccumulator += DeltaTime
    if QuestTickAccumulator < QuestTickInterval then
        return
    end

    QuestTickAccumulator = 0

    local Data = ClientStatManager.getStats()
    if not Data or not Data.Quests then
        return
    end

    for _, NpcName in ipairs(NpcNames) do
        if type(Npcs.ResolveOverrideEvent) == "function" then
            local OkOverride, OverrideEvent, OverridePhase = pcall(function()
                return Npcs.ResolveOverrideEvent(NpcName)
            end)

            if OkOverride and OverrideEvent then
                HandleEvent(NpcName, OverrideEvent, OverridePhase)
            end
        end

        if type(Npcs.ResolveEventPhase) == "function" then
            local OkPhase, EventIndex, Phase = pcall(function()
                return Npcs.ResolveEventPhase(NpcName)
            end)

            if OkPhase and EventIndex and Phase then
                local OkDefinition, NpcDefinition = pcall(function()
                    return Npcs.Get(NpcName)
                end)

                if OkDefinition and NpcDefinition then
                    local EventDefinition = NpcDefinition.Events and NpcDefinition.Events[EventIndex]
                    HandleEvent(NpcName, EventDefinition, Phase)
                end
            end
        end
    end

    for _, ActiveQuest in ipairs(Data.Quests.Active or {}) do
        local QuestName = ActiveQuest.Name
        if QuestName then
            local OkCanComplete, CanComplete = pcall(function()
                return Quests:CanComplete(QuestName, Data)
            end)

            if OkCanComplete and CanComplete then
                CallLimited("directcomplete:" .. QuestName, function()
                    CallRemote("CompleteQuest", QuestName)
                end)
            end
        end
    end
end)
Bee 1000x items
Bee 1000x items•Simulation
Bee 1000x items Auto Farm OP
Mobile Friendly
4,780 views
7 months ago

Auto Farm OP

User Avatar
fvL
WORKING
Free
Play GameGame Link

Description

Script I made for Bee 1000x Items. Adds some simple auto features so you don’t have to grind everything manually. Just run it and it will start farming quests and buffs automatically.

Good if you want faster progress and less manual work. The game itself focuses on collecting items and progressing with different tools and upgrades.

Features

  • Auto Tool
  • Auto Quest
  • Auto Buff
  • Auto Star Saw
  • Easy farming

Related Scripts