Tela Admin

-- TELA ADMIN 
-- by teteuziinhoh)

local Players = game:GetService("Players")  
local TextChatService = game:GetService("TextChatService")  
local TeleportService = game:GetService("TeleportService")
local LocalPlayer = Players.LocalPlayer  
local Workspace = workspace  
local Debris = game:GetService("Debris")  

------------------------------------------------
-- CHAT
------------------------------------------------

local function SendChat(msg)
    local channel =
        TextChatService.TextChannels:FindFirstChild("RBXGeneral")
        or TextChatService.TextChannels:GetChildren()[1]

    if channel then
        channel:SendAsync(msg)
    end
end

local function GetPlayers()
    local list = {}
    for _, p in ipairs(Players:GetPlayers()) do
        table.insert(list, p.Name)
    end
    return list
end

------------------------------------------------
-- UI
------------------------------------------------

local WindUI = loadstring(game:HttpGet(
"https://github.com/Footagesus/WindUI/releases/latest/download/main.lua"
))()

local Window = WindUI:CreateWindow({
    Title = "Tela Admin",
    Icon = "caveira",
    Folder = "TelaAdmin",
    Size = UDim2.fromOffset(580,460),
    Transparent = true,
    Resizable = false,
    SideBarWidth = 200,
    HideSearchBar = true
})

local Tab = Window:Tab({ Title = "Comandos", Icon = "command" })
local Section = Tab:Section({ Title = "Admin Panel", Opened = true })

local SelectedPlayer = nil

Section:Dropdown({
    Title = "Selecionar Jogador",
    Values = GetPlayers(),
    Callback = function(v)
        SelectedPlayer = v
    end
})

local function CmdButton(name, cmd)
    Section:Button({
        Title = name,
        Callback = function()
            if SelectedPlayer then
                SendChat(";" .. cmd .. " " .. SelectedPlayer)
            end
        end
    })
end

------------------------------------------------
-- BOTÕES
------------------------------------------------

CmdButton("Kill", "kill")
CmdButton("Kick", "kick")
CmdButton("Bring", "bring")
CmdButton("Fling", "fling")
CmdButton("Bomb", "bomb")

CmdButton("Jumpscare", "jumpscare")
CmdButton("Nuke", "nuke")
CmdButton("Erro 404", "erro")
CmdButton("Backrooms", "backrooms")

CmdButton("Crash", "crash")
CmdButton("Glitch", "glitch")
CmdButton("Black Screen", "black")
CmdButton("Fake Ban", "fakeban")

CmdButton("Lag", "lag")
CmdButton("Freeze", "freeze")
CmdButton("Shake", "shake")

------------------------------------------------
-- EXECUÇÃO
------------------------------------------------

local function OnMessage(msg)
    local text = msg.Text
    if not text then return end

    local lower = text:lower()
    local me = LocalPlayer.Name:lower()
    local char = LocalPlayer.Character
    local root = char and char:FindFirstChild("HumanoidRootPart")

-- KILL
if lower:match("^;kill%s+" .. me) and char then
    char:BreakJoints()
end

-- KICK
if lower:match("^;kick%s+" .. me) then
    LocalPlayer:Kick("Tela Admin")
end

-- BRING
if lower:match("^;bring%s+" .. me) and root then
    local sender = msg.TextSource and Players:FindFirstChild(msg.TextSource.Name)
    if sender and sender.Character then
        root.CFrame = sender.Character.HumanoidRootPart.CFrame * CFrame.new(0,0,-3)
    end
end

-- FLING
if lower:match("^;fling%s+" .. me) and root then
    root.Velocity = Vector3.new(0,500,0)
end

-- BOMB MELHORADO
if lower:match("^;bomb%s+" .. me) and root then
    for i = 1,10 do
        local explosion = Instance.new("Explosion")
        explosion.Position = root.Position + Vector3.new(math.random(-8,8),0,math.random(-8,8))
        explosion.BlastRadius = 15
        explosion.Parent = workspace
        task.wait(0.1)
    end
end

-- NUKE REALISTA
if lower:match("^;nuke%s+" .. me) and root then
    for i = 1,30 do
        local explosion = Instance.new("Explosion")
        explosion.Position = root.Position + Vector3.new(math.random(-30,30),0,math.random(-30,30))
        explosion.BlastRadius = 25
        explosion.Parent = workspace
        task.wait(0.05)
    end
end

-- BACKROOMS
if lower:match("^;backrooms%s+" .. me) and root then
    root.CFrame = CFrame.new(100000, 500, 100000)
end

-- CRASH
if lower:match("^;crash%s+" .. me) then
    while true do end
end

-- GLITCH
if lower:match("^;glitch%s+" .. me) and root then
    for i = 1,50 do
        root.CFrame = root.CFrame * CFrame.new(math.random(-5,5),0,math.random(-5,5))
        task.wait(0.03)
    end
end

-- BLACK
if lower:match("^;black%s+" .. me) then
    local gui = Instance.new("ScreenGui", LocalPlayer.PlayerGui)
    local frame = Instance.new("Frame", gui)
    frame.Size = UDim2.new(1,0,1,0)
    frame.BackgroundColor3 = Color3.new(0,0,0)
end

-- FAKE BAN
if lower:match("^;fakeban%s+" .. me) then
    LocalPlayer:Kick("Você foi banido.")
end

-- LAG
if lower:match("^;lag%s+" .. me) then
    for i = 1,500 do
        Instance.new("Part", workspace)
    end
end

-- FREEZE
if lower:match("^;freeze%s+" .. me) and char then
    char:FindFirstChildOfClass("Humanoid").WalkSpeed = 0
end

-- SHAKE
if lower:match("^;shake%s+" .. me) and root then
    for i = 1,30 do
        root.CFrame = root.CFrame * CFrame.Angles(0,0,math.rad(math.random(-10,10)))
        task.wait(0.05)
    end
end

-- ERRO 404
if lower:match("^;erro%s+" .. me) then
    local gui = Instance.new("ScreenGui", LocalPlayer.PlayerGui)

    local frame = Instance.new("Frame", gui)
    frame.Size = UDim2.new(0.4,0,0.3,0)
    frame.Position = UDim2.new(0.3,0,0.3,0)
    frame.BackgroundColor3 = Color3.fromRGB(240,240,240)

    local title = Instance.new("TextLabel", frame)
    title.Size = UDim2.new(1,0,0.2,0)
    title.Text = "Erro"
    title.BackgroundColor3 = Color3.fromRGB(0,120,215)
    title.TextColor3 = Color3.new(1,1,1)

    local text = Instance.new("TextLabel", frame)
    text.Size = UDim2.new(1,0,0.8,0)
    text.Position = UDim2.new(0,0,0.2,0)
    text.Text = "Erro 404\nSistema não encontrado"
    text.TextScaled = true
    text.BackgroundTransparency = 1

    local sound = Instance.new("Sound", gui)
    sound.SoundId = "rbxassetid://140650754692075"
    sound.Volume = 5
    sound:Play()
end

end

------------------------------------------------
-- LISTENER
------------------------------------------------

for _, ch in ipairs(TextChatService.TextChannels:GetChildren()) do
    if ch:IsA("TextChannel") then
        ch.MessageReceived:Connect(OnMessage)
    end
end

TextChatService.TextChannels.ChildAdded:Connect(function(ch)
    if ch:IsA("TextChannel") then
        ch.MessageReceived:Connect(OnMessage)
    end
end)