--[[

       _____      _                              _____              ___
      / ____|    (_)                            / ____|            |__ \
     | |     _ __ _ _ __ ___  ___  ___  _ __   | |  __  ___ _ __      ) |
     | |    | '__| | '_ ` _ \/ __|/ _ \| '_ \  | | |_ |/ _ \ '_ \    / /
     | |____| |  | | | | | | \__ \ (_) | | | | | |__| |  __/ | | |  / /_
      \_____|_|  |_|_| |_| |_|___/\___/|_| |_|  \_____|\___|_| |_| |____|

      Crimson Generation 2.0
      Copyright (c) 2015 ApexDevelopment.
      v1.0 by ApexDevelopment.

]]--

local Crimson;
Crimson = {
    Bet = '>';
    rot = .1;
    rot2 = 0.001;
    Commands = {};
    Tablets = {};
    Ranked = {
        {Name = "GalacticParadox", Rank = 5, Description = "Creator of Crimson Gen 2.", Color = "Toothpaste"}; -- keep me in there
    };
    PriExceptions = {"ApexDevelopment"}; -- keep me in there
    Settings = {
        PrivateServer = false;
        AgeRestriction = false;
        MinimumAge = 100;
        DevMode = false;
    };
    TabSettings = {
        Size = Vector3.new(2,2,2);
        Size2 = Vector3.new(1,1,1);
        Neon = false;
    };
}

Get = {
    Rank = function(player)
        if type(player) == "userdata" then player = player.Name end
        for _,obj in next,Crimson.Ranked do
            if obj.Name == player then
                return obj.Rank
            end
        end
        return 0
    end;

    Desc = function(player)
        if type(player) == "userdata" then player = player.Name end
        for _,obj in next,Crimson.Ranked do
            if obj.Name == player then
                return obj.Description
            end
        end
        return "Just a player."
    end;

    Color = function(player)
        if type(player) == "userdata" then player = player.Name end
        for _,obj in next,Crimson.Ranked do
            if obj.Name == player then
                return obj.Color
            end
        end
        return "Bright blue"
    end
}

Set = {
    Rank = function(player, newRank)
        if type(player) == "userdata" then player = player.Name end
        for _,obj in next,Crimson.Ranked do
            if obj.Name == player then
                obj.Rank = newRank
                return
            end
        end
        Add.Ranked(player,newRank,"Just a player.","Bright blue")
    end;

    Desc = function(player, newDesc)
        if type(player) == "userdata" then player = player.Name end
        for _,obj in next,Crimson.Ranked do
            if obj.Name == player then
                obj.Description = newDesc
                return
            end
        end
        Add.Ranked(player,0,newDesc,"Bright blue")
    end;

    Color = function(player, newColor)
        if type(player) == "userdata" then player = player.Name end
        for _,obj in next,Crimson.Ranked do
            if obj.Name == player then
                obj.Color = newColor
                return
            end
        end
        Add.Ranked(player,0,"Just a player.",newColor)
    end
}

Add = {
    Command = function(Name, Say, Desc, Rank, Func)
        table.insert(Crimson.Commands,{Name = Name, Say = Say, Desc = Desc, Rank = Rank, Func = Func})
    end;

    Ranked = function(Name, Rank, Description, Color)
        if type(Name) == "userdata" then Name = Name.Name end
        table.insert(Crimson.Ranked,{Name = Name, Rank = Rank, Description = Description, Color = Color})
    end
}

Kick = function(plr)
    local h=Instance.new('RemoteEvent',workspace):FireClient(plr,{string.rep("umad?",2e5+5)})
    delay(1,function()
        pcall(function() workspace.RemoteEvent:remove() end)
    end)
end

FindPlayers = function(plr, msg)
    local plrs = {}

    if msg:match("^!") then
        return FindPlayers(plr, msg:sub(2), true)
    elseif msg == "me" then
        table.insert(plrs, plr)
    elseif msg == "all" then
        for _,v in pairs(game:service'Players':players()) do
            table.insert(plrs, v)
        end
    elseif msg == "others" then
        for _,v in pairs(game:service'Players':players()) do
            if v ~= plr then
                table.insert(plrs, v)
            end
        end
    else
        for _,v in pairs(game:service'Players':players()) do
            if v.Name:lower():sub(1,#msg) == msg:lower() then
                table.insert(plrs, v)
            end
        end
    end
    return plrs
end

function isException(player)
    if type(player) == 'userdata' then
        player = player.Name
    end
    for _,p in next,Crimson.PriExceptions do
        if p == player then return true end
    end
    return false
end

SetTabSize = function(vec1,vec2,vec3,vec4,vec5,vec6,Player)
    Crimson.TabSettings.Size = Vector3.new(vec1,vec2,vec3)
    Crimson.TabSettings.Size2 = Vector3.new(vec4,vec5,vec6)

    for i,v in next,Crimson.Tablets do
        v.Tab.Size = Crimson.TabSettings.Size
        v.Tab2.Size = Crimson.TabSettings.Size2
    end

    Output(Player,'Tab size changed.',Get.Color(Player))
end

function Rotate()
    Crimson.rot=Crimson.rot+0.650

    for _,Player in pairs(game:service'Players':GetPlayers()) do
        local Counter = 0
        local PlayerTablets = {}
        local Start = CFrame.new(0,0,0)

        for i,v in pairs(Crimson.Tablets) do
            if v.Tab.Parent ~= nil and v.Player==Player then
                table.insert(PlayerTablets,v)
            end
        end

        for I = 1, #PlayerTablets do
            local Pos = nil
            pcall(function() Pos = PlayerTablets[I].Player.Character.Torso.CFrame end)
            if Pos == nil then return end
            local Tab=PlayerTablets[I].Tab
            local Tab2 = PlayerTablets[I].Tab2
            local i=I
            local Main = (I / #PlayerTablets - (.5 / #PlayerTablets) + Crimson.rot/(#PlayerTablets/10)) * math.pi * 2
            local x = math.sin(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+3)
            local y = math.sin(tick()/.655)
            local z = math.cos(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+3)
            local aPos = Vector3.new(x, y, z) + Pos.p
            local bPos = Tab.CFrame.p
            local cPos = (aPos * .1 + bPos * .9)
            local d=math.rad((Crimson.rot*300)*math.pi);
            Tab.CFrame=CFrame.new(cPos,Pos.p)*CFrame.Angles(0,4.8,0)
            Tab2.CFrame = Tab.CFrame
        end
    end
end

function PlaySound(id, pitch)
    epicsound = Instance.new("Sound")
    epicsound.Name = "Epicosound"
    epicsound.SoundId = "rbxassetid://"..id
    epicsound.Volume = 1
    epicsound.Pitch = pitch
    epicsound.Looped = true
    epicsound.Parent = workspace

    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!
        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

    wait()
    epicsound:Play()
end

function StopMusic()
    for _,v in next,workspace:children() do
        if v:IsA("Sound") then
            v.Name = "Sound"
            wait()
            v:Remove()
        end
    end
end

OxChat = function(msg1,msg2)
    pcall(function()
        for _,v in next,game:GetService("Players"):GetPlayers() do
            local SV = Instance.new('StringValue')
            SV.Parent = v
            SV.Name = 'SB_Chat'
            SV.Value = ""..tostring(msg1):gsub('','\5').."/"..tostring(msg2):gsub('','\5')..""
            game.Debris:AddItem(SV, .1)
        end
    end)
end

function Chatted(Player, Message)
    for i,v in pairs(Crimson.Commands) do
        if Message:sub(1,string.len(v['Say']..Crimson.Bet)) == v['Say']..Crimson.Bet then
            if Get.Rank(Player) >= v.Rank  then
                Message=Message:sub(1+#v['Say']+#Crimson.Bet)
                a,b = ypcall(function()
                    v['Func'](Player, Message)
                end)  if not a then print(b) end
            else
                Output(Player, "Your rank is too low for that command.", "Really red")
            end
        end
    end
end

function Output(player, text, color, func)
    if text == nil then text = text end
    if color == nil then color = 'Really red' end
    if func == nil then func = function() return end end

    local tab = Instance.new('Part',script)
    tab.Name = "Crimson tab #"..math.random(-99999,99999).." text "..text
    tab.FormFactor = 'Custom'
    if Crimson.TabSettings.Neon then tab.Material = 'Neon' end
    tab.Anchored = true;
    tab.CanCollide = false;
    tab.Locked = true;
    tab.Size = Crimson.TabSettings.Size
    tab.TopSurface = 'Smooth'
    tab.BottomSurface = 'Smooth'
    tab.BrickColor = BrickColor.new(color)
    tab.Transparency = 0.5

    local tab2 = Instance.new('Part',tab)
    tab2.Name = "Crimson tab2 #"..math.random(-99999,99999)
    tab2.FormFactor = 'Custom'
    if Crimson.TabSettings.Neon then tab2.Material = 'Neon' end
    tab2.Anchored = true;
    tab2.CanCollide = false;
    tab2.Size = Crimson.TabSettings.Size2
    tab2.TopSurface = 'Smooth'
    tab2.BottomSurface = 'Smooth'
    tab2.BrickColor = BrickColor.new(color)
    tab2.Transparency = 0

    --[[local sb = Instance.new("SelectionBox", tab)
    sb.Adornee = tab
    sb.Color = BrickColor.new(color)
    sb.Transparency = .9]]--

    local pl = Instance.new('PointLight', tab)
    pl.Brightness = 4
    pl.Range = 4


    local gui = Instance.new("BillboardGui", tab)
    gui.Adornee = tab
    gui.Size =  UDim2.new(1,0,1,0)
    gui.StudsOffset = Vector3.new(0,3,0)

    local tl = Instance.new("TextLabel", gui)
    tl.Size = UDim2.new(1,0,1,0)
    tl.Text = text
    tl.TextTransparency = 0
    tl.TextStrokeTransparency = 0
    tl.TextColor3 = tab.Color
    tl.BorderColor3 = Color3.new(0,3,0)
    tl.Font = 'SourceSansBold'
    tl.FontSize = 'Size18'
    tl.BackgroundTransparency = 1

    local dismissing = false;

    local Click = Instance.new("ClickDetector",tab)
    Click.MaxActivationDistance = math.huge
    Click.MouseClick:connect(function(plr)
        if plr.userId == player.userId then
            dismissing = true;
            coroutine.resume(coroutine.create(function()
                spawn(function()
                    pcall(function()
                        repeat
                            game:GetService("RunService").Heartbeat:wait()

                            tab.Size = Vector3.new(tab.Size.X - 0.1, tab.Size.Y - 0.1, tab.Size.Z - 0.1)
                            tab.Transparency = tab.Transparency + 0.1

                            tab2.Size = Vector3.new(tab2.Size.X - 0.1, tab2.Size.Y - 0.1, tab2.Size.Z - 0.1)
                            tab2.Transparency = tab2.Transparency + 0.1

                            tl.Transparency = tl.Transparency + 0.1
                            pl.Brightness = pl.Brightness - 0.1
                        until tab.Size.X<0.5

                        for num,v in next,Crimson.Tablets do
                            if v.Tab == tab and v.Tab2 == tab2 and v.Tab.Name == tab.Name then
                                table.remove(Crimson.Tablets,num)
                                tab:Destroy()
                            end
                        end
                    end)
                end)
            end))
            func=func func()
        end
    end)

    Click.MouseHoverEnter:connect(function(plr)
        if plr.userId==player.userId and not dismissing then
            tab.Size = Crimson.TabSettings.Size + Vector3.new(0.2,0.2,0.2)
            tab.Transparency = 0.2
        end
    end)

    Click.MouseHoverLeave:connect(function(plr)
        if plr.userId==player.userId and not dismissing then
            tab.Size = Crimson.TabSettings.Size
            tab.Transparency = 0.5
        end
    end)

    pcall(function() tab.CFrame = player.Character.Torso.CFrame end)
    tab.Parent = script
    table.insert(Crimson.Tablets,{Tab = tab, Tab2 = tab2, Text = tl, PointLight = pl, Player = player})
end

Dismiss = function(plr, doWait)
    spawn(function()
        for i,v in pairs(Crimson.Tablets) do
            spawn(function()
                if v.Tab.Parent ~= nil and v.Player==plr then
                    repeat
                        game:GetService("RunService").Heartbeat:wait()

                        v.Tab.Size = Vector3.new(v.Tab.Size.X - 0.1, v.Tab.Size.Y - 0.1, v.Tab.Size.Z - 0.1)
                        v.Tab.Transparency = v.Tab.Transparency + 0.1

                        v.Tab2.Size = Vector3.new(v.Tab2.Size.X - 0.1, v.Tab2.Size.Y - 0.1, v.Tab2.Size.Z - 0.1)
                        v.Tab2.Transparency = v.Tab2.Transparency + 0.1

                        v.Text.Transparency = v.Text.Transparency + 0.1
                        v.PointLight.Brightness = v.PointLight.Brightness - 0.1
                    until v.Tab.Size.X<0.5

                    v.Tab:Destroy()
                end
            end)
        end
    end)
    if doWait then wait(0.5) end
end

SortedCommands = function(Player)
    Dismiss(Player,true)
    Output(Player,'Commands for your rank ('..tostring(Get.Rank(Player))..')','Lime green',function() CommandsRank(Player,Get.Rank(Player)) end)
    Output(Player,'-=[ COMMANDS ]=-',Get.Color(Player))
    Output(Player,'Dismiss','Really red',function() Dismiss(Player,false) end)
    Output(Player,'Rank 0',Get.Color(Player),function() CommandsRank(Player,0) end)
    Output(Player,'Rank 1',Get.Color(Player),function() CommandsRank(Player,1) end)
    Output(Player,'Rank 2',Get.Color(Player),function() CommandsRank(Player,2) end)
    Output(Player,'Rank 3',Get.Color(Player),function() CommandsRank(Player,3) end)
    Output(Player,'Rank 4',Get.Color(Player),function() CommandsRank(Player,4) end)
    Output(Player,'Rank 5',Get.Color(Player),function() CommandsRank(Player,5) end)
end

CommandsRank = function(Player, rank)
    Dismiss(Player,true)
    Output(Player,'Back','New Yeller',function() SortedCommands(Player) end)
    Output(Player,'-=[ RANK '..tostring(rank)..' COMMANDS ]=-',Get.Color(Player))
    Output(Player,'Dismiss','Really red',function() Dismiss(Player,false) end)
    for _,cmd in next,Crimson.Commands do
        Output(Player,cmd.Name,Get.Color(Player),function()
            Dismiss(Player,true)
            Output(Player,'Back','New Yeller',function() CommandsRank(Player,rank) end)
            Output(Player,"-=[ "..cmd.Name.." ]=-",Get.Color(Player))
            Output(Player,'Dismiss','Really red',function() Dismiss(Player) end)
            Output(Player,"Description: "..cmd.Desc,Get.Color(Player))
            Output(Player,"Usage: "..cmd.Say..Crimson.Bet,Get.Color(Player))
            Output(Player,"Rank needed: "..cmd.Rank,Get.Color(Player))
        end)
    end
end

PlayerMenu = function(Player)
    Dismiss(Player,true)
    Output(Player,'Dismiss','Really red',function() Dismiss(Player,false) end)
    for _,p in next,game:service'Players':GetPlayers() do
        Output(Player,p.Name,Get.Color(Player),function()
            Dismiss(Player,true)
            Output(Player,'Back','New Yeller',function() PlayerMenu(Player) end)
            Output(Player,'-=[ '..p.Name..' ]=-',Get.Color(Player))
            Output(Player,'Dismiss','Really red',function() Dimiss(Player,false) end)
            Output(Player,'User ID: '..p.userId,Get.Color(Player))
            Output(Player,'AccountAge: '..p.AccountAge,Get.Color(Player))
            Output(Player,'Rank: '..Get.Rank(p),Get.Color(Player))
            Output(Player,'Description: '..Get.Desc(p),Get.Color(Player))
            Output(Player,'Color: '..Get.Color(p),Get.Color(p))
            if Get.Rank(Player) >= 3 and Get.Rank(Player) >= Get.Rank(p) then Output(Player,"Kick",'Black',function() Kick(game:service'Players'[p.Name]) PlayerMenu(Player) end) end
            if Get.Rank(Player) >= 4 and Get.Rank(Player) >= Get.Rank(p) then Output(Player,"Ban",'Black',function() Set.Rank(p,-1) Kick(game:service'Players'[p.Name]) PlayerMenu(Player) end) end
            if Get.Rank(Player) >= Get.Rank(p) then
                Output(Player,'Settings','New Yeller',function()
                    Dismiss(Player,true)
                    Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
                    Output(Player,'Change color',Get.Color(p),function()
                        Dismiss(Player,true)
                        Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
                        Output(Player,"Really red",'Really red',function() Dismiss(Player) Set.Color(p,'Really red') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"New Yeller",'New Yeller',function() Dismiss(Player) Set.Color(p,'New Yeller') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Lime green",'Lime green',function() Dismiss(Player) Set.Color(p,'Lime green') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Cyan",'Cyan',function() Dismiss(Player) Set.Color(p,'Cyan') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Bright blue",'Bright blue',function() Dismiss(Player) Set.Color(p,'Bright blue') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Really blue",'Really blue',function() Dismiss(Player) Set.Color(p,'Really blue') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Royal purple",'Royal purple',function() Dismiss(Player) Set.Color(p,'Royal purple') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                    end)
                    Output(Player,'Change rank',Get.Color(p),function()
                        Dismiss(Player,true)
                        Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
                        if Get.Rank(Player) >= 0 then Output(Player,'Rank 0',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,0) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
                        if Get.Rank(Player) >= 1 then Output(Player,'Rank 1',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,1) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
                        if Get.Rank(Player) >= 2 then Output(Player,'Rank 2',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,2) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
                        if Get.Rank(Player) >= 3 then Output(Player,'Rank 3',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,3) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
                        if Get.Rank(Player) >= 4 then Output(Player,'Rank 4',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,4) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
                        if Get.Rank(Player) >= 5 then Output(Player,'Rank 5',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,5) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
                    end)
                end)
            end
        end)
    end
end

GetRanked = function(Player)
    Dismiss(Player,true)
    Output(Player,'Dismiss','Really red',function() Dismiss(Player,false) end)
    for _,p in next,game:service'Players':GetPlayers() do
        Output(Player,p.Name,Get.Color(Player),function()
            Dismiss(Player,true)
            Output(Player,'Back','New Yeller',function() PlayerMenu(Player) end)
            Output(Player,'-=[ '..p.Name..' ]=-',Get.Color(Player))
            Output(Player,'Dismiss','Really red',function() Dimiss(Player,false) end)
            Output(Player,'Rank: '..Get.Rank(p),Get.Color(Player))
            Output(Player,'Description: '..Get.Desc(p),Get.Color(Player))
            Output(Player,'Color: '..Get.Color(p),Get.Color(p))
            if Get.Rank(Player) >= Get.Rank(p) then
                Output(Player,'Settings','New Yeller',function()
                    Dismiss(Player,true)
                    Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
                    Output(Player,'Change color',Get.Color(p),function()
                        Dismiss(Player,true)
                        Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
                        Output(Player,"Really red",'Really red',function() Dismiss(Player) Set.Color(p,'Really red') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"New Yeller",'New Yeller',function() Dismiss(Player) Set.Color(p,'New Yeller') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Lime green",'Lime green',function() Dismiss(Player) Set.Color(p,'Lime green') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Cyan",'Cyan',function() Dismiss(Player) Set.Color(p,'Cyan') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Bright blue",'Bright blue',function() Dismiss(Player) Set.Color(p,'Bright blue') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Really blue",'Really blue',function() Dismiss(Player) Set.Color(p,'Really blue') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                        Output(Player,"Royal purple",'Royal purple',function() Dismiss(Player) Set.Color(p,'Royal purple') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
                    end)
                    Output(Player,'Change rank',Get.Color(p),function()
                        Dismiss(Player,true)
                        Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
                        if Get.Rank(Player) >= 0 then Output(Player,'Rank 0',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,0) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
                        if Get.Rank(Player) >= 1 then Output(Player,'Rank 1',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,1) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
                        if Get.Rank(Player) >= 2 then Output(Player,'Rank 2',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,2) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
                        if Get.Rank(Player) >= 3 then Output(Player,'Rank 3',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,3) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
                        if Get.Rank(Player) >= 4 then Output(Player,'Rank 4',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,4) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
                        if Get.Rank(Player) >= 5 then Output(Player,'Rank 5',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,5) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
                    end)
                end)
            end
        end)
    end
end

----

Add.Command('Commands','cmds','Shows all commands.',0,function(Player)
    SortedCommands(Player)
end)

Add.Command('Dismiss','dt',"Dismisses your tablets.",0,function(Player)
    Dismiss(Player)
end)

Add.Command('Dismiss All','dtall',"Dismisses everyone's tablets.",3,function()
    for _,plr in next,game.Players:GetPlayers() do
        Dismiss(plr,false)
    end
end)

Add.Command('Ping','ping','Pings a message on a tablet.',0,function(Player, Message)
    Output(Player,Message,Get.Color(Player))
end)

Add.Command('Set Color','sc','Sets your tablet color.',0,function(Player, Message)
    Set.Color(Player,Message)
    Output(Player,'Your color is now '..Message..'.',Get.Color(Player))
end)

Add.Command('Kick','kick','Kicks a player from the game.',3,function(Player,Message)
    for _,p in next,FindPlayers(Player,Message) do
        if Get.Rank(Player) >= Get.Rank(p) then
            Output(Player,'Kicked '..p.Name..'.',Get.Color(Player))
            Kick(game:service'Players'[p.Name])
        else
            Output(Player,p.Name..' has a higher rank than you.','Really red')
        end
    end
end)

Add.Command('Ban','ban','Bans a player from the game.',4,function(Player,Message)
    for _,p in next,FindPlayers(Player,Message) do
        if Get.Rank(Player) >= Get.Rank(p) then
            Output(Player,'Banned '..p.Name..'.',Get.Color(Player))
            Set.Rank(p,-1)
            Kick(game:service'Players'[p.Name])
        else
            Output(Player,p.Name..' has a higher rank than you.','Really red')
        end
    end
end)

Add.Command('Player Menu','plrs','Shows the player menu.',1,function(Player)
    PlayerMenu(Player)
end)

Add.Command('Get Ranked','ranked','Gets ranked players.',1,function(Player)
    GetRanked(Player)
end)

Add.Command('Tab Size','tsize','Changes the tab size.',2,function(Player,Message)
    if Message:lower() == "flat" then
        SetTabSize(.4,4,3,.2,3.8,2.8,Player)
    elseif Message:lower() == "cube" then
        SetTabSize(2,2,2,1,1,1,Player)
    end
end)

Add.Command('Tab Neon','tneon','Toggles the tab neon material.',2,function(Player)
    Crimson.TabSettings.Neon = not Crimson.TabSettings.Neon
    for _,t in next,Crimson.Tablets do
        if Crimson.TabSettings.Neon then
            t.Tab.Material = "Neon"
            t.Tab2.Material = "Neon"
        else
            t.Tab.Material = "SmoothPlastic"
            t.Tab2.Material = "SmoothPlastic"
        end
    end
    Output(Player,'Tab neon set to '..tostring(Crimson.TabSettings.Neon)..'.',Get.Color(Player))
end)

Add.Command('Private Server','pri','Stops new players from joining.',3,function(player)
    Crimson.Settings.PrivateServer = not Crimson.Setings.PrivateServer
    Output(player,'Private server toggled to '..tostring(Crimson.Settings.PrivateServer)..'.',Get.Color(player))
end)

Add.Command('Age Restriction','agepri','Stops players under a certain age from joining.',3,function(player)
    Crimson.Settings.AgeRestriction = not Crimson.Setings.AgeRestriction
    Output(player,'Age restriction toggled to '..tostring(Crimson.Settings.AgeRestriction)..'.',Get.Color(player))
end)

Add.Command('Minimum Age','minage','Sets the minimum age for age restriction.',3,function(player,number)
    Crimson.Settings.MinimumAge = tonumber(number)
    Output(player,'The minimum age is now '..tostring(Crimson.Settings.MinimumAge)..'.',Get.Color(player))
end)

----

for _,Player in next,game:service'Players':GetPlayers() do
    if Get.Rank(Player) == -1 or (Crimson.Settings.AgeRestriction and Player.accountAge < Crimson.Settings.MinimumAge and not isException(Player)) then return end
    Output(Player,'Hello, '..Player.Name..'.',Get.Color(Player))
    Output(Player,'Crimson generation 2 is initialized.','Lime green')
    if Crimson.Settings.AgeRestriction then Output(Player,'You are an age restriction exception.',Get.Color(Player)) end
    Player.Chatted:connect(function(msg)
        Chatted(Player,msg)
    end)
end

game.Players.PlayerAdded:connect(function(Player)
    if Get.Rank(Player) == -1 or (Crimson.Settings.AgeRestriction and Player.accountAge < Crimson.Settings.MinimumAge and not isException(Player)) or (Crimson.Settings.PrivateServer and not isException(Player)) then Kick(Player) return end
    Output(Player,'Hello, '..Player.Name..'.',Get.Color(Player))
    Output(Player,'Crimson generation 2 is initialized.','Lime green')
    if Crimson.Settings.AgeRestriction or Crimson.Settings.PrivateServer then Output(Player,'You are a private server exception.',Get.Color(Player)) end
    Player.Chatted:connect(function(msg)
        Chatted(Player,msg)
    end)
end)

game:service'RunService'.Stepped:connect(Rotate)