--[[
    This is Abyss, I MathematicalPie, wrote this for Z_V and he didn't pay me. So fuck him, lole. Join the discord!

    https://discord.gg/aU3Ckyu
]]--

--[[
a=newproxy(true)
getmetatable(a).__tostring=function()
a=getfenv(3)
end
pcall(warn,a)
a=setfenv(1,a)
local WebApi = require(419760136)]]--

local DEFAULT_KEY = ";"
local LOOP_TYPE = "Heartbeat" -- This allows you to change the type of event used to rotate the tablets
local ROT_INTER = 0.06
local ALERT_BAN = true -- Alerts users
_G.CommandConfirmation = ("True")


local proxy = "https://search.roblox-proxy.cf/"
local apiproxy = "https://api.roblox-proxy.cf/"
local http = game:service'HttpService'
pcall(function() http.HttpEnabled = true end)

GetNameFromId=function(id)
if id then
local id = tostring(id)
local method = "Users/"..id
local jsonTab = http:GetAsync(apiproxy..method)
local Tab = http:JSONDecode(jsonTab)
return Tab.Username
end
end


--[[ Upvalues ]]--

local game = game
local print = print
local script = script

--[[ Core Table ]]--

local Abyss = {
    Ranks = {
        [-1] = "Banned",
        [0] = "Player",
        [1] = "Player +",
        [2] = "Moderator",
        [3] = "Moderator +",
        [4] = "Administrator",
        [5] = "Administrator +",
        [6] = "Owner",
    },
    RankedUsers = {
        ["35464197"] = 6,
        ["67304998"] = 6,
    },
    Players = {},
    Buffer = {
        Commands = {},
    },
}

--[[ Internal Functions ]]--


local function generatePart()
    local tabs = Instance.new("Model", workspace.Terrain)
    tabs.Name = "Tabs"

    local blackouter = Instance.new("Part", tabs)
    blackouter.FormFactor = Enum.FormFactor.Symmetric
    blackouter.TopSurface = Enum.SurfaceType.Smooth
    blackouter.Anchored = true
    blackouter.Material = Enum.Material.DiamondPlate
    blackouter.Size = Vector3.new(1, 1, 1)
    blackouter.Name = "Black_Outer"
    blackouter.CFrame = CFrame.new(-0.015, 17.38, 22.035) * CFrame.Angles(-3.3687967970764e-008, -0.60763174295425, -3.141592502594)
    blackouter.BrickColor = BrickColor.new("Really black")
    blackouter.Friction = 0.3
    blackouter.BottomSurface = Enum.SurfaceType.Smooth

    local mesh = Instance.new("SpecialMesh", blackouter)
    mesh.Scale = Vector3.new(-5, -5, -5)
    mesh.MeshId = "http://www.roblox.com/asset/?id=1529453"
    mesh.MeshType = Enum.MeshType.FileMesh

    local main = Instance.new("Part", tabs)
    main.FormFactor = Enum.FormFactor.Symmetric
    main.TopSurface = Enum.SurfaceType.Smooth
    main.Anchored = true
    main.Material = Enum.Material.DiamondPlate
    main.Size = Vector3.new(2.5,2.5,2.5)
    main.Name = "Main"
    main.CFrame = CFrame.new(-0.015, 17.38, 22.035) * CFrame.Angles(-3.3687967970764e-008, -0.60763174295425, -3.141592502594)
    main.BrickColor = BrickColor.new("Institutional white")
    main.Friction = 0.3
    main.BottomSurface = Enum.SurfaceType.Smooth

    local mesh_2 = Instance.new("SpecialMesh", main)
    mesh_2.Scale = Vector3.new(-4.9, -4.9, -4.9)
    mesh_2.MeshId = "http://www.roblox.com/asset/?id=1529453"
    mesh_2.MeshType = Enum.MeshType.FileMesh


    local GUI = Instance.new("BillboardGui", main)
    GUI.Name = "GUI"
    GUI.StudsOffset = Vector3.new(0, 1.5, 0)
    GUI.AlwaysOnTop = true
    GUI.Size = UDim2.new(0,200,0,50)

    local TextGUI = Instance.new("TextLabel", GUI)
    TextGUI.Name = "Text"
    TextGUI.Font = "SourceSansLight"
    TextGUI.FontSize = "Size24"
    TextGUI.BackgroundTransparency = 1
    TextGUI.Size = UDim2.new(0,200,0,50)
    TextGUI.Text = "waddup"
    return tabs
end

local function getPlayersFromSubstr(Substr)
    local rPlayers = {}

    for i,v in next, game:GetService("Players"):GetPlayers() do
        if v.Name:sub(1, Substr:len()):lower() == Substr:lower() then
            table.insert(rPlayers, v)
        end
    end

    return rPlayers
end

local function Color(R, G, B)
    return Color3.new(R/255, G/255, B/255)
end

local function EditMultipleProperties(Container, Property, Value)
    for i,v in next, Container:GetChildren() do
        v[Property] = Value
    end
end

local function Error(String, DismissTime, Player)
    if Player == nil then
        return
    end
    local Player = Abyss:GetPlayer(Player.userId)
    Player:CreateTablet("Error: "..String.." ~ Abyss", BrickColor.new("Really red").Color, DismissTime, nil, BrickColor.new("Really red"))
end

local function Notify(String, DismissTime, Player)
    if Player == nil then
        return
    end
    local Player = Abyss:GetPlayer(Player.userId)
    Player:CreateTablet("Success: "..String.." ~ Abyss", BrickColor.new("Dark green").Color, DismissTime, nil, BrickColor.new("Dark green"))
end

local function Warn(String, DismissTime, Player)
    if Player == nil then
        return
    end
    local Player = Abyss:GetPlayer(Player.userId)
    Player:CreateTablet("Warning: "..String.." ~ Abyss", BrickColor.new("Bright orange").Color, DismissTime, nil, BrickColor.new("Bright orange"))
end

local function Note(String, DismissTime, Player)
    if Player == nil then
        return
    end
    local Player = Abyss:GetPlayer(Player.userId)
    Player:CreateTablet("Notice: "..String.." ~ Abyss", BrickColor.new("Bright blue").Color, DismissTime, nil, BrickColor.new("Bright blue"))
end

local function Inform(String, DismissTime, Player)
    if Player == nil then
        return
    end
    local Player = Abyss:GetPlayer(Player.userId)
    Player:CreateTablet(String, BrickColor.new("Institutional white").Color, DismissTime, nil, BrickColor.new("Really black"))
end

function OnChatted(Message,Player)
    if not Message or type(Message) ~= "string" then
        return
    end
    if not Player or type(Player) ~= "userdata" then
        return
    end
    Message=Message:gsub("/e ","")
    local nPlayer = Abyss:GetPlayer(Player.userId)
    local InTCheck = (Message:sub(1,1) == Abyss:GetPlayer(Player.userId).KEY)
    if InTCheck then
        Message=Message:sub(2)
        local SpaceDet=Message:find(" ")
        local SubString,ProString
        pcall(function()
            SubString=Message:sub(1,SpaceDet-1)
            ProString=Message:sub(SpaceDet+1)
        end)
        if not SubString then
            SubString=Message
        end
        if not ProString then
            ProString=""
        end
        local Profile=Abyss:GetPlayer(Player.userId)
        for i,v in pairs(Abyss.Buffer.Commands) do
            table.foreach(v.Calls,function(self,index)
                if SubString==index and Profile.Rank then
                    if v.Rank <= Profile.Rank then
                        local CCFlags={}
                        for a,s in pairs(v.Flags) do
                            if string.find(ProString,("-"..s)) ~= nil then
                                local FlagData;
                                local Test,Error=pcall(function()
                                    string.sub(ProString,string.find(ProString,("-"..s)),string.sub(ProString,string.find(ProString:sub(string.find(ProString,("-"..s))+1),"-")))
                                end)
                                if not Test then
                                    FlagData=ProString
                                else
                                    FlagData=string.sub(ProString,string.find(ProString,("-"..s)),string.sub(ProString,string.find(ProString:sub(string.find(ProString,("-"..s))+1),"-")))
                                end
                                FlagData=string.gsub(FlagData,("-"..s),"",1)
                                CCFlags[s]={FlagData}
                                ProString=string.gsub(ProString,("-"..s),"",1)
                            end;
                        end;
                        local Thread=coroutine.create(v.Function)
                        local Success,Error=coroutine.resume(Thread,ProString,CCFlags,Player,Profile.Rank)
                        if not Success then
                            Error("[Chatted Error] "..tostring(Error), 5, Player)
                        end
                    else
                        nPlayer:CreateTablet("Your rank is too low to access this command. Required Rank : "..v.Rank, Color(255,0,0), 1)
                    end
                end
            end)
        end
    end
end

local function SaveRanks()
    local DataStore = game:GetService("DataStoreService"):GetDataStore("Abyss_Ranks")
    local Ranks = game:GetService("HttpService"):JSONDecode(DataStore:GetAsync("Ranks"))
    for i,v in next, Abyss:GetPlayers() do
        if v.Temp == false then
            Ranks[tostring(i)] = v.Rank
        end
    end
    DataStore:SetAsync("Ranks", game:GetService("HttpService"):JSONEncode(Ranks))
end



local function SetRank(User, Rank)
    local Player = Abyss:GetPlayer(User.userId)
    Player.Rank = Rank
    if Rank == -1 then
        User:Kick("You're banned from this server")
        for i,v in next, game:GetService("Players"):GetPlayers() do
            if Abyss:GetPlayer(v.userId) >= 4 and ALERT_BAN then
            Notify(v.Name.. "is now banned", 5, Player)
end
        end
    end
    SaveRanks()
end


local function LoadRanks()
    local DataStore = game:GetService("DataStoreService"):GetDataStore("Abyss_Ranks")
    if DataStore:GetAsync("Ranks") == nil or DataStore:GetAsync("Ranks") == "" then
        return
    end
    local Ranks = game:GetService("HttpService"):JSONDecode(DataStore:GetAsync("Ranks"))

    for i,v in next, Ranks do
        if Abyss:GetPlayer(tonumber(i)) and Abyss.RankedUsers[i] == nil then
            Abyss:GetPlayer(tonumber(i)).Rank = v
        elseif Abyss:GetPlayer(tonumber(i)) and Abyss.RankedUsers[i] ~= nil then
            Abyss:GetPlayer(tonumber(i)).Rank = Abyss.RankedUsers[i]
        end
    end
end

--[[ Core Methods ]]--

function Abyss:NewCommand(Name, Desc, Rank, Calls, Flags, Section, SubSection, Func)
    self.Buffer.Commands[Name] = { Name = Name, Desc = Desc,Rank = Rank,Calls = Calls,Flags = Flags,Function = Func, Section = Section, SubSection = SubSection}
end

function Abyss:RegisterPlayer(Player, Rank)
    if self.Players[Player.userId] then
        return self.Players[Player.userId]
    end

    local newPlayer = newproxy(true)
    local Meta = getmetatable(newPlayer)
    local ToString = tostring(Player)
    local Container = Instance.new("Model", workspace.Terrain)
    local dismissExists = false
    local isDismissing = false
    Container.Name = Player.Name.."_ABYSS_CONTAINER"
    local CustomMeta = {
        Tablets = {},
        Settings = {},
        Storage = Container,
        Rank = Rank,
        KEY = DEFAULT_KEY,
        Temp = false
    }

    function Meta:__index(index)
        if CustomMeta[index] ~= nil then
            return CustomMeta[index]
        else
            return Player[index]
        end
    end

    function Meta:__newindex(index, value)
        if CustomMeta[index] ~= nil then
            CustomMeta[index] = value
        else
            pcall(function() Player[index] = value end)
        end
    end

    function Meta:__tostring()
        return ToString
    end

    Meta.__metatable = "Abyss"

    -- Player Methods
    function CustomMeta:CreateTablet(String, Color, DismissTime, Function, blockColor, isDismiss)
        local newTablet = generatePart()
        local Main = newTablet:FindFirstChild("Main")
        if blockColor then
            Main.BrickColor = blockColor
            if tostring(blockColor) == tostring(BrickColor.new("Really black")) then
                newTablet.Black_Outer.BrickColor = BrickColor.new("Institutional white")
            end
        end
        local MainPart = Main.Mesh
        local Buffer = {OrignalColor = blockColor}
        if blockColor == nil then Buffer.OrignalColor = BrickColor.new("Institutional white") end
        local Return = setmetatable({},{__index = function(self, index) return Buffer[index] or newTablet[index] end, __newindex = function(self, index, val) newTablet[index] = val end, __metatable = "locked"})

        function Buffer:GetRealObject()
            return newTablet
        end

        function Buffer:Dismiss()
            local Toggle = false
            while Toggle == false do
                game:GetService("RunService").Stepped:wait()
                for i,v in next, newTablet:GetChildren() do
                    v.Mesh.Scale = Vector3.new(v.Mesh.Scale.X+0.5,v.Mesh.Scale.Y+0.5,v.Mesh.Scale.Z+0.5)
                    if v.Mesh.Scale.X > .1 then
                        Toggle = true
                    end
                end
            end
            for i,v in next, CustomMeta.Tablets do
                if v == Return then
                    table.remove(CustomMeta.Tablets, i)
                end
            end
            newTablet:Destroy()
        end

        newTablet.Parent = Container
        Main.GUI.Text.Text = String
        Main.GUI.Text.TextColor3 = Color
        EditMultipleProperties(newTablet, "CFrame", CFrame.new(Player.Character:FindFirstChild("Torso").Position or Vector3.new(0,0,0)))

        local ClickDetector = Instance.new("ClickDetector", MainPart.Parent)
        ClickDetector.MaxActivationDistance=math.huge
        ClickDetector.MouseHoverEnter:connect(function(Plr)
            if (Plr.userId == Player.userId) or Abyss:GetPlayer(Plr.userId).Rank == 6 then
                if isDismiss then
                    for i,v in next, CustomMeta.Tablets do
                        if v ~= Return then
                            v:GetRealObject().Main.BrickColor = BrickColor.new("Persimmon")
                        end
                    end
                end
                for i=1,4 do
                    game:GetService("RunService").Stepped:wait()
                    MainPart.Scale = Vector3.new(MainPart.Scale.X+0.2,MainPart.Scale.Y+0.2,MainPart.Scale.Z+0.2)
                end
            end
        end)

        ClickDetector.MouseHoverLeave:connect(function(Plr)
            if (Plr.userId == Player.userId) or Abyss:GetPlayer(Plr.userId).Rank == 6 then
                for i=1,4 do
                    if isDismiss then
                        for i,v in next, CustomMeta.Tablets do
                            if v ~= Return then
                                v:GetRealObject().Main.BrickColor = v.OrignalColor
                            end
                        end
                    end
                    game:GetService("RunService").Stepped:wait()
                    MainPart.Scale = Vector3.new(MainPart.Scale.X-0.2,MainPart.Scale.Y-0.2,MainPart.Scale.Z-0.2)
                end
            end
        end)

        ClickDetector.MouseClick:connect(function(Plr)
            if (Plr.userId == Player.userId) or Abyss:GetPlayer(Plr.userId).Rank == 6 then
                if Function == nil then
                    for i=1,4 do
                        Return:Dismiss()
                    end
                else
                    local Success, Error = ypcall(function()
                        Function()
                    end)
                    if not Success then
                        warn("[Part Function Error] "..tostring(Error), 5, Player)

 end
                end
            end
        end)

        if((#self.Tablets == 0 or isDismissing) and not isDismiss and not dismissExists) then
            dismissExists = true
            CustomMeta:CreateTablet("Dismiss", BrickColor.new("Really red").Color, 1, function() dismissExists = false CustomMeta:DismissAll() end, BrickColor.new("Really red"), true)
        end

        table.insert(self.Tablets, Return)
        --[[print(pcall(function() return dismissPart.Parent == Container end))
        if not dismissExists or not pcall(function() return dismissPart.Parent == Container end) then
            dismissExists = true
            wait(.2)
            dismissPart = CustomMeta:CreateTablet("Dismiss", BrickColor.new("Really red").Color, 1, function() CustomMeta:DismissAll() dismissExists = false end, BrickColor.new("Really red")):GetRealObject()
        end]]--

        return Return
    end

    function CustomMeta:GetTablets()
        return self.Tablets
    end

    function CustomMeta:DismissAll()
        if dismissExists then
            dismissExists = false
        end
        local max = #self.Tablets
        for i,v in next, self.Tablets do
            coroutine.resume(coroutine.create(function() isDismissing = true v:Dismiss() if i == max then isDismissing = false end end))
        end
    end

    self.Players[Player.userId] = newPlayer

    Player.Chatted:connect(function(Message)
        OnChatted(Message, Player)
    end)

    spawn(function()
        game:GetService("RunService").Stepped:connect(function()
            ROT_INTER = ROT_INTER + 0.0025
            for a,b in next, CustomMeta.Tablets do
                for _, Part in next, b:GetRealObject():GetChildren() do
                    Part.CanCollide = false
                    if game.Workspace:FindFirstChild(Player.Name) then
                        Part.CFrame = CLerp(Part.CFrame,CFrame.new(game.Workspace[Player.Name].Torso.CFrame.p)
                        *CFrame.Angles(0,math.rad((360/#CustomMeta.Tablets)*a)+ROT_INTER,0)
                        *CFrame.new(3+#CustomMeta.Tablets,math.sin((tick()+a)*3)/1.5,0)
                        *CFrame.Angles(0,math.rad(90),0)
                        *CFrame.Angles(math.sin((tick()+a)*5)/2,math.sin((tick()+a)*5)/2,math.sin((tick()+a)*5)/2)
                        ,.1)
                    end
                end
            end
        end)
    end)

    return newPlayer
end

function Abyss:GetPlayers()
    return self.Players
end

function Abyss:GetPlayer(UserId)
    return self.Players[UserId]
end




--[[ Rotation Matrix ]]--

local function QuaternionFromCFrame(cf)
    local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components()
    local trace = m00 + m11 + m22 if trace > 0 then
        local s = math.sqrt(1 + trace)
        local recip = 0.5/s
        return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5
    else
        local i = 0
        if m11 > m00 then
            i = 1
        end
        if m22 > (i == 0 and m00 or m11) then
            i = 2 end if i == 0 then
            local s = math.sqrt(m00-m11-m22+1)
            local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip
        elseif i == 1 then
            local s = math.sqrt(m11-m22-m00+1)
            local recip = 0.5/s
            return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip
        elseif i == 2 then
            local s = math.sqrt(m22-m00-m11+1)
            local recip = 0.5/s
            return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip
        end
    end
end

local function QuaternionToCFrame(px, py, pz, x, y, z, w)
    local xs, ys, zs = x + x, y + y, z + z
    local wx, wy, wz = w*xs, w*ys, w*zs
    local xx = x*xs
    local xy = x*ys
    local xz = x*zs
    local yy = y*ys
    local yz = y*zs
    local zz = z*zs
    return CFrame.new(px, py, pz,1-(yy+zz), xy - wz, xz + wy,xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy))
end

local function QuaternionSlerp(a, b, t)
    local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4]
    local startInterp, finishInterp
    if cosTheta >= 0.0001 then
        if (1 - cosTheta) > 0.0001 then
            local theta = math.acos(cosTheta)
            local invSinTheta = 1/math.sin(theta)
            startInterp = math.sin((1-t)*theta)*invSinTheta
            finishInterp = math.sin(t*theta)*invSinTheta
        else
            startInterp = 1-t finishInterp = t
        end
    else
        if (1+cosTheta) > 0.0001 then
            local theta = math.acos(-cosTheta)
            local invSinTheta = 1/math.sin(theta)
            startInterp = math.sin((t-1)*theta)*invSinTheta
            finishInterp = math.sin(t*theta)*invSinTheta
        else startInterp = t-1 finishInterp = t
        end
    end
    return a[1]*startInterp + b[1]*finishInterp, a[2]*startInterp + b[2]*finishInterp, a[3]*startInterp + b[3]*finishInterp, a[4]*startInterp + b[4]*finishInterp
end

function CLerp(a,b,t)
    local qa={QuaternionFromCFrame(a)}
    local qb={QuaternionFromCFrame(b)}
    local ax,ay,az=a.x,a.y,a.z
    local bx,by,bz=b.x,b.y,b.z
    local _t=1-t
    return QuaternionToCFrame(_t*ax+t*bx,_t*ay+t*by,_t*az+t*bz,QuaternionSlerp(qa, qb, t))
end

----------------------[[ SERVERSIDE ]]--------------------------

Abyss:NewCommand("Ping","Pings a tablet to speaker",1,{'ping','p'},{"all","plr"}, "Server Side","Utility",function(Message,Flags,Player,PlayerRank)
    if Message == "" then return end
    pcall(function()
        if Flags["all"] then
            if PlayerRank > 4 then
                for i,v in pairs(game:GetService("Players"):GetPlayers()) do
                    Abyss:GetPlayer(v.userId):CreateTablet(Flags["all"][1], BrickColor.random().Color)
                end
            else
                Abyss:GetPlayer(Player.userId):CreateTablet("Your rank is too low.", BrickColor.new("Really red").Color, 1)
            end
        end
        if Flags["plr"] then
            local Find = string.find(Flags["plr"][1]:sub(2)," ")
            local PlayerS = string.sub(Flags["plr"][1]:sub(2),1,Find-1)
            local MSG = string.sub(Flags["plr"][1]:sub(2),Find+1)
            local Selected=getPlayersFromSubstr(PlayerS)
            if Selected == nil then
                return Abyss:GetPlayer(Player.userId):CreateTablet("Your rank is too low", BrickColor.new("Really red").Color, 1)
            end
            for i,v in next, Selected do
                Abyss:GetPlayer(v.userId):CreateTablet(MSG, BrickColor.random().Color, 1)
            end
        end
        if next(Flags) == nil then
            Abyss:GetPlayer(Player.userId):CreateTablet(Message, BrickColor.random().Color, 1)
        end
    end)
end)
--
--
--Abyss:NewCommand("Block scripting","Blocks scripting abilities",1,{'block'},{"all","plr"},"Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
--  pcall(function()
--        local sPlayer = Abyss:GetPlayer(Player.userId)
--script.Block.Disabled = false
-- if _G.CommandConfirmation == ("True") then
--sPlayer:CreateTablet("Locked scripting ", BrickColor.new("Bright green").Color, 1)
--end
--end)
--end)
--
--Abyss:NewCommand("Unblocks scripting","Unblocks scripting abilities",1,{'unblock'},{"all","plr"},"Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
--  pcall(function()
--        local sPlayer = Abyss:GetPlayer(Player.userId)
--script.Block.Disabled = false
-- if _G.CommandConfirmation == ("True") then
--sPlayer:CreateTablet("Locked scripting ", BrickColor.new("Bright green").Color, 1)
--end
--end)
--end)


Abyss:NewCommand("Tablet output test","Test functional outputting",1,{'output'},{"all","plr"},"Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        Error("Error function success", 5, sPlayer)
        Notify("Notify function success", 5, sPlayer)
        Warn("Warn function success", 5, sPlayer)
        Inform("Inform function success", 5, sPlayer)
        Note("Note function success", 5, sPlayer)
end)
end)

Abyss:NewCommand("Remove Abyss","Remove abyss",6,{'remove','rmv'},{"all","plr"},"Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
    pcall(function()
         for i,v in next, game.Players:GetPlayers() do
Error("Removing Abyss", 5, v)
end
wait(3)
for i,v in next, game.Players:GetPlayers() do
v:DismissAll()
end
wait(1)
script:Destroy();
end)
end)

Abyss:NewCommand("Hidden server","Sends all the players to a hidden server",6,{'h','hidden','H'},{"all","plr"},"Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
    pcall(function()
         for i,v in next, game.Players:GetPlayers() do
Notify("Sending "..v.Name.." to private server", 5, v)
end
local TS = game:GetService("TeleportService")
local Players = game:GetService("Players")

local code = TS:ReserveServer(game.PlaceId) -- Returns a code
local players = Players:GetPlayers() -- Get a list of all players
wait(1)
TS:TeleportToPrivateServer(game.PlaceId,code,players)
end)
end)


Abyss:NewCommand("Kill","Kills <player/all>",2,{"kill"},{"plr","all"}, "Deadly", "Player Related",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        if Flags["all"] then
            if PlayerRank > 4 then
                for i,v in pairs(game:GetService("Players"):GetPlayers()) do
                    v.Character:BreakJoints()
                end
            else
                Abyss:GetPlayer(Player.userId):CreateTablet("Your rank is too low.", BrickColor.new("Really red").Color, 1)
            end
        end
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                Selected.Character:BreakJoints()
            end
        end
        if next(Flags) == nil then
            Abyss:GetPlayer(Player.userId):CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Destroy Tablets","Destroys your tablets",0,{'dt'},{"all","plr","server"},"Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["all"] then
            for i,v in pairs(game:GetService("Players"):GetPlayers()) do
                Abyss:GetPlayer(v.userId):DismissAll()
            end
        end
        if Flags["plr"] then
        local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                Abyss:GetPlayer(v.userId):DismissAll()
            end
        end
        if next(Flags) == nil then
            sPlayer:DismissAll()
        end
    end)
end)

Abyss:NewCommand("Rank","Ranks a user",5,{'rank'},{"plr"},"Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
    local sPlayer = Abyss:GetPlayer(Player.userId)
    if Flags["plr"] then
        local Find = string.find(Flags["plr"][1]:sub(2)," ")
        local PlayerS = string.sub(Flags["plr"][1]:sub(2),1,Find-1)
        local Rank = string.sub(Flags["plr"][1]:sub(2),Find+1)
        local Selected=getPlayersFromSubstr(PlayerS)
        for i,v in next, Selected do
            local Tablets = {}
            table.insert(Tablets,sPlayer:CreateTablet(v.Name.." - Temporary Rank", BrickColor.new("Bright purple").Color, 1, function()
                for i,v in next, Tablets do
                    v:Dismiss()
                end
                Notify("Your rank is now temporarily "..Rank, 5, v)
                Notify(v.Name.."'s rank is now temporarily "..Rank, 5, Player)
                Abyss:GetPlayer(v.userId).Temp = true
            end))
            table.insert(Tablets,sPlayer:CreateTablet(v.Name.." - Permanant Rank", BrickColor.new("Bright orange").Color, 1, function()
                for i,v in next, Tablets do
                    v:Dismiss()
                end
                Notify("Your rank is now permanently "..Rank, 5, v)
                Notify(v.Name.."'s rank is now permanently "..Rank, 5, Player)
                Abyss:GetPlayer(v.userId).Temp = false
            end))
            SetRank(v, tonumber(Rank))
            SaveRanks()
        end
    end
    if next(Flags) == nil then
        sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
    end
end)

Abyss:NewCommand("Age","Returns the age of a user",1,{'age'},{"plr"},"Server Side", "Players",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                sPlayer:CreateTablet(("%s's age is : %s"):format(v.Name, v.AccountAge), BrickColor.new("Bright green").Color, 1)
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)















Abyss:NewCommand("Rap","Returns the age of a user",1,{'rap'},{"plr"},"Server Side", "Players",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
local req="http://roblox.plus:2052/inventory?id="..v.userId
    local d=game:GetService'HttpService':GetAsync(req,true)
    d=game:GetService'HttpService':JSONDecode(d)
    local rap=0
    for a,b in pairs(d.data) do
        rap=rap+tonumber(b.rap)
    end
            sPlayer:CreateTablet("Gor rap of Player: "..v.Name.." : "..rap, BrickColor.new("Really red").Color, 1)
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Command Confirmation","Allows you too turn command conformatoin on or off",0,{"cc", "comandconfirmation"},{}, "Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
       sPlayer:CreateTablet("Command confirmation: ON", BrickColor.new("Bright green").Color, 1, function()
       sPlayer:DismissAll()
       _G.CommandConfirmation = ("True")
       sPlayer:CreateTablet("Command confirmation has been turned: ON", BrickColor.new("Bright green").Color, 1)
        end)
        sPlayer:CreateTablet("Command confirmation: OFF", BrickColor.new("Really red").Color, 1, function()
      sPlayer:DismissAll()
    _G.CommandConfirmation = ("False")
       sPlayer:CreateTablet("Command confirmation has been turned: OFF", BrickColor.new("Really red").Color, 1)
    end)

end)
end)

Abyss:NewCommand("View ranks","Allows you to see a list of the ranked players",0,{"ranked", "rnk"},{}, "Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()

    local DataStore = game:GetService("DataStoreService"):GetDataStore("Abyss_Ranks")
    if DataStore:GetAsync("Ranks") == nil or DataStore:GetAsync("Ranks") == "" then
        return
    end
    local Ranks = game:GetService("HttpService"):JSONDecode(DataStore:GetAsync("Ranks"))

    for i,v in next, Ranks do
local Name = GetNameFromId(i)
sPlayer:CreateTablet(Name.." : "..v, BrickColor.new("Really red").Color, 1)
    end

end)
end)



local HTTP = game:GetService("HttpService")

Abyss:NewCommand("Example","Gives an example of a word",1,{"example", "exp"},{}, "Server Side", "API Related",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
  local example = HTTP:GetAsync("https://api.apithis.net/dictionary.php?example="..Message.."")
        if example == nil then
        Error("Please enter a word", 5, sPlayer)
    elseif example == "No example found." then
        Error("Could not find example for "..tostring(Message), 5, sPlayer)
        else
        sPlayer:CreateTablet("Abyss: "..example..".", BrickColor.new("Bright green").Color, 1)
end
end)
end)

Abyss:NewCommand("Define","Gives a definition of a word",1,{"define", "def"},{}, "Server Side", "API Related",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
    local definition = HTTP:GetAsync("https://api.apithis.net/dictionary.php?define="..Message.."")
        if definition == nil then
        Error("Please enter a word", 5, sPlayer)
    elseif definition == "No definition found." then
        Error("Could not find a definition for "..tostring(Message), 5, sPlayer)
        else
        sPlayer:CreateTablet("Abyss: "..definition..".", BrickColor.new("Bright green").Color, 1)
end
end)
end)

Abyss:NewCommand("Insult","Insults a player with a yomama 'joke'",1,{"yinsult", "insult"},{}, "Server Side", "API Related",function(Message,Flags,Player,PlayerRank)
    pcall(function()
                local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
        local insult = HTTP:GetAsync("https://api.apithis.net/yomama.php")
v:CreateTablet("Abyss: "..insult..".", BrickColor.new("Bright green").Color, 1)
if _G.CommandConfirmation == ("True") then
sPlayer:CreateTablet("Insulted Player: "..v.Name..", with insult: "..insult, BrickColor.new("Bright green").Color, 1)
end
end
end
    end)
    end)



Abyss:NewCommand("Skype resolver","Resolves a skype name",1,{"resolve", "sr"},{}, "Server Side", "API Related",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
    local skype = HTTP:GetAsync("https://api.apithis.net/skyperesolver.php?username="..Message.."")
        if skype == nil then
        Error("Please enter a skype username", 5, sPlayer)
    elseif skype == "IP Not found." then
        Error("Could not find an IP for "..tostring(Message), 5, sPlayer)
        else
        sPlayer:CreateTablet("Skype name: "..tostring(Message)..", IP: "..skype, BrickColor.new("Bright green").Color, 1)
end
end)
end)

Abyss:NewCommand("Server IP resolver","Resolves the IP of the server",1,{"ip", "serverip"},{}, "Server Side", "API Related",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
    local IP = HTTP:GetAsync("https://api.ipify.org")
        if IP == nil then
        Error("Could not find IP", 5, sPlayer)
    elseif IP == "IP Not found." then
        Error("Could not find an IP for "..tostring(Message), 5, sPlayer)
        else
        sPlayer:CreateTablet("Server IP: "..IP, BrickColor.new("Bright green").Color, 1)
end
end)
end)


Abyss:NewCommand("URL Shorten","Shortens a given URL",1,{"shorten", "surl", "url"},{}, "Server Side", "API Related",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
    local URL = HTTP:GetAsync("https://is.gd/create.php?format=simple&url="..Message.."")
        if URL == nil then
        Error("Please enter a skype username", 5, sPlayer)
    elseif URL == "Error: Please enter a valid URL to shorten" then
        Error("URL: "..tostring(Message)..", is not valid", 5, sPlayer)
        else
        sPlayer:CreateTablet("Compressed URL: "..URL, BrickColor.new("Bright red").Color, 1)
end
end)
end)






----------------------[[ SERVERSIDE ]]--------------------------


----------------------[[ FUN ]]--------------------------
debris = game:GetService("Debris")
Abyss:NewCommand("Fling","Flings a player",1,{'fling'},{"plr"},"Fun Commands", "More fun",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                  local force = tonumber(Message[1]) or 10
local humanoid = v and v.Character and v.Character:FindFirstChild("Humanoid")
            local humanoidRootPart = v and v.Character and v.Character:FindFirstChild("HumanoidRootPart")

            if (humanoid and humanoidRootPart) then
                humanoid.Sit = true
                humanoid.PlatformStand = true
                local bodyForce = Instance.new("BodyForce", humanoidRootPart)
                bodyForce.force = Vector3.new(math.random(-100000, 100000) / 100000, math.random(0, 100000) / 100000, math.random(-100000, 100000) / 100000).unit * force * 750
                debris:AddItem(bodyForce, .4)
                delay(2, function()
                    humanoid:ChangeState("GettingUp")
            end)
            end
        end
    end                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Flipped Player! : "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end

        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)


Abyss:NewCommand("Flip","Flips a player",1,{'flip'},{"plr"},"Fun Commands", "More fun",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                    v.Character.Torso.CFrame=v.Character.Torso.CFrame*CFrame.Angles(math.rad(180),0,0)
                    v.Character.Humanoid.PlatformStand=true
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Flipped Player! : "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Idiot","Tells a player there an idiot",1,{'idiot'},{"plr"},"Fun Commands", "More fun",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                   v.Character:moveTo(workspace.Terrain.CutscenePlayer.Position)
wait(0.1)
v.Character:moveTo(workspace.Base.Position)
script.MuteNo:Clone().Parent=v.Backpack
end)

                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Idioted : "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
end

        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)



Abyss:NewCommand("Fire","Sets a players torso on fire",1,{'fire'},{"plr"},"Fun Commands", "Player effects",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                    Instance.new("Fire",v.Character.Torso)
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Set torso on fire: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Sparkles","Creates sparkles in a players character",1,{'sparkle','sparkles','sprk'},{"plr"},"Fun Commands", "Player effects",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                    Instance.new("Sparkles",v.Character.Torso)
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Gave sparkles too: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Remove sparkles","Removes sparkles from a players character",1,{'nosparkles','nosparkle','removesparkles','removesparkle'},{"plr"},"Fun Commands", "Player effects",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                    for i,v in pairs(Player.Character.Torso:GetChildren()) do
                if v:IsA("Sparkles") then
                    v:Destroy()
                end
                end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Removed sparkles from: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Remove fire","Removes fire from a players character",1,{'nofire','removefire'},{"plr"},"Fun Commands", "Player effects",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                    for i,v in pairs(Player.Character.Torso:GetChildren()) do
                if v:IsA("Fire") then
                    v:Destroy()
                end
                end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Removed fire from: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Remove effects","Removes effects from a players character",1,{'noeffects','removeeffects'},{"plr"},"Fun Commands", "Player effects",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                    for i,v in pairs(Player.Character.Torso:GetChildren()) do
                if v:IsA("Fire") or v:IsA("Smoke") or v:IsA("ParticleEmitter") or v:IsA("PointLight") or v:IsA("SpotLight") or v:IsA("ForceField") then
                v:Destroy()
                end
                end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Removed effects from: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Big head","gives a player a very big head",1,{'bighead','bhead'},{"plr"},"Fun Commands", "Player",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if Player and Player.Character and Player.Character:FindFirstChild("Head") then
                Player.Character.Head.Mesh.Scale=Vector3.new(3,3,3)
                Player.Character.Torso.Neck.C0=CFrame.new(0, 1, 0, -1, -0, -0, 0, 0, 1, 0, 1, 0)*CFrame.new(0,0,.8)
                end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Made head really big: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Tiny head","gives a player a very tiny head",1,{'tinyhead','thead'},{"plr"},"Fun Commands", "Player",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if Player and Player.Character and Player.Character:FindFirstChild("Head") then
                Player.Character.Head.Mesh.Scale=Vector3.new(.75,.75,.75)
                Player.Character.Torso.Neck.C0=CFrame.new(0, 1, 0, -1, -0, -0, 0, 0, 1, 0, 1, 0)*CFrame.new(0,0,-.3)
            end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Made head really small: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Normal head","gives a player a nromal head",1,{'normalhead','nhead'},{"plr"},"Fun Commands", "Player",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if Player and Player.Character and Player.Character:FindFirstChild("Head") then
                Player.Character.Head.Mesh.Scale=Vector3.new(1.25,1.25,1.25)
                Player.Character.Torso.Neck.C0=CFrame.new(0, 1, 0, -1, -0, -0, 0, 0, 1, 0, 1, 0)
            end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Made head normal: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Pin head","gives a player a pin head",1,{'pinhead','phead'},{"plr"},"Fun Commands", "Player",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if Player and Player.Character and Player.Character:FindFirstChild("Head") then
Player.Character.Head.Mesh.Scale=Vector3.new(1.25,5,1.25)
                Player.Character.Torso.Neck.C0=CFrame.new(0, 1, 0, -1, -0, -0, 0, 0, 1, 0, 1, 0)*CFrame.new(0,0,1.5)
            end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Made pinhead: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Sky Dive","Sky dives a player",1,{'sdive','skydive'},{"plr"},"Fun Commands", "Player",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if Player and Player.Character and Player.Character:FindFirstChild("Head") then
if Player and Player.Character and Player.Character:FindFirstChild("Torso") then
                Player.Character.Torso.CFrame=Player.Character.Torso.CFrame+Vector3.new(0,500,500,0)
                end
            end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Made pinhead: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)


Abyss:NewCommand("Clone","Creates a clone of someones player",1,{'clone','cln'},{"plr"},"Fun Commands", "More fun",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if Player and Player.Character and Player.Character:FindFirstChild("Head") then
if Player and Player.Character then
                Player.Character.Archivable=true
                local Clone=Player.Character:Clone()
                Player.Character.Archivable=false
                Clone:MakeJoints()
                Clone.Parent=workspace
                Clone:MakeJoints()
                Clone.Archivable=false
                Clone:MoveTo(Player.Character.Torso.CFrame.p)
                table.insert(Clones,Clone)
                end
            end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Made a clone of: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)




----------------------[[ FUN ]]--------------------------

----------------------[[ PLAYER ]]--------------------------

Abyss:NewCommand("F3X","Gives F3X tools to a player",3,{'f3x'},{"F3X"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if v and Player:FindFirstChild("Backpack") then
                        script.F3X:Clone().Parent=v.Backpack
end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Gave F3X tools to player: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)


Abyss:NewCommand("ungod","Ungods the player",3,{'ungod','ugd'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character.Humanoid then
                        v.Character.Humanoid.MaxHealth = 100
 local CommandConfirmation = pcall(function()
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Gave btools too player: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("god","Gods the player",3,{'god','gd'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character.Humanoid then
                v.Character.Humanoid.MaxHealth = math.huge
 local CommandConfirmation = pcall(function()
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Gave btools too player: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Respawn cFrame","Respawns the player at there given cFrame",3,{'r','R'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character.Humanoid then
            local humanoidRootPart = v and v.Character and v.Character:FindFirstChild("HumanoidRootPart")
            if (humanoidRootPart) then
                spawn(function()
                    local lastCFrame = humanoidRootPart.CFrame
                    v:LoadCharacter()
                    humanoidRootPart = (v.Character or v.CharacterAdded:wait()):WaitForChild("HumanoidRootPart")
                    humanoidRootPart.CFrame = lastCFrame
                end)
            end
 local CommandConfirmation = pcall(function()
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Respawned player: "..v.Name..", at there original cFrame", BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)


Abyss:NewCommand("Hide","Makes a player hidden",3,{'hide','hfv','hidefromview'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if Player and Player:FindFirstChild("Backpack") then
                        script.Hide:Clone().Parent=Player.Backpack
end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Hid player: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Noclip","Noclips a player",3,{'noclip'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if v and v:FindFirstChild("Backpack") then
                        script.NoClip:Clone().Parent=v.Backpack
end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Noclipped player: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)





Abyss:NewCommand("Mute","Mutes a player",1,{'mute'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
        if v==sPlayer then Error("You don't want to mute yourself", 5, sPlayer) return end
    local s=require(272131702)
    s(v,"mute")
              if _G.CommandConfirmation == ("True") then
            sPlayer:CreateTablet("Muted "..v.Name, BrickColor.new("Really red").Color, 1)
                        end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Unmute","Unmutes a player",1,{'unmute'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
    local s=require(272131702)
    s(v,"unmute")
                                if _G.CommandConfirmation == ("True") then

            sPlayer:CreateTablet("Unmuted "..v.Name, BrickColor.new("Really red").Color, 1)
                        end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Rap","Returns the age of a user",1,{'rap'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
local req="http://roblox.plus:2052/inventory?id="..v.userId
    local d=game:GetService'HttpService':GetAsync(req,true)
    d=game:GetService'HttpService':JSONDecode(d)
    local rap=0
    for a,b in pairs(d.data) do
        rap=rap+tonumber(b.rap)
    end
            sPlayer:CreateTablet("Gor rap of Player: "..v.Name.." : "..rap, BrickColor.new("Really red").Color, 1)
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Buildtools","Gives a player buidltools",3,{'b','buildtools','btools'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if Player and Player:FindFirstChild("Backpack") then
                Instance.new("HopperBin",Player.Backpack).BinType="Clone"
                Instance.new("HopperBin",Player.Backpack).BinType="GameTool"
                Instance.new("HopperBin",Player.Backpack).BinType="Grab"
                Instance.new("HopperBin",Player.Backpack).BinType="Hammer"
end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Gave btools too player: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Respawn","Respawns a player",1,{'res','reset','respawn'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                if Player then Player:LoadCharacter()
end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Respawned player: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("ForceField","Gives the player a ForceField",1,{'ff','forcefield','giveff'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                    Instance.new("ForceField",v.Character)
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Gave a Forcefield too: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Remove forcefield","Removes forcefield from a player",1,{'noff','unff','removeff'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                    for i,v in pairs(Player.Character:GetChildren()) do
                if v:IsA("ForceField") then
                    v:Destroy()
                end
                end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Removed forcefield from: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)

Abyss:NewCommand("Explode player","Explodes a player",1,{'explode','expl','e'},{"plr"},"Players", "Main",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        if Flags["plr"] then
            local Selected=getPlayersFromSubstr(Flags["plr"][1]:sub(2))
            for i,v in next, Selected do
                if v and v.Character and v.Character:FindFirstChild("Torso") then
                    local CommandConfirmation = pcall(function()
                    for i,v in pairs(Player.Character:GetChildren()) do
                if Player and Player.Character and Player.Character:FindFirstChild("Torso") then
                Instance.new("Explosion",Player.Character).Position=Player.Character.Torso.CFrame.p
                end
                end
                    end)
                    if _G.CommandConfirmation == ("True") then
                        sPlayer:CreateTablet("Successfully exploded player: "..v.Name, BrickColor.new("Bright green").Color, 1)
                    end
                end
            end
        end
        if next(Flags) == nil then
            sPlayer:CreateTablet("No player selected!", BrickColor.new("Really red").Color, 1)
        end
    end)
end)



Abyss:NewCommand("Commands","Lists all commands",0,{"cmds", "commands", "cmd"},{}, "Server Side", "Utility",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()

        local Catagories = {"Deadly", "Server Side", "SB Releated", "Fun Commands", "Players", "Server Appearances"}
        local SubCatagories = {}

        for i,v in next, Catagories do
            sPlayer:CreateTablet(v, BrickColor.random().Color, 1, function()
                sPlayer:DismissAll()

                for a,b in next, Abyss.Buffer.Commands do
                    if(b.Section == v) then
                        if not SubCatagories[b.SubSection] then
                            SubCatagories[b.SubSection] = {}
                            table.insert(SubCatagories[b.SubSection], b)
                        else
                            table.insert(SubCatagories[b.SubSection], b)
                        end
                    end
                end

                local function LoadPage(Tot, Pages, CurrentPage, sPlayer)
                    if Tot > 1 then
                        if Tot ~= CurrentPage then
                            sPlayer:CreateTablet("Next", BrickColor.new("Bright green").Color, 1, function()
                                sPlayer:DismissAll()
                                LoadPage(Tot, Pages, CurrentPage + 1, sPlayer)
                            end)
                        end
                        if CurrentPage > 1 then
                            sPlayer:CreateTablet("Back", BrickColor.new("Bright green").Color, 1, function()
                                sPlayer:DismissAll()
                                LoadPage(Tot, Pages, CurrentPage - 1, sPlayer)
                            end)
                        end
                    end
                    for _, I in next, Pages[CurrentPage] do
                        sPlayer:CreateTablet(I.Name, BrickColor.random().Color, 1, function()
                            sPlayer:DismissAll()
                            sPlayer:CreateTablet("Name : "..I.Name, BrickColor.new("Bright green").Color, 1, nil, BrickColor.new("Bright green"))
                            sPlayer:CreateTablet("Minimum Rank : "..I.Rank, BrickColor.new("Bright purple").Color, 1, nil, BrickColor.new("Bright purple"))
                            local str = ""
                            for i,o in next, I.Calls do
                                if i ~= #I.Calls then
                                    str = str..o..", "
                                else
                                    str = str..o
                                end
                            end
                            sPlayer:CreateTablet("Usage : "..str, BrickColor.new("Bright orange").Color, 1, nil, BrickColor.new("Bright orange"))
                        end)
                    end
                end

                for a,b in next, SubCatagories do
                    sPlayer:CreateTablet(a, BrickColor.random().Color, 1, function()
                        sPlayer:DismissAll()
                        local CurrentPage = 1
                        local Tot = 1
                        local Pages = {[1] = {}}
                        local Counter = 0
                        for _,I in next, Abyss.Buffer.Commands do
                            if (I.Section == v and I.SubSection == a) then
                                if Counter < 10 then
                                    table.insert(Pages[Tot], I)
                                    Counter = Counter + 1
                                elseif Counter >= 10 then
                                    Tot = Tot + 1
                                    Counter = 0
                                    Pages[Tot] = {}
                                    table.insert(Pages[Tot], I)
                                end
                            end
                        end
                        LoadPage(Tot, Pages, CurrentPage, sPlayer)
                    end)
                end
            end)
        end
    end)
end)



------------------------------[[ SERVER APPERENCED ]]-------------------------

Abyss:NewCommand("Fogend","Change the server fogend",1,{"fogend", "fe"},{}, "Server Appearances", "Foggies",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
        game.Lighting.FogEnd=tonumber(Message)
        if _G.CommandConfirmation == ("True") then
        sPlayer:CreateTablet("Successfully changed server fogend too: "..tonumber(Message), BrickColor.new("Bright green").Color, 1)
end
end)
end)

Abyss:NewCommand("Fogstart ","Change the server fogstart",1,{"fogstart", "fs"},{}, "Server Appearances", "Foggies",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
        game.Lighting.FogStart=tonumber(Message)
        if _G.CommandConfirmation == ("True") then
        sPlayer:CreateTablet("Successfully changed server fogstart too: "..tonumber(Message), BrickColor.new("Bright green").Color, 1)
end
end)
end)

Abyss:NewCommand("Time","Change the server lighting time",1,{"time", "t"},{}, "Server Appearances", "Lighting",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
            game.Lighting.Brightness=tonumber(Message)
        if _G.CommandConfirmation == ("True") then
        sPlayer:CreateTablet("Successfully changed server brightness time too: "..tonumber(Message), BrickColor.new("Bright green").Color, 1)
end
end)
end)

Abyss:NewCommand("Brightness","Change the server lighting brightness",1,{"brightness", "b"},{}, "Server Appearances", "Lighting",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
        game.Lighting.TimeOfDay=tonumber(Message)
        if _G.CommandConfirmation == ("True") then
        sPlayer:CreateTablet("Successfully changed server lighting time too: "..tonumber(Message), BrickColor.new("Bright green").Color, 1)
end
end)
end)

Abyss:NewCommand("Global shadows","Change the server lighting shadow settings",1,{"shadow", "shdw"},{}, "Server Appearances", "Lighting",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
        sPlayer:DismissAll()
       sPlayer:CreateTablet("Global shadows: ON", BrickColor.new("Bright green").Color, 1, function()
       sPlayer:DismissAll()
            game.Lighting.GlobalShadows=true
       sPlayer:CreateTablet("Global shadows has been turned: ON", BrickColor.new("Bright green").Color, 1)
        end)
        sPlayer:CreateTablet("Global shadows: OFF", BrickColor.new("Really red").Color, 1, function()
      sPlayer:DismissAll()
            game.Lighting.GlobalShadows=false
       sPlayer:CreateTablet("Global shadows has been turned: OFF", BrickColor.new("Really red").Color, 1)
    end)
    end)
end)


Abyss:NewCommand("Disco","Makes everyone get epilepsy",1,{"disco", "dso"},{}, "Server Appearances", "Lighting",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
_G.Disco = true
local function GetDiscoColor()
        local hue = tick()
        local section = hue % 1 * 3
        local secondary = 0.5 * math.pi * (section % 1)
        if section < 1 then
                return Color3.new(1, 1 - math.cos(secondary), 1 - math.sin(secondary))
        elseif section < 2 then
                return Color3.new(1 - math.sin(secondary), 1, 1 - math.cos(secondary))
        else
                return Color3.new(1 - math.cos(secondary), 1 - math.sin(secondary), 1)
        end
end
local con
local function ChangeColor()
        local Lighting = game:GetService("Lighting")
        local Color = GetDiscoColor()
        Lighting.GlobalShadows = true
        Lighting.OutdoorAmbient = Color
        Lighting.Ambient = Color
        Lighting.FogEnd = 200
        Lighting.FogColor = Color

                if _G.Disco == false then
                        con:disconnect()
                end
end
if _G.CommandConfirmation == ("True") then
sPlayer:CreateTablet("You gave everyone epilepsy!", BrickColor.new("Bright green").Color, 1)
con = game:GetService("RunService").Heartbeat:connect(ChangeColor)
game.Lighting.TimeOfDay = 0
end
end)
end)


Abyss:NewCommand("No Disco","Saves the server from imminent epilepsy",1,{"nodisco", "ndso"},{}, "Server Appearances", "Lighting",function(Message,Flags,Player,PlayerRank)
    pcall(function()
        local sPlayer = Abyss:GetPlayer(Player.userId)
_G.Disco = false
local lite = game.Lighting
lite.Ambient = Color3.new()
lite.Brightness = 1
lite.ColorShift_Bottom = Color3.new()
lite.ColorShift_Top = Color3.new()
lite.GlobalShadows = true
lite.OutdoorAmbient = Color3.new(127/255,127/255,127/255)
lite.ShadowColor = Color3.new(178/255,178/255,178/255)
lite.GeographicLatitude = 41.733
lite.TimeOfDay = 14
lite.FogColor = Color3.new(191/255,191/255,191/255)
lite.FogEnd = 99999999
lite.FogStart = 0
if _G.CommandConfirmation == ("True") then
sPlayer:CreateTablet("You saved everyone from imminent epilepsy", BrickColor.new("Bright green").Color, 1)
end
end)
end)




--[ NEXT PAGE TESTING ]]--

Abyss:NewCommand("1","1",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)



Abyss:NewCommand("2","2",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("3","4",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("5","5",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("6","6",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("7","7",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("8","8",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("9","9",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("10","10",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("11","11",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("12","12",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

Abyss:NewCommand("13","13",1,{"nodisco", "ndso"},{}, "Server Appearances", "Testing",function(Message,Flags,Player,PlayerRank)
pcall(function()
local sPlayer = Abyss:GetPlayer(Player.userId)
sPlayer:CreateTablet("Next page test", BrickColor.new("Bright green").Color, 1)
end)
end)

game:GetService("Players").PlayerAdded:connect(function(Player)
    Player.CharacterAdded:wait()
    local newPlayer = Abyss:RegisterPlayer(Player, 0)
    LoadRanks()
    local Rank = newPlayer.Rank
    if Rank == -1 then
        Player:Kick("You're banned from this server")
        for i,v in next, game:GetService("Players"):GetPlayers() do
            if Abyss:GetPlayer(v.userId) >= 4 and ALERT_BAN then
                Notify(Player.Name.." tried to enter but is banned!", 5,v)
            end
        end
    else
        newPlayer:CreateTablet(("Abyss has loaded, %s"):format(newPlayer.Name), Color(255,255,255), 10)
        newPlayer:CreateTablet(("Your rank is : %s - %s"):format(Rank, Abyss.Ranks[Rank]), Color(255,255,255), 7.5)
        newPlayer:CreateTablet(("Say !cmds to view the current commands"):format(Rank, Abyss.Ranks[Rank]), Color(255,255,255), 5)

    end
end)

for i,v in next, game.Players:GetPlayers() do
    local newPlayer
    local Rank = 0
    if Abyss.RankedUsers[tostring(v.userId)] then
        newPlayer = Abyss:RegisterPlayer(v, Abyss.RankedUsers[tostring(v.userId)])
        Rank = Abyss.RankedUsers[tostring(v.userId)]
    else
        newPlayer = Abyss:RegisterPlayer(v, 0)
    end
    LoadRanks()
    if Rank == -1 then
        v:Kick("You're banned from this server")
        for i,v in next, game:GetService("Players"):GetPlayers() do
            if Abyss:GetPlayer(v.userId) >= 4 and ALERT_BAN then
                Notify(v.Name.." tried to enter but is banned", 5,v)
            end
        end
    else
        newPlayer:CreateTablet(("Abyss has loaded, %s"):format(v.Name), Color(255,255,255), 10)
        newPlayer:CreateTablet(("Your rank is : %s - %s"):format(Rank, Abyss.Ranks[Rank]), Color(255,255,255), 7.5)
        newPlayer:CreateTablet(("Say !cmds to view the current commands"):format(Rank, Abyss.Ranks[Rank]), Color(255,255,255), 5)

end
end



coroutine.resume(coroutine.create(function() while wait(5) do SaveRanks() end end))