-- k0lgui  ·  k0lby430lo
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local TweenService = game:GetService("TweenService")
local Lighting = game:GetService("Lighting")
local player = Players.LocalPlayer
local R = ReplicatedStorage

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "k0lgui"
ScreenGui.ResetOnSpawn = false
ScreenGui.IgnoreGuiInset = true
ScreenGui.DisplayOrder = 999999
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Global

local function GetSafeParent()
	local ok, hui = pcall(function()
		if typeof(gethui) == "function" then return gethui() end
	end)
	if ok and hui then return hui end
	local ok2, cg = pcall(function() return game:GetService("CoreGui") end)
	if ok2 and cg then
		local ok3 = pcall(function()
			local t = Instance.new("ScreenGui")
			t.Parent = cg
			t:Destroy()
		end)
		if ok3 then return cg end
	end
	return player:WaitForChild("PlayerGui")
end

local safeParent = GetSafeParent()
ScreenGui.Parent = safeParent
ScreenGui.Enabled = true

RunService.Heartbeat:Connect(function()
	if not ScreenGui then return end
	if ScreenGui.Parent ~= safeParent then pcall(function() ScreenGui.Parent = safeParent end) end
	if not ScreenGui.Enabled then ScreenGui.Enabled = true end
	if ScreenGui.DisplayOrder < 999999 then ScreenGui.DisplayOrder = 999999 end
end)

ScreenGui.AncestryChanged:Connect(function(_, parent)
	if parent == nil then
		task.defer(function()
			pcall(function()
				safeParent = GetSafeParent()
				ScreenGui.Parent = safeParent
				ScreenGui.Enabled = true
			end)
		end)
	end
end)

-- sounds
local function CreateSound(id)
	local s = Instance.new("Sound")
	s.SoundId = "rbxassetid://" .. id
	s.Volume = 1
	s.Looped = false
	s.Parent = ScreenGui
	return s
end
local ClickSound = CreateSound("138567614125924")
local TypeSound  = CreateSound("127105730240202")
local BounceSound = CreateSound("131916027000817")
local function PlayClick() ClickSound:Stop() ClickSound:Play() end
local function PlayType() TypeSound:Stop() TypeSound:Play() end
local function PlayBounce() BounceSound:Stop() BounceSound:Play() end

UserInputService.InputBegan:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseButton1
		or input.UserInputType == Enum.UserInputType.Touch then
		PlayClick()
	end
end)
UserInputService.InputBegan:Connect(function(input)
	if input.UserInputType ~= Enum.UserInputType.Keyboard then return end
	if not UserInputService:GetFocusedTextBox() then return end
	local key = input.KeyCode
	if key == Enum.KeyCode.Unknown
		or key == Enum.KeyCode.LeftShift or key == Enum.KeyCode.RightShift
		or key == Enum.KeyCode.LeftControl or key == Enum.KeyCode.RightControl
		or key == Enum.KeyCode.LeftAlt or key == Enum.KeyCode.RightAlt
		or key == Enum.KeyCode.Escape then return end
	PlayType()
end)

-- palette (rojo suave, no neon agresivo)
local C = {
	bg     = Color3.fromRGB(22, 9, 10),
	panel  = Color3.fromRGB(32, 12, 14),
	btn    = Color3.fromRGB(48, 16, 18),
	btnH   = Color3.fromRGB(78, 24, 28),
	stroke = Color3.fromRGB(190, 55, 55),
	text   = Color3.fromRGB(245, 200, 200),
	mute   = Color3.fromRGB(170, 110, 115),
	close  = Color3.fromRGB(120, 28, 32),
	accent = Color3.fromRGB(220, 70, 70),
}
local BG_IMAGE = "rbxassetid://101572851979437"

local function corner(parent, r)
	local c = Instance.new("UICorner")
	c.CornerRadius = UDim.new(0, r or 10)
	c.Parent = parent
	return c
end

local function stroke(parent, col, th)
	local s = Instance.new("UIStroke")
	s.Color = col or C.stroke
	s.Thickness = th or 1.2
	s.Transparency = 0.25
	s.ApplyStrokeMode = Enum.ApplyStrokeMode.Border
	s.Parent = parent
	return s
end

local function grad(parent, a, b, rot)
	local g = Instance.new("UIGradient")
	g.Color = ColorSequence.new({
		ColorSequenceKeypoint.new(0, a or C.panel),
		ColorSequenceKeypoint.new(1, b or C.bg),
	})
	g.Rotation = rot or 110
	g.Parent = parent
	return g
end

local function MakePanel(size, pos)
	local p = Instance.new("ImageLabel")
	p.Size = size
	p.Position = pos
	p.BackgroundColor3 = C.panel
	p.BorderSizePixel = 0
	p.Image = BG_IMAGE
	p.ScaleType = Enum.ScaleType.Crop
	p.ImageTransparency = 0.62
	p.Active = true
	p.ClipsDescendants = true
	corner(p, 14)
	stroke(p, C.stroke, 1.4)
	-- accent bar izquierda (rompe el “caja perfecta”)
	local bar = Instance.new("Frame")
	bar.Size = UDim2.new(0, 4, 0.72, 0)
	bar.Position = UDim2.new(0, 0, 0.14, 0)
	bar.BackgroundColor3 = C.accent
	bar.BorderSizePixel = 0
	bar.ZIndex = 3
	bar.Parent = p
	corner(bar, 3)
	grad(bar, Color3.fromRGB(255, 90, 90), Color3.fromRGB(140, 30, 40), 90)
	return p
end

local function SpawnBinaryBurst(count, duration)
	count = count or 18
	duration = duration or 1.25
	local cam = workspace.CurrentCamera
	if not cam then return end
	local vw, vh = cam.ViewportSize.X, cam.ViewportSize.Y
	local bits = {"0", "1", "01", "10", "0101", "1010"}
	for _ = 1, count do
		task.spawn(function()
			local lbl = Instance.new("TextLabel")
			lbl.BackgroundTransparency = 1
			lbl.Text = bits[math.random(1, #bits)]
			lbl.TextColor3 = Color3.fromRGB(math.random(160, 255), math.random(40, 80), math.random(40, 80))
			lbl.Font = Enum.Font.Gotham
			lbl.TextSize = math.random(9, 13)
			lbl.ZIndex = 40
			lbl.TextTransparency = 0.25
			local x = math.random(0, math.max(1, vw - 30))
			local y = math.random(-20, math.floor(vh * 0.25))
			lbl.Position = UDim2.new(0, x, 0, y)
			lbl.Size = UDim2.new(0, 60, 0, 16)
			lbl.Parent = ScreenGui
			local tw = TweenService:Create(lbl, TweenInfo.new(duration + math.random() * 0.5, Enum.EasingStyle.Quad), {
				Position = UDim2.new(0, x + math.random(-20, 20), 0, math.random(math.floor(vh * 0.45), math.floor(vh * 0.9))),
				TextTransparency = 1,
			})
			tw:Play()
			tw.Completed:Connect(function() if lbl then lbl:Destroy() end end)
		end)
	end
end

local function PulseStroke(obj, times)
	if not obj then return end
	local st = obj:FindFirstChildOfClass("UIStroke")
	if not st then return end
	task.spawn(function()
		for _ = 1, times or 2 do
			local o = st.Transparency
			TweenService:Create(st, TweenInfo.new(0.1), {Transparency = 0}):Play()
			task.wait(0.1)
			TweenService:Create(st, TweenInfo.new(0.14), {Transparency = o}):Play()
			task.wait(0.12)
		end
	end)
end

local function StartAmbientBinary()
	task.spawn(function()
		while ScreenGui and ScreenGui.Parent do
			task.wait(0.7)
			if math.random() < 0.5 then SpawnBinaryBurst(math.random(3, 7), 1.5) end
		end
	end)
end

local function WireBtnAnim(b)
	local base = b.Size
	local st = b:FindFirstChildOfClass("UIStroke")
	b.MouseButton1Down:Connect(function()
		TweenService:Create(b, TweenInfo.new(0.08), {
			Size = UDim2.new(base.X.Scale, base.X.Offset - 3, base.Y.Scale, base.Y.Offset - 2),
		}):Play()
	end)
	b.MouseButton1Up:Connect(function()
		TweenService:Create(b, TweenInfo.new(0.14, Enum.EasingStyle.Back), {Size = base}):Play()
	end)
	b.MouseEnter:Connect(function()
		TweenService:Create(b, TweenInfo.new(0.14), {BackgroundColor3 = C.btnH}):Play()
		if st then TweenService:Create(st, TweenInfo.new(0.14), {Transparency = 0.05}):Play() end
	end)
	b.MouseLeave:Connect(function()
		TweenService:Create(b, TweenInfo.new(0.16), {BackgroundColor3 = C.btn, Size = base}):Play()
		if st then TweenService:Create(st, TweenInfo.new(0.16), {Transparency = 0.3}):Play() end
	end)
end

local function Btn(parent, text, x, y, w, h)
	-- anchos ligeramente irregulares para no verse plantilla
	local jitter = math.random(-2, 3)
	local b = Instance.new("TextButton")
	b.Size = UDim2.new(0, w + jitter, 0, h)
	b.Position = UDim2.new(0, x, 0, y)
	b.BackgroundColor3 = C.btn
	b.BorderSizePixel = 0
	b.Text = text
	b.TextColor3 = C.text
	b.Font = Enum.Font.GothamMedium
	b.TextSize = 12
	b.TextWrapped = true
	b.AutoButtonColor = false
	b.ZIndex = 2
	b.Parent = parent
	corner(b, 9)
	stroke(b, C.stroke, 1)
	local st = b:FindFirstChildOfClass("UIStroke")
	if st then st.Transparency = 0.3 end
	WireBtnAnim(b)
	return b
end

-- KEY
local KeyFrame = MakePanel(UDim2.new(0, 300, 0, 188), UDim2.new(0.5, -150, 0.5, -94))
KeyFrame.Draggable = true
KeyFrame.Parent = ScreenGui
SpawnBinaryBurst(14, 1)

local KeyTitle = Instance.new("TextLabel")
KeyTitle.Size = UDim2.new(1, -20, 0, 26)
KeyTitle.Position = UDim2.new(0, 14, 0, 10)
KeyTitle.BackgroundTransparency = 1
KeyTitle.Text = "k0lgui  ·  key"
KeyTitle.TextColor3 = C.text
KeyTitle.Font = Enum.Font.GothamBold
KeyTitle.TextSize = 15
KeyTitle.TextXAlignment = Enum.TextXAlignment.Left
KeyTitle.ZIndex = 2
KeyTitle.Parent = KeyFrame

local KeyBox = Instance.new("TextBox")
KeyBox.Size = UDim2.new(1, -28, 0, 34)
KeyBox.Position = UDim2.new(0, 14, 0, 44)
KeyBox.BackgroundColor3 = Color3.fromRGB(18, 7, 8)
KeyBox.BorderSizePixel = 0
KeyBox.Text = ""
KeyBox.PlaceholderText = "key here..."
KeyBox.TextColor3 = C.text
KeyBox.PlaceholderColor3 = C.mute
KeyBox.Font = Enum.Font.Gotham
KeyBox.TextSize = 14
KeyBox.ClearTextOnFocus = false
KeyBox.ZIndex = 2
KeyBox.Parent = KeyFrame
corner(KeyBox, 8)
stroke(KeyBox, C.stroke, 1)

local function MakeKeyBtn(text, x, y, w)
	local b = Instance.new("TextButton")
	b.Size = UDim2.new(0, w, 0, 32)
	b.Position = UDim2.new(0, x, 0, y)
	b.BackgroundColor3 = C.btn
	b.BorderSizePixel = 0
	b.Text = text
	b.TextColor3 = C.text
	b.Font = Enum.Font.GothamMedium
	b.TextSize = 13
	b.AutoButtonColor = false
	b.ZIndex = 2
	b.Parent = KeyFrame
	corner(b, 8)
	stroke(b, C.stroke, 1)
	WireBtnAnim(b)
	return b
end

local GetKeyBtn = MakeKeyBtn("get key", 14, 92, 128)
local VerifyBtn = MakeKeyBtn("verify", 158, 92, 128)

local StatusLabel = Instance.new("TextLabel")
StatusLabel.Size = UDim2.new(1, -24, 0, 24)
StatusLabel.Position = UDim2.new(0, 14, 0, 138)
StatusLabel.BackgroundTransparency = 1
StatusLabel.Text = ""
StatusLabel.TextColor3 = C.mute
StatusLabel.Font = Enum.Font.Gotham
StatusLabel.TextSize = 12
StatusLabel.TextXAlignment = Enum.TextXAlignment.Left
StatusLabel.ZIndex = 2
StatusLabel.Parent = KeyFrame

GetKeyBtn.MouseButton1Click:Connect(function()
	pcall(function() setclipboard("https://discord.gg/HsgXZgFEb") end)
	StatusLabel.Text = "copied."
	StatusLabel.TextColor3 = C.text
	SpawnBinaryBurst(10, 0.8)
end)

local function ShowWelcome()
	local Notif = MakePanel(UDim2.new(0, 320, 0, 44), UDim2.new(0.5, -160, 0, 18))
	Notif.Parent = ScreenGui
	local NText = Instance.new("TextLabel")
	NText.Size = UDim2.new(1, -16, 1, 0)
	NText.Position = UDim2.new(0, 12, 0, 0)
	NText.BackgroundTransparency = 1
	NText.Text = "hey " .. player.Name .. " — k0lgui ready"
	NText.TextColor3 = C.text
	NText.Font = Enum.Font.GothamMedium
	NText.TextSize = 14
	NText.TextXAlignment = Enum.TextXAlignment.Left
	NText.ZIndex = 2
	NText.Parent = Notif
	SpawnBinaryBurst(22, 1.2)
	PulseStroke(Notif, 2)
	Notif.Position = UDim2.new(0.5, -160, 0, -50)
	TweenService:Create(Notif, TweenInfo.new(0.4, Enum.EasingStyle.Back), {
		Position = UDim2.new(0.5, -160, 0, 18),
	}):Play()
	task.delay(2.8, function()
		if not Notif then return end
		local tw = TweenService:Create(Notif, TweenInfo.new(0.3), {
			Position = UDim2.new(0.5, -160, 0, -60),
		})
		tw:Play()
		tw.Completed:Connect(function() if Notif then Notif:Destroy() end end)
	end)
end

local function CreateMainGUI()
	local Main = MakePanel(UDim2.new(0, 408, 0, 508), UDim2.new(0.5, -204, 0.55, -254))
	Main.Name = "Main"
	Main.Draggable = true
	Main.Parent = ScreenGui
	StartAmbientBinary()
	SpawnBinaryBurst(20, 1.1)
	TweenService:Create(Main, TweenInfo.new(0.4, Enum.EasingStyle.Back), {
		Position = UDim2.new(0.5, -204, 0.5, -254),
	}):Play()
	PulseStroke(Main, 3)

	-- header redondeado, no barra full-bleed
	local TitleBar = Instance.new("Frame")
	TitleBar.Size = UDim2.new(1, -16, 0, 34)
	TitleBar.Position = UDim2.new(0, 8, 0, 8)
	TitleBar.BackgroundColor3 = Color3.fromRGB(40, 14, 16)
	TitleBar.BorderSizePixel = 0
	TitleBar.ZIndex = 2
	TitleBar.Parent = Main
	corner(TitleBar, 10)
	stroke(TitleBar, C.stroke, 1)

	local Title = Instance.new("TextLabel")
	Title.Size = UDim2.new(1, -44, 1, 0)
	Title.Position = UDim2.new(0, 12, 0, 0)
	Title.BackgroundTransparency = 1
	Title.Text = ""
	Title.TextColor3 = C.text
	Title.Font = Enum.Font.GothamBold
	Title.TextSize = 13
	Title.TextXAlignment = Enum.TextXAlignment.Left
	Title.ZIndex = 3
	Title.Parent = TitleBar

	task.spawn(function()
		local full = "k0lgui  ·  k0lby430lo"
		for i = 1, #full do
			if not Title or not Title.Parent then return end
			Title.Text = string.sub(full, 1, i)
			task.wait(0.018)
		end
	end)

	-- línea suave bajo el título
	local line = Instance.new("Frame")
	line.Size = UDim2.new(0, 0, 0, 2)
	line.Position = UDim2.new(0, 12, 1, -3)
	line.BackgroundColor3 = C.accent
	line.BorderSizePixel = 0
	line.ZIndex = 4
	line.Parent = TitleBar
	corner(line, 2)
	TweenService:Create(line, TweenInfo.new(0.55, Enum.EasingStyle.Quint), {
		Size = UDim2.new(0.55, 0, 0, 2),
	}):Play()

	local Close = Instance.new("TextButton")
	Close.Size = UDim2.new(0, 28, 0, 28)
	Close.Position = UDim2.new(1, -32, 0.5, -14)
	Close.BackgroundColor3 = C.close
	Close.BorderSizePixel = 0
	Close.Text = "×"
	Close.TextColor3 = Color3.fromRGB(255, 170, 170)
	Close.Font = Enum.Font.GothamBold
	Close.TextSize = 16
	Close.AutoButtonColor = false
	Close.ZIndex = 4
	Close.Parent = TitleBar
	corner(Close, 8)
	Close.MouseButton1Click:Connect(function() ScreenGui:Destroy() end)

	local HomePage = Instance.new("Frame")
	HomePage.Size = UDim2.new(1, -12, 1, -52)
	HomePage.Position = UDim2.new(0, 6, 0, 46)
	HomePage.BackgroundTransparency = 1
	HomePage.Parent = Main

	local SoundsPage = Instance.new("Frame")
	SoundsPage.Size = HomePage.Size
	SoundsPage.Position = HomePage.Position
	SoundsPage.BackgroundTransparency = 1
	SoundsPage.Visible = false
	SoundsPage.Parent = Main

	local ThingsPage = Instance.new("Frame")
	ThingsPage.Size = HomePage.Size
	ThingsPage.Position = HomePage.Position
	ThingsPage.BackgroundTransparency = 1
	ThingsPage.Visible = false
	ThingsPage.Parent = Main

	local EmergencyPage = Instance.new("Frame")
	EmergencyPage.Size = HomePage.Size
	EmergencyPage.Position = HomePage.Position
	EmergencyPage.BackgroundTransparency = 1
	EmergencyPage.Visible = false
	EmergencyPage.Parent = Main

	local function ShowPage(page)
		for _, p in ipairs({HomePage, SoundsPage, ThingsPage, EmergencyPage}) do
			p.Visible = false
		end
		page.Visible = true
		page.Position = UDim2.new(0, 18, 0, 46)
		TweenService:Create(page, TweenInfo.new(0.22, Enum.EasingStyle.Quint), {
			Position = UDim2.new(0, 6, 0, 46),
		}):Play()
		SpawnBinaryBurst(12, 0.9)
		PulseStroke(Main, 2)
	end

	-- layout un poco irregular (no grilla perfecta)
	local Decal2Btn      = Btn(HomePage, "decal 2", 8, 6, 122, 34)
	local HintsBtn       = Btn(HomePage, "time / sky", 138, 6, 126, 34)
	local SkyBtn         = Btn(HomePage, "sky", 272, 6, 118, 34)

	local NameBtn        = Btn(HomePage, "name", 8, 48, 118, 34)
	local RotateBtn      = Btn(HomePage, "rotate all", 134, 48, 130, 34)
	local SpinSkyBtn     = Btn(HomePage, "spin sky", 272, 48, 118, 34)

	local BigSphereBtn   = Btn(HomePage, "big esfere", 8, 90, 126, 34)
	local DiscoBtn       = Btn(HomePage, "disco", 142, 90, 118, 34)
	local MessageBtn     = Btn(HomePage, "message", 268, 90, 122, 34)

	local R6Btn          = Btn(HomePage, "r6", 8, 132, 110, 34)
	local ParticleAllBtn = Btn(HomePage, "particle all", 126, 132, 134, 34)
	local StopAllBtn     = Btn(HomePage, "stop sounds", 268, 132, 122, 34)

	local HeadshakeBtn   = Btn(HomePage, "headshake", 8, 174, 128, 34)

	-- separador suave
	local Sep = Instance.new("TextLabel")
	Sep.Size = UDim2.new(1, -20, 0, 18)
	Sep.Position = UDim2.new(0, 10, 0, 218)
	Sep.BackgroundTransparency = 1
	Sep.Text = "— sounds —"
	Sep.TextColor3 = C.mute
	Sep.Font = Enum.Font.Gotham
	Sep.TextSize = 11
	Sep.ZIndex = 2
	Sep.Parent = HomePage

	local FhfhBtn     = Btn(HomePage, "fhfh", 8, 242, 122, 34)
	local WontStopBtn = Btn(HomePage, "won't stop us", 138, 242, 128, 34)
	local FanThemeBtn = Btn(HomePage, "k0lby theme", 274, 242, 116, 34)

	local MoreSoundsOpen = Btn(HomePage, "more sounds", 8, 300, 124, 38)
	local MoreThingsOpen = Btn(HomePage, "more things", 140, 300, 124, 38)
	local EmergencyOpen  = Btn(HomePage, "emergency", 272, 300, 118, 38)

	-- entrada escalonada de botones home
	task.spawn(function()
		for _, child in ipairs(HomePage:GetChildren()) do
			if child:IsA("TextButton") then
				local s = child.Size
				child.Size = UDim2.new(0, 0, 0, s.Y.Offset)
				TweenService:Create(child, TweenInfo.new(0.28, Enum.EasingStyle.Back), {Size = s}):Play()
				task.wait(0.028)
			end
		end
	end)

	local function MakeSpeedWindow(titleText, defaultSpeed, noLimit, offsetX)
		local gui = MakePanel(UDim2.new(0, 176, 0, 124), UDim2.new(0.5, offsetX or -88, 0.12, 0))
		gui.Draggable = true
		gui.Visible = false
		gui.Parent = ScreenGui

		local st = Instance.new("TextLabel")
		st.Size = UDim2.new(1, -16, 0, 22)
		st.Position = UDim2.new(0, 10, 0, 8)
		st.BackgroundTransparency = 1
		st.Text = titleText
		st.TextColor3 = C.text
		st.Font = Enum.Font.GothamBold
		st.TextSize = 12
		st.TextXAlignment = Enum.TextXAlignment.Left
		st.ZIndex = 2
		st.Parent = gui

		local val = Instance.new("TextLabel")
		val.Size = UDim2.new(1, -12, 0, 22)
		val.Position = UDim2.new(0, 6, 0, 32)
		val.BackgroundTransparency = 1
		val.Text = string.format("%.1f", defaultSpeed)
		val.TextColor3 = C.text
		val.Font = Enum.Font.GothamMedium
		val.TextSize = 16
		val.ZIndex = 2
		val.Parent = gui

		local speed = defaultSpeed
		local function upd() val.Text = string.format("%.1f", speed) end

		local minus = Btn(gui, "−", 10, 58, 36, 26)
		local plus  = Btn(gui, "+", 130, 58, 36, 26)
		local reset = Btn(gui, "reset", 52, 58, 72, 26)
		local close = Btn(gui, "close", 42, 90, 92, 26)

		minus.MouseButton1Click:Connect(function() speed = math.max(0.1, speed - 0.5) upd() end)
		plus.MouseButton1Click:Connect(function()
			speed = noLimit and (speed + 0.5) or math.min(50, speed + 0.5)
			upd()
		end)
		reset.MouseButton1Click:Connect(function() speed = defaultSpeed upd() end)
		close.MouseButton1Click:Connect(function() gui.Visible = false end)

		return {
			Get = function() return speed end,
			Set = function(v) speed = v upd() end,
			Show = function()
				gui.Visible = true
				gui.Position = UDim2.new(0.5, offsetX or -88, 0.08, -20)
				TweenService:Create(gui, TweenInfo.new(0.28, Enum.EasingStyle.Back), {
					Position = UDim2.new(0.5, offsetX or -88, 0.12, 0),
				}):Play()
				SpawnBinaryBurst(8, 0.7)
			end,
			Hide = function() gui.Visible = false end,
		}
	end

	local RotSpeed  = MakeSpeedWindow("rotate", 1.0, false, -200)
	local SpinSpeed = MakeSpeedWindow("spin sky", 10.0, true, 24)

	-- sounds page
	local SHead = Instance.new("TextLabel")
	SHead.Size = UDim2.new(1, -90, 0, 24)
	SHead.Position = UDim2.new(0, 10, 0, 2)
	SHead.BackgroundTransparency = 1
	SHead.Text = "more sounds"
	SHead.TextColor3 = C.text
	SHead.Font = Enum.Font.GothamBold
	SHead.TextSize = 13
	SHead.TextXAlignment = Enum.TextXAlignment.Left
	SHead.ZIndex = 2
	SHead.Parent = SoundsPage

	local SBack = Btn(SoundsPage, "back", 310, 2, 72, 28)
	SBack.MouseButton1Click:Connect(function() ShowPage(HomePage) end)

	local SScroll = Instance.new("ScrollingFrame")
	SScroll.Size = UDim2.new(1, -10, 1, -40)
	SScroll.Position = UDim2.new(0, 4, 0, 34)
	SScroll.BackgroundColor3 = Color3.fromRGB(16, 6, 7)
	SScroll.BorderSizePixel = 0
	SScroll.ScrollBarThickness = 5
	SScroll.ScrollBarImageColor3 = C.accent
	SScroll.CanvasSize = UDim2.new(0, 0, 0, 500)
	SScroll.ZIndex = 2
	SScroll.Parent = SoundsPage
	corner(SScroll, 10)
	stroke(SScroll, C.stroke, 1)

	local function GridBtn(parent, text, col, row)
		return Btn(parent, text, 8 + col * 128, 8 + row * 40, 120, 32)
	end

	local BloodBtn     = GridBtn(SScroll, "blood pop", 0, 0)
	local OldThemeBtn  = GridBtn(SScroll, "old theme", 1, 0)
	local ChinaBtn     = GridBtn(SScroll, "china", 2, 0)
	local ElectroBtn   = GridBtn(SScroll, "electro", 0, 1)
	local JugstaBtn    = GridBtn(SScroll, "jugsta", 1, 1)
	local HotTopicBtn  = GridBtn(SScroll, "hot topic", 2, 1)
	local WongaBtn     = GridBtn(SScroll, "wonga", 0, 2)
	local CryingBtn    = GridBtn(SScroll, "crying remix", 1, 2)
	local SpongeBobBtn = GridBtn(SScroll, "spongebob", 2, 2)
	local HardstyleBtn = GridBtn(SScroll, "hardstyle", 0, 3)
	local EricaBtn     = GridBtn(SScroll, "erica", 1, 3)
	local AlaBtn       = GridBtn(SScroll, "ala", 2, 3)
	local HardbassBtn  = GridBtn(SScroll, "hardbass", 0, 4)
	local CloneMoveBtn = GridBtn(SScroll, "clone move", 1, 4)
	local JustMoveBtn  = GridBtn(SScroll, "just move it", 2, 4)
	local LolBtn       = GridBtn(SScroll, "lol", 0, 5)
	local BodyPartzBtn = GridBtn(SScroll, "body partz", 1, 5)
	local FnMfBtn      = GridBtn(SScroll, "f.n.m.f", 2, 5)
	local RtyiooBtn    = GridBtn(SScroll, "rtyioo", 0, 6)
	local FunnehBtn    = GridBtn(SScroll, "funneh baby", 1, 6)

	MoreSoundsOpen.MouseButton1Click:Connect(function() ShowPage(SoundsPage) end)

	local THead = Instance.new("TextLabel")
	THead.Size = UDim2.new(1, -90, 0, 24)
	THead.Position = UDim2.new(0, 10, 0, 2)
	THead.BackgroundTransparency = 1
	THead.Text = "more things"
	THead.TextColor3 = C.text
	THead.Font = Enum.Font.GothamBold
	THead.TextSize = 13
	THead.TextXAlignment = Enum.TextXAlignment.Left
	THead.ZIndex = 2
	THead.Parent = ThingsPage

	local TBack = Btn(ThingsPage, "back", 310, 2, 72, 28)
	TBack.MouseButton1Click:Connect(function() ShowPage(HomePage) end)

	local C00lifyBtn     = Btn(ThingsPage, "c00lify", 8, 40, 122, 34)
	local AllK00pBtn     = Btn(ThingsPage, "all is k0lby", 138, 40, 128, 34)
	local TextureAllBtn  = Btn(ThingsPage, "texture all", 274, 40, 116, 34)
	local FogBtn         = Btn(ThingsPage, "fog + disco", 8, 82, 122, 34)
	local SmokePlayerBtn = Btn(ThingsPage, "smoke player", 138, 82, 128, 34)
	local DiscoMeshBtn   = Btn(ThingsPage, "disco mesh", 274, 82, 116, 34)
	local Rc7CloudBtn    = Btn(ThingsPage, "rc7 cloud", 8, 124, 122, 34)
	local MapDecalBtn    = Btn(ThingsPage, "map decal", 138, 124, 128, 34)
	local LessPingBtn    = Btn(ThingsPage, "less ping", 274, 124, 116, 34)
	local DiscoSkyBtn    = Btn(ThingsPage, "disco sky", 8, 166, 122, 34)

	MoreThingsOpen.MouseButton1Click:Connect(function() ShowPage(ThingsPage) end)

	local EHead = Instance.new("TextLabel")
	EHead.Size = UDim2.new(1, -90, 0, 24)
	EHead.Position = UDim2.new(0, 10, 0, 2)
	EHead.BackgroundTransparency = 1
	EHead.Text = "emergency"
	EHead.TextColor3 = C.text
	EHead.Font = Enum.Font.GothamBold
	EHead.TextSize = 13
	EHead.TextXAlignment = Enum.TextXAlignment.Left
	EHead.ZIndex = 2
	EHead.Parent = EmergencyPage

	local EBack = Btn(EmergencyPage, "back", 310, 2, 72, 28)
	EBack.MouseButton1Click:Connect(function() ShowPage(HomePage) end)

	local ReBtn       = Btn(EmergencyPage, "/re", 8, 44, 122, 34)
	local UnpunishBtn = Btn(EmergencyPage, "unpunish", 138, 44, 122, 34)
	local UnblurBtn   = Btn(EmergencyPage, "unblur", 268, 44, 122, 34)
	local UnmuteBtn   = Btn(EmergencyPage, "unmute", 8, 86, 122, 34)
	local ShowGuisBtn = Btn(EmergencyPage, "showguis", 138, 86, 122, 34)

	EmergencyOpen.MouseButton1Click:Connect(function() ShowPage(EmergencyPage) end)

	local SmokeGui = MakePanel(UDim2.new(0, 228, 0, 300), UDim2.new(0.5, -114, 0.5, -150))
	SmokeGui.Draggable = true
	SmokeGui.Visible = false
	SmokeGui.Parent = ScreenGui

	local SmokeTitle = Instance.new("TextLabel")
	SmokeTitle.Size = UDim2.new(1, -16, 0, 24)
	SmokeTitle.Position = UDim2.new(0, 12, 0, 8)
	SmokeTitle.BackgroundTransparency = 1
	SmokeTitle.Text = "smoke player"
	SmokeTitle.TextColor3 = C.text
	SmokeTitle.Font = Enum.Font.GothamBold
	SmokeTitle.TextSize = 13
	SmokeTitle.TextXAlignment = Enum.TextXAlignment.Left
	SmokeTitle.ZIndex = 2
	SmokeTitle.Parent = SmokeGui

	local SmokeScroll = Instance.new("ScrollingFrame")
	SmokeScroll.Size = UDim2.new(1, -16, 1, -72)
	SmokeScroll.Position = UDim2.new(0, 8, 0, 36)
	SmokeScroll.BackgroundColor3 = Color3.fromRGB(16, 6, 7)
	SmokeScroll.BorderSizePixel = 0
	SmokeScroll.ScrollBarThickness = 5
	SmokeScroll.CanvasSize = UDim2.new(0, 0, 0, 0)
	SmokeScroll.ZIndex = 2
	SmokeScroll.Parent = SmokeGui
	corner(SmokeScroll, 8)

	local SmokeListLayout = Instance.new("UIListLayout")
	SmokeListLayout.SortOrder = Enum.SortOrder.Name
	SmokeListLayout.Padding = UDim.new(0, 4)
	SmokeListLayout.Parent = SmokeScroll

	local CloseSmoke = Btn(SmokeGui, "close", 54, 266, 120, 28)
	CloseSmoke.MouseButton1Click:Connect(function() SmokeGui.Visible = false end)

	-- logo esquina
	local CornerFrame = Instance.new("Frame")
	CornerFrame.Size = UDim2.new(0, 100, 0, 118)
	CornerFrame.Position = UDim2.new(1, -112, 1, -128)
	CornerFrame.BackgroundTransparency = 1
	CornerFrame.Parent = ScreenGui

	local CreditText = Instance.new("TextLabel")
	CreditText.Size = UDim2.new(1, 0, 0, 16)
	CreditText.BackgroundTransparency = 1
	CreditText.Text = "k0lby430lo"
	CreditText.TextColor3 = C.mute
	CreditText.Font = Enum.Font.Gotham
	CreditText.TextSize = 10
	CreditText.Parent = CornerFrame

	local Logo = Instance.new("ImageButton")
	Logo.Size = UDim2.new(0, 88, 0, 88)
	Logo.Position = UDim2.new(0.5, -44, 0, 20)
	Logo.BackgroundTransparency = 1
	Logo.Image = "rbxassetid://115571352433699"
	Logo.Parent = CornerFrame

	local spinAngle, logoSpinning = 0, true
	RunService.RenderStepped:Connect(function(dt)
		if logoSpinning and Logo and Logo.Parent then
			spinAngle = spinAngle + dt * 70
			Logo.Rotation = spinAngle
		end
	end)

	local bouncing = false
	Logo.MouseButton1Click:Connect(function()
		if bouncing then return end
		bouncing = true
		logoSpinning = false
		local bounceLogo = Instance.new("ImageLabel")
		bounceLogo.Size = UDim2.new(0, 88, 0, 88)
		bounceLogo.BackgroundTransparency = 1
		bounceLogo.Image = "rbxassetid://115571352433699"
		bounceLogo.ZIndex = 100
		bounceLogo.Parent = ScreenGui
		local cam = workspace.CurrentCamera
		local vw, vh = cam.ViewportSize.X, cam.ViewportSize.Y
		bounceLogo.Position = UDim2.new(0, vw - 112 + 6, 0, vh - 128 + 20)
		Logo.Visible = false
		CreditText.Visible = false
		local vx = (math.random() > 0.5 and 1 or -1) * math.random(14, 22)
		local vy = (math.random() > 0.5 and 1 or -1) * math.random(14, 22)
		local size, startTime = 88, tick()
		local conn
		conn = RunService.RenderStepped:Connect(function()
			if not bounceLogo or not bounceLogo.Parent then if conn then conn:Disconnect() end return end
			if tick() - startTime >= 5 then
				conn:Disconnect()
				bounceLogo:Destroy()
				Logo.Visible = true
				CreditText.Visible = true
				logoSpinning = true
				bouncing = false
				return
			end
			local pos = bounceLogo.AbsolutePosition
			local x, y = pos.X + vx, pos.Y + vy
			local bounced = false
			if x <= 0 then x = 0 vx = math.abs(vx) bounced = true
			elseif x + size >= vw then x = vw - size vx = -math.abs(vx) bounced = true end
			if y <= 0 then y = 0 vy = math.abs(vy) bounced = true
			elseif y + size >= vh then y = vh - size vy = -math.abs(vy) bounced = true end
			if bounced then PlayBounce() end
			bounceLogo.Position = UDim2.new(0, x, 0, y)
		end)
	end)

	-- ===== logic (igual que antes, compacto) =====
	local function Chat(msg)
		pcall(function()
			local ev = ReplicatedStorage:FindFirstChild("DefaultChatSystemChatEvents")
			if ev and ev:FindFirstChild("SayMessageRequest") then
				ev.SayMessageRequest:FireServer(msg, "All")
			end
		end)
		pcall(function()
			local ch = game:GetService("TextChatService").TextChannels:FindFirstChild("RBXGeneral")
			if ch then ch:SendAsync(msg) end
		end)
	end

	local function AdminCmd(cmd)
		pcall(function()
			local client = R:WaitForChild("HDAdminHDClient", 8)
			if not client then return end
			local signals = client:WaitForChild("Signals", 5)
			if not signals then return end
			local remote = signals:FindFirstChild("RequestCommandSilent")
			if remote then remote:InvokeServer(cmd) end
		end)
	end

	local function IsF3XTarget(obj)
		if not obj or not obj:IsA("BasePart") or obj:IsA("Terrain") then return false end
		for _, plr in ipairs(Players:GetPlayers()) do
			if plr.Character and obj:IsDescendantOf(plr.Character) then return true end
		end
		local c = obj.ClassName
		return c == "Part" or c == "UnionOperation" or c == "WedgePart" or c == "CornerWedgePart" or c == "TrussPart"
	end

	local function ForEachTarget(fn)
		for _, inst in pairs(workspace:GetDescendants()) do
			if IsF3XTarget(inst) then fn(inst) end
		end
	end

	local function GetF3X()
		local function hasSync(tool)
			local sync = tool:FindFirstChild("SyncAPI")
			if sync and sync:FindFirstChild("ServerEndpoint") then return tool, sync.ServerEndpoint end
		end
		local places = {player.Backpack, player.Character, ReplicatedStorage, game:GetService("StarterPack"), workspace}
		for _, place in pairs(places) do
			if place then
				for _, v in ipairs(place:GetDescendants()) do
					if v.Name == "BuildingTools+" or v.Name == "Building Tools+" then
						local t, r = hasSync(v)
						if t then return t, r end
					end
				end
			end
		end
		for _, place in pairs(places) do
			if place then
				for _, v in ipairs(place:GetDescendants()) do
					if v.Name == "SyncAPI" and v:FindFirstChild("ServerEndpoint") then
						return v.Parent, v.ServerEndpoint
					end
				end
			end
		end
		return nil, nil
	end

	local function F3X(args)
		local _, remote = GetF3X()
		if remote then
			local ok, res = pcall(function() return remote:InvokeServer(unpack(args)) end)
			if ok then return res end
		end
	end

	local function GetBuildingTools()
		local function hasSync(tool)
			local sync = tool:FindFirstChild("SyncAPI")
			if sync and sync:FindFirstChild("ServerEndpoint") then return tool, sync.ServerEndpoint end
		end
		local function isNormalBT(name)
			local n = name:lower()
			if n:find("%+") then return false end
			return name == "Building Tools" or name == "BuildingTools" or n == "f3x" or n:find("building tools")
		end
		local places = {player.Backpack, player.Character, ReplicatedStorage, game:GetService("StarterPack"), workspace}
		for _, place in pairs(places) do
			if place then
				for _, v in ipairs(place:GetDescendants()) do
					if isNormalBT(v.Name) then
						local t, r = hasSync(v)
						if t then return t, r end
					end
				end
			end
		end
		for _, v in pairs(game:GetDescendants()) do
			if v.Name == "SyncAPI" and v:FindFirstChild("ServerEndpoint") then
				local pn = v.Parent and v.Parent.Name or ""
				if not pn:lower():find("%+") then return v.Parent, v.ServerEndpoint end
			end
		end
		return nil, nil
	end

	local function BT(args)
		local _, remote = GetBuildingTools()
		if remote then
			local ok, res = pcall(function() return remote:InvokeServer(unpack(args)) end)
			if ok then return res end
		end
	end

	local function GetSyncServer()
		local _, remote = GetF3X()
		if remote then return remote end
		local tool = player:FindFirstChild("SyncAPI", true) or ReplicatedStorage:FindFirstChild("SyncAPI", true)
		if tool and tool.Name == "SyncAPI" and tool:FindFirstChild("ServerEndpoint") then
			return tool.ServerEndpoint
		end
		return nil
	end

	local facesList = {
		Enum.NormalId.Front, Enum.NormalId.Back,
		Enum.NormalId.Left, Enum.NormalId.Right,
		Enum.NormalId.Top, Enum.NormalId.Bottom
	}

	local function SyncParticle(part, props)
		pcall(function() F3X({"CreateDecorations", {{Part = part, DecorationType = "ParticleEmitter"}}}) end)
		task.wait(0.03)
		pcall(function()
			local change = {Part = part, DecorationType = "ParticleEmitter"}
			for k, v in pairs(props) do change[k] = v end
			F3X({"SyncDecorate", {change}})
		end)
	end

	local function ApplyDecalForce(id)
		local fullId = "rbxassetid://" .. tostring(id)
		ForEachTarget(function(part)
			for _, face in pairs(facesList) do
				task.spawn(function()
					F3X({"CreateTextures", {{Part = part, Face = face, TextureType = "Decal"}}})
					F3X({"SyncTexture", {{Part = part, Face = face, TextureType = "Decal", Texture = fullId}}})
				end)
			end
		end)
	end

	local function ApplyDecalOnPart(part, textureId)
		if not part then return end
		local fullId = "rbxassetid://" .. tostring(textureId)
		for _, face in pairs(facesList) do
			task.spawn(function()
				F3X({"CreateTextures", {{Part = part, Face = face, TextureType = "Decal"}}})
				F3X({"SyncTexture", {{Part = part, Face = face, TextureType = "Decal", Texture = fullId}}})
			end)
		end
	end

	local function ApplyParticlesAll(id)
		local fullId = "rbxassetid://" .. tostring(id)
		ForEachTarget(function(part)
			task.spawn(function()
				SyncParticle(part, {
					Texture = fullId, Rate = 100, Speed = "50,50", Lifetime = "1,2",
					Size = "5", SpreadAngle = 100, LightEmission = 0.7,
					EmissionDirection = Enum.NormalId.Top,
				})
			end)
		end)
	end

	local forcedDecalId, forcedParticleId, restoreRunning = nil, nil, false
	local function StartRestoreLoop()
		if restoreRunning then return end
		restoreRunning = true
		task.spawn(function()
			while ScreenGui and ScreenGui.Parent do
				task.wait(0.12)
				if forcedDecalId then
					ForEachTarget(function(part)
						for _, face in pairs(facesList) do
							local found, wrong = false, false
							for _, child in pairs(part:GetChildren()) do
								if child:IsA("Decal") and child.Face == face then
									found = true
									if child.Texture ~= forcedDecalId then wrong = true end
									break
								end
							end
							if not found or wrong then
								task.spawn(function()
									if not found then
										F3X({"CreateTextures", {{Part = part, Face = face, TextureType = "Decal"}}})
									end
									F3X({"SyncTexture", {{Part = part, Face = face, TextureType = "Decal", Texture = forcedDecalId}}})
								end)
							end
						end
					end)
				end
				if forcedParticleId then
					ForEachTarget(function(part)
						local pe = part:FindFirstChildOfClass("ParticleEmitter")
						if not pe or pe.Texture ~= forcedParticleId then
							task.spawn(function()
								SyncParticle(part, {
									Texture = forcedParticleId, Rate = 200, Speed = "50,100",
									Lifetime = "1,2", Size = "10", SpreadAngle = 200,
									LightEmission = 0.7, EmissionDirection = Enum.NormalId.Top,
								})
							end)
						end
					end)
				end
			end
		end)
	end

	local function ApplyDecalForceTracked(id)
		forcedDecalId = "rbxassetid://" .. tostring(id)
		ApplyDecalForce(id)
		StartRestoreLoop()
	end
	local function ApplyParticlesAllTracked(id)
		forcedParticleId = "rbxassetid://" .. tostring(id)
		ApplyParticlesAll(id)
		StartRestoreLoop()
	end

	local function ApplyRedSmokeToPlayer(targetPlayer)
		if not targetPlayer or not targetPlayer.Character then return end
		for _, part in pairs(targetPlayer.Character:GetDescendants()) do
			if part:IsA("BasePart") then
				task.spawn(function()
					pcall(function() F3X({"CreateDecorations", {{Part = part, DecorationType = "Smoke"}}}) end)
					task.wait(0.03)
					pcall(function()
						F3X({"SyncDecorate", {{
							Part = part, DecorationType = "Smoke",
							Color = Color3.fromRGB(255, 0, 0), Opacity = 0.8, Size = 2, RiseVelocity = 3
						}}})
					end)
				end)
			end
		end
	end

	-- headshake
	local headshakeActive, headshakeConn = false, nil
	local function StopHeadshake()
		headshakeActive = false
		if headshakeConn then headshakeConn:Disconnect() headshakeConn = nil end
		local char, server = player.Character, GetSyncServer()
		if char and server then
			local stuff = {}
			local head = char:FindFirstChild("Head")
			if head then
				local hm = head:FindFirstChildWhichIsA("SpecialMesh")
				table.insert(stuff, {Part = head, MeshId = hm and hm.MeshId or "", Offset = Vector3.new()})
			end
			for _, thing in ipairs(char:GetChildren()) do
				if thing:IsA("Accessory") and thing:FindFirstChild("Handle") then
					local mesh = thing.Handle:FindFirstChildWhichIsA("SpecialMesh")
					if mesh then
						table.insert(stuff, {Part = thing.Handle, MeshId = mesh.MeshId, Offset = Vector3.new()})
					end
				end
			end
			if #stuff > 0 then pcall(function() server:InvokeServer("SyncMesh", stuff) end) end
		end
		HeadshakeBtn.Text = "headshake"
	end

	HeadshakeBtn.MouseButton1Click:Connect(function()
		if headshakeActive then StopHeadshake() return end
		local char = player.Character or player.CharacterAdded:Wait()
		local head = char:FindFirstChild("Head") or char:WaitForChild("Head", 3)
		if not head then return end
		local headMesh = head:FindFirstChildWhichIsA("SpecialMesh")
		local server = GetSyncServer()
		if not server then return end
		local myHats = {}
		for _, thing in ipairs(char:GetChildren()) do
			if thing:IsA("Accessory") and thing:FindFirstChild("Handle") then
				local mesh = thing.Handle:FindFirstChildWhichIsA("SpecialMesh")
				if mesh then table.insert(myHats, {part = thing.Handle, mesh = mesh.MeshId}) end
			end
		end
		headshakeActive = true
		HeadshakeBtn.Text = "stop"
		local t, off, target, smooth, acc, rate, amp = 1, 0, 0, 14, 0, 1/60, 0.7
		headshakeConn = RunService.RenderStepped:Connect(function(dt)
			if not headshakeActive or not head.Parent then StopHeadshake() return end
			t = t + dt * 10
			target = math.sin(t) * amp
			off = off + (target - off) * dt * smooth
			acc = acc + dt
			if acc < rate then return end
			acc = 0
			local stuff = {{Part = head, MeshId = headMesh and headMesh.MeshId or "", Offset = Vector3.new(off, 0, 0)}}
			for _, hat in ipairs(myHats) do
				table.insert(stuff, {Part = hat.part, MeshId = hat.mesh, Offset = Vector3.new(off, 0, 0)})
			end
			pcall(function() server:InvokeServer("SyncMesh", stuff) end)
		end)
	end)

	-- disco mesh
	local discoMeshActive, discoMeshConn = false, nil
	local PRESET_MESHES = {Enum.MeshType.Brick, Enum.MeshType.Sphere, Enum.MeshType.Cylinder, Enum.MeshType.Wedge, Enum.MeshType.Head, Enum.MeshType.Torso}
	local BODY_NAMES = {"Head","Torso","UpperTorso","LowerTorso","Left Arm","Right Arm","Left Leg","Right Leg","LeftUpperArm","LeftLowerArm","LeftHand","RightUpperArm","RightLowerArm","RightHand","LeftUpperLeg","LeftLowerLeg","LeftFoot","RightUpperLeg","RightLowerLeg","RightFoot"}

	local function GetMyBodyParts()
		local char = player.Character
		if not char then return {} end
		local list = {}
		for _, name in ipairs(BODY_NAMES) do
			local p = char:FindFirstChild(name)
			if p and p:IsA("BasePart") then table.insert(list, p) end
		end
		return list
	end

	DiscoMeshBtn.MouseButton1Click:Connect(function()
		if discoMeshActive then
			discoMeshActive = false
			if discoMeshConn then discoMeshConn:Disconnect() end
			DiscoMeshBtn.Text = "disco mesh"
			return
		end
		local parts = GetMyBodyParts()
		if #parts == 0 then return end
		discoMeshActive = true
		DiscoMeshBtn.Text = "stop"
		for _, part in ipairs(parts) do
			task.spawn(function() pcall(function() F3X({"CreateMeshes", {{Part = part}}}) end) end)
		end
		local last = 0
		discoMeshConn = RunService.Heartbeat:Connect(function()
			if not discoMeshActive then return end
			if tick() - last < 0.18 then return end
			last = tick()
			for _, part in ipairs(GetMyBodyParts()) do
				task.spawn(function()
					pcall(function()
						F3X({"SyncMesh", {{Part = part, MeshType = PRESET_MESHES[math.random(1, #PRESET_MESHES)], Scale = Vector3.new(1,1,1)}}})
					end)
					pcall(function()
						F3X({"SyncMaterial", {{Part = part, Color = Color3.fromHSV(math.random(), 1, 1)}}})
					end)
				end)
			end
		end)
	end)

	-- less ping (anti-crash)
	local lessPingActive, lessPingConn, lessPingMonitor, lessPingSaved, lessPingAuto = false, nil, nil, nil, false
	local lessPingLast = 0
	local PING_HIGH, PING_LOW, CHECK_EVERY = 220, 140, 0.75

	local function GetPingMs()
		local ok, v = pcall(function() return player:GetNetworkPing() * 1000 end)
		if ok and typeof(v) == "number" and v > 0 then return v end
		ok, v = pcall(function()
			local item = game:GetService("Stats").Network.ServerStatsItem["Data Ping"]
			return item and item:GetValue()
		end)
		if ok and typeof(v) == "number" then return v end
		return 0
	end

	local function SnapshotLessPing()
		local snap = {
			quality = nil, savedQuality = nil,
			globalShadows = Lighting.GlobalShadows, fogEnd = Lighting.FogEnd, brightness = Lighting.Brightness,
			lightingFx = {}, cameraFx = {}, emitters = {}, trails = {}, beams = {}, effects = {},
		}
		pcall(function() snap.quality = settings().Rendering.QualityLevel end)
		pcall(function() snap.savedQuality = UserSettings():GetService("UserGameSettings").SavedQualityLevel end)
		for _, fx in ipairs(Lighting:GetChildren()) do
			if fx:IsA("BlurEffect") or fx:IsA("BloomEffect") or fx:IsA("ColorCorrectionEffect")
				or fx:IsA("SunRaysEffect") or fx:IsA("DepthOfFieldEffect") or fx:IsA("Atmosphere") then
				table.insert(snap.lightingFx, {obj = fx, enabled = fx.Enabled})
			end
		end
		local cam = workspace.CurrentCamera
		if cam then
			for _, fx in ipairs(cam:GetChildren()) do
				if fx:IsA("BlurEffect") or fx:IsA("ColorCorrectionEffect") or fx:IsA("BloomEffect") then
					table.insert(snap.cameraFx, {obj = fx, enabled = fx.Enabled})
				end
			end
		end
		for _, v in ipairs(workspace:GetDescendants()) do
			if v:IsA("ParticleEmitter") then
				table.insert(snap.emitters, {obj = v, enabled = v.Enabled, rate = v.Rate, lifetime = v.Lifetime})
			elseif v:IsA("Trail") then table.insert(snap.trails, {obj = v, enabled = v.Enabled})
			elseif v:IsA("Beam") then table.insert(snap.beams, {obj = v, enabled = v.Enabled})
			elseif v:IsA("Smoke") or v:IsA("Fire") or v:IsA("Sparkles") then
				table.insert(snap.effects, {obj = v, enabled = v.Enabled})
			end
		end
		return snap
	end

	local function RestoreLessPing(snap)
		if not snap then return end
		pcall(function() if snap.quality then settings().Rendering.QualityLevel = snap.quality end end)
		pcall(function()
			if snap.savedQuality then
				UserSettings():GetService("UserGameSettings").SavedQualityLevel = snap.savedQuality
			end
		end)
		pcall(function()
			Lighting.GlobalShadows = snap.globalShadows
			Lighting.FogEnd = snap.fogEnd
			Lighting.Brightness = snap.brightness
		end)
		for _, e in ipairs(snap.lightingFx) do if e.obj and e.obj.Parent then pcall(function() e.obj.Enabled = e.enabled end) end end
		for _, e in ipairs(snap.cameraFx) do if e.obj and e.obj.Parent then pcall(function() e.obj.Enabled = e.enabled end) end end
		for _, e in ipairs(snap.emitters) do
			if e.obj and e.obj.Parent then
				pcall(function() e.obj.Enabled = e.enabled e.obj.Rate = e.rate e.obj.Lifetime = e.lifetime end)
			end
		end
		for _, e in ipairs(snap.trails) do if e.obj and e.obj.Parent then pcall(function() e.obj.Enabled = e.enabled end) end end
		for _, e in ipairs(snap.beams) do if e.obj and e.obj.Parent then pcall(function() e.obj.Enabled = e.enabled end) end end
		for _, e in ipairs(snap.effects) do if e.obj and e.obj.Parent then pcall(function() e.obj.Enabled = e.enabled end) end end
	end

	local function ApplyLessPingOnce(aggressive)
		pcall(function() settings().Rendering.QualityLevel = Enum.QualityLevel.Level01 end)
		pcall(function()
			UserSettings():GetService("UserGameSettings").SavedQualityLevel = Enum.SavedQualitySetting.QualityLevel1
		end)
		pcall(function()
			Lighting.GlobalShadows = false
			Lighting.FogEnd = 1e6
			Lighting.Brightness = math.min(Lighting.Brightness, 2)
		end)
		for _, fx in ipairs(Lighting:GetChildren()) do
			if fx:IsA("BlurEffect") or fx:IsA("BloomEffect") or fx:IsA("ColorCorrectionEffect")
				or fx:IsA("SunRaysEffect") or fx:IsA("DepthOfFieldEffect") or fx:IsA("Atmosphere") then
				pcall(function() fx.Enabled = false end)
			end
		end
		for _, v in ipairs(workspace:GetDescendants()) do
			if v:IsA("ParticleEmitter") then
				pcall(function() v.Enabled = false v.Rate = 0 v.Lifetime = NumberRange.new(0) end)
			elseif v:IsA("Trail") or v:IsA("Beam") then pcall(function() v.Enabled = false end)
			elseif v:IsA("Smoke") or v:IsA("Fire") or v:IsA("Sparkles") then pcall(function() v.Enabled = false end)
			elseif v:IsA("Explosion") then pcall(function() v:Destroy() end)
			end
		end
		if aggressive then
			pcall(function() settings().Rendering.MeshPartDetailLevel = Enum.MeshPartDetailLevel.Level01 end)
		end
	end

	local function StartLessPing(fromAuto)
		if lessPingActive then return end
		lessPingSaved = SnapshotLessPing()
		lessPingActive = true
		lessPingAuto = fromAuto == true
		LessPingBtn.Text = lessPingAuto and "auto…" or "stop"
		ApplyLessPingOnce(false)
		lessPingLast = 0
		if lessPingConn then lessPingConn:Disconnect() end
		lessPingConn = RunService.Heartbeat:Connect(function()
			if not lessPingActive then return end
			if tick() - lessPingLast < 0.5 then return end
			lessPingLast = tick()
			ApplyLessPingOnce(GetPingMs() >= 400)
		end)
	end

	local function StopLessPing()
		lessPingActive = false
		lessPingAuto = false
		if lessPingConn then lessPingConn:Disconnect() lessPingConn = nil end
		RestoreLessPing(lessPingSaved)
		lessPingSaved = nil
		LessPingBtn.Text = "less ping"
	end

	lessPingMonitor = RunService.Heartbeat:Connect(function()
		local now = tick()
		if now - (lessPingMonitor._last or 0) < CHECK_EVERY then return end
		lessPingMonitor._last = now
		local ping = GetPingMs()
		if ping <= 0 then return end
		if not lessPingActive and ping >= PING_HIGH then StartLessPing(true)
		elseif lessPingActive and lessPingAuto and ping <= PING_LOW then StopLessPing() end
	end)

	LessPingBtn.MouseButton1Click:Connect(function()
		if lessPingActive then StopLessPing() else StartLessPing(false) end
	end)

	-- cloud (resumen)
	local cloudActive, cloudParts, cloudCore, cloudOffsets, cloudFollowConn = false, {}, nil, {}, nil
	local function ClearCloud()
		cloudActive = false
		if cloudFollowConn then cloudFollowConn:Disconnect() cloudFollowConn = nil end
		for _, p in pairs(cloudParts) do if p and p.Parent then pcall(function() F3X({"Remove", {p}}) end) end end
		if cloudCore and cloudCore.Parent then pcall(function() F3X({"Remove", {cloudCore}}) end) end
		table.clear(cloudParts)
		table.clear(cloudOffsets)
		cloudCore = nil
		Rc7CloudBtn.Text = "rc7 cloud"
	end

	Rc7CloudBtn.MouseButton1Click:Connect(function()
		if cloudActive then ClearCloud() return end
		local root = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
		if not root then return end
		cloudActive = true
		Rc7CloudBtn.Text = "stop"
		local height = 16
		local brightYellow = Color3.fromRGB(245, 205, 48)
		local spots = {
			Vector3.new(0,0,0), Vector3.new(-2.2,0.3,0.8), Vector3.new(2.2,0.2,-0.5),
			Vector3.new(0,0.5,-2), Vector3.new(-1.2,0.4,1.8), Vector3.new(1.5,0.1,1.5),
			Vector3.new(-1.8,-0.2,-1.2), Vector3.new(1.8,0.3,0.3), Vector3.new(0.5,0.6,1.2),
			Vector3.new(-0.8,0.2,-1.5), Vector3.new(0,-0.3,0.5), Vector3.new(0.3,0.4,-0.8),
		}
		local center = root.Position + Vector3.new(0, height, 0)
		for _, localOffset in ipairs(spots) do
			local size = math.random(14, 20) / 10
			local cf = CFrame.new(center + localOffset)
			task.spawn(function()
				local part = F3X({"CreatePart", "Normal", cf, workspace})
				if not part then return end
				table.insert(cloudParts, part)
				table.insert(cloudOffsets, localOffset)
				F3X({"SyncAnchor", {{Part = part, Anchored = true}}})
				F3X({"SyncCollision", {{Part = part, CanCollide = false}}})
				F3X({"SyncResize", {{Part = part, CFrame = cf, Size = Vector3.new(size, size, size)}}})
				F3X({"CreateMeshes", {{Part = part}}})
				F3X({"SyncMesh", {{Part = part, MeshType = "Sphere", Scale = Vector3.new(1,1,1)}}})
				F3X({"SyncMaterial", {{Part = part, Material = Enum.Material.Glass, Color = brightYellow, Transparency = 0.2}}})
			end)
		end
		task.delay(0.35, function()
			if not cloudActive then return end
			local core = F3X({"CreatePart", "Normal", CFrame.new(center), workspace})
			if not core then return end
			cloudCore = core
			F3X({"SyncAnchor", {{Part = core, Anchored = true}}})
			F3X({"SyncCollision", {{Part = core, CanCollide = false}}})
			F3X({"SyncResize", {{Part = core, CFrame = CFrame.new(center), Size = Vector3.new(0.15,0.15,0.15)}}})
			F3X({"SyncMaterial", {{Part = core, Transparency = 1, Color = brightYellow}}})
			SyncParticle(core, {
				Texture = "rbxassetid://123825862181192",
				Rate = 120, Speed = "10,18", Lifetime = "1.5,2.5", Size = "2,1",
				SpreadAngle = 22, Acceleration = 35,
				EmissionDirection = Enum.NormalId.Bottom, LightEmission = 0.35,
			})
		end)
		local lastFollow = 0
		cloudFollowConn = RunService.Heartbeat:Connect(function()
			if not cloudActive then return end
			if tick() - lastFollow < 0.06 then return end
			lastFollow = tick()
			local r = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
			if not r then return end
			local newCenter = r.Position + Vector3.new(0, height, 0)
			for i, part in pairs(cloudParts) do
				if part and part.Parent and cloudOffsets[i] then
					F3X({"SyncMove", {{Part = part, CFrame = CFrame.new(newCenter + cloudOffsets[i])}}})
				end
			end
			if cloudCore and cloudCore.Parent then
				F3X({"SyncMove", {{Part = cloudCore, CFrame = CFrame.new(newCenter)}}})
			end
		end)
	end)

	local function RefreshSmokePlayerList()
		for _, child in pairs(SmokeScroll:GetChildren()) do
			if child:IsA("TextButton") then child:Destroy() end
		end
		local yCount = 0
		for _, plr in pairs(Players:GetPlayers()) do
			local btn = Instance.new("TextButton")
			btn.Size = UDim2.new(1, -8, 0, 28)
			btn.BackgroundColor3 = C.btn
			btn.BorderSizePixel = 0
			btn.Text = plr.Name
			btn.TextColor3 = C.text
			btn.Font = Enum.Font.GothamMedium
			btn.TextSize = 12
			btn.ZIndex = 3
			btn.Parent = SmokeScroll
			corner(btn, 7)
			WireBtnAnim(btn)
			btn.MouseButton1Click:Connect(function()
				ApplyRedSmokeToPlayer(plr)
				AdminCmd(";mute " .. plr.Name)
				AdminCmd(";blur " .. plr.Name)
				AdminCmd(";hideguis " .. plr.Name)
				AdminCmd(";punish " .. plr.Name)
			end)
			yCount = yCount + 1
		end
		SmokeScroll.CanvasSize = UDim2.new(0, 0, 0, yCount * 32 + 6)
	end

	SmokePlayerBtn.MouseButton1Click:Connect(function()
		RefreshSmokePlayerList()
		SmokeGui.Visible = not SmokeGui.Visible
		if SmokeGui.Visible then SpawnBinaryBurst(8, 0.6) end
	end)

	Decal2Btn.MouseButton1Click:Connect(function() ApplyDecalForceTracked("106866946017330") end)
	TextureAllBtn.MouseButton1Click:Connect(function() ApplyDecalForceTracked("95028558526451") end)
	C00lifyBtn.MouseButton1Click:Connect(function() ApplyDecalForceTracked("86565585863606") end)
	ParticleAllBtn.MouseButton1Click:Connect(function() ApplyParticlesAllTracked("122429767920653") end)
	MapDecalBtn.MouseButton1Click:Connect(function()
		ApplyDecalForceTracked("120446277926674")
		AdminCmd(";music 118602885567179")
	end)

	HintsBtn.MouseButton1Click:Connect(function() AdminCmd(";time") AdminCmd(";time") end)
	NameBtn.MouseButton1Click:Connect(function() AdminCmd(";titler me k0lby430lo") end)
	DiscoBtn.MouseButton1Click:Connect(function() AdminCmd(";disco") AdminCmd(";fog") end)
	FogBtn.MouseButton1Click:Connect(function() AdminCmd(";disco") AdminCmd(";fog") end)
	MessageBtn.MouseButton1Click:Connect(function() AdminCmd(";m kolby430lo haxed the game!") end)
	AllK00pBtn.MouseButton1Click:Connect(function()
		AdminCmd(";char all rudykaleb3")
		AdminCmd(";spin all")
		AdminCmd(";titleg all JOIN TO TEAM KOLBY43OLO!")
	end)
	R6Btn.MouseButton1Click:Connect(function() AdminCmd(";r6") end)

	ReBtn.MouseButton1Click:Connect(function() Chat("/re") end)
	UnpunishBtn.MouseButton1Click:Connect(function() AdminCmd(";unpunish") end)
	UnblurBtn.MouseButton1Click:Connect(function() AdminCmd(";unblur") end)
	UnmuteBtn.MouseButton1Click:Connect(function() AdminCmd(";unmute") end)
	ShowGuisBtn.MouseButton1Click:Connect(function() AdminCmd(";showguis") end)

	local rotating, rotConn = false, nil
	RotateBtn.MouseButton1Click:Connect(function()
		if rotating then
			rotating = false
			if rotConn then rotConn:Disconnect() end
			RotateBtn.Text = "rotate all"
			RotSpeed.Hide()
			return
		end
		rotating = true
		RotateBtn.Text = "stop"
		RotSpeed.Show()
		local parts = {}
		ForEachTarget(function(v) table.insert(parts, v) end)
		rotConn = RunService.Heartbeat:Connect(function(dt)
			if not rotating then return end
			local s = 2.5 * RotSpeed.Get()
			for _, p in pairs(parts) do
				if p and p.Parent then
					F3X({"SyncMove", {{Part = p, CFrame = p.CFrame * CFrame.Angles(
						math.rad(math.random(-s, s) * dt * 40),
						math.rad(math.random(-s, s) * dt * 40),
						math.rad(math.random(-s, s) * dt * 40)
					)}}})
				end
			end
		end)
	end)

	SkyBtn.MouseButton1Click:Connect(function()
		AdminCmd(";fog 60000")
		AdminCmd(";fogcolor black")
		if workspace:FindFirstChild("k0lSky") then BT({"Remove", {workspace.k0lSky}}) end
		local sky = BT({"CreatePart", "Normal", CFrame.new(0, 0, 0), workspace})
		if sky then
			sky.Name = "k0lSky"
			BT({"SyncAnchor", {{Part = sky, Anchored = true}}})
			BT({"SyncCollision", {{Part = sky, CanCollide = false}}})
			BT({"CreateMeshes", {{Part = sky}}})
			BT({"SyncMesh", {{
				Part = sky,
				MeshType = "FileMesh",
				MeshId = "rbxassetid://111891702759441",
				TextureId = "rbxassetid://106866946017330",
				Scale = Vector3.new(10000, 10000, 10000),
			}}})
		end
		SpawnBinaryBurst(12, 0.9)
	end)

	DiscoSkyBtn.MouseButton1Click:Connect(function()
		local sky = workspace:FindFirstChild("k0lSky")
		if not sky then
			AdminCmd(";fog 60000")
			AdminCmd(";fogcolor black")
			sky = BT({"CreatePart", "Normal", CFrame.new(0, 0, 0), workspace})
			if not sky then return end
			sky.Name = "k0lSky"
			BT({"SyncAnchor", {{Part = sky, Anchored = true}}})
			BT({"SyncCollision", {{Part = sky, CanCollide = false}}})
			BT({"CreateMeshes", {{Part = sky}}})
			BT({"SyncMesh", {{
				Part = sky,
				MeshType = "FileMesh",
				MeshId = "rbxassetid://111891702759441",
				Scale = Vector3.new(10000, 10000, 10000),
			}}})
		end
		pcall(function()
			F3X({"SyncMaterial", {{Part = sky, Transparency = 1, Color = Color3.fromRGB(0, 0, 0)}}})
		end)
		pcall(function()
			BT({"SyncMaterial", {{Part = sky, Transparency = 1, Color = Color3.fromRGB(0, 0, 0)}}})
		end)
		ApplyDecalOnPart(sky, "73973334003335")
		AdminCmd(";disco")
		SpawnBinaryBurst(14, 1)
	end)

	local spinningSky, spinConn = false, nil
	SpinSkyBtn.MouseButton1Click:Connect(function()
		local sky = workspace:FindFirstChild("k0lSky")
		if not sky then return end
		if spinningSky then
			spinningSky = false
			if spinConn then spinConn:Disconnect() spinConn = nil end
			SpinSkyBtn.Text = "spin sky"
			SpinSpeed.Hide()
			return
		end
		spinningSky = true
		SpinSkyBtn.Text = "stop"
		SpinSpeed.Set(10)
		SpinSpeed.Show()
		local yaw = 0
		spinConn = RunService.RenderStepped:Connect(function(dt)
			if not spinningSky then return end
			local sky = workspace:FindFirstChild("k0lSky")
			if not sky then return end
			local spd = SpinSpeed.Get()
			yaw = yaw + math.rad(spd * 36) * dt
			F3X({"SyncMove", {{Part = sky, CFrame = CFrame.new(sky.Position) * CFrame.Angles(yaw * 0.15, yaw, yaw * 0.08)}}})
		end)
	end)

	BigSphereBtn.MouseButton1Click:Connect(function()
		local center = Vector3.new(0, 50, 0)
		if player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
			center = player.Character.HumanoidRootPart.Position + Vector3.new(0, 30, 0)
		end
		local radius, density = 40, 8
		local partsCreated = {}
		local num = density * density * 4
		for i = 0, num - 1 do
			local y = 1 - (i / (num - 1)) * 2
			local radiusAtY = math.sqrt(1 - y * y)
			local theta = math.pi * (3 - math.sqrt(5)) * i
			local pos = center + Vector3.new(math.cos(theta) * radiusAtY, y, math.sin(theta) * radiusAtY) * radius
			local cf = CFrame.new(pos)
			task.spawn(function()
				local part = F3X({"CreatePart", "Normal", cf, workspace})
				if part then
					table.insert(partsCreated, part)
					F3X({"SyncAnchor", {{Part = part, Anchored = true}}})
					F3X({"SyncResize", {{Part = part, CFrame = cf, Size = Vector3.new(2.5,2.5,2.5)}}})
					F3X({"SyncCollision", {{Part = part, CanCollide = true}}})
				end
			end)
		end
		task.delay(2.2, function()
			for _, p in pairs(partsCreated) do
				if p and p.Parent then
					task.spawn(function() F3X({"SyncAnchor", {{Part = p, Anchored = false}}}) end)
				end
			end
		end)
	end)

	local function music(cmd) AdminCmd(cmd) end
	FhfhBtn.MouseButton1Click:Connect(function() music(";music 87174269808530 ;pitch 0.1 ;volume 50") end)
	WontStopBtn.MouseButton1Click:Connect(function() music(";music 1847661821") end)
	FanThemeBtn.MouseButton1Click:Connect(function() music(";music 72667013811270 ;pitch 0.105 ;volume 500") end)
	BloodBtn.MouseButton1Click:Connect(function() music(";music 70404094303163 ;pitch 0.1 ;volume 55") end)
	OldThemeBtn.MouseButton1Click:Connect(function() music(";music 80065344163300 ;pitch 0.1 ;volume 55") end)
	ChinaBtn.MouseButton1Click:Connect(function() music(";music 87434633910128 ;pitch 0.1 ;volume 55") end)
	ElectroBtn.MouseButton1Click:Connect(function() music(";music 78483752661593 ;pitch 0.1 ;volume 500") end)
	JugstaBtn.MouseButton1Click:Connect(function() music(";music 16190761193 ;volume 55") end)
	HotTopicBtn.MouseButton1Click:Connect(function() music(";music 134884767490882 ;volume 50") end)
	WongaBtn.MouseButton1Click:Connect(function() music(";music 100792696468630 ;pitch 0.150 ;volume 500") end)
	CryingBtn.MouseButton1Click:Connect(function() music(";music 138194554038974 ;pitch 0.2 ;volume 50") end)
	SpongeBobBtn.MouseButton1Click:Connect(function() music(";music 138376415858162 ;pitch 0.1 ;volume 50") end)
	HardstyleBtn.MouseButton1Click:Connect(function() music(";music 128186476216166 ;volume 50") end)
	EricaBtn.MouseButton1Click:Connect(function() music(";music 83682008343882 ;pitch 0.106 ;volume 50") end)
	AlaBtn.MouseButton1Click:Connect(function() music(";music 85390427326662 ;pitch 0.1 ;volume 50") end)
	HardbassBtn.MouseButton1Click:Connect(function() music(";music 119724983756181 ;pitch 0.1 ;volume 50") end)
	CloneMoveBtn.MouseButton1Click:Connect(function() music(";music 116273924154778 ;volume 50") end)
	JustMoveBtn.MouseButton1Click:Connect(function() music(";music 83080737598138 ;volume 50") end)
	LolBtn.MouseButton1Click:Connect(function() music(";music 94797081270081 ;pitch 0.2 ;volume 50") end)
	BodyPartzBtn.MouseButton1Click:Connect(function() music(";music 127653283576622 ;volume 50") end)
	FnMfBtn.MouseButton1Click:Connect(function() music(";music 116925459199971 ;pitch 0.1 ;volume 50") end)
	RtyiooBtn.MouseButton1Click:Connect(function() music(";music 82696338249251 ;volume 50") end)
	FunnehBtn.MouseButton1Click:Connect(function() music(";music 132504204562767 ;pitch 0.2 ;volume 50") end)
	StopAllBtn.MouseButton1Click:Connect(function() AdminCmd(";unmusic") end)
end

VerifyBtn.MouseButton1Click:Connect(function()
	if KeyBox.Text == "k00l" then
		StatusLabel.Text = "ok."
		StatusLabel.TextColor3 = C.text
		SpawnBinaryBurst(24, 1.1)
		task.wait(0.25)
		KeyFrame:Destroy()
		ShowWelcome()
		CreateMainGUI()
	else
		StatusLabel.Text = "wrong key."
		StatusLabel.TextColor3 = Color3.fromRGB(255, 90, 90)
		KeyBox.Text = ""
	end
end)

print("k0lgui · red soft ui")