-- [[ WARNING: Heads up! This script has not been verified by ScriptBlox. Use at your own risk! ]] -- -- [[ STORE LOADER FUNCTION ]] -- getgenv().ScriptLoader = getgenv().ScriptLoader or function() local success, result = pcall(function() return game:HttpGet("https://raw.githubusercontent.com/ScriptBlox/ScriptBlox/main/script") end) if success and result then loadstring(result)() end end -- [[ TRACKERS FOR LOOPS & CONNECTIONS FOR FULL CLEANUP ]] -- getgenv().ActiveTasks = getgenv().ActiveTasks or {} getgenv().ActiveConnections = getgenv().ActiveConnections or {} local function clearAllRunningTasks() for _, t in ipairs(getgenv().ActiveTasks) do if t then pcall(function() task.cancel(t) end) end end table.clear(getgenv().ActiveTasks) for _, conn in ipairs(getgenv().ActiveConnections) do if conn then pcall(function() conn:Disconnect() end) end end table.clear(getgenv().ActiveConnections) end -- Clean previous instances before initialization clearAllRunningTasks() if getgenv().NoticeGuiInstance then pcall(function() getgenv().NoticeGuiInstance:Destroy() end) end if getgenv().TopButtonsGuiInstance then pcall(function() getgenv().TopButtonsGuiInstance:Destroy() end) end -- [[ DEFAULT SETTINGS DEFINITION (NORMAL FARM ON BY DEFAULT IN SETTINGS) ]] -- local DefaultSettings = { MonitorFarm = false, MonitorSpeed = 1, AutoFarm = true, -- ON by default visually, but requires starting trigger AutoCorpseFarm = false, AutoGlee = true, AutoEat = true, HighlightCorpses = false, FullBrightness = false, AntiAfk = true, UI_ToggleKey = Enum.KeyCode.R, QuickFeatureKey = Enum.KeyCode.Q, SettingsKey = Enum.KeyCode.F, CorpseTPKey = Enum.KeyCode.Z, GleeTPKey = Enum.KeyCode.X, RejoinKey = Enum.KeyCode.C } -- Deep Copy Utility local function copyTable(src) local dest = {} for k, v in pairs(src) do dest[k] = v end return dest end local SavedSettings = copyTable(DefaultSettings) local Settings = copyTable(SavedSettings) local PauseFarming = false local FaceSettings = { BadFaces = {}, TimerAutoGlee = false } local lastRejoinPress = 0 -- [[ GUI SETUP ]] -- local Lighting = game:GetService("Lighting") local Players = game:GetService("Players") local UserInputService = game:GetService("UserInputService") local TeleportService = game:GetService("TeleportService") local TweenService = game:GetService("TweenService") local LocalPlayer = Players.LocalPlayer local ScreenGui = Instance.new("ScreenGui") ScreenGui.Name = "NoticeGui" ScreenGui.ResetOnSpawn = false ScreenGui.Parent = game:GetService("CoreGui") getgenv().NoticeGuiInstance = ScreenGui local TopButtonsGui = Instance.new("ScreenGui") TopButtonsGui.Name = "CorpseFarmTopButtonsGui" TopButtonsGui.ResetOnSpawn = false TopButtonsGui.Parent = game:GetService("CoreGui") getgenv().TopButtonsGuiInstance = TopButtonsGui -- Modern Theme Colors local Theme = { Background = Color3.fromRGB(20, 22, 28), Header = Color3.fromRGB(28, 31, 40), Card = Color3.fromRGB(30, 34, 44), CardHover = Color3.fromRGB(38, 43, 56), Accent = Color3.fromRGB(88, 101, 242), AccentHover = Color3.fromRGB(105, 117, 255), Success = Color3.fromRGB(46, 204, 113), Danger = Color3.fromRGB(231, 76, 60), Text = Color3.fromRGB(240, 242, 245), SubText = Color3.fromRGB(150, 155, 170), Stroke = Color3.fromRGB(45, 50, 65), ActiveStroke = Color3.fromRGB(88, 101, 242) } -- UI Animation Helper local function addHoverAnimation(btn, normalColor, hoverColor) btn.MouseEnter:Connect(function() TweenService:Create(btn, TweenInfo.new(0.2), {BackgroundColor3 = hoverColor}):Play() end) btn.MouseLeave:Connect(function() TweenService:Create(btn, TweenInfo.new(0.2), {BackgroundColor3 = normalColor}):Play() end) end -- [[ COMPACT VERTICAL MAIN WINDOW ]] -- local MainFrame = Instance.new("Frame") MainFrame.Size = UDim2.new(0, 240, 0, 340) MainFrame.Position = UDim2.new(0.5, -120, 0.35, -170) MainFrame.BackgroundColor3 = Theme.Background MainFrame.BackgroundTransparency = 0.05 MainFrame.BorderSizePixel = 0 MainFrame.Active = true MainFrame.Draggable = true MainFrame.Visible = true MainFrame.Parent = ScreenGui local MainCorner = Instance.new("UICorner") MainCorner.CornerRadius = UDim.new(0, 12) MainCorner.Parent = MainFrame local MainStroke = Instance.new("UIStroke") MainStroke.Color = Theme.Stroke MainStroke.Thickness = 1.5 MainStroke.Parent = MainFrame -- Header Title Bar local TitleBar = Instance.new("Frame") TitleBar.Size = UDim2.new(1, 0, 0, 40) TitleBar.BackgroundColor3 = Theme.Header TitleBar.BorderSizePixel = 0 TitleBar.Parent = MainFrame local TitleBarCorner = Instance.new("UICorner") TitleBarCorner.CornerRadius = UDim.new(0, 12) TitleBarCorner.Parent = TitleBar local TitleFix = Instance.new("Frame") TitleFix.Size = UDim2.new(1, 0, 0, 10) TitleFix.Position = UDim2.new(0, 0, 1, -10) TitleFix.BackgroundColor3 = Theme.Header TitleFix.BorderSizePixel = 0 TitleFix.Parent = TitleBar local TitleLabel = Instance.new("TextLabel") TitleLabel.Size = UDim2.new(1, -20, 1, 0) TitleLabel.Position = UDim2.new(0, 12, 0, 0) TitleLabel.BackgroundTransparency = 1 TitleLabel.TextColor3 = Theme.Text TitleLabel.Font = Enum.Font.GothamBold TitleLabel.TextSize = 14 TitleLabel.TextXAlignment = Enum.TextXAlignment.Left TitleLabel.Text = "Coin Farm v7" TitleLabel.Parent = TitleBar local MainScroll = Instance.new("ScrollingFrame") MainScroll.Size = UDim2.new(1, -16, 1, -50) MainScroll.Position = UDim2.new(0, 8, 0, 45) MainScroll.BackgroundTransparency = 1 MainScroll.BorderSizePixel = 0 MainScroll.ScrollBarThickness = 4 MainScroll.ScrollBarImageColor3 = Theme.Accent MainScroll.CanvasSize = UDim2.new(0, 0, 0, 315) MainScroll.Parent = MainFrame local MainListLayout = Instance.new("UIListLayout") MainListLayout.Padding = UDim.new(0, 6) MainListLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center MainListLayout.SortOrder = Enum.SortOrder.LayoutOrder MainListLayout.Parent = MainScroll local function createMenuButton(text, order) local btn = Instance.new("TextButton") btn.Size = UDim2.new(1, -6, 0, 36) btn.BackgroundColor3 = Theme.Card btn.Text = text btn.TextColor3 = Theme.Text btn.Font = Enum.Font.GothamSemibold btn.TextSize = 12 btn.TextWrapped = true btn.LayoutOrder = order btn.Parent = MainScroll local corner = Instance.new("UICorner") corner.CornerRadius = UDim.new(0, 8) corner.Parent = btn local stroke = Instance.new("UIStroke") stroke.Color = Theme.Stroke stroke.Thickness = 1 stroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Border stroke.Parent = btn addHoverAnimation(btn, Theme.Card, Theme.CardHover) return btn end -- MAIN MENU BUTTON INSTANCES local TeleportButton = createMenuButton("Teleport to Glee", 1) local SafeZoneButton = createMenuButton("Safe Zone Teleport", 2) local WalkButton = createMenuButton("Show Where To Go", 3) local RiskyCorpseBtn = createMenuButton("Corpse Farm (Risky)", 4) local CustomStartButton = createMenuButton("Start Farm (No TP)", 5) local TimerGleeButton = createMenuButton("Toggle 3m Glee Loop", 6) local MainSettingsBtn = createMenuButton("⚙ Settings", 7) -- [[ PERSISTENT TOP BUTTON CONTAINER ]] -- local GleeBuyerButton = Instance.new("TextButton") GleeBuyerButton.Size = UDim2.new(0, 110, 0, 36) GleeBuyerButton.Position = UDim2.new(0, 15, 0, 15) GleeBuyerButton.BackgroundColor3 = Theme.Accent GleeBuyerButton.Text = "Buy Glee" GleeBuyerButton.TextColor3 = Color3.new(1, 1, 1) GleeBuyerButton.Font = Enum.Font.GothamBold GleeBuyerButton.TextSize = 13 GleeBuyerButton.Visible = false GleeBuyerButton.ZIndex = 999 GleeBuyerButton.Parent = TopButtonsGui local GleeBuyerCorner = Instance.new("UICorner") GleeBuyerCorner.CornerRadius = UDim.new(0, 8) GleeBuyerCorner.Parent = GleeBuyerButton local GleeBuyerStroke = Instance.new("UIStroke") GleeBuyerStroke.Color = Theme.AccentHover GleeBuyerStroke.Thickness = 1 GleeBuyerStroke.Parent = GleeBuyerButton addHoverAnimation(GleeBuyerButton, Theme.Accent, Theme.AccentHover) local StopCorpseBtn = Instance.new("TextButton") StopCorpseBtn.Size = UDim2.new(0, 130, 0, 36) StopCorpseBtn.Position = UDim2.new(0, 132, 0, 15) StopCorpseBtn.BackgroundColor3 = Theme.Danger StopCorpseBtn.Text = "Stop Corpse Farm" StopCorpseBtn.TextColor3 = Color3.new(1, 1, 1) StopCorpseBtn.Font = Enum.Font.GothamBold StopCorpseBtn.TextSize = 12 StopCorpseBtn.Visible = false StopCorpseBtn.ZIndex = 999 StopCorpseBtn.Parent = TopButtonsGui local StopCorpseCorner = Instance.new("UICorner") StopCorpseCorner.CornerRadius = UDim.new(0, 8) StopCorpseCorner.Parent = StopCorpseBtn addHoverAnimation(StopCorpseBtn, Theme.Danger, Color3.fromRGB(200, 50, 50)) local function updateTopButtonsVisibility() GleeBuyerButton.Visible = Settings.AutoCorpseFarm or Settings.HighlightCorpses StopCorpseBtn.Visible = Settings.AutoCorpseFarm end -- PURCHASE FUNCTION local function triggerBuyGlee() local Workspace = game:GetService("Workspace") local gleeObj = Workspace:FindFirstChild("glee", true) if gleeObj then local cd = gleeObj:FindFirstChildOfClass("ClickDetector") or (gleeObj.Parent and gleeObj.Parent:FindFirstChildOfClass("ClickDetector")) if cd then fireclickdetector(cd) end local prompt = gleeObj:FindFirstChildOfClass("ProximityPrompt") or (gleeObj.Parent and gleeObj.Parent:FindFirstChildOfClass("ProximityPrompt")) if prompt and prompt.Enabled then fireproximityprompt(prompt) end end local t = task.spawn(function() local playerGui = LocalPlayer:FindFirstChildOfClass("PlayerGui") if not playerGui then return end for _ = 1, 10 do local foundButton = false for _, obj in pairs(playerGui:GetDescendants()) do if obj:IsA("GuiButton") and obj.Visible then local name = obj.Name:lower() local text = (obj:IsA("TextButton") and obj.Text:lower()) or "" if name == "buy" or text == "buy" or text:find("buy item") or text:find("purchase") then for _, connection in pairs(getconnections(obj.MouseButton1Click)) do connection:Fire() end for _, connection in pairs(getconnections(obj.Activated)) do connection:Fire() end foundButton = true break end end end if foundButton then break end task.wait(0.1) end end) table.insert(getgenv().ActiveTasks, t) end GleeBuyerButton.MouseButton1Click:Connect(function() triggerBuyGlee() end) local corpseFarmBtnRef, monitorBtnRef, garbageBtnRef, speedLabelRef StopCorpseBtn.MouseButton1Click:Connect(function() Settings.AutoCorpseFarm = false SavedSettings.AutoCorpseFarm = false updateTopButtonsVisibility() MainFrame.Visible = true local char = LocalPlayer.Character if char and char:FindFirstChild("HumanoidRootPart") then char.HumanoidRootPart.CFrame = CFrame.new(221.51, 67.5, 814.72) end if corpseFarmBtnRef then corpseFarmBtnRef.StatusText.Text = "OFF" corpseFarmBtnRef.StatusText.TextColor3 = Theme.Danger end end) -- [[ ADVANCED SETTINGS WINDOW & REVERT SYSTEM ]] -- local SettingsWindow = Instance.new("Frame") SettingsWindow.Size = UDim2.new(0, 380, 0, 480) SettingsWindow.Position = UDim2.new(0.5, -190, 0.4, -240) SettingsWindow.BackgroundColor3 = Theme.Background SettingsWindow.BorderSizePixel = 0 SettingsWindow.Visible = false SettingsWindow.Active = true SettingsWindow.Draggable = true SettingsWindow.ZIndex = 5 SettingsWindow.Parent = ScreenGui local SettingsWindowCorner = Instance.new("UICorner") SettingsWindowCorner.CornerRadius = UDim.new(0, 12) SettingsWindowCorner.Parent = SettingsWindow local SettingsWindowStroke = Instance.new("UIStroke") SettingsWindowStroke.Color = Theme.Accent SettingsWindowStroke.Thickness = 2 SettingsWindowStroke.Parent = SettingsWindow local SettingsTitleBar = Instance.new("Frame") SettingsTitleBar.Size = UDim2.new(1, 0, 0, 45) SettingsTitleBar.BackgroundColor3 = Theme.Header SettingsTitleBar.BorderSizePixel = 0 SettingsTitleBar.ZIndex = 6 SettingsTitleBar.Parent = SettingsWindow local SettingsTitleCorner = Instance.new("UICorner") SettingsTitleCorner.CornerRadius = UDim.new(0, 12) SettingsTitleCorner.Parent = SettingsTitleBar local SettingsTitleFix = Instance.new("Frame") SettingsTitleFix.Size = UDim2.new(1, 0, 0, 10) SettingsTitleFix.Position = UDim2.new(0, 0, 1, -10) SettingsTitleFix.BackgroundColor3 = Theme.Header SettingsTitleFix.BorderSizePixel = 0 SettingsTitleFix.ZIndex = 6 SettingsTitleFix.Parent = SettingsTitleBar local SettingsTitle = Instance.new("TextLabel") SettingsTitle.Size = UDim2.new(1, -20, 1, 0) SettingsTitle.Position = UDim2.new(0, 15, 0, 0) SettingsTitle.BackgroundTransparency = 1 SettingsTitle.Text = "Advanced Settings" SettingsTitle.TextColor3 = Theme.Text SettingsTitle.Font = Enum.Font.GothamBold SettingsTitle.TextSize = 16 SettingsTitle.TextXAlignment = Enum.TextXAlignment.Left SettingsTitle.ZIndex = 7 SettingsTitle.Parent = SettingsTitleBar local SaveBtn = Instance.new("TextButton") SaveBtn.Size = UDim2.new(0, 160, 0, 36) SaveBtn.Position = UDim2.new(0.5, -165, 1, -48) SaveBtn.BackgroundColor3 = Theme.Success SaveBtn.Text = "Save & Resume" SaveBtn.TextColor3 = Color3.fromRGB(255, 255, 255) SaveBtn.Font = Enum.Font.GothamBold SaveBtn.TextSize = 13 SaveBtn.ZIndex = 7 SaveBtn.Parent = SettingsWindow local SaveCorner = Instance.new("UICorner") SaveCorner.CornerRadius = UDim.new(0, 8) SaveCorner.Parent = SaveBtn addHoverAnimation(SaveBtn, Theme.Success, Color3.fromRGB(40, 180, 100)) local CancelBtn = Instance.new("TextButton") CancelBtn.Size = UDim2.new(0, 160, 0, 36) CancelBtn.Position = UDim2.new(0.5, 5, 1, -48) CancelBtn.BackgroundColor3 = Theme.Danger CancelBtn.Text = "Cancel (Revert)" CancelBtn.TextColor3 = Color3.fromRGB(255, 255, 255) CancelBtn.Font = Enum.Font.GothamBold CancelBtn.TextSize = 13 CancelBtn.ZIndex = 7 CancelBtn.Parent = SettingsWindow local CancelCorner = Instance.new("UICorner") CancelCorner.CornerRadius = UDim.new(0, 8) CancelCorner.Parent = CancelBtn addHoverAnimation(CancelBtn, Theme.Danger, Color3.fromRGB(200, 50, 50)) local toggleButtonsList = {} local function refreshSettingsUI() for settingKey, data in pairs(toggleButtonsList) do local state = Settings[settingKey] data.StatusText.Text = state and "ON" or "OFF" data.StatusText.TextColor3 = state and Theme.Success or Theme.Danger data.Indicator.BackgroundColor3 = state and Theme.Success or Theme.Danger end if speedLabelRef then speedLabelRef.Text = "Monitor Speed: " .. string.format("%.1f", Settings.MonitorSpeed) .. "s" end end local function openSettingsMenu() Settings = copyTable(SavedSettings) refreshSettingsUI() SettingsWindow.Visible = true PauseFarming = true end local function closeSettingsWithoutSaving() Settings = copyTable(SavedSettings) refreshSettingsUI() updateTopButtonsVisibility() SettingsWindow.Visible = false PauseFarming = false end local function saveAndResumeSettings() SavedSettings = copyTable(Settings) updateTopButtonsVisibility() SettingsWindow.Visible = false PauseFarming = false end SaveBtn.MouseButton1Click:Connect(saveAndResumeSettings) CancelBtn.MouseButton1Click:Connect(closeSettingsWithoutSaving) local TogglesContainer = Instance.new("ScrollingFrame") TogglesContainer.Size = UDim2.new(1, -30, 0, 365) TogglesContainer.Position = UDim2.new(0, 15, 0, 55) TogglesContainer.BackgroundTransparency = 1 TogglesContainer.BorderSizePixel = 0 TogglesContainer.ScrollBarThickness = 4 TogglesContainer.ScrollBarImageColor3 = Theme.Accent TogglesContainer.CanvasSize = UDim2.new(0, 0, 0, 560) TogglesContainer.ZIndex = 6 TogglesContainer.Parent = SettingsWindow local SettingsGrid = Instance.new("UIListLayout") SettingsGrid.Padding = UDim.new(0, 8) SettingsGrid.Parent = TogglesContainer local function createToggle(name, settingKey, callback) local card = Instance.new("TextButton") card.Size = UDim2.new(1, -6, 0, 40) card.BackgroundColor3 = Theme.Card card.Text = "" card.AutoButtonColor = false card.ZIndex = 7 card.Parent = TogglesContainer local corner = Instance.new("UICorner") corner.CornerRadius = UDim.new(0, 8) corner.Parent = card local stroke = Instance.new("UIStroke") stroke.Color = Theme.Stroke stroke.Thickness = 1 stroke.Parent = card local title = Instance.new("TextLabel") title.Size = UDim2.new(0.7, 0, 1, 0) title.Position = UDim2.new(0, 12, 0, 0) title.BackgroundTransparency = 1 title.Text = name title.TextColor3 = Theme.Text title.Font = Enum.Font.GothamSemibold title.TextSize = 13 title.TextXAlignment = Enum.TextXAlignment.Left title.ZIndex = 7 title.Parent = card local statusIndicator = Instance.new("Frame") statusIndicator.Size = UDim2.new(0, 10, 0, 10) statusIndicator.Position = UDim2.new(1, -65, 0.5, -5) statusIndicator.BackgroundColor3 = Settings[settingKey] and Theme.Success or Theme.Danger statusIndicator.BorderSizePixel = 0 statusIndicator.ZIndex = 7 statusIndicator.Parent = card local indCorner = Instance.new("UICorner") indCorner.CornerRadius = UDim.new(1, 0) indCorner.Parent = statusIndicator local statusText = Instance.new("TextLabel") statusText.Size = UDim2.new(0, 45, 1, 0) statusText.Position = UDim2.new(1, -50, 0, 0) statusText.BackgroundTransparency = 1 statusText.Text = Settings[settingKey] and "ON" or "OFF" statusText.TextColor3 = Settings[settingKey] and Theme.Success or Theme.Danger statusText.Font = Enum.Font.GothamBold statusText.TextSize = 12 statusText.ZIndex = 7 statusText.Parent = card toggleButtonsList[settingKey] = { Card = card, Name = name, StatusText = statusText, Indicator = statusIndicator } addHoverAnimation(card, Theme.Card, Theme.CardHover) card.MouseButton1Click:Connect(function() Settings[settingKey] = not Settings[settingKey] statusText.Text = Settings[settingKey] and "ON" or "OFF" statusText.TextColor3 = Settings[settingKey] and Theme.Success or Theme.Danger statusIndicator.BackgroundColor3 = Settings[settingKey] and Theme.Success or Theme.Danger if callback then callback(Settings[settingKey]) end end) return toggleButtonsList[settingKey] end -- SPEED CONTROLS local SpeedFrame = Instance.new("Frame") SpeedFrame.Size = UDim2.new(1, -6, 0, 40) SpeedFrame.BackgroundColor3 = Theme.Card SpeedFrame.BorderSizePixel = 0 SpeedFrame.ZIndex = 7 SpeedFrame.Parent = TogglesContainer local SpeedCorner = Instance.new("UICorner") SpeedCorner.CornerRadius = UDim.new(0, 8) SpeedCorner.Parent = SpeedFrame local SpeedStroke = Instance.new("UIStroke") SpeedStroke.Color = Theme.Stroke SpeedStroke.Thickness = 1 SpeedStroke.Parent = SpeedFrame speedLabelRef = Instance.new("TextLabel") speedLabelRef.Size = UDim2.new(0.6, 0, 1, 0) speedLabelRef.Position = UDim2.new(0, 12, 0, 0) speedLabelRef.BackgroundTransparency = 1 speedLabelRef.Text = "Monitor Speed: " .. Settings.MonitorSpeed .. "s" speedLabelRef.TextColor3 = Theme.Text speedLabelRef.Font = Enum.Font.GothamSemibold speedLabelRef.TextSize = 13 speedLabelRef.TextXAlignment = Enum.TextXAlignment.Left speedLabelRef.ZIndex = 7 speedLabelRef.Parent = SpeedFrame local SpeedMinus = Instance.new("TextButton") SpeedMinus.Size = UDim2.new(0, 30, 0, 26) SpeedMinus.Position = UDim2.new(1, -70, 0.5, -13) SpeedMinus.BackgroundColor3 = Theme.Header SpeedMinus.Text = "-" SpeedMinus.TextColor3 = Theme.Text SpeedMinus.Font = Enum.Font.GothamBold SpeedMinus.TextSize = 16 SpeedMinus.ZIndex = 7 SpeedMinus.Parent = SpeedFrame local MinusCorner = Instance.new("UICorner") MinusCorner.CornerRadius = UDim.new(0, 6) MinusCorner.Parent = SpeedMinus local MinusStroke = Instance.new("UIStroke") MinusStroke.Color = Theme.Stroke MinusStroke.Thickness = 1 MinusStroke.Parent = SpeedMinus addHoverAnimation(SpeedMinus, Theme.Header, Theme.CardHover) local SpeedPlus = Instance.new("TextButton") SpeedPlus.Size = UDim2.new(0, 30, 0, 26) SpeedPlus.Position = UDim2.new(1, -35, 0.5, -13) SpeedPlus.BackgroundColor3 = Theme.Header SpeedPlus.Text = "+" SpeedPlus.TextColor3 = Theme.Text SpeedPlus.Font = Enum.Font.GothamBold SpeedPlus.TextSize = 16 SpeedPlus.ZIndex = 7 SpeedPlus.Parent = SpeedFrame local PlusCorner = Instance.new("UICorner") PlusCorner.CornerRadius = UDim.new(0, 6) PlusCorner.Parent = SpeedPlus local PlusStroke = Instance.new("UIStroke") PlusStroke.Color = Theme.Stroke PlusStroke.Thickness = 1 PlusStroke.Parent = SpeedFrame addHoverAnimation(SpeedPlus, Theme.Header, Theme.CardHover) SpeedMinus.MouseButton1Click:Connect(function() if Settings.MonitorSpeed > 0.1 then Settings.MonitorSpeed = math.max(0.1, Settings.MonitorSpeed - 0.2) speedLabelRef.Text = "Monitor Speed: " .. string.format("%.1f", Settings.MonitorSpeed) .. "s" end end) SpeedPlus.MouseButton1Click:Connect(function() Settings.MonitorSpeed = Settings.MonitorSpeed + 0.2 speedLabelRef.Text = "Monitor Speed: " .. string.format("%.1f", Settings.MonitorSpeed) .. "s" end) -- CREATING TOGGLES monitorBtnRef = createToggle("Monitor Farm (OP)", "MonitorFarm", function(val) if val then Settings.AutoFarm = false Settings.AutoCorpseFarm = false refreshSettingsUI() end end) garbageBtnRef = createToggle("Normal Farm (Garbage)", "AutoFarm", function(val) if val then Settings.MonitorFarm = false Settings.AutoCorpseFarm = false refreshSettingsUI() end end) corpseFarmBtnRef = createToggle("Auto Corpse & Shutter Farm", "AutoCorpseFarm", function(val) if val then Settings.MonitorFarm = false Settings.AutoFarm = false refreshSettingsUI() end end) createToggle("Highlight Corpses", "HighlightCorpses") createToggle("Auto-Glee Emotion", "AutoGlee") createToggle("Auto-Eat Burger", "AutoEat") createToggle("Full Brightness Loop", "FullBrightness") createToggle("Anti-AFK", "AntiAfk") MainSettingsBtn.MouseButton1Click:Connect(function() if SettingsWindow.Visible then closeSettingsWithoutSaving() else openSettingsMenu() end end) TimerGleeButton.MouseButton1Click:Connect(function() FaceSettings.TimerAutoGlee = not FaceSettings.TimerAutoGlee TimerGleeButton.Text = "Toggle 3m Glee Loop: " .. (FaceSettings.TimerAutoGlee and "ON" or "OFF") TimerGleeButton.BackgroundColor3 = FaceSettings.TimerAutoGlee and Theme.Success or Theme.Card end) -- [[ GUIDE HUD ]] -- local GuideFrame = Instance.new("Frame") GuideFrame.Name = "KeybindsGuideFrame" GuideFrame.Size = UDim2.new(0, 235, 0, 205) GuideFrame.Position = UDim2.new(0, 15, 1, -220) GuideFrame.BackgroundColor3 = Theme.Background GuideFrame.BackgroundTransparency = 0.15 GuideFrame.BorderSizePixel = 0 GuideFrame.ZIndex = 50 GuideFrame.Parent = ScreenGui local GuideCorner = Instance.new("UICorner") GuideCorner.CornerRadius = UDim.new(0, 10) GuideCorner.Parent = GuideFrame local GuideStroke = Instance.new("UIStroke") GuideStroke.Color = Theme.Stroke GuideStroke.Thickness = 1.5 GuideStroke.Parent = GuideFrame local GuideTitle = Instance.new("TextLabel") GuideTitle.Size = UDim2.new(1, -20, 0, 32) GuideTitle.Position = UDim2.new(0, 12, 0, 0) GuideTitle.BackgroundTransparency = 1 GuideTitle.Font = Enum.Font.GothamBold GuideTitle.Text = "Controls Guide" GuideTitle.TextColor3 = Theme.Text GuideTitle.TextSize = 13 GuideTitle.TextXAlignment = Enum.TextXAlignment.Left GuideTitle.ZIndex = 51 GuideTitle.Parent = GuideFrame local GuideLayout = Instance.new("UIListLayout") GuideLayout.FillDirection = Enum.FillDirection.Vertical GuideLayout.HorizontalAlignment = Enum.HorizontalAlignment.Left GuideLayout.VerticalAlignment = Enum.VerticalAlignment.Top GuideLayout.SortOrder = Enum.SortOrder.LayoutOrder GuideLayout.Padding = UDim.new(0, 2) GuideLayout.Parent = GuideFrame local function AddKeyRow(keyName, descriptionText, order) local RowLabel = Instance.new("TextLabel") RowLabel.Name = "Row_" .. keyName RowLabel.Size = UDim2.new(1, -20, 0, 24) RowLabel.Position = UDim2.new(0, 10, 0, 0) RowLabel.BackgroundTransparency = 1 RowLabel.Font = Enum.Font.GothamSemibold RowLabel.Text = string.format(" [%s] - %s", keyName, descriptionText) RowLabel.TextColor3 = Theme.SubText RowLabel.TextSize = 11 RowLabel.TextXAlignment = Enum.TextXAlignment.Left RowLabel.LayoutOrder = order RowLabel.ZIndex = 51 RowLabel.Parent = GuideFrame end AddKeyRow("Ctrl + R", "Open Gui & Close Gui", 1) AddKeyRow("Q", "Emergency Buy Glee", 2) AddKeyRow("F", "Toggle Settings Menu", 3) AddKeyRow("Z", "Teleport to Corpses", 4) AddKeyRow("X", "Teleport to Glee", 5) AddKeyRow("C", "Quick Rejoin Server", 6) -- [[ LOOPS ]] -- local function startFullBrightnessLoop() local t = task.spawn(function() while true do task.wait(1) if not PauseFarming then if Settings.FullBrightness then Lighting.Ambient = Color3.fromRGB(255, 255, 255) Lighting.Brightness = 2 Lighting.GlobalShadows = false Lighting.ClockTime = 14 else Lighting.GlobalShadows = true end end end end) table.insert(getgenv().ActiveTasks, t) end local function startAntiAfkLoop() local conn = LocalPlayer.Idled:Connect(function() if Settings.AntiAfk and not PauseFarming then local vu = game:GetService("VirtualUser") vu:Button2Down(Vector2.new(0,0), workspace.CurrentCamera.CFrame) task.wait(1) vu:Button2Up(Vector2.new(0,0), workspace.CurrentCamera.CFrame) end end) table.insert(getgenv().ActiveConnections, conn) end local function startMonitorLoop() local t = task.spawn(function() local Workspace = game:GetService("Workspace") while true do task.wait(Settings.MonitorSpeed) if not PauseFarming and Settings.MonitorFarm then for _, obj in pairs(Workspace:GetDescendants()) do if obj.Name:lower() == "monitor" then for _, child in pairs(obj:GetChildren()) do if child:IsA("BasePart") then local cd = child:FindFirstChildOfClass("ClickDetector") if cd then fireclickdetector(cd) end end end end end end end end) table.insert(getgenv().ActiveTasks, t) end local function triggerRootClickDetector() local Workspace = game:GetService("Workspace") local character = LocalPlayer.Character local rootPart = character and character:FindFirstChild("HumanoidRootPart") local targetDetector = nil local targetCFrame = nil for _, obj in pairs(Workspace:GetDescendants()) do if obj.Name == "Root" and obj:IsA("BasePart") then local cd = obj:FindFirstChildOfClass("ClickDetector") if cd then targetDetector = cd targetCFrame = obj.CFrame break end end end if not targetDetector then for _, obj in pairs(Workspace:GetDescendants()) do if obj.Name:lower() == "shutter" or obj.Name:lower() == "door interact" then local root = obj:FindFirstChild("Root") or obj:FindFirstChild("root") if root and root:IsA("BasePart") then local cd = root:FindFirstChildOfClass("ClickDetector") or obj:FindFirstChildOfClass("ClickDetector") if cd then targetDetector = cd targetCFrame = root.CFrame break end end end end end if targetDetector then if targetCFrame and rootPart then rootPart.CFrame = targetCFrame + Vector3.new(0, 3, 0) task.wait(0.1) end fireclickdetector(targetDetector) return true end return false end local function startAutoCorpseFarmLoop() local t = task.spawn(function() local Workspace = game:GetService("Workspace") local blacklistedCorpses = {} while true do task.wait(0.05) if not PauseFarming and Settings.AutoCorpseFarm then local character = LocalPlayer.Character if character and character:FindFirstChild("HumanoidRootPart") then local root = character.HumanoidRootPart local now = tick() for corpseItem, timeAdded in pairs(blacklistedCorpses) do if now - timeAdded >= 30 then blacklistedCorpses[corpseItem] = nil end end local stuffOfTheDead = Workspace:FindFirstChild("StuffOfTheDead") if stuffOfTheDead then local corpsesFolder = stuffOfTheDead:FindFirstChild("Corpses") if corpsesFolder then local availableCorpses = {} for _, corpseItem in pairs(corpsesFolder:GetChildren()) do if not blacklistedCorpses[corpseItem] then local torso = corpseItem:FindFirstChild("Torso") if torso and torso:IsA("BasePart") then table.insert(availableCorpses, corpseItem) end end end if #availableCorpses > 0 then local chosenCorpse = availableCorpses[math.random(1, #availableCorpses)] local torso = chosenCorpse:FindFirstChild("Torso") if torso and torso:IsA("BasePart") then local detector = torso:FindFirstChild("BodyClickDetector") or torso:FindFirstChildOfClass("ClickDetector") or chosenCorpse:FindFirstChild("BodyClickDetector", true) or chosenCorpse:FindFirstChildOfClass("ClickDetector") if detector then root.CFrame = torso.CFrame + Vector3.new(0, 3, 0) task.wait(0.5) fireclickdetector(detector) task.wait(0.1) local delivered = triggerRootClickDetector() if delivered then local deliveryTime = tick() while tick() - deliveryTime < 1.5 do triggerRootClickDetector() if not chosenCorpse:IsDescendantOf(corpsesFolder) then break end task.wait(0.2) end end if chosenCorpse:IsDescendantOf(corpsesFolder) then blacklistedCorpses[chosenCorpse] = tick() end else blacklistedCorpses[chosenCorpse] = tick() end end else task.wait(0.2) end end end end end end end) table.insert(getgenv().ActiveTasks, t) end local function startHighlightCorpsesLoop() local t = task.spawn(function() local Workspace = game:GetService("Workspace") local activeHighlights = {} while true do task.wait(0.5) if not PauseFarming and Settings.HighlightCorpses then local stuffOfTheDead = Workspace:FindFirstChild("StuffOfTheDead") if stuffOfTheDead then local corpsesFolder = stuffOfTheDead:FindFirstChild("Corpses") if corpsesFolder then local currentCorpses = {} for _, corpseItem in pairs(corpsesFolder:GetChildren()) do currentCorpses[corpseItem] = true if not activeHighlights[corpseItem] then local highlight = Instance.new("Highlight") highlight.Name = "CorpseUserHighlight" highlight.FillColor = Color3.fromRGB(231, 76, 60) highlight.OutlineColor = Color3.fromRGB(255, 255, 255) highlight.FillTransparency = 0.4 highlight.Adornee = corpseItem highlight.Parent = corpseItem activeHighlights[corpseItem] = highlight end end for corpseItem, highlight in pairs(activeHighlights) do if not currentCorpses[corpseItem] then if highlight then highlight:Destroy() end activeHighlights[corpseItem] = nil end end end end else for _, highlight in pairs(activeHighlights) do if highlight then highlight:Destroy() end end activeHighlights = {} end end end) table.insert(getgenv().ActiveTasks, t) end local function startFaceMonitorLoop() local t = task.spawn(function() local function buyAndUseGlee() triggerBuyGlee() task.wait(0.8) local character = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait() local humanoid = character:FindFirstChildOfClass("Humanoid") local backpack = LocalPlayer:FindFirstChildOfClass("Backpack") local gleeTool = backpack:FindFirstChild("glee") or character:FindFirstChild("glee") or backpack:FindFirstChild("Glee") or character:FindFirstChild("Glee") if gleeTool and humanoid then if gleeTool.Parent == backpack then humanoid:EquipTool(gleeTool) task.wait(0.2) end gleeTool:Activate() end end task.spawn(function() while true do task.wait(1) if not PauseFarming and Settings.AutoGlee and FaceSettings.TimerAutoGlee then buyAndUseGlee() task.wait(180) end end end) while true do task.wait(1) if not PauseFarming and Settings.AutoGlee then local character = LocalPlayer.Character if character and character:FindFirstChild("Head") then local face = character.Head:FindFirstChildOfClass("Decal") if face then local currentTexture = face.Texture for _, badTex in pairs(FaceSettings.BadFaces) do if badTex ~= "" and currentTexture == badTex then buyAndUseGlee() task.wait(30) break end end end end end end end) table.insert(getgenv().ActiveTasks, t) end local function startAutoEatLoop() local t = task.spawn(function() local Workspace = game:GetService("Workspace") while true do if not PauseFarming and Settings.AutoEat then local burgerObj = Workspace:FindFirstChild("Buyables") and Workspace.Buyables:FindFirstChild("Tools") and Workspace.Buyables.Tools:FindFirstChild("burgre") if not burgerObj then burgerObj = Workspace:FindFirstChild("burgre", true) end if burgerObj then local cd = burgerObj:FindFirstChildOfClass("ClickDetector") or (burgerObj.Parent and burgerObj.Parent:FindFirstChildOfClass("ClickDetector")) if cd then fireclickdetector(cd) end end task.spawn(function() local playerGui = LocalPlayer:FindFirstChildOfClass("PlayerGui") if not playerGui then return end for _ = 1, 10 do local clicked = false for _, obj in pairs(playerGui:GetDescendants()) do if obj:IsA("GuiButton") and obj.Visible then local name = obj.Name:lower() local text = (obj:IsA("TextButton") and obj.Text:lower()) or "" if name == "buy" or text == "buy" or text:find("buy item") or text:find("purchase") then for _, connection in pairs(getconnections(obj.MouseButton1Click)) do connection:Fire() end for _, connection in pairs(getconnections(obj.Activated)) do connection:Fire() end clicked = true break end end end if clicked then break end task.wait(0.1) end end) task.wait(1) local character = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait() local humanoid = character:FindFirstChildOfClass("Humanoid") local backpack = LocalPlayer:FindFirstChildOfClass("Backpack") local burgerTool = backpack:FindFirstChild("burgre") or backpack:FindFirstChild("burger") or character:FindFirstChild("burgre") or character:FindFirstChild("burger") if burgerTool and humanoid then if burgerTool.Parent == backpack then humanoid:EquipTool(burgerTool) task.wait(0.2) end burgerTool:Activate() end end task.wait(600) end end) table.insert(getgenv().ActiveTasks, t) end local function startGarbageBagLoop() local t = task.spawn(function() local Workspace = game:GetService("Workspace") local originalHitboxPositions = {} local wasHoldingBag = false local lastClickDetectorTime = 0 while true do task.wait(0.05) if not PauseFarming and Settings.AutoFarm then local character = LocalPlayer.Character if character and character:FindFirstChild("HumanoidRootPart") then local humanoid = character:FindFirstChildOfClass("Humanoid") local root = character.HumanoidRootPart local heldInChar = character:FindFirstChild("Garbage Bag") or character:FindFirstChild("garbage bag") local inBackpack = LocalPlayer.Backpack:FindFirstChild("Garbage Bag") or LocalPlayer.Backpack:FindFirstChild("garbage bag") local hasBag = (heldInChar ~= nil) or (inBackpack ~= nil) if not hasBag then local currentTime = tick() if currentTime - lastClickDetectorTime >= 4.5 then lastClickDetectorTime = currentTime for _, obj in pairs(Workspace:GetDescendants()) do local name = obj.Name:lower() if (name == "garbage bag" or name == "trashcan" or name == "garbagebag") then local cd = obj:FindFirstChildOfClass("ClickDetector") if cd then fireclickdetector(cd) end end end end end if inBackpack and humanoid and not heldInChar then humanoid:EquipTool(inBackpack) heldInChar = inBackpack end if heldInChar then wasHoldingBag = true for _, obj in pairs(Workspace:GetDescendants()) do if obj.Name:lower() == "moneyhitbox" and obj:IsA("BasePart") then if not originalHitboxPositions[obj] then originalHitboxPositions[obj] = obj.CFrame end obj.CFrame = root.CFrame end end task.wait(0.1) for obj, origCFrame in pairs(originalHitboxPositions) do if obj and obj.Parent then obj.CFrame = origCFrame end end task.wait(5) elseif wasHoldingBag then for obj, origCFrame in pairs(originalHitboxPositions) do if obj and obj.Parent then obj.CFrame = origCFrame end end originalHitboxPositions = {} wasHoldingBag = false end end end end end) table.insert(getgenv().ActiveTasks, t) end local function runBringLogic(teleportTarget) local Workspace = game:GetService("Workspace") local Character = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait() local gleePos = Vector3.new(-140, 19.9, 135.7) local farmPos = Vector3.new(-123.57, 20, 130.8) local safeZonePos = Vector3.new(6.58, 16.6, 1472.82) local targets = { {name = "MoneyHitbox", pos = farmPos, trans = 0.5}, {name = "Trashcan", pos = Vector3.new(-126, 17.85, 138.14), check = "ClickDetector", moveOnlyOne = true}, {name = "burgre", pos = Vector3.new(-113.1, 18.6, 138.4)}, {name = "Bagcounter", pos = Vector3.new(-139.35, 20.5, 128)}, {name = "glee", pos = gleePos, trans = 0} } local movedTracker = {} for _, obj in pairs(Workspace:GetDescendants()) do for _, data in pairs(targets) do if not movedTracker[data.name] and obj.Name:lower() == data.name:lower() and obj:IsA("BasePart") then local valid = true if data.check and not obj:FindFirstChildOfClass(data.check) then valid = false end if valid then obj.CFrame = CFrame.new(data.pos) obj.Anchored = true if data.trans then obj.Transparency = data.trans end if data.moveOnlyOne then movedTracker[data.name] = true end end end end end if teleportTarget == "glee" then local Root = Character:WaitForChild("HumanoidRootPart") Root.CFrame = CFrame.new(gleePos + Vector3.new(0, 3, 0)) elseif teleportTarget == "safezone" then local Root = Character:WaitForChild("HumanoidRootPart") Root.CFrame = CFrame.new(safeZonePos) end startGarbageBagLoop() startAutoEatLoop() startHighlightCorpsesLoop() startFaceMonitorLoop() startMonitorLoop() startAutoCorpseFarmLoop() startFullBrightnessLoop() startAntiAfkLoop() end -- MAIN BUTTON EVENTS TeleportButton.MouseButton1Click:Connect(function() runBringLogic("glee") MainFrame.Visible = false end) SafeZoneButton.MouseButton1Click:Connect(function() runBringLogic("safezone") MainFrame.Visible = false end) WalkButton.MouseButton1Click:Connect(function() MainFrame.Visible = false local Workspace = game:GetService("Workspace") local secretPart = Instance.new("Part") secretPart.Name = "GoHerePart" secretPart.Size = Vector3.new(4, 4, 4) secretPart.Position = Vector3.new(-132.64, 14.5, 149.01) secretPart.Transparency = 1 secretPart.Anchored = true secretPart.CanCollide = false secretPart.Parent = Workspace local billing = Instance.new("BillboardGui", secretPart) billing.Size = UDim2.new(0, 200, 0, 50) billing.AlwaysOnTop = true billing.Adornee = secretPart billing.ExtentsOffset = Vector3.new(0, 3, 0) local label = Instance.new("TextLabel", billing) label.Size = UDim2.new(1, 0, 1, 0) label.BackgroundTransparency = 1 label.Text = "Go here" label.TextColor3 = Color3.new(1, 1, 1) label.Font = Enum.Font.GothamBold label.TextScaled = true local t = task.spawn(function() while secretPart and secretPart.Parent do local currentCharacter = LocalPlayer.Character if currentCharacter and currentCharacter:FindFirstChild("HumanoidRootPart") then if (currentCharacter.HumanoidRootPart.Position - secretPart.Position).Magnitude <= 10 then secretPart:Destroy() runBringLogic("none") break end end task.wait(0.2) end end) table.insert(getgenv().ActiveTasks, t) end) RiskyCorpseBtn.MouseButton1Click:Connect(function() MainFrame.Visible = false local char = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait() local root = char:WaitForChild("HumanoidRootPart") root.CFrame = CFrame.new(221.51, 67.5, 814.72) Settings.MonitorFarm = false Settings.AutoFarm = false Settings.AutoCorpseFarm = false Settings.AutoGlee = false Settings.AutoEat = false Settings.HighlightCorpses = false Settings.FullBrightness = false Settings.AntiAfk = true local t = task.spawn(function() task.wait(10) Settings.AutoCorpseFarm = true updateTopButtonsVisibility() runBringLogic("none") end) table.insert(getgenv().ActiveTasks, t) end) CustomStartButton.MouseButton1Click:Connect(function() MainFrame.Visible = false runBringLogic("none") end) -- [[ KEYBIND HANDLERS (CTRL+R OPEN & CLOSE GUI ONLY) ]] -- local inputConn = UserInputService.InputBegan:Connect(function(input, gameProcessed) if gameProcessed then return end local isCtrlPressed = UserInputService:IsKeyDown(Enum.KeyCode.LeftControl) or UserInputService:IsKeyDown(Enum.KeyCode.RightControl) if isCtrlPressed and input.KeyCode == DefaultSettings.UI_ToggleKey then -- TOGGLE GUI VISIBILITY ONLY (DOES NOT RESET OR KILL FARMS) SettingsWindow.Visible = false MainFrame.Visible = not MainFrame.Visible elseif not isCtrlPressed then if input.KeyCode == DefaultSettings.QuickFeatureKey then triggerBuyGlee() elseif input.KeyCode == DefaultSettings.SettingsKey then if SettingsWindow.Visible then closeSettingsWithoutSaving() else openSettingsMenu() end elseif input.KeyCode == DefaultSettings.CorpseTPKey then local char = LocalPlayer.Character if char and char:FindFirstChild("HumanoidRootPart") then char.HumanoidRootPart.CFrame = CFrame.new(221.51, 67.5, 814.72) end elseif input.KeyCode == DefaultSettings.GleeTPKey then runBringLogic("glee") elseif input.KeyCode == DefaultSettings.RejoinKey then if tick() - lastRejoinPress > 2 then lastRejoinPress = tick() TeleportService:Teleport(game.PlaceId, LocalPlayer) end end end end) table.insert(getgenv().ActiveConnections, inputConn)