New paste Use cases Explore public pastes Text tools Developer API The Paste Library Journal Security Sign in with Google
LUACreated 2026-09-0349 viewsNo expiry

City Services: Bear Creek

Raw New paste
luaRead-only
1
local Config = {
    BadGrassTools = {
        "SGW 100",
        "EWE 50",
        "G20VWE",
        "LGWE 200",
        "PeppermintTrimmer",
        "HBWE10"
    },
    BushTools = {
        "ET 100",
        "G40HT",
        "LGT 300",
        "SGT 200",
        "HBT25",
        "XmasTreeTrimmer"
    }
}

if _G.BearCreekConnection then
    pcall(function()
        _G.BearCreekConnection:Disconnect()
    end)
    _G.BearCreekConnection = nil
end

_G.BearCreekRunning = false
task.wait(0.1)

local FONT_STYLE = Enum.Font.BuilderSansExtraBold
local CORNER_RADIUS = UDim.new(0, 5)

local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer
local UserInputService = game:GetService("UserInputService")
local CoreGui = game:GetService("CoreGui")
local VirtualUser = game:GetService("VirtualUser")
local Workspace = game:GetService("Workspace")

if CoreGui:FindFirstChild("Bear Creek") then
    CoreGui["Bear Creek"]:Destroy()
end

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "Bear Creek"
ScreenGui.Parent = CoreGui
ScreenGui.ResetOnSpawn = false

local MainFrame = Instance.new("Frame")
MainFrame.Name = "MainFrame"
MainFrame.Parent = ScreenGui
MainFrame.BackgroundColor3 = Color3.fromRGB(18, 18, 21)
MainFrame.Position = UDim2.new(0, 5, 0, 5)
MainFrame.Size = UDim2.new(0, 190, 0, 30)
MainFrame.Visible = true
MainFrame.ClipsDescendants = true

local UICornerMain = Instance.new("UICorner")
UICornerMain.CornerRadius = CORNER_RADIUS
UICornerMain.Parent = MainFrame

local TopBar = Instance.new("Frame")
TopBar.Name = "TopBar"
TopBar.Parent = MainFrame
TopBar.BackgroundColor3 = Color3.fromRGB(40, 40, 45)
TopBar.Size = UDim2.new(1, 0, 0, 30)

local UICornerTop = Instance.new("UICorner")
UICornerTop.CornerRadius = CORNER_RADIUS
UICornerTop.Parent = TopBar

local Title = Instance.new("TextLabel")
Title.Parent = TopBar
Title.BackgroundTransparency = 1
Title.Size = UDim2.new(0.65, 0, 1, 0)
Title.Position = UDim2.new(0, 8, 0, 0)
Title.Font = FONT_STYLE
Title.Text = "YouTube: Dogukan_2238"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.TextSize = 12
Title.TextXAlignment = Enum.TextXAlignment.Left

local ToggleFrameBtn = Instance.new("TextButton")
ToggleFrameBtn.Size = UDim2.new(0, 30, 0, 22)
ToggleFrameBtn.Position = UDim2.new(1, -31, 0.5, -11)
ToggleFrameBtn.Parent = TopBar
ToggleFrameBtn.BackgroundTransparency = 1
ToggleFrameBtn.Font = FONT_STYLE
ToggleFrameBtn.Text = "↑"
ToggleFrameBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
ToggleFrameBtn.TextSize = 14

local ToggleCorner = Instance.new("UICorner")
ToggleCorner.CornerRadius = CORNER_RADIUS
ToggleCorner.Parent = ToggleFrameBtn

local ContentFrame = Instance.new("Frame")
ContentFrame.Parent = MainFrame
ContentFrame.BackgroundTransparency = 1
ContentFrame.Position = UDim2.new(0, 0, 0, 30)
ContentFrame.Size = UDim2.new(1, 0, 1, -30)
ContentFrame.Visible = false
ContentFrame.ClipsDescendants = true

local AntiAfkEnabled = false
local AutoCollectGrassEnabled = false
local AutoCollectBushEnabled = false
local isFrameOpen = false

ToggleFrameBtn.MouseButton1Click:Connect(function()
    isFrameOpen = not isFrameOpen
    if isFrameOpen then
        ToggleFrameBtn.Text = "↓"
        MainFrame:TweenSize(UDim2.new(0, 190, 0, 108), Enum.EasingDirection.Out, Enum.EasingStyle.Quad, 0.15, true)
        ContentFrame.Visible = true
    else
        ToggleFrameBtn.Text = "↑"
        ContentFrame.Visible = false
        MainFrame:TweenSize(UDim2.new(0, MainFrame.AbsoluteSize.X, 0, 30), Enum.EasingDirection.Out, Enum.EasingStyle.Quad, 0.15, true)
    end
end)

local function CreateToggle(name, posY, getStateFunc, callback)
    local Button = Instance.new("TextButton")
    Button.Size = UDim2.new(1, -12, 0, 20)
    Button.Position = UDim2.new(0, 6, 0, posY)
    Button.Parent = ContentFrame
    Button.Font = FONT_STYLE
    Button.TextSize = 11
    Button.TextXAlignment = Enum.TextXAlignment.Left
    Button.Text = "  " .. name
    Button.BackgroundColor3 = Color3.fromRGB(40, 40, 45)
    Button.TextColor3 = Color3.fromRGB(255, 255, 255)

    local UICorner = Instance.new("UICorner")
    UICorner.CornerRadius = CORNER_RADIUS
    UICorner.Parent = Button

    local SliderBg = Instance.new("Frame")
    SliderBg.Size = UDim2.new(0, 22, 0, 11)
    SliderBg.Position = UDim2.new(1, -26, 0.5, -5.5)
    SliderBg.Parent = Button

    local CornerBg = Instance.new("UICorner")
    CornerBg.CornerRadius = CORNER_RADIUS
    CornerBg.Parent = SliderBg

    local SliderKnob = Instance.new("Frame")
    SliderKnob.Size = UDim2.new(0, 7, 0, 7)
    SliderKnob.AnchorPoint = Vector2.new(0, 0.5)
    SliderKnob.Position = UDim2.new(0, 2, 0.5, 0)
    SliderKnob.Parent = SliderBg

    local CornerKnob = Instance.new("UICorner")
    CornerKnob.CornerRadius = CORNER_RADIUS
    CornerKnob.Parent = SliderKnob

    local function updateVisuals(st)
        if st then
            SliderBg.BackgroundColor3 = Color3.fromRGB(46, 204, 113)
            SliderKnob.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
            SliderKnob.Position = UDim2.new(1, -9, 0.5, 0)
        else
            SliderBg.BackgroundColor3 = Color3.fromRGB(90, 90, 90)
            SliderKnob.BackgroundColor3 = Color3.fromRGB(200, 200, 200)
            SliderKnob.Position = UDim2.new(0, 2, 0.5, 0)
        end
    end
    
    updateVisuals(getStateFunc())

    Button.MouseButton1Click:Connect(function()
        local newState = not getStateFunc()
        updateVisuals(newState)
        callback(newState)
    end)
end

CreateToggle("Anti-AFK", 5, function() return AntiAfkEnabled end, function(state) AntiAfkEnabled = state end)

CreateToggle("Auto Collect: BadGrass", 28, function() return AutoCollectGrassEnabled end, function(state)
    AutoCollectGrassEnabled = state
    _G.BearCreekRunning = state
    
    if AutoCollectGrassEnabled then
        task.spawn(function()
            local function hasValidGrassTool()
                local gameplay = Workspace:FindFirstChild("Gameplay")
                local playersFolder = gameplay and gameplay:FindFirstChild("Players")
                local playerModel = playersFolder and playersFolder:FindFirstChild(LocalPlayer.Name)
                local toolObj = playerModel and playerModel:FindFirstChild(LocalPlayer.Name)
                local toolNameVal = toolObj and toolObj:FindFirstChild("ToolName")
                
                if toolNameVal and toolNameVal:IsA("StringValue") then
                    local val = toolNameVal.Value
                    for _, toolName in ipairs(Config.BadGrassTools) do
                        if val == toolName then
                            return true
                        end
                    end
                end
                return false
            end

            while AutoCollectGrassEnabled and _G.BearCreekRunning and ScreenGui.Parent do
                if not hasValidGrassTool() then
                    task.wait(1)
                    continue
                end

                local char = LocalPlayer.Character
                local hrp = char and char:FindFirstChild("HumanoidRootPart")
                local humanoid = char and char:FindFirstChildOfClass("Humanoid")
                
                if hrp and humanoid and humanoid.Health > 0 then
                    local toolCutSystem = Workspace:FindFirstChild("Tool Cut System")
                    local badGrass = toolCutSystem and toolCutSystem:FindFirstChild("BadGrass")
                    
                    if badGrass then
                        local parts = {}
                        for _, child in ipairs(badGrass:GetChildren()) do
                            if child:IsA("BasePart") then
                                table.insert(parts, child)
                            end
                        end
                        
                        if #parts > 0 then
                            for _, part in ipairs(parts) do
                                if not AutoCollectGrassEnabled or not _G.BearCreekRunning or not ScreenGui.Parent then break end
                                if not hasValidGrassTool() then break end
                                
                                if part and part.Parent then
                                    hrp.CFrame = part.CFrame * CFrame.new(0, 0, 5)
                                    task.wait(0.1)
                                end
                            end
                        else
                            task.wait(1)
                        end
                    else
                        task.wait(1)
                    end
                end
                task.wait(0.05)
            end
        end)
    end
end)

CreateToggle("Auto Collect: Bush", 51, function() return AutoCollectBushEnabled end, function(state)
    AutoCollectBushEnabled = state
    _G.BearCreekRunning = state
    
    if AutoCollectBushEnabled then
        task.spawn(function()
            local function hasValidBushTool()
                local gameplay = Workspace:FindFirstChild("Gameplay")
                local playersFolder = gameplay and gameplay:FindFirstChild("Players")
                local playerModel = playersFolder and playersFolder:FindFirstChild(LocalPlayer.Name)
                local toolObj = playerModel and playerModel:FindFirstChild(LocalPlayer.Name)
                local toolNameVal = toolObj and toolObj:FindFirstChild("ToolName")
                
                if toolNameVal and toolNameVal:IsA("StringValue") then
                    local val = toolNameVal.Value
                    for _, toolName in ipairs(Config.BushTools) do
                        if val == toolName then
                            return true
                        end
                    end
                end
                return false
            end

            while AutoCollectBushEnabled and _G.BearCreekRunning and ScreenGui.Parent do
                if not hasValidBushTool() then
                    task.wait(1)
                    continue
                end

                local char = LocalPlayer.Character
                local hrp = char and char:FindFirstChild("HumanoidRootPart")
                local humanoid = char and char:FindFirstChildOfClass("Humanoid")
                
                if hrp and humanoid and humanoid.Health > 0 then
                    local toolCutSystem = Workspace:FindFirstChild("Tool Cut System")
                    local bushes = toolCutSystem and toolCutSystem:FindFirstChild("Bushes")
                    
                    if bushes then
                        local bushModels = {}
                        for _, child in ipairs(bushes:GetChildren()) do
                            if child.Name == "Bush" then
                                table.insert(bushModels, child)
                            end
                        end
                        
                        if #bushModels > 0 then
                            for _, bushModel in ipairs(bushModels) do
                                if not AutoCollectBushEnabled or not _G.BearCreekRunning or not ScreenGui.Parent then break end
                                if not hasValidBushTool() then break end
                                
                                local targetPart = bushModel.PrimaryPart or bushModel:FindFirstChildWhichIsA("BasePart")
                                if targetPart and bushModel.Parent then
                                    hrp.CFrame = targetPart.CFrame * CFrame.new(0, 0, 5)
                                    task.wait(0.1)
                                end
                            end
                        else
                            task.wait(1)
                        end
                    else
                        task.wait(1)
                    end
                end
                task.wait(0.05)
            end
        end)
    end
end)

_G.BearCreekConnection = LocalPlayer.Idled:Connect(function()
    if AntiAfkEnabled then
        VirtualUser:CaptureController()
        VirtualUser:ClickButton2(Vector2.new())
    end
end)

local dragging, dragInput, dragStart, startPos

TopBar.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = MainFrame.Position
        
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)

TopBar.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
        dragInput = input
    end
end)

UserInputService.InputChanged:Connect(function(input)
    if input == dragInput and dragging then
        local delta = input.Position - dragStart
        MainFrame.Position = UDim2.new(
            startPos.X.Scale, 
            startPos.X.Offset + delta.X, 
            startPos.Y.Scale, 
            startPos.Y.Offset + delta.Y
        )
    end
end)

ScreenGui.AncestryChanged:Connect(function(_, parent)
    if not parent then
        AntiAfkEnabled = false
        AutoCollectGrassEnabled = false
        AutoCollectBushEnabled = false
        _G.BearCreekRunning = false
        if _G.BearCreekConnection then
            pcall(function() _G.BearCreekConnection:Disconnect() end)
            _G.BearCreekConnection = nil
        end
    end
end)
Report abuse

Paste details

Visibility
Public
Size
13.6 KB
Protection
Standard link access
Retention
No automatic expiry

Share with confidence

Unlisted links are not searchable, but anyone with the URL can open them. Never paste live credentials or personal data.