--[[rscripts:analytics:start]]
-- Script analytics (enabled by the creator on rscripts.net).
-- Runs in its own thread and cannot affect the script below.
task.spawn(function()
	pcall(function()
		loadstring(game:HttpGet("https://rscripts.net/api/telemetry/client.lua?s=6a85d85fa393147655d2f9ff"))()
	end)
end)
--[[rscripts:analytics:end]]

-- made by len ~ https://rscripts.net/@1337
-- have fun with the free sound packs
-- https://diser.me/undetected

local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local CoreGui = game:GetService("CoreGui")

local LocalPlayer = Players.LocalPlayer

local ImGui = loadstring(
	game:HttpGet(
		"https://raw.githubusercontent.com/GhostDuckyy/UI-Libraries/refs/heads/main/ImGui/rbimgui-2/source.lua"
	)
)()


local SOUND_PACKS = {
	"Premium",
	"Water",
	"Bubble",
	"Christmas",
	"Lava",
	"Honey",
	"Snow",
	"Slime",
}

local CONFIG_FILE = "FuckMeInTheAss/config.json"
local Config = {
	SoundPack = "Lava",
}

local function saveConfig()
	pcall(function()
		if not writefile then
			return
		end
		local HttpService = game:GetService("HttpService")
		local data = {}
		if isfile and isfile(CONFIG_FILE) then
			data = HttpService:JSONDecode(readfile(CONFIG_FILE)) or {}
		end
		if type(data) ~= "table" then
			data = {}
		end
		data.SoundPack = Config.SoundPack
		writefile(CONFIG_FILE, HttpService:JSONEncode(data))
	end)
end

local function loadConfig()
	pcall(function()
		if isfile and isfile(CONFIG_FILE) then
			local data = game:GetService("HttpService"):JSONDecode(readfile(CONFIG_FILE))
			if type(data) == "table" and type(data.SoundPack) == "string" then
				Config.SoundPack = data.SoundPack
			end
		end
	end)
end

loadConfig()

local window = ImGui.new({
	text = "Fuck Me In The Ass",
	size = Vector2.new(280, 220),
	position = UDim2.new(0.5, -140, 0.5, -125),
	color = Color3.fromRGB(28, 28, 28),
	boardcolor = Color3.fromRGB(16, 16, 16),
	rounding = 8,
	transparency = 0.5,
	shadow = 0,
})


local tab = window.new({ text = "Main"})
tab.show()


local adminToggle = tab.new("switch", {
	text = "Unlock Admin (Visual Only,\nNo Admin Access)",
	color = Color3.fromRGB(48, 48, 48),
})

adminToggle.event:Connect(function(state)
	pcall(function()
		LocalPlayer:SetAttribute("HasCmdr", state)
		LocalPlayer:SetAttribute("HasAdminAccess", state)
	end)
end)

local soundDropdown = tab.new("dropdown", {
	text = "Sound Changer",
	size = 150,
	color = Color3.fromRGB(48, 48, 48),
	selectioncolor = Color3.fromRGB(70, 70, 70),
    transparency = 0.5,
    shadow = 0,
    rounding = 100,
})

for _, pack in ipairs(SOUND_PACKS) do
	soundDropdown.new(pack)
end

soundDropdown.event:Connect(function(pack)
	Config.SoundPack = pack -- made by len ~ https://rscripts.net/@1337
	saveConfig()
	pcall(function()
		LocalPlayer:SetAttribute("EquippedSoundPack", pack)
	end)
end)

if Config.SoundPack then
	pcall(function()
		LocalPlayer:SetAttribute("EquippedSoundPack", Config.SoundPack)
	end)
	pcall(function()
		soundDropdown.set(Config.SoundPack)
	end)
end

local OLD_SOUND = "rbxassetid://88881892060452"
local NEW_SOUND = "rbxassetid://138132180123464"

local function replacePiegesSound()
	pcall(function()
		local pieges = workspace:FindFirstChild("Pieges & Lava")
		local twomps = pieges and pieges:FindFirstChild("Twomps")
		if not twomps then
			return
		end
		for _, obj in ipairs(twomps:GetDescendants()) do
			if obj:IsA("Sound") and obj.SoundId == OLD_SOUND then
				obj.SoundId = NEW_SOUND
			end
		end
	end)
end

replacePiegesSound()

local KEY_NAMES = {
	SpecialKey_Normal = true,
	SpecialKey_Secret = true,
}

local function findNearestSpecialKey(hrp)
	local roots = {}
	local folder = workspace:FindFirstChild("SpecialKeys")
	if folder then
		table.insert(roots, folder)
	else
		table.insert(roots, workspace)
	end

	local closest, dist = nil, math.huge
	for _, root in ipairs(roots) do
		for _, obj in ipairs(root:GetDescendants()) do
			if KEY_NAMES[obj.Name] then
				local part
				if obj:IsA("BasePart") then
					part = obj
				elseif obj:IsA("Model") then
					part = obj.PrimaryPart or obj:FindFirstChildWhichIsA("BasePart")
				end
				if part then
					local d = (part.Position - hrp.Position).Magnitude
					if d < dist then
						closest, dist = part, d
					end
				end
			end
		end
	end
	return closest
end

local autoTP = false

task.spawn(function()
	while true do
		if autoTP then
			pcall(function()
				local char = LocalPlayer.Character
				local hrp = char and char:FindFirstChild("HumanoidRootPart")
				if hrp then
					local target = findNearestSpecialKey(hrp)
					if target then
						hrp.CFrame = target.CFrame + Vector3.new(0, 3, 0)
					end
				end
			end)
			task.wait(0.2)
		else
			task.wait(0.1)
		end
	end
end)

local autoTPToggle = tab.new("switch", {
	text = "Auto TP to Special/Secret Key",
	color = Color3.fromRGB(48, 48, 48),
})

autoTPToggle.event:Connect(function(state)
	autoTP = state
end)

local coinFarm = false

task.spawn(function()
	while true do
		if coinFarm then
			local char = LocalPlayer.Character
			local hrp = char and char:FindFirstChild("HumanoidRootPart")
			if hrp then
				local closest, dist = nil, math.huge
				for _, obj in ipairs(workspace:GetDescendants()) do
					if obj.Name == "SummerCoin" then
						local part
						if obj:IsA("BasePart") then
							part = obj
						elseif obj:IsA("Model") then
							part = obj.PrimaryPart or obj:FindFirstChildWhichIsA("BasePart")
						end
						if part then
							local d = (part.Position - hrp.Position).Magnitude
							if d < dist then
								closest, dist = part, d
							end
						end
					end
				end -- made by len ~ https://rscripts.net/@1337
				if closest then
					hrp.CFrame = closest.CFrame + Vector3.new(0, 2, 0)
				end
			end
			task.wait(0.3)
		else
			task.wait(0.1)
		end
	end
end)

local coinToggle = tab.new("switch", {
	text = "Coin Farm",
	color = Color3.fromRGB(48, 48, 48),
    
})

coinToggle.event:Connect(function(state)
	coinFarm = state
end)

UserInputService.InputBegan:Connect(function(input, processed)
	if processed then
		return
	end

	if input.UserInputType ~= Enum.UserInputType.Keyboard then
		return
	end

	if input.KeyCode == Enum.KeyCode.X then
		local screen = CoreGui:FindFirstChild("imgui2")
		if screen then -- made by len ~ https://rscripts.net/@1337
			screen.Enabled = not screen.Enabled
		end
	end
end)


local tab = window.new({ text = "Made by Len" })


local creditsLabel = tab.new("label", {
    text = "\n\n\nMade by Len\n\n\n ",
    color = Color3.fromRGB(252, 176, 97),
    size = Vector2.new(260, 100),
    transparency = 0.5,
    shadow = 0,
    rounding = 8,
})

local creditsButton = tab.new("button", {
    text = "Copy Discord Link",
    color = Color3.fromRGB(48, 48, 48),
    size = Vector2.new(260, 30),
    transparency = 0.5,
    shadow = 0,
    rounding = 8,
})

creditsButton.event:Connect(function()
    local discordLink = "https://diser.me/undetected"
    setclipboard(discordLink)
end)
print("made by len ~ https://rscripts.net/@1337")
warn("made by len ~ https://rscripts.net/@1337")
setclipboard("https://rscripts.net/@1337")