Panel for all roblox games NoKey

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

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

local highlightEnabled = false
local flyEnabled = false
local noclipEnabled = false
local infiniteJumpEnabled = false
local highlights = {}

local noclipConnection
local nameTagsEnabled = false
local nameTags = {}

-------------------------------------------------
-- GUI ERSTELLEN
-------------------------------------------------

local screenGui = Instance.new("ScreenGui")
screenGui.Name = "AdminPanelGUI"
screenGui.ResetOnSpawn = false
screenGui.Parent = PlayerGui

local frame = Instance.new("Frame")
frame.Size = UDim2.new(0, 240, 0, 390)
frame.Position = UDim2.new(0.5, -110, 0.5, -100)
frame.BackgroundColor3 = Color3.fromRGB(25,25,25)
frame.BorderSizePixel = 0
frame.Active = true
frame.Draggable = true -- 🔥 Drag aktiviert
frame.Parent = screenGui

local corner = Instance.new("UICorner", frame)
corner.CornerRadius = UDim.new(0, 12)

local title = Instance.new("TextLabel")
title.Size = UDim2.new(1,0,0,35)
title.BackgroundTransparency = 1
title.Text = "Hacking panel"
title.TextScaled = true
title.TextColor3 = Color3.new(1,1,1)
title.Parent = frame

-- WalkSpeed TextBox & Button
local walkSpeedTextBox = Instance.new("TextBox")
walkSpeedTextBox.Size = UDim2.new(1,-20,0,40)
walkSpeedTextBox.Position = UDim2.new(0,10,0,295) -- unter Infinite Jump
walkSpeedTextBox.PlaceholderText = "Gib WalkSpeed ein (z.B. 50)"
walkSpeedTextBox.Text = ""
walkSpeedTextBox.TextScaled = true
walkSpeedTextBox.BackgroundColor3 = Color3.fromRGB(40,40,40)
walkSpeedTextBox.TextColor3 = Color3.new(1,1,1)
walkSpeedTextBox.Parent = frame
local corner = Instance.new("UICorner", walkSpeedTextBox)
corner.CornerRadius = UDim.new(0,8)

local walkSpeedButton = Instance.new("TextButton")
walkSpeedButton.Size = UDim2.new(1,-20,0,40)
walkSpeedButton.Position = UDim2.new(0,10,0,345)
walkSpeedButton.Text = "WalkSpeed ändern"
walkSpeedButton.TextScaled = true
walkSpeedButton.BackgroundColor3 = Color3.fromRGB(170,0,0)
walkSpeedButton.TextColor3 = Color3.new(1,1,1)
walkSpeedButton.Parent = frame
local cornerBtn = Instance.new("UICorner", walkSpeedButton)
cornerBtn.CornerRadius = UDim.new(0,8)

-- Frame Größe anpassen
frame.Size = UDim2.new(0, 220, 0, 390)

-------------------------------------------------
-- BUTTON ERSTELLER FUNKTION
-------------------------------------------------

local function createButton(text, yPos)
	local button = Instance.new("TextButton")
	button.Size = UDim2.new(1,-20,0,40)
	button.Position = UDim2.new(0,10,0,yPos)
	button.Text = text
	button.TextScaled = true
	button.BackgroundColor3 = Color3.fromRGB(170,0,0)
	button.TextColor3 = Color3.new(1,1,1)
	button.Parent = frame
	
	local corner = Instance.new("UICorner", button)
	corner.CornerRadius = UDim.new(0, 8)
	
	return button
end

local highlightButton = createButton("Highlight: AUS", 45)
local flyButton = createButton("Fly: AUS", 95)
local noclipButton = createButton("Noclip: AUS", 145)
local infiniteJumpButton = createButton("Infinite Jump: AUS", 195)
local nameTagsButton = createButton("NameTags: AUS", 245)

-------------------------------------------------
-- HIGHLIGHT SYSTEM
-------------------------------------------------

local function addHighlight(character)
	if highlights[character] then return end
	
	local highlight = Instance.new("Highlight")
	highlight.FillColor = Color3.fromRGB(255,0,0)
	highlight.FillTransparency = 0.5
	highlight.OutlineColor = Color3.fromRGB(255,0,0)
	highlight.Parent = character
	
	highlights[character] = highlight
end

local function addNameTag(character, player)
	if not character or not player then return end
	if nameTags[character] then return end
	
	local head = character:FindFirstChild("Head")
	if not head then return end
	
	local billboard = Instance.new("BillboardGui")
	billboard.Name = "NameTag"
	billboard.Size = UDim2.new(0,100,0,30)
	billboard.Adornee = head
	billboard.AlwaysOnTop = true
	billboard.Parent = head
	
	local label = Instance.new("TextLabel")
	label.Size = UDim2.new(1,0,1,0)
	label.BackgroundTransparency = 1
	label.TextScaled = true
	label.TextColor3 = Color3.new(1,1,1)
	label.TextStrokeColor3 = Color3.new(0,0,0)
	label.TextStrokeTransparency = 0
	label.Text = player.Name
	label.Parent = billboard
	
	nameTags[character] = billboard
end

local function removeNameTag(character)
	if nameTags[character] then
		nameTags[character]:Destroy()
		nameTags[character] = nil
	end
end

-- Noclip sofort beim Toggle
local function applyNoclip()
	local character = player.Character
	if character then
		for _, part in pairs(character:GetDescendants()) do
			if part:IsA("BasePart") then
				part.CanCollide = noclipEnabled
					and false -- AN → CanCollide false
					or true  -- AUS → CanCollide true
			end
		end
	end
end

local function updateNameTags()
	for _, plr in pairs(Players:GetPlayers()) do
		if plr.Character then
			if nameTagsEnabled then
				addNameTag(plr.Character, plr)
			else
				removeNameTag(plr.Character)
			end
		end
	end
end

local function removeHighlight(character)
	if highlights[character] then
		highlights[character]:Destroy()
		highlights[character] = nil
	end
end

local function updateHighlights()
	for _, plr in pairs(Players:GetPlayers()) do
		if plr.Character then
			if highlightEnabled then
				addHighlight(plr.Character)
			else
				removeHighlight(plr.Character)
			end
		end
	end
end

highlightButton.MouseButton1Click:Connect(function()
	highlightEnabled = not highlightEnabled
	
	if highlightEnabled then
		highlightButton.Text = "Highlight: AN"
		highlightButton.BackgroundColor3 = Color3.fromRGB(0,170,0)
	else
		highlightButton.Text = "Highlight: AUS"
		highlightButton.BackgroundColor3 = Color3.fromRGB(170,0,0)
	end
	
	updateHighlights()
end)

local UserInputService = game:GetService("UserInputService")

UserInputService.JumpRequest:Connect(function()
	if infiniteJumpEnabled and player.Character then
		local humanoid = player.Character:FindFirstChildOfClass("Humanoid")
		if humanoid then
			humanoid:ChangeState(Enum.HumanoidStateType.Jumping)
		end
	end
end)

infiniteJumpButton.MouseButton1Click:Connect(function()
	infiniteJumpEnabled = not infiniteJumpEnabled
	
	if infiniteJumpEnabled then
		infiniteJumpButton.Text = "Infinite Jump: AN"
		infiniteJumpButton.BackgroundColor3 = Color3.fromRGB(0,170,0)
	else
		infiniteJumpButton.Text = "Infinite Jump: AUS"
		infiniteJumpButton.BackgroundColor3 = Color3.fromRGB(170,0,0)
	end
end)

-- Button Toggle
nameTagsButton.MouseButton1Click:Connect(function()
	nameTagsEnabled = not nameTagsEnabled
	
	if nameTagsEnabled then
		nameTagsButton.Text = "NameTags: AN"
		nameTagsButton.BackgroundColor3 = Color3.fromRGB(0,170,0)
	else
		nameTagsButton.Text = "NameTags: AUS"
		nameTagsButton.BackgroundColor3 = Color3.fromRGB(170,0,0)
	end
	
	updateNameTags()
end)

-- Neue Spieler / Respawn support
Players.PlayerAdded:Connect(function(plr)
	plr.CharacterAdded:Connect(function(char)
		task.wait(0.5)
		if nameTagsEnabled then
			addNameTag(char, plr)
		end
	end)
end)

for _, plr in pairs(Players:GetPlayers()) do
	plr.CharacterAdded:Connect(function(char)
		task.wait(0.5)
		if nameTagsEnabled then
			addNameTag(char, plr)
		end
	end)
end

-------------------------------------------------
-- FLY SYSTEM (FIXED NO DRIFT)
-------------------------------------------------

local bodyVelocity
local bodyGyro
local flySpeed = 60

local function startFlying()
	local character = player.Character
	if not character then return end
	
	local root = character:WaitForChild("HumanoidRootPart")
	
	bodyVelocity = Instance.new("BodyVelocity")
	bodyVelocity.MaxForce = Vector3.new(100000,100000,100000)
	bodyVelocity.Velocity = Vector3.new(0,0,0)
	bodyVelocity.Parent = root
	
	bodyGyro = Instance.new("BodyGyro")
	bodyGyro.MaxTorque = Vector3.new(100000,100000,100000)
	bodyGyro.CFrame = root.CFrame
	bodyGyro.Parent = root
end

local function stopFlying()
	if bodyVelocity then bodyVelocity:Destroy() end
	if bodyGyro then bodyGyro:Destroy() end
end

RunService.RenderStepped:Connect(function()
	if flyEnabled and bodyVelocity and bodyGyro then
		local camera = workspace.CurrentCamera
		local direction = Vector3.new(0,0,0)
		
		if UserInputService:IsKeyDown(Enum.KeyCode.W) then
			direction += camera.CFrame.LookVector
		end
		if UserInputService:IsKeyDown(Enum.KeyCode.S) then
			direction -= camera.CFrame.LookVector
		end
		if UserInputService:IsKeyDown(Enum.KeyCode.A) then
			direction -= camera.CFrame.RightVector
		end
		if UserInputService:IsKeyDown(Enum.KeyCode.D) then
			direction += camera.CFrame.RightVector
		end
		if UserInputService:IsKeyDown(Enum.KeyCode.Space) then
			direction += Vector3.new(0,1,0)
		end
		if UserInputService:IsKeyDown(Enum.KeyCode.LeftShift) then
			direction -= Vector3.new(0,1,0)
		end
		
		if direction.Magnitude > 0 then
			bodyVelocity.Velocity = direction.Unit * flySpeed
		else
			bodyVelocity.Velocity = Vector3.new(0,0,0)
		end
		
		bodyGyro.CFrame = camera.CFrame
	end
end)

walkSpeedButton.MouseButton1Click:Connect(function()
	local speed = tonumber(walkSpeedTextBox.Text)
	if speed and player.Character then
		local humanoid = player.Character:FindFirstChildOfClass("Humanoid")
		if humanoid then
			humanoid.WalkSpeed = speed
		end
	end
end)

flyButton.MouseButton1Click:Connect(function()
	flyEnabled = not flyEnabled
	
	if flyEnabled then
		flyButton.Text = "Fly: AN"
		flyButton.BackgroundColor3 = Color3.fromRGB(0,170,0)
		startFlying()
	else
		flyButton.Text = "Fly: AUS"
		flyButton.BackgroundColor3 = Color3.fromRGB(170,0,0)
		stopFlying()
	end
end)

-------------------------------------------------
-- STABILES NOCLIP SYSTEM
-------------------------------------------------

local function enableNoclip()
	if noclipConnection then return end
	
	noclipConnection = RunService.Stepped:Connect(function()
		local character = player.Character
		if not character then return end
		
		for _, part in ipairs(character:GetDescendants()) do
			if part:IsA("BasePart") then
				part.CanCollide = false
			end
		end
	end)
end

local function disableNoclip()
	if noclipConnection then
		noclipConnection:Disconnect()
		noclipConnection = nil
	end
	
	local character = player.Character
	if character then
		for _, part in ipairs(character:GetDescendants()) do
			if part:IsA("BasePart") then
				part.CanCollide = true
			end
		end
	end
end

noclipButton.MouseButton1Click:Connect(function()
	noclipEnabled = not noclipEnabled
	
	if noclipEnabled then
		noclipButton.Text = "Noclip: AN"
		noclipButton.BackgroundColor3 = Color3.fromRGB(0,170,0)
		enableNoclip()
	else
		noclipButton.Text = "Noclip: AUS"
		noclipButton.BackgroundColor3 = Color3.fromRGB(170,0,0)
		disableNoclip()
	end
end)

-------------------------------------------------
-- RESPAWN SUPPORT
-------------------------------------------------

player.CharacterAdded:Connect(function()
	task.wait(0.5)
	if flyEnabled then
		startFlying()
	end
    if noclipEnabled then
		applyNoclip()
	end
end)