Headless And Korblox Keyless!

-- Dynamic Headless, Korblox, Hair & Accessories Hub
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")

local LocalPlayer = Players.LocalPlayer
local PlayerGui = LocalPlayer:WaitForChild("PlayerGui")

if PlayerGui:FindFirstChild("HeadlessCustomGui") then
	PlayerGui.HeadlessCustomGui:Destroy()
end

local headlessActive = false
local korbloxActive = false
local hairActive = false
local expanded = false

-- Vytvoření GUI
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "HeadlessCustomGui"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = PlayerGui

local MainFrame = Instance.new("Frame")
MainFrame.Size = UDim2.new(0, 230, 0, 195) -- Větší základní velikost pro Headless i Korblox
MainFrame.Position = UDim2.new(0.5, -115, 0.35, -95)
MainFrame.BackgroundColor3 = Color3.fromRGB(22, 24, 32)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
MainFrame.ClipsDescendants = true
MainFrame.Parent = ScreenGui

local Corner = Instance.new("UICorner") Corner.CornerRadius = UDim.new(0, 8) Corner.Parent = MainFrame
local Stroke = Instance.new("UIStroke") Stroke.Color = Color3.fromRGB(45, 50, 65) Stroke.Thickness = 1.5 Stroke.Parent = MainFrame

-- Nadpis
local Title = Instance.new("TextLabel")
Title.Size = UDim2.new(1, -30, 0, 28)
Title.Position = UDim2.new(0, 10, 0, 4)
Title.BackgroundTransparency = 1
Title.Text = "HEADLESS & KORBLOX HUB"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.TextSize = 11
Title.Font = Enum.Font.GothamBold
Title.TextXAlignment = Enum.TextXAlignment.Left
Title.Parent = MainFrame

-- Zavřít (X)
local CloseBtn = Instance.new("TextButton")
CloseBtn.Size = UDim2.new(0, 22, 0, 22)
CloseBtn.Position = UDim2.new(1, -26, 0, 6)
CloseBtn.BackgroundColor3 = Color3.fromRGB(220, 50, 50)
CloseBtn.Text = "?"
CloseBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
CloseBtn.TextSize = 11
CloseBtn.Font = Enum.Font.GothamBold
CloseBtn.Parent = MainFrame
local CC = Instance.new("UICorner") CC.CornerRadius = UDim.new(0, 4) CC.Parent = CloseBtn

-- Tlačítko HEADLESS
local HeadlessBtn = Instance.new("TextButton")
HeadlessBtn.Size = UDim2.new(1, -20, 0, 32)
HeadlessBtn.Position = UDim2.new(0, 10, 0, 36)
HeadlessBtn.BackgroundColor3 = Color3.fromRGB(35, 40, 52)
HeadlessBtn.Text = "HEADLESS: OFF"
HeadlessBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
HeadlessBtn.TextSize = 11
HeadlessBtn.Font = Enum.Font.GothamBold
HeadlessBtn.Parent = MainFrame
local HC = Instance.new("UICorner") HC.CornerRadius = UDim.new(0, 6) HC.Parent = HeadlessBtn

-- Tlačítko KORBLOX (Hned pod Headless)
local KorbloxBtn = Instance.new("TextButton")
KorbloxBtn.Size = UDim2.new(1, -20, 0, 32)
KorbloxBtn.Position = UDim2.new(0, 10, 0, 74)
KorbloxBtn.BackgroundColor3 = Color3.fromRGB(35, 40, 52)
KorbloxBtn.Text = "KORBLOX: OFF"
KorbloxBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
KorbloxBtn.TextSize = 11
KorbloxBtn.Font = Enum.Font.GothamBold
KorbloxBtn.Parent = MainFrame
local KBC = Instance.new("UICorner") KBC.CornerRadius = UDim.new(0, 6) KBC.Parent = KorbloxBtn

-- Tlačítko WITHOUT HAIR
local HairBtn = Instance.new("TextButton")
HairBtn.Size = UDim2.new(1, -20, 0, 32)
HairBtn.Position = UDim2.new(0, 10, 0, 112)
HairBtn.BackgroundColor3 = Color3.fromRGB(35, 40, 52)
HairBtn.Text = "WITHOUT HAIR: OFF"
HairBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
HairBtn.TextSize = 11
HairBtn.Font = Enum.Font.GothamBold
HairBtn.Parent = MainFrame
local HaC = Instance.new("UICorner") HaC.CornerRadius = UDim.new(0, 6) HaC.Parent = HairBtn

-- Tlačítko pro rozbalení / zmenšení okna (Accessories)
local ExpandBtn = Instance.new("TextButton")
ExpandBtn.Size = UDim2.new(1, -20, 0, 32)
ExpandBtn.Position = UDim2.new(0, 10, 0, 150)
ExpandBtn.BackgroundColor3 = Color3.fromRGB(0, 120, 255)
ExpandBtn.Text = "MY ACCESSORIES ?"
ExpandBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
ExpandBtn.TextSize = 11
ExpandBtn.Font = Enum.Font.GothamBold
ExpandBtn.Parent = MainFrame
local EC = Instance.new("UICorner") EC.CornerRadius = UDim.new(0, 6) EC.Parent = ExpandBtn

-- Scrollovací seznam pro doplňky
local ScrollList = Instance.new("ScrollingFrame")
ScrollList.Size = UDim2.new(1, -20, 1, -195)
ScrollList.Position = UDim2.new(0, 10, 0, 190)
ScrollList.BackgroundTransparency = 1
ScrollList.BorderSizePixel = 0
ScrollList.ScrollBarThickness = 4
ScrollList.Parent = MainFrame

local UIListLayout = Instance.new("UIListLayout")
UIListLayout.Padding = UDim.new(0, 6)
UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIListLayout.Parent = ScrollList

-----------------------------------------------------------
-- LOGIKA
-----------------------------------------------------------
local function setHeadless(state)
	local char = LocalPlayer.Character
	if not char then return end
	local head = char:FindFirstChild("Head")
	if head then
		head.Transparency = state and 1 or 0
		local face = head:FindFirstChildOfClass("Decal")
		if face then face.Transparency = state and 1 or 0 end
		head.CastShadow = not state
	end
end

local function setKorblox(state)
	local char = LocalPlayer.Character
	if not char then return end
	-- Podpora pro R6 i R15
	local rightLeg = char:FindFirstChild("RightLeg") or char:FindFirstChild("RightLowerLeg") or char:FindFirstChild("Right ?")
	local rightFoot = char:FindFirstChild("RightFoot")
	local upperLeg = char:FindFirstChild("RightUpperLeg")

	if state then
		if upperLeg then upperLeg.Transparency = 1 end
		if rightLeg then rightLeg.Transparency = 1 end
		if rightFoot then rightFoot.Transparency = 1 end
		-- Zmenšení / skrytí spodní části pro korblox efekt
		if char:FindFirstChild("RightFoot") then
			char.RightFoot.Size = Vector3.new(0.1, 0.1, 0.1)
		end
	else
		if upperLeg then upperLeg.Transparency = 0 end
		if rightLeg then rightLeg.Transparency = 0 end
		if rightFoot then 
			rightFoot.Transparency = 0 
			rightFoot.Size = Vector3.new(1, 1, 1)
		end
	end
end

local function setHair(state)
	local char = LocalPlayer.Character
	if not char then return end
	for _, item in ipairs(char:GetChildren()) do
		if item:IsA("Accessory") and item.AccessoryType == Enum.AccessoryType.Hair then
			local handle = item:FindFirstChild("Handle")
			if handle then handle.Transparency = state and 1 or 0 end
		end
	end
end

local function refreshAccessories()
	for _, child in ipairs(ScrollList:GetChildren()) do
		if child:IsA("Frame") then child:Destroy() end
	end

	local char = LocalPlayer.Character
	if not char then return end

	local count = 0
	for _, item in ipairs(char:GetChildren()) do
		if item:IsA("Accessory") and item.AccessoryType ~= Enum.AccessoryType.Hair then
			count = count + 1
			local accName = item.Name
			local handle = item:FindFirstChild("Handle")

			local itemFrame = Instance.new("Frame")
			itemFrame.Size = UDim2.new(1, -8, 0, 42)
			itemFrame.BackgroundColor3 = Color3.fromRGB(32, 36, 48)
			itemFrame.Parent = ScrollList
			local IFC = Instance.new("UICorner") IFC.CornerRadius = UDim.new(0, 6) IFC.Parent = itemFrame

			local imgLabel = Instance.new("ImageLabel")
			imgLabel.Size = UDim2.new(0, 36, 0, 36)
			imgLabel.Position = UDim2.new(0, 3, 0, 3)
			imgLabel.BackgroundTransparency = 1
			imgLabel.Image = "rbxassetid://0"
			imgLabel.Parent = itemFrame
			local ILC = Instance.new("UICorner") ILC.CornerRadius = UDim.new(0, 4) ILC.Parent = imgLabel

			task.spawn(function()
				if item:FindFirstChild("AssetId") then
					imgLabel.Image = "rbxassetid://" .. tostring(item.AssetId)
				elseif handle and handle:FindFirstChildOfClass("SpecialMesh") then
					local mesh = handle:FindFirstChildOfClass("SpecialMesh")
					if mesh.TextureId ~= "" then
						imgLabel.Image = mesh.TextureId
					end
				end
			end)

			local nameLabel = Instance.new("TextLabel")
			nameLabel.Size = UDim2.new(1, -145, 1, 0)
			nameLabel.Position = UDim2.new(0, 44, 0, 0)
			nameLabel.BackgroundTransparency = 1
			nameLabel.Text = accName
			nameLabel.TextColor3 = Color3.fromRGB(220, 220, 220)
			nameLabel.TextSize = 10
			nameLabel.Font = Enum.Font.GothamBold
			nameLabel.TextXAlignment = Enum.TextXAlignment.Left
			nameLabel.TextTruncate = Enum.TextTruncate.AtEnd
			nameLabel.Parent = itemFrame

			local toggleBtn = Instance.new("TextButton")
			toggleBtn.Size = UDim2.new(0, 90, 0, 30)
			toggleBtn.Position = UDim2.new(1, -95, 0, 6)
			toggleBtn.BackgroundColor3 = Color3.fromRGB(0, 180, 90)
			toggleBtn.Text = "VISIBLE"
			toggleBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
			toggleBtn.TextSize = 10
			toggleBtn.Font = Enum.Font.GothamBold
			toggleBtn.Parent = itemFrame
			local TBC = Instance.new("UICorner") TBC.CornerRadius = UDim.new(0, 5) TBC.Parent = toggleBtn

			local isHidden = false
			toggleBtn.MouseButton1Click:Connect(function()
				isHidden = not isHidden
				if handle then handle.Transparency = isHidden and 1 or 0 end
				if isHidden then
					toggleBtn.Text = "HIDDEN"
					toggleBtn.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
				else
					toggleBtn.Text = "VISIBLE"
					toggleBtn.BackgroundColor3 = Color3.fromRGB(0, 180, 90)
				end
			end)
		end
	end

	ScrollList.CanvasSize = UDim2.new(0, 0, 0, count * 48)
end

-- Zvětšení / zmenšení okna
ExpandBtn.MouseButton1Click:Connect(function()
	expanded = not expanded
	if expanded then
		refreshAccessories()
		MainFrame.Size = UDim2.new(0, 340, 0, 450) -- Větší rozbalené okno
		MainFrame.Position = UDim2.new(0.5, -170, 0.3, -225)
		ExpandBtn.Text = "MY ACCESSORIES ?"
	else
		MainFrame.Size = UDim2.new(0, 230, 0, 195) -- Základní velikost
		MainFrame.Position = UDim2.new(0.5, -115, 0.35, -95)
		ExpandBtn.Text = "MY ACCESSORIES ?"
	end
end)

HeadlessBtn.MouseButton1Click:Connect(function()
	headlessActive = not headlessActive
	if headlessActive then
		HeadlessBtn.Text = "HEADLESS: ON"
		HeadlessBtn.BackgroundColor3 = Color3.fromRGB(0, 200, 100)
		setHeadless(true)
	else
		HeadlessBtn.Text = "HEADLESS: OFF"
		HeadlessBtn.BackgroundColor3 = Color3.fromRGB(35, 40, 52)
		setHeadless(false)
	end
end)

KorbloxBtn.MouseButton1Click:Connect(function()
	korbloxActive = not korbloxActive
	if korbloxActive then
		KorbloxBtn.Text = "KORBLOX: ON"
		KorbloxBtn.BackgroundColor3 = Color3.fromRGB(0, 200, 100)
		setKorblox(true)
	else
		KorbloxBtn.Text = "KORBLOX: OFF"
		KorbloxBtn.BackgroundColor3 = Color3.fromRGB(35, 40, 52)
		setKorblox(false)
	end
end)

HairBtn.MouseButton1Click:Connect(function()
	hairActive = not hairActive
	if hairActive then
		HairBtn.Text = "WITHOUT HAIR: ON"
		HairBtn.BackgroundColor3 = Color3.fromRGB(0, 200, 100)
		setHair(true)
	else
		HairBtn.Text = "WITHOUT HAIR: OFF"
		HairBtn.BackgroundColor3 = Color3.fromRGB(35, 40, 52)
		setHair(false)
	end
end)

LocalPlayer.CharacterAdded:Connect(function(char)
	task.wait(0.3)
	if headlessActive then setHeadless(true) end
	if korbloxActive then setKorblox(true) end
	if hairActive then setHair(true) end
	if expanded then refreshAccessories() end
end)

CloseBtn.MouseButton1Click:Connect(function()
	setHeadless(false)
	setKorblox(false)
	setHair(false)
	ScreenGui:Destroy()
end)

-- Přetahování okna
local dragging, dragInput, dragStart, startPos
MainFrame.InputBegan:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
		dragging = true dragStart = input.Position startPos = MainFrame.Position
	end
end)
UserInputService.InputChanged:Connect(function(input)
	if dragging and (input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch) then
		local delta = input.Position - dragStart
		MainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
	end
end)
UserInputService.InputEnded:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
		dragging = false
	end
end)