Open this paste on another device
The QR code contains the clean paste URL. It contains no password or delete token.
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)
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.