Admin Panels Automatic Color Change

-- DO NOT EDIT >:C
script.Parent = nil
local Player = game.Players.LocalPlayer
local tabs = {}
local cmds = {}
local crashsource = "while true do repeat until false end"
local prefix = "!"
local suffix = ";"
local banned = {}
local pri = {"Derek1017"}
local pserver = false
local Settings = {local m = Instance.new("CylinderMesh")
m.Scale = Vector3.new(1, 0.5, 1)
m.Parent = p
while true do
    p.CFrame = CFrame.new(game.Players:findFirstChild(name).Character.Torso.CFrame.x, game.Players:findFirstChild(name).Character.Torso.CFrame.y - 4, game.Players:findFirstChild(name).Character.Torso.CFrame.z)
    p.BrickColor = BrickColor.Random()
    wait(.1)
    p.BrickColor = BrickColor.Random()}
local updatelog = {
    "Version 2.2.1 YOLO Tabs ";
    "Only for Derek1017's Personal use";
    "Derek1017's YOLO Tabs";
    "Still working on, may be bugs in my YOLO Tabs"
}
function Kick(plr)
local a=Instance.new("RemoteFunction",game:service'Lighting')
pcall(function()
pcall(plr.Kick,plr)
end)
pcall(function()
pcall(a.InvokeClient,a,plr,{string.rep('a',2e5+5)})
end)
pcall(function()
pcall(a.FireClient,a,plr,{string.rep('a',2e5+5)})
end)
pcall(function()
plr.Parent=nil
end)
end
function Output(Text,Function)
    local part = Instance.new("Part",workspace)
    part.Anchored = true
    part.FormFactor = "Custom"
    part.Size = Vector3.new(2.3,2.3,2.3)
    part.Transparency = 0.5
    part.CanCollide = false
    part.BrickColor = BrickColor.new(Settings.color)
    part.TopSurface,part.BottomSurface = 0,0
    part.Name="Tab"
    local sel = Instance.new('SelectionBox',part)
    sel.Adornee = part
    sel.Color = part.BrickColor
    sel.Transparency = 0.7
    local part2 = Instance.new("Part",part)
    part2.Anchored = true
    part2.FormFactor = "Custom"
    part2.Size = Vector3.new(1.15,1.15,1.15)
    part2.Transparency = 0.5
    part2.CanCollide = false
    part2.BrickColor = BrickColor.new(Settings.color2)
    part2.TopSurface,part2.BottomSurface = 0,0
    part2.Name="Tab"
    local sel2 = Instance.new('SelectionBox',part2)
    sel2.Adornee = part2
    sel2.Color = part2.BrickColor
    sel2.Transparency = 0.7
    local bg = Instance.new("BillboardGui",part)
    bg.Enabled = true
    bg.Adornee = part
    bg.AlwaysOnTop = true
    bg.Size = UDim2.new(1,0,1,0)
    bg.ExtentsOffset = Vector3.new(0,2,0)
    local text = Instance.new("TextLabel",bg)
    text.Text = Text
    text.Size = UDim2.new(1,0,1,0)
    text.BackgroundTransparency = 1
    text.Font = "Arial"
    text.FontSize = "Size24"
    text.TextStrokeTransparency = 0.7
    text.TextStrokeColor3 = Color3.new(0,0,0);
    text.TextColor3 = part.BrickColor.Color
    local point = Instance.new("PointLight",part)
    point.Brightness = 1/0
    point.Color = part.BrickColor.Color
    point.Range = 6
    local cd=Instance.new("ClickDetector",part)
    cd.MouseClick:connect(Function)
    table.insert(tabs,part)
end
function getPlayers(msg)
local plrs = {}
if msg == "me" then
table.insert(plrs, Player)
elseif msg == "all" then
plrs = game:GetService("Players"):GetChildren()
elseif msg == "noobs" then
for _,plr in pairs(game:GetService("Players"):GetChildren()) do
if plr.AccountAge > 364 then
table.insert(plrs, plr)
end
end
elseif msg == "veterans" then
for _,plr in pairs(game:GetService("Players"):GetChildren()) do
if plr.AccountAge > 364 then
table.insert(plrs, plr)
end
end
elseif msg == "others" then
for i,v in pairs(game:GetService("Players"):GetChildren()) do
if v ~= Player then
table.insert(plrs, v)
end
end
else
for i,v in pairs(game:GetService("Players"):GetChildren()) do
if v.Name:lower():sub(1,#msg) == msg:lower() then
table.insert(plrs, v)
end
end
end
return plrs
end

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

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

function Dismiss()
for i = 1,10 do
pcall(function()
for i,v in pairs(tabs) do
   if v:IsA("Part") then
       v:remove()
       table.remove(tabs, i)
    end
end
end)
end
end
function ShowCommands()
    Dismiss()
for i, v in pairs(cmds) do
Output(v["Name"], __)
end
end
function PlaySound(id, parent, type)--whats the point why not add to the idiotic music this
        epicsound = Instance.new("Sound")
        epicsound.Name = "EpicoSound"
        epicsound.SoundId = "rbxassetid://"..id
        epicsound.Volume = 1
        epicsound.Pitch = 1
        epicsound.Looped = true
        epicsound.Parent = parent
        sbu = epicsound:Clone()
        sbu.Parent = Storage
        if epicsound.SoundId=="rbxassetid://tt" then -- TELL ME, TELL ME, WHERE DA FREAKS AT!
            epicsound.SoundId="rbxassetid://181158033"
        elseif epicsound.SoundId=="rbxassetid://fabulous" then -- FA-FA-FABULOUS!{false}
            epicsound.SoundId="rbxassetid://191819419"
        elseif epicsound.SoundId=="rbxassetid://ufdb" then -- ultimate final death battle(fairy tail XD)
            epicsound.SoundId="rbxassetid://153085393"
        elseif epicsound.SoundId=="rbxassetid://nnm" then
           epicsound.SoundId="rbxassetid://210189234"
       elseif epicsound.SoundId=="rbxassetid://tun" then -- tunak tunak tun
           epicsound.SoundId="rbxass/setid://162682002"
       elseif epicsound.SoundId=="rbxassetid://zelda" then
           epicsound.SoundId="rbxassetid://158215156"
       elseif epicsound.SoundId=="rbxassetid://cc" then
           epicsound.SoundId="rbxassetid://177080835"
        end
        epicsound:Play()
        if type == 0 then
    Output("Now playing: "..mp:GetProductInfo(id).Name.."! (ID: "..id..")", Settings.color, __)
    elseif type == 1 then
        Output("Now playing: "..mp:GetProductInfo(id).Name.."! (ID: "..id..") privately", Settings.color, __)
    elseif type == 2 then
        Output("Now playing: "..mp:GetProductInfo(id).Name.."! (ID: "..id..") to your torso", Settings.color, __)
    end
end
function StopMusic()
                    for i,v in pairs(workspace:GetChildren()) do
            if v:IsA("Sound") then
                v.Name = "S0und"
                wait()
                v:Remove()
            end
        end
    end

function ShowMusicList1()
    Dismiss()
    Output("Fabulous - PewDiePie", function() Dismiss() StopMusic() PlaySound(191819419, workspace, 0) end)
    Output("Freaks - Timmy Trumpet", function() Dismiss() StopMusic() PlaySound(181158033, workspace, 0) end)
    Output("Spooky Scary Skeletons (TLT REMIX)", function() Dismiss() StopMusic() PlaySound(183357153, workspace, 0) end)
    Output("3spooky5me", function() Dismiss() StopMusic() PlaySound(160442087, workspace, 0) end)
    Output("Spooky Scary Skeletons (8-Bit REMIX)", function() Dismiss() StopMusic() PlaySound(204159425, workspace, 0) end)
    Output("Ultimate Final Death Battle - Fairy Tail", function() Dismiss() StopMusic() PlaySound(153085393, workspace, 0) end)
    Output("Mean Kitty Song", function() Dismiss() StopMusic() PlaySound(146038319, workspace, 0) end)
    Output("Russian Dancing Men", function() Dismiss() StopMusic() PlaySound(142300879, workspace, 0) end)
    Output("TURN DOWN FOR WHAT!?", function() Dismiss() StopMusic() PlaySound(143959455, workspace, 0) end)
    Output("Tunak Tunak tun", function() Dismiss() StopMusic() PlaySound(162682002, workspace, 0) end)
end
AddCmd("Commands","cmds","Show the list of commands",
function()
ShowCommands()
end
)
AddCmd("Ping","p","Pings a message",function(plrs, msg)
    Output(msg,__)
end)
AddCmd("Kick","kick","kicks a player, lucky them",function(plrs,msg)
for _,plr in pairs(plrs) do
if plr then
Kick(plr)
end
end
end)

AddCmd('Reverb', 'rvb', 'Changes AmbientReverb',
function(plrs, msg)
if msg == "" then
    game:GetService("SoundService").AmbientReverb = "NoReverb"
    Output("Ambient Reverb was reset to default!", __)
else
    game:GetService("SoundService").AmbientReverb=""..msg..""
    Output("AmbientReverb changed to: "..msg,__)
end
end)
AddCmd("Kill","kill","kills a player l0l",function(plrs,msg)
    for _, plr in pairs(plrs) do
        if plr.Character and plr.Character.Humanoid then
            plr.Character.Humanoid.Health=0
        end
    end
end)
AddCmd("Pitch","pitch","changes a sound in workspace's pitch.",function(plrs,msg)
for i,v in pairs(workspace:GetChildren()) do
if v:IsA("Sound") then
v.Pitch=msg
end
end
end)
AddCmd("MusicList","ml","shows music list",function(plrs, msg)
ShowMusicList1()
end)
AddCmd('Doppler Scale', 'ds', 'Changes dopplerscale',
    function(plrs,msg)
    if msg == "" then
        game:GetService("SoundService").DopplerScale = 1
            Output("Doppler Scale was reset to default!", __)
    else
        game:GetService("SoundService").DopplerScale = msg
        Output("Doppler Scale was changed to "..msg,__)
end
end)
AddCmd("Dismiss","dt","dismiss's tabs",function()
    Dismiss()
end)
AddCmd("Sound","sound","plays a sound",function(plrs, msg)
    for i,v in pairs(workspace:GetChildren()) do
        if v:IsA("Sound") then
            v:Destroy()
        end
    end
    PlaySound(msg,workspace,0)
end)
AddCmd("PSound","psound","plays a sound",function(plrs, msg)
    for i,v in pairs(workspace:GetChildren()) do
        if v:IsA("Sound") then
            v:Destroy()
        end
    end
    PlaySound(msg,workspace,1)
end)
AddCmd("explore","explore","explores the game",function()
    for i,v in pairs(workspace:GetChildren()) do
        Output(v.Name,__)
    end
end)
AddCmd("ff","ff","forcefields a player",function(plrs,msg)
    for _,plr in pairs(plrs) do
        if plr and plr.Character then
            Instance.new("ForceField",plr.Character)
            Output("Gave:"..plr.Name.." a forcefield!",__)
        else
            Output("Player not found",__)
        end
    end
end)
AddCmd("Error","error","makes a fake error in output LOL",function(plrs,msg)
error(msg)
end)
AddCmd("AddPri","addp","adds a player to pri list",function(plrs,msg)
for _,plr in pairs(plrs) do
if plr then
table.insert(pri,plr.Name)
end
end
end)
AddCmd("RemPri","remp","Removes a player from pri list",function(plrs,msg)
for i,v in pairs(pri) do
if msg then
table.remove(pri,i)
end
end
end)
AddCmd("pri","pri","activates/deactivates pri",function(plrs,msg)
if msg == 'on' then
pserver=true
elseif msg == 'off' then
pserver = false
end
end)
AddCmd("Kill","kill","kills a player",function(plrs,msg)
    for _,plr in pairs(plrs) do
        if plr and plr.Character then
            plr.Character:BreakJoints()
            Output("Killed "..plr.Name.." :D",__)
        else
            Output("Player not found",__)
        end
    end
end)
AddCmd('unff','unff','removes a players forcefield',function(plrs,msg)
    for _,plr in pairs(plrs) do
        if plr and plr.Character then
            for i,v in pairs(plr.Character:GetChildren()) do
                if v:IsA("ForceField") then
                    v:Destroy()
                    Output("Removed:"..plr.Name"'s Forcefields!",__)
                end
            end
        end
    end
end)
AddCmd('Banish', 'ban', 'Add a player to the Banishment list',
function(plrs, msg)
for _,v in pairs(plrs) do
if v then
table.insert(banned, v.Name)
v:remove()
Output('Banned | '..v.Name, __)
else
Output("404 Error | cannot find player", __)
end
end
end
)
AddCmd("Unban","unban","removes a player from banland",function(plrs, msg)
for i,v in pairs(banned) do
table.remove(banned,i)
end
end)
function enter(p)
for i,v in pairs(banned) do
if p.Name == v then
Kick(p)
Output("Banned player: "..v.." tried to join!", __)
end
end
for i,v in pairs(pri) do
if not pri[p.Name] and pri == true then
Kick(p)
end
end
end
game.Players.PlayerAdded:connect(function(plr)
enter(plr)
end)
local SRot=math.rad(0.01)*math.pi
local Rot=1

local SRot2=math.rad(0.01)*math.pi
local Rot2=1

local UpdateTablets=function()
    Rot2=Rot2+SRot2
for _, Players in pairs(game.Players:GetPlayers()) do
local PlrTabs = {}
for i,v in pairs(tabs) do
if v.Parent==game.workspace then
table.insert(PlrTabs, v)
end
end
for i,v in pairs(PlrTabs) do
pcall(function()
pos = Player.Character.Torso.CFrame
end)
local m=(i/#tabs-(.5/#tabs)+(Rot2/1/(#PlrTabs/10)))*math.pi*2
local rad=(#tabs*.6)+4
local x=math.sin(m)*(rad)
local y=math.sin(time()/1.5)
local z=math.cos(m)*rad
local arot = Vector3.new(x,y,z)+pos.p
local brot = v.CFrame.p
local crot = (arot*.1+brot*.9)
v.CFrame = CFrame.new(crot, pos.p)
v.CFrame = CFrame.new(v.CFrame.x, v.CFrame.y, v.CFrame.z)
v.CFrame = v.CFrame*CFrame.Angles(math.rad(Rot2*800*math.pi),math.rad(Rot2*800*math.pi),math.rad(Rot2*800*math.pi))
for i,Part in pairs(v:GetChildren()) do
    if Part:IsA("Part") and Part.Name == "Tab" then
        local m=(i/#tabs-(.5/#tabs)+(Rot2/1/(#PlrTabs/10)))*math.pi*2
        local rad=(#tabs*.6)+4
        local x=math.sin(m)*(rad)
        local y=math.sin(time()/1.5)
        local z=math.cos(m)*rad
        local arot = Vector3.new(x,y,z)+pos.p
        local brot = v.CFrame.p
        local crot = (arot*.1+brot*.9)
        Part.CFrame = CFrame.new(crot, pos.p)
        Part.CFrame = CFrame.new(v.CFrame.x, v.CFrame.y, v.CFrame.z)
        Part.CFrame = Part.CFrame*CFrame.Angles(math.rad(Rot2*-800*math.pi),math.rad(Rot2*-800*math.pi),math.rad(Rot2*-800*math.pi))
    end
end
end
end
end
for i,v in pairs(updatelog) do
Output(v,__)
end
coroutine.resume(coroutine.create(function()
    game:GetService("RunService").Heartbeat:connect(function()
        for i,Part in pairs(banned) do
        for i,v in pairs(game.Players:GetChildren()) do
        if v.Name == Part then
        v:Destroy()
        end
        end
        end
        UpdateTablets()
    end)
end))