local Players = game:GetService("Players")
local CoreGui = game:GetService("CoreGui")
local UIS = game:GetService("UserInputService")
local RunService = game:GetService("RunService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local LocalPlayer = Players.LocalPlayer

-- Tracking States
local lockedTarget = nil
local loopConnection = nil
local isColorRunning = false
local colorSpeed = 0.05

-- Game Remotes Lookup
local Remotes = ReplicatedStorage:WaitForChild("Remotes", 5)
local ColorEvent = Remotes and Remotes:WaitForChild("SetRPNameColor", 5)

-- Black and White Color Table Matrix
local colors = {
    Color3.fromRGB(0, 0, 0),       -- Pure Black
    Color3.fromRGB(85, 85, 85),     -- Dark Gray
    Color3.fromRGB(170, 170, 170),   -- Light Gray
    Color3.fromRGB(255, 255, 255)    -- Pure White
}

-- Create the Master ScreenGui
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "PirtxlAdminSuite"
ScreenGui.ResetOnSpawn = false

-- Safe placement loop (Uses CoreGui for executors to prevent reset wiping)
local success, err = pcall(function() ScreenGui.Parent = CoreGui end)
if not success then ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui") end

-- Main UI Frame Container
local MainFrame = Instance.new("Frame")
MainFrame.Name = "MainFrame"
MainFrame.Size = UDim2.new(0, 200, 0, 310)
MainFrame.Position = UDim2.new(0.5, -100, 0.4, -155)
MainFrame.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
MainFrame.Draggable = true
MainFrame.Parent = ScreenGui

local FrameCorner = Instance.new("UICorner")
FrameCorner.CornerRadius = UDim.new(0, 8)
FrameCorner.Parent = MainFrame

-- Custom Header Text Title for Pirtxl
local TitleLabel = Instance.new("TextLabel")
TitleLabel.Size = UDim2.new(1, 0, 0, 30)
TitleLabel.BackgroundTransparency = 1
TitleLabel.Text = "Pirtxl control panel"
TitleLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
TitleLabel.TextSize = 13
TitleLabel.Font = Enum.Font.SourceSansBold
TitleLabel.Parent = MainFrame

-- Keybind Info Subtitle Prompt
local PromptLabel = Instance.new("TextLabel")
PromptLabel.Size = UDim2.new(1, 0, 0, 14)
PromptLabel.Position = UDim2.new(0, 0, 0, 22)
PromptLabel.BackgroundTransparency = 1
PromptLabel.Text = "Press 'P' to Reset Instantly"
PromptLabel.TextColor3 = Color3.fromRGB(180, 180, 180)
PromptLabel.TextSize = 10
PromptLabel.Font = Enum.Font.SourceSansItalic
PromptLabel.Parent = MainFrame

-- Helper function to generate clean standard panel buttons
local function createButton(text, color, position, parent)
    local btn = Instance.new("TextButton")
    btn.Size = UDim2.new(0, 180, 0, 30)
    btn.Position = position
    btn.BackgroundColor3 = color
    btn.BorderSizePixel = 0
    btn.Text = text
    btn.TextColor3 = Color3.fromRGB(255, 255, 255)
    btn.TextSize = 12
    btn.Font = Enum.Font.SourceSansBold
    btn.Parent = parent
    
    local corner = Instance.new("UICorner")
    corner.CornerRadius = UDim.new(0, 5)
    corner.Parent = btn
    
    return btn
end

-- ==================== FEATURE 1: KILL CHARACTER SYSTEM ====================

local KillButton = createButton("KILL CHARACTER", Color3.fromRGB(200, 50, 50), UDim2.new(0, 10, 0, 42), MainFrame)

local function killSelf()
    local character = LocalPlayer.Character
    if character then
        local humanoid = character:FindFirstChildOfClass("Humanoid")
        if humanoid then humanoid.Health = 0 end
    end
end

KillButton.MouseButton1Click:Connect(killSelf)

-- Map structural physical keyboard 'P' register 
UIS.InputBegan:Connect(function(input, gameProcessed)
    if gameProcessed then return end
    if input.KeyCode == Enum.KeyCode.P then killSelf() end
end)

-- ==================== FEATURE 2: NAMETAG COLOR LOOP ====================

local ColorButton = createButton("COLOR LOOP: OFF", Color3.fromRGB(200, 50, 50), UDim2.new(0, 10, 0, 78), MainFrame)

ColorButton.MouseButton1Click:Connect(function()
    isColorRunning = not isColorRunning
    if isColorRunning then
        ColorButton.Text = "COLOR LOOP: ON"
        ColorButton.BackgroundColor3 = Color3.fromRGB(50, 180, 100)
    else
        ColorButton.Text = "COLOR LOOP: OFF"
        ColorButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
    end
end)

task.spawn(function()
    local colorIndex = 1
    while true do
        if isColorRunning and ColorEvent then
            pcall(function() ColorEvent:FireServer(colors[colorIndex]) end)
            colorIndex = (colorIndex % #colors) + 1
            task.wait(colorSpeed)
        else
            task.wait(0.2)
        end
    end
end)

-- ==================== FEATURE 3: MAX-STRENGTH TELEPORT LOCK ====================

-- Text Box for Player Search Filter Layout
local FilterBox = Instance.new("TextBox")
FilterBox.Size = UDim2.new(0, 180, 0, 25)
FilterBox.Position = UDim2.new(0, 10, 0, 114)
FilterBox.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
FilterBox.BorderSizePixel = 0
FilterBox.Font = Enum.Font.SourceSans
FilterBox.PlaceholderText = "Search player to lock..."
FilterBox.Text = ""
FilterBox.TextColor3 = Color3.fromRGB(255, 255, 255)
FilterBox.TextSize = 11
FilterBox.Parent = MainFrame

local BoxCorner = Instance.new("UICorner")
BoxCorner.CornerRadius = UDim.new(0, 4)
BoxCorner.Parent = FilterBox

-- Scrolling Wrapper to display found players
local ScrollFrame = Instance.new("ScrollingFrame")
ScrollFrame.Size = UDim2.new(0, 180, 0, 95)
ScrollFrame.Position = UDim2.new(0, 10, 0, 144)
ScrollFrame.BackgroundTransparency = 1
ScrollFrame.CanvasSize = UDim2.new(0, 0, 0, 0)
ScrollFrame.ScrollBarThickness = 3
ScrollFrame.Parent = MainFrame

local ListLayout = Instance.new("UIListLayout")
ListLayout.Parent = ScrollFrame
ListLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center
ListLayout.SortOrder = Enum.SortOrder.Name
ListLayout.Padding = UDim.new(0, 4)

local StopButton = createButton("RELEASE STICKY LOCK", Color3.fromRGB(70, 70, 70), UDim2.new(0, 10, 0, 272), MainFrame)

local function stopTeleportLoop()
    if loopConnection then
        loopConnection:Disconnect()
        loopConnection = nil
    end
    lockedTarget = nil
    TitleLabel.Text = "Pirtxl control panel"
    TitleLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
end

local function startTeleportLoop(targetPlayer)
    stopTeleportLoop() -- Clean prior connection stack
    lockedTarget = targetPlayer
    TitleLabel.Text = "STICKY: " .. targetPlayer.Name:upper()
    TitleLabel.TextColor3 = Color3.fromRGB(0, 255, 150)
    
    -- MAX STRENGTH FRAME RENDERING INTERCEPT PIECE
    loopConnection = RunService.RenderStepped:Connect(function()
        if lockedTarget and lockedTarget.Parent and lockedTarget.Character then
            local targetRoot = lockedTarget.Character:FindFirstChild("HumanoidRootPart")
            local localCharacter = LocalPlayer.Character
            local localRoot = localCharacter and localCharacter:FindFirstChild("HumanoidRootPart")
            
            if targetRoot and localRoot then
                -- 1. Anti-Collision Mod (Disables hit targets locally)
                for _, part in ipairs(localCharacter:GetDescendants()) do
                    if part:IsA("BasePart") then
                        part.CanCollide = false
                        part.CanTouch = false
                    end
                end
                
                -- 2. Force Reset Inertial Velocity Momentum Accumulations
                localRoot.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
                localRoot.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
                
                -- 3. Hard CFrame Sticky Lock Target Vector Behind Back Position (4 units back)
                localRoot.CFrame = targetRoot.CFrame * CFrame.new(0, 0, 4)
            end
        else
            stopTeleportLoop()
        end
    end)
end

StopButton.MouseButton1Click:Connect(stopTeleportLoop)

-- Player List Population Matrix Handling
local function updatePlayerList()
    for _, child in ipairs(ScrollFrame:GetChildren()) do
        if child:IsA("TextButton") then child:Destroy() end
    end
    
    local filterText = FilterBox.Text:lower()
    local buttonCount = 0
    
    for _, player in ipairs(Players:GetPlayers()) do
        if player ~= LocalPlayer then
            if filterText == "" or player.Name:lower():find(filterText) or player.DisplayName:lower():find(filterText) then
                buttonCount = buttonCount + 1
                
                local pButton = Instance.new("TextButton")
                pButton.Size = UDim2.new(1, 0, 0, 22)
                pButton.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
                pButton.BorderSizePixel = 0
                pButton.Text = player.DisplayName .. " (@" .. player.Name .. ")"
                pButton.TextColor3 = Color3.fromRGB(230, 230, 230)
                pButton.TextSize = 10
                pButton.Font = Enum.Font.SourceSans
                pButton.Parent = ScrollFrame
                
                local bCorner = Instance.new("UICorner")
                bCorner.CornerRadius = UDim.new(0, 4)
                bCorner.Parent = pButton
                
                pButton.MouseButton1Click:Connect(function()
                    startTeleportLoop(player)
                end)
            end
        end
    end
    ScrollFrame.CanvasSize = UDim2.new(0, 0, 0, buttonCount * 26)
end

FilterBox:GetPropertyChangedSignal("Text"):Connect(updatePlayerList)
Players.PlayerAdded:Connect(updatePlayerList)
Players.PlayerRemoving:Connect(updatePlayerList)

-- Run default populator build script array sequencing
updatePlayerList()
print("✅ Pirtxl control panel fully compiled and executed!")