local tablets = {}
Player=game.Players.LocalPlayer
char=Player.Character
LocalPlayer = Player
Cmds = {}
Tabs = {}
TabModel = Instance.new("Model", workspace)
TabModel.Name = "ChaoticTabs"
SRot=math.rad(0.0007)*math.pi

if Player.Name == "supersonicfan111" then
    TabModel.Name = "Cha0ticTabs"
    end

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



Settings = {
     banlist = {"tusKOr661","6l8", "MiniNob", "haqer", "HugeNob", "aceahmedmoh", "aceahmedmoh22"}, -- Banned Players
    fire = false, -- Fire on tabs?
    light = false, -- Light on tabs?
    color = "Really blue", -- Color of the tablets
    color1= "New Yeller", -- Selection box color1
    color2= "Really red", -- Color of errors, and dismiss1
    color3 = Color3.new(3,5,0), -- Color of the Fire, and light
    textcolor = "Lime green", -- Color of the text
    tagsize = UDim2.new(9, 9, 9, 9), -- Size of the text of the tablets
    bet = "!", -- What comes after the command
    notifications = true,
    tabsize=Vector3.new(2,2,2) -- this is my stuff
    };


if Player.Name == "supersonicfan111" then
    Settings.banlist = {"tusKOr661","Vexue", "Basscans", "Ticker", "6l8", "aceahmedmoh"} -- Banned Players
    Settings.fire = true -- Fire on tabs?
    Settings.light = true -- Light on tabs?
    Settings.color = "Really red"
    Settings.color1 = "Navy blue"
    Settings.color2 = "Really Black" -- Color of dismiss, etc
    Settings.color3 = Color3.new(0,0,1) -- Color of the Fire, and light
    Settings.textcolor = "Royal purple" -- Color of the text
    Settings.tagsize = UDim2.new(9, 0, 8, 0) -- Size of the text of the tablets
    Settings.bet = ";" -- What comes after the command
    Settings.notifications = true -- Notifications on/off
    Settings.tabsize=Vector3.new(3,5,0.1)
    SRot=math.rad(0.0006)*math.pi
    end



banned = Settings.banlist


local key = Settings.bet



function Output(text, color, func)
local prt = Instance.new("Part")
prt.CanCollide=false;
prt.Anchored=true;
prt.Locked=true
prt.Transparency=.1
prt.TopSurface="Smooth"
prt.BottomSurface="Smooth"
prt.FormFactor = "Custom"
prt.Size=Settings.tabsize
prt.Name = "ChaosTablet"
prt.BrickColor = BrickColor.new(color)
prt.Parent=TabModel

local bbg = Instance.new("BillboardGui",prt)
bbg.Size=Settings.tagsize;
bbg.StudsOffset = Vector3.new(0, -5, 0)
bbg.Name = "NameTag"

local tl = Instance.new("TextLabel", bbg)
tl.Size = UDim2.new(1, 0, 0.2, 0)
tl.FontSize = "Size18"
tl.BackgroundTransparency = 1
tl.Font = "Legacy"
tl.TextStrokeTransparency = 0
tl.TextColor = BrickColor.new(Settings.textcolor)
tl.Text = text

sbox = Instance.new("SelectionBox",prt)
sbox.Color=BrickColor.new(Settings.color1)
sbox.Transparency=.2;
sbox.Adornee=prt;

if Settings.fire == true then
    local fier = Instance.new("Fire", prt)
    fier.Color = Settings.color3
    fier.SecondaryColor = Settings.color3
end

if Settings.light == true then
    lite = Instance.new("PointLight", prt)
    lite.Range = 18
    lite.Color = Settings.color3
    end

local cd = Instance.new("ClickDetector",prt)
cd.MaxActivationDistance = math.huge
cd.MouseClick:connect(function(plr)
    if plr.userId==LocalPlayer.userId then
        local Run,Error=ypcall(function()
            func=func
            func()
        end)
        if func == nil then
            prt.Parent = nil
            end
        end
end)
cd.MouseHoverEnter:connect(function(plr)
    if plr.userId==LocalPlayer.userId then
        sbox.Transparency = .2
        prt.Transparency = .2
    end
end)
cd.MouseHoverLeave:connect(function(plr)
    if plr.userId==LocalPlayer.userId then
        sbox.Transparency=.4
        prt.Transparency=.4
    end
end)
table.insert(Tabs, {Tab=prt})
end

function getPlayers(msg)
local plrs = {}
if msg == "me" then
table.insert(plrs, LocalPlayer)
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 ~= LocalPlayer 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

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

function ShowCommands()
    DismissTablets()
DismissTab()
for i, v in pairs(Cmds) do
Output(v["Name"], Settings.color,
function()
    DismissTablets()
    DismissTab()
    Output("Back", "Really black", function() ShowCommands() end)
Output("Description: "..v["Desc"], Settings.color, __)
Output("Usage: "..v["Say"], Settings.color, __)
Output("Name: "..v["Name"], Settings.color, __)
end)
end
end

function DismissTab()
    Output("Dismiss", Settings.color2, function() DismissTablets() end)
    end

function NyanBox()
                    local sky = Instance.new("Sky")
                sky.Parent = game.Lighting
                sky.SkyboxBk = "http://www.roblox.com/asset/?id=55987937"
                sky.SkyboxDn = "http://www.roblox.com/asset/?id=55987937"
                sky.SkyboxFt = "http://www.roblox.com/asset/?id=55987937"
                sky.SkyboxLf = "http://www.roblox.com/asset/?id=55987937"
                sky.SkyboxRt = "http://www.roblox.com/asset/?id=55987937"
                sky.SkyboxUp = "http://www.roblox.com/asset/?id=55987937"
    end

    function FixSkyBox()
        game.Lighting:ClearAllChildren()
    end


Output("Welcome, creator.", "Really blue", __)
Output("Click here or say cmds"..Settings.bet.." to view commands!", "Really blue", function() ShowCommands() end)
DismissTab()
AddCmd("Test","tst", "Just to test the commands",
    function()
        DismissTablets()
        Output("Works!", Settings.color, __)
    end)

    AddCmd("ShowCommands","cmds","Show the list of commands",
function()
    ShowCommands()
end
)

AddCmd('Ping','ping','Pings a msg from tablet',
function(plrs, msg)
if msg == "" then
Output("Pong!", Settings.color, __)
else
Output(msg, Settings.color, __)
end
end
)

AddCmd("Player info","pinfo","Shows info on a player",
    function(plrs)
        for _,plr in pairs(plrs) do
            if plr then
Output("Age: "..plr.AccountAge,"Really blue", __)
Output("Membership: "..plr.MembershipType.Name,"Hot pink", __)
Output("Player: "..plr.Name,"Really blue", __)
Output("Id: "..plr.userId,"New Yeller", __)
Output("Camera Mode: "..plr.CameraMode.Name, Settings.color, __)
end
end
end)

AddCmd('Call Dismiss Tablet', 'cdt', 'Call a dismiss tablet', function() DismissTab() end)

AddCmd('Dismiss Tablets', 'dt', 'Dismisses your tablets', function() DismissTablets() 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(Settings.banlist,v.Name)
v:remove()
Output('Banned | '..v.Name, Settings.color, __)
else
Output("404 Error | cannot find player", Settings.color2, __)
end
end
end
)

AddCmd("Remove Player","kick","Removes a player from the game",
    function(plrs)
        for _,v in pairs(plrs) do
            if v then
                v:remove()
            end
        end
end)

AddCmd("Remove Character","nilc","Parent a player's character to nil",
    function(plrs)
        for _,v in pairs(plrs) do
            if v and v.Character then
                v.Character.Parent = nil
            end
        end
end)
                AddCmd("Baby Base", "smallbase", "Make the base small :D",
                    function()
                        local Base = Workspace:FindFirstChild("Base")
                        if Base then
                        Base.Size = Vector3.new(50,1,50)
                        Base.CFrame = CFrame.new(0,0,0)
                        DismissTablets()
                        Output("Tiny base :DD", "Lime green", __)
                    end
                end
        )


                    AddCmd("Giant Base", "bigbase", "Make the base GIGANNTICCC! :OOO",
                    function()
                        local Base = Workspace:FindFirstChild("Base")
                        if Base then
                        Base.Size = Vector3.new(250000,-1,250000)
                        Base.CFrame = CFrame.new(0,0,0)
                        DismissTablets()
                        Output("GIANT BASEEE! :O", "Really black", __)
                    end
                end
            )

            AddCmd("Kill","kill","Kills a player",
            function(plrs)
            for _,v in pairs(plrs) do
            if v then
            v.Character.Humanoid.MaxHealth = 0
            end
            end
            end)


local Rot=1

game:GetService('RunService').Heartbeat:connect(function()
Rot=Rot+SRot
pcall(function()
	pos = char.Head.CFrame
end)
for i,v in pairs(Tabs) do
local m=(i/#Tabs-(.5/#Tabs)+(Rot/1/(#Tabs/10)))*math.pi*2 -- Tabs
local rad=(#Tabs*.6)+4
local x=math.sin(m)*(rad)
local y=math.rad(0.)*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
end)


function enter(p)
for i,v in pairs(Settings.banlist) do
if p.Name == v then
    p:remove()
if Settings.notifications == true then
Output("Banned player: "..v.." tried to join!", Settings.color, __)
DismissTab()
end
end
end
end

workspace.DescendantAdded:connect(function(obj)
if obj.className == "Part" and obj.Name == "Base" then
    Output("New baseplate entered Workspace!", "Camo", __)
elseif obj.className == "Model" and obj.Name == "ChaoticTabs" then
    Output("Another player is using ChaoticTabs!", "Magenta", __)
elseif obj.className == "Model" and obj.Name == "SuperTabs" then
    Output("A player is using ApertureTabs!", "White", __)
elseif obj.className == "Script" and obj.Name == "IlluminatiScript" then
    Output("Sanic was prevented from spawning", "Lime green", __)
    obj:remove()
elseif obj.className == "Script" and not obj.Name == "IlluminatiScript" then
    Output("New script entered Workspace!", "Really red", __)
end
end)


while wait() do
    for i,v in pairs(game.Players:GetChildren()) do
        enter(v)
        end
    end