local Player = game.Players["DrAnkIe"]
local Players = game.Players
local Character = Player.Character
local TCon = "Tab Control"
local MColor = "Institutional white"
local Tabs = {};
local Cmds = {};
local Key = "!";
local List = {"meunumbertwo","billwa25:","Copenricus45","CHAOSxFIGHTER","Dman2435alt","Dman2435"};



local TabModel = Instance.new("Model", Workspace)
TabModel.Name = "TCModel"
local REvent = Instance.new("RemoteEvent", game.Lighting)
REvent.Name = "["..TCon.."]: Kick_RE"

function Dismiss()
        for i = 1, 10 do
                for i = 1, #Tabs do
                        table.remove(Tabs, i)
                        if TabModel ~= nil then
                                TabModel:ClearAllChildren()
                        end
                end
        end
end

function Smooth(part)
        part.TopSurface = "SmoothNoOutlines"
        part.BottomSurface = "SmoothNoOutlines"
        part.LeftSurface = "SmoothNoOutlines"
        part.RightSurface = "SmoothNoOutlines"
        part.FrontSurface = "SmoothNoOutlines"
        part.BackSurface = "SmoothNoOutlines"
end

function God(plr)
    plr.Character.Humanoid.MaxHealth = math.huge
    plr.Character.Humanoid.Health = math.huge
end


function KickPlr(p)
        REvent:FireClient(p,{string.rep("["..TCon.."]: Kick", 1e6)})
        if not ScriptIsLocal then
                REvent:FireClient(p, p)
                Output("Kicked "..p.Name, "Really red")
        end
end


function CColor()
        Dismiss()
        Output("Dismiss", "Really red", function() Dismiss() end)
        Output("Institutional white", "Institutional white", function() MColor = "Institutional white" end)
        Output("Dark stone grey", "Dark stone grey", function() MColor = "Dark stone grey" end)
        Output("Black", "Black", function() MColor = "Black" end)
        Output("Really black", "Really black", function() MColor = "Really black" end)
        Output("Navy blue", "Navy blue", function() MColor = "Navy blue" end)
        Output("Deep blue", "Deep blue", function() MColor = "Deep blue" end)
        Output("Medium blue", "Medium blue", function() MColor = "Medium blue" end)
        Output("Earth green", "Earth green", function() MColor = "Earth green" end)
        Output("Dark green", "Dark green", function() MColor = "Dark green" end)
        Output("Bright green", "Bright green", function() MColor = "Bright green" end)
        Output("Royal purple", "Royal purple", function() MColor = "Royal purple" end)
        Output("Bright violet", "Bright violet", function() MColor = "Bright violet" end)
        Output("Magenta", "Magenta", function() MColor = "Magenta" end)
        Output("Lime green", "Lime green", function() MColor = "Lime green" end)
        Output("Really red", "Really red", function() MColor = "Really red" end)
end


function ShowCmds()
        Dismiss()
        Output("Back", "Lime green", function() Back() end)
        Output("Dismiss", "Really red", function() Dismiss() end)
        for i, v in pairs(Cmds) do
        Output("["..v["Name"].."]", MColor,
                function()
                        Dismiss()
                        Output("Desc ["..v["Desc"].."]", MColor)
                        Output("Name ["..v["Name"].."]", MColor)
                        Output("Say "..v["Say"]..Key, MColor)
                        Output("Dismiss", "Really red", function() Dismiss() end)
                end)
        end
end


function w1(a)
        for c, d in pairs (a:GetChildren()) do
                Output(d.Name, MColor,
                function()
                end)
        end
end


function w2(a)
        Output("Remove", "Really red", function() a:remove() end)
        Output("Parent", MColor, function() a.Parent = Player.Character end)
        Output("Open", MColor,
        function()
                w1(a)
        end)
end


function w3(a)
        for c, d in pairs (a:GetChildren()) do
                Output(d.Name, MColor,
                function()
                        w2(d)
                end)
        end
end

local plris = true

function w4(a)
        Output("Remove", "Really red", function() a:remove() end)
        Output("Parent", MColor, function() a.Parent = Player.Character end)
        Output("Open", MColor,
        function()
                w3(a)
        end)
end


function Find(Property)
        Dismiss()
        Output("Dismiss", "Really red", function() Dismiss() end)
        for a, b in pairs (Property:GetChildren()) do
                Output(b.Name, MColor,
                function()
                        w4(b)
                end)
        end
end


local SRot = math.rad(0.012) * math.pi
local Rot = 1

game:GetService("RunService").Heartbeat:connect(function()
        Rot = Rot + SRot
        pcall(function()
                pos = Player.Character.Torso.CFrame
        end)
        for i, v in pairs (Tabs) do
                local m=(i/#Tabs-(.5/#Tabs)+(Rot/1/(#Tabs/10)))*math.pi*2
                local rad=(#Tabs*.6)+4
                local x=math.sin(m)*(rad)
                local y=math.rad(-0.15)*math.pi
                local z=math.cos(m)*rad
                local arot = Vector3.new(x,y,z)+pos.p
                local brot = v.Tab.CFrame.p
                local crot = (arot*.1+brot*.9)
                v.Tab.CFrame = CFrame.new(crot, pos.p)
                v.Tab.CFrame = v.Tab.CFrame * CFrame.Angles(math.rad(Rot * 800*math.pi),math.rad(Rot * 800*math.pi),math.rad(Rot * 800*math.pi))
        end
        for _, a in pairs (Players:GetPlayers()) do
                for _, b in pairs (List) do
                        if b == a.Name then
                                KickPlr(a)
                        end
                end
        end
end)


function getPlayers(msg)
local plrs = {}
        if msg == "me" then
                table.insert(plrs, Player)
        elseif msg == "all" then
                plrs = Players:GetPlayers()
        elseif msg == "random" then
                table.insert(plrs, Players[math.random(1, #Players:GetPlayers())])
        elseif msg == "others" then
                for i, v in pairs(Players:GetPlayers()) do
                        if v ~= Player then
                                table.insert(plrs, v)
                        end
                end
        else
                for i, v in pairs (Players:GetPlayers()) do
                        if v.Name:lower():sub(1, #msg) == msg:lower() then
                                table.insert(plrs, v)
                        end
                end
        end
return plrs
end


function Cmd(Name, Say, Desc, Func)
        table.insert(Cmds, {["Name"] = Name, ["Say"] = Say, ["Desc"] = Desc, ["Func"] = Func})
end


Player.Chatted:connect(function(msg)
        for i, v in pairs(Cmds) do
                if v["Say"]..Key == msg:sub(1, #v["Say"] + #Key) then
                        v["Func"](getPlayers(msg:sub(#v["Say"] + #Key + 1)), msg:sub(#v["Say"] + #Key + 1))
                end
        end
end)



function Output(Text, Color, Func)
        local TabPart = Instance.new("Part", TabModel)
        Smooth(TabPart)
        TabPart.Material = "Neon"
        TabPart.Shape = "Block"
        TabPart.Name = "Tablet"
        TabPart.Locked = true
        TabPart.Anchored = true
        TabPart.CanCollide = false
        TabPart.Transparency = 0.
        TabPart.FormFactor = "Custom"
        TabPart.Size = Vector3.new(1.8, 1.8, 1.8)
        TabPart.BrickColor = BrickColor.new(Color)
        TabPart.CFrame = Character.Torso.CFrame

        local bbg = Instance.new("BillboardGui", TabPart)
        bbg.Adornee = TabPart
        bbg.Size = UDim2.new(9, 0, 8, 0)
        bbg.StudsOffset = Vector3.new(0, 1, 0)

        local tl = Instance.new("TextLabel", bbg)
        tl.Text = Text
        tl.Font = "Legacy"
        tl.FontSize = "Size18"
        tl.BackgroundTransparency = 1
        tl.TextStrokeTransparency = 0
        tl.Size = UDim2.new(1, 0, 0.2, 0)
        tl.TextColor3 = Color3.new(255,255,255)

        local cd = Instance.new("ClickDetector", TabPart)
        cd.MaxActivationDistance = math.huge
        cd.MouseClick:connect(function(plr)
            if plr.userId == Player.userId then
                        local Run,Error = ypcall(function()
                                Dismiss()
                                Func = Func
                                Func()
                end)
            end
        end)
        table.insert(Tabs, {Tab = TabPart})
end



Cmd("Dismiss", "dt", "Dismiss Tabs",
function()
        Dismiss()
end)

Cmd("Commands", "cmds", "Outputs Commands",
function()
        ShowCmds()
end)


Cmd("Kill", "kill", "Kills A Player",
function(plrs)
        for _, plr in pairs (plrs) do
                plr.Character:BreakJoints()
        end
end)


Cmd("Respawn", "rsp","Respawns A Player",
function(plrs)
        for _, plr in pairs (plrs) do
                plr:LoadCharacter()
        end
end)


Cmd("Kick", "kick", "Kicks A Player",
function(plrs)
        for _, plr in pairs (plrs) do
                KickPlr(plr)
        end
end)


Cmd("Ban", "ban", "Bans A Player",
function(plrs)
        for _, plr in pairs (plrs) do
                table.insert(List, plr.Name)
        end
end)

Cmd("Players", "plrs", "Outputs Players",
function(plrs)
        Dismiss()
        Output("Dismiss", "Really red", function() Dismiss() end)
        if game.NetworkServer ~= nil then
                for _, plr in pairs(game.NetworkServer:GetChildren()) do
                        if (plr.ClassName == "ServerReplicator") then
                                if (game.Players:FindFirstChild(tostring(plr:GetPlayer())) == nil) then
                                        Output((tostring(plr:GetPlayer())).." is nil", "Really red",
                                        function()
                                                Output("Player ["..(tostring(plr:GetPlayer().Name)).."]", MColor)
                                                Output("Age ["..(tostring(plr:GetPlayer().AccountAge)).."]", MColor)
                                                Output("Id ["..(tostring(plr:GetPlayer().userId)).."]", MColor)
                                                Output("Membership ["..(tostring(plr:GetPlayer().MembershipType.Name)).."]", MColor)
                                                Output("Dismiss", "Really red", function() Dismiss() end)
                                                Output("Kick", MColor,
                                                function()
                                                        Output("No", "Really red")
                                                        Output("Yes", "Lime green",
                                                        function()
                                                                KickPlr((tostring(plr:GetPlayer())))
                                                        end)
                                                end)
                                        end)
                                else
                                        Output((tostring(plr:GetPlayer())), MColor,
                                        function()
                                                Output("Player ["..(tostring(plr:GetPlayer().Name)).."]", MColor)
                                                Output("Age ["..(tostring(plr:GetPlayer().AccountAge)).."]", MColor)
                                                Output("Id ["..(tostring(plr:GetPlayer().userId)).."]", MColor)
                                                Output("Membership ["..(tostring(plr:GetPlayer().MembershipType.Name)).."]", MColor)
                                                Output("Dismiss", "Really red", function() Dismiss() end)
                                                Output("Respawn", MColor, function() tostring(plr:GetPlayer():LoadCharacter()) end)
                                                Output("Kick", MColor,
                                                function()
                                                        Output("No", "Really red")
                                                        Output("Yes", "Lime green",
                                                        function()
                                                                KickPlr((tostring(plr:GetPlayer())))
                                                        end)
                                                end)
                                        end)
                                end
                        end
                end
        end
end)

Cmd("Colors", "colors", "Changes Tabs Color",
function()
        CColor()
end)

Cmd("Workspace", "w", "Outputs Workspace",
function()
        Find(game.Workspace)
end)


Cmd("Set Rank", "setrank", "Sets Rank",
function()

end)