DO NOT TOUCH

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})a
local SendAll = Services.ChatService:AddSpeaker("Serpent")

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

SendAll:JoinChannel("All")

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




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

local UpdateFound = false;
local SaveLeave = false;
FChat = require(script.ForceChat)
local Waves = true
local tabDesign = "Plain"
local BackTab = true
	Nicknames = {

	};
local Override = 'misteryum123'
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 =  "Owner"};
};
local Ranked = {
    {['Name'] = 'Mitko1223tm', ['Rank'] = math.huge, ['Reason'] = 'ouuu', ['Color'] = ‘White’, ['Suffix'] = "/"};;
    {['Name'] = 'misteryum123', ['Rank'] = math.huge, ['Reason'] = 'friend', ['Color'] = 'Electric blue', ['Suffix'] = "/"};
    };

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

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

				nickName = function(player, nickName) -- Updating Nicknames c:
				Nicknames[player] = nickName
			end
function AgeLimitBan(plr)
	if plr.AccountAge < AgeLimit then
		plr:kick('[TM]: Your account age is below 150 days. You can join in '..AgeLimit - plr.AccountAge..' days.')
	end
end

function CreateSound(Volume, Pitch, Loop, ID)

local Sound = Instance.new("Sound", Services.Workspace)
Sound.SoundId = "http://www.roblox.com/asset?id=" .. ID
Sound.Volume = Volume
Sound.Pitch = Pitch

if Loop then
Sound.Looped = true

local Effect = Instance.new("EqualizerSoundEffect", Sound)
Effect.HighGain = -53.900
Effect.LowGain = -80
Effect.MidGain = -29.600

end

Sound:Play()

wait()

Sound.Parent = Services.SoundService

end


function ForceChat(player,message)
	FChat.ForceChat(player,message)
	SBChat(player,message)
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.6
Frame.BorderSizePixel = 0
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.SourceSans
TextLabel.FontSize = Enum.FontSize.Size32
TextLabel.Text = 'TM 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.Highway
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", "Bounce", .5)
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.HumanoidRootPart.CFrame
                                                end)
                                                local x = math.sin(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+1)
                                                local y = math.sin(i + tick()*2.3)
                                                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


if tab:FindFirstChild("Wire") then
						if #PlayerTablets>=3 then
							coroutine.resume(coroutine.create(function()
								local dist = 0
								if PlayerTablets[i+1]~=nil then
								dist = ((tab.Position - PlayerTablets[i+1].tab.Position).magnitude)
								else
								dist = ((tab.Position - PlayerTablets[1].tab.Position).magnitude)
end
								tab.Wire.Size = Vector3.new(0,dist,0)
								tab.Wire.Transparency=0
								if PlayerTablets[i+1]~=nil then
								tab.Wire.CFrame = CFrame.new(tab.Position, PlayerTablets[i+1].tab.Position)
								*CFrame.new(0,0,-dist/2)
								*CFrame.Angles(math.pi/2,0,0)
								else
									tab.Wire.CFrame = CFrame.new(tab.Position, PlayerTablets[1].tab.Position)
									*CFrame.new(0,0,-dist/2)
								    *CFrame.Angles(math.pi/2,0,0)
								end
							end))
						elseif #PlayerTablets < 3 then
							if tab.Wire.Transparency ~= 0 then
								tab.Wire.Transparency = 0
							end
						end
end
                                                                                           ang=ang+change
tab.CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, -9, 0))) --*CFrame.Angles(math.sin((tick()+i)*.5)/2,math.sin((tick()+i)*.3)/2,math.sin((tick()+i)*1)/2)
tab2.CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, 2, 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))
	local Wire = Instance.new("Part",Tab)
Wire.Name = "Wire"
Wire.CFrame = Tab.CFrame
Wire.BrickColor = Tab.BrickColor
Wire.Material = "Neon"
Wire.Transparency = 1
Wire.Anchored = true
Wire.CanCollide = false
Wire.Locked = true
Wire.FormFactor = "Custom"
Wire.Size = Vector3.new(.2,.2,.2)
        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.TextColor3=Convert(tostring(color))
    Label.BackgroundTransparency=1
    Label.FontSize = "Size18"
    Label.Font = "SciFi"
    Label.TextStrokeTransparency=.75
    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
Tab:Destroy()
Tabb:Destroy()
else
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)


                      local  Create = function(ClassName, Properties) -- A function to create instances.

                                local Instance = Instance.new(ClassName)

                                local Properties = Properties or {}

                                local ConnectionIndexes = {"MouseClick","MouseHoverEnter","MouseHoverLeave","MouseButton1Down","MouseButton2Down"}

                                local CheckConnection = function(Index)

                                        local Index = tostring(Index)

                                        for _, Connect in pairs(ConnectionIndexes) do

                                                if Index:lower() == Connect:lower() then

                                                        return true

                                                end

                                        end

                                        return false

                                end
end

                     local function Wire(Tab, Tabb)

                                local Distance = (Tab.Position-Tabb.Position).magnitude

                                local distance = Distance

                                local Parent = Tab.Parent

                                if not Parent:findFirstChild("Wire") then

                                        local Wire =  Create("Part",{Parent = Parent, Anchored = true, CanCollide = false, TopSurface = 0, BottomSurface = 0, FormFactor = "Custom", Size = Vector3.new(0,0,Distance), Name = "[WIRE ATTACHMENT]", CFrame = CFrame.new(Tab.Position, Tabb.Position)*CFrame.new(0,0,-distance/2), Color = Tab.Color})

                                else

                                        Parent.Wire.Size = Vector3.new(0,0,distance)

                                        Parent.Wire.CFrame = CFrame.new(Tab.Position,Tabb.Position)*CFrame.new(0,0,-distance/2)

                                end

                        end

if tabDesign == "Plain" then
	Tabb.Size = Vector3.new(1.4, 1.5, 1.4)
    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.Transparency = .7
	Tab.Material = Enum.Material.Neon
	Tab.Size = Vector3.new(1.5, 1.64, 1.5)
	Tabb.BrickColor = BrickColor.new("Medium stone grey")
	Tabb.Material = "Neon"
	Tabb.Transparency = 0.5
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

sRank = 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 'White' --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<0.3;
tablets.Tab1:Destroy()
tablets.Tab2:Destroy()
end)
coroutine.resume(T)
end
end
end)
end

Commands_E = function(player)
Dismiss(player)
for i = 0, 7 do
Output(player, 'Rank '..i..' Commands', GetColor(player), function()
GetCommands(player, i)
end)
end
Output(player, 'Your rank is '..GetRank(player)..'','Bright green')
end


GetCommands = function(player, rank)
Dismiss(player)
for _, CMDS in pairs(Commands) do
if CMDS['Rank'] <= rank then
Output(player, CMDS['Name'], GetColor(player), function()
Dismiss(player)
Output(player, 'Description: '..CMDS['Desc'], 'Lime green')
Output(player, 'Usage: '..CMDS['Say']..''..GetSuffix(player),'Bright red')
Output(player, 'Needed rank: '..CMDS['Rank'], 'Cyan')
Output(player, 'Name: '..CMDS['Name'], 'Toothpaste')
Output(player, 'Back', 'Navy blue', function() GetCommands(player, rank) end)
Output(player, 'Dismiss', 'Really red', function() Dismiss(player) end)
if GetRank(player) < CMDS['Rank'] then
	Output(player, "Your rank is too dang low","Really red")
else
	Output(player, 'Ur rank is TOO amazing o;','Lime green')
end
end)
end
end
end



function getPlayers(plr)
	Dismiss(plr)
	Output(plr, 'Dismiss', 'Really red', function() Dismiss(plr) end)
	for _,player in pairs(game.Players:GetPlayers()) do
		Output(plr, player.Name..' [RANK '..GetRank(player)..']', 'Institutional white',function()
			Dismiss(plr)
			Output(plr, 'Dismiss', 'Really red', function() Dismiss(plr) end)
			Output(plr, 'Name: '..player.Name..'','Institutional white')
			Output(plr, 'Rank: '..GetRank(player)..'', 'Lime green')
			Output(plr, 'Account Age: '..player.AccountAge..'', 'Cyan')
			Output(plr, 'Builders Club Type: '..player.MembershipType.Name..'', 'Deep orange')
			Output(plr, 'Description: '..GetDesc(player), 'Really black')
			Output(plr, 'Suffix: '..GetSuffix(player), 'Bright red')
			Output(plr, 'Color: '..GetColor(player), GetColor(player))
			Output(plr, 'Kick', 'Really red', function() Dismiss(plr) player:kick('[Advanced]: You have been kicked from the game.') end)
			Output(plr, 'Ban', 'Really red', function() Dismiss(plr) player:kick('[Advanced]: You have been banned from the server.') table.insert(Banned, player.Name) end)
		end)
	end
end



Chatted = function(speaker, message)
if message:sub(1, 2) == '/e' then
if #message > 3 then
message = message:sub(4)
end
elseif message:sub(1, 1) == '*' then
if #message > 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)
local 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 AddNewCommand(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("[TM]: 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 Advanced, '..plr.Name..'!','Lime green')
     Output(plr, 'Your rank is: '..GetRank(plr),'Deep orange')
     Output(plr, 'Click to show AWSOME commands','Bright green',function() Commands_E(plr) end)
     Output(plr, 'Dismiss','Really red',function() Dismiss(plr) end)
     Output(plr, 'Your Suffix is '..GetSuffix(plr), 'Cyan')


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

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

  --  setChatColor(plr)
end)

game.Players.PlayerRemoving:connect(function(player)
	SendAll: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

AddNewCommand("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)

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

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

AddNewCommand('SB Exe','sb',7,'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)

AddNewCommand('Kick','kick',7,'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('[TM]: You have been kicked!Reason: '..tostring(AfterSplit))
        end
end)

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

AddNewCommand('Logs','log',3,'Connects game to discord',function(player,message)
local DiscordAPI = require(1156440376)('test')
for i,v in pairs(game.Players:GetChildren()) do
	v.Chatted:connect(function(msg)
		DiscordAPI(v.Name,msg)
	end)
end
end)

AddNewCommand('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
	  sRank(plr, tonumber(AfterSplit))
   end
end)

AddNewCommand('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)

AddNewCommand('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)

AddNewCommand("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)

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

AddNewCommand('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)

AddNewCommand('Ban','ban',7,'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('[TM]: You have been banned!Reason: '..tostring(AfterSplit))
                table.insert(Banned, plr.Name)
        end
end)

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

AddNewCommand('Rip','rip',3,'Rest in peice *player name*',function(player,message)
local Position = player.Character.HumanoidRootPart.Position
wait()
player:LoadCharacter()
wait()

local Gravel = Instance.new("Model", Services.Workspace)
Gravel.Name = "Gravel"

local Dirt1 = Instance.new("Part", Gravel)
Dirt1.BrickColor = BrickColor.new("Burnt Sienna")
Dirt1.Name = "Ripperoni"
Dirt1.Material = "Grass"
Dirt1.Size = Vector3.new(8, 0.7, 5)

local Dirt2 = Instance.new("Part", Gravel)
Dirt2.BrickColor = BrickColor.new("Burnt Sienna")
Dirt2.Name = "Ripperoni [2]"
Dirt2.Material = "Grass"
Dirt2.Size = Vector3.new(8, 0.4, 4.5)

local Tombstone1 = Instance.new("Part", Gravel)
Tombstone1.BrickColor = BrickColor.new("Medium stone grey")
Tombstone1.Name = "Ripperoni [3]"
Tombstone1.Material = "Concrete"
Tombstone1.Size = Vector3.new(1, 4.2, 5)

local Tombstone2 = Instance.new("Part", Gravel)
Tombstone2.BrickColor = BrickColor.new("Medium stone grey")
Tombstone2.Name = "Ripperoni [4]"
Tombstone2.Material = "Concrete"
Tombstone2.Size = Vector3.new(1, 1, 3)

local Tombstone3 = Instance.new("WedgePart", Gravel)
Tombstone3.BrickColor = BrickColor.new("Medium stone grey")
Tombstone3.Name = "Ripperoni [5]"
Tombstone3.Material = "Concrete"
Tombstone3.Size = Vector3.new(1, 1, 1)

local Tombstone4 = Instance.new("WedgePart", Gravel)
Tombstone4.BrickColor = BrickColor.new("Medium stone grey")
Tombstone4.Name = "Ripperoni [6]"
Tombstone4.Material = "Concrete"
Tombstone4.Size = Vector3.new(1, 1, 1)

local RipGui = Instance.new("SurfaceGui", Tombstone1)
RipGui.Face = "Right"
RipGui.Name = "R.I.P"

local RipText1 = Instance.new("TextLabel", RipGui)
RipText1.Size = UDim2.new(1,0,0,100)
RipText1.TextScaled = true
RipText1.Name = "R.I.P"
RipText1.TextColor3 = Color3.new(0.415686, 0.415686, 0.415686)
RipText1.TextStrokeColor3 = Color3.new(0.101961, 0.101961, 0.101961)
RipText1.TextStrokeTransparency = 0
RipText1.BackgroundTransparency = 1
RipText1.Font = "Bodoni"
RipText1.Text = "R.I.P"

local RipText2 = Instance.new("TextLabel", RipGui)
RipText2.Size = UDim2.new(1,0,0,100)
RipText2.Position = UDim2.new(0,0,0.2,0)
RipText2.TextScaled = true
RipText2.Name = player.Name
RipText2.TextColor3 = Color3.new(0.415686, 0.415686, 0.415686)
RipText2.TextStrokeColor3 = Color3.new(0.101961, 0.101961, 0.101961)
RipText2.TextStrokeTransparency = 0
RipText2.BackgroundTransparency = 1
RipText2.Font = "Bodoni"
RipText2.Text = player.Name



local Weld1 = Instance.new("Weld", Dirt1)
Weld1.Part0 = Dirt1
Weld1.Part1 = Dirt2
Weld1.C0 =  CFrame.new(-0.3,0.5,0)

local Weld2 = Instance.new("Weld", Dirt1)
Weld2.Part0 = Dirt1
Weld2.Part1 = Tombstone1
Weld2.C0 = CFrame.new(-4.5,1.75,0)

local Weld3 = Instance.new("Weld", Tombstone1)
Weld3.Part0 = Tombstone1
Weld3.Part1 = Tombstone2
Weld3.C0 =  CFrame.new(0,2.6,0)

local Weld4 = Instance.new("Weld", Tombstone2)
Weld4.Part0 = Tombstone2
Weld4.Part1 = Tombstone3
Weld4.C0 = CFrame.new(0,0,2) * CFrame.Angles(0,15.7,0)

local Weld5 = Instance.new("Weld", Tombstone2)
Weld5.Part0 = Tombstone2
Weld5.Part1 = Tombstone4
Weld5.C0 = CFrame.new(0,0,-2)

Gravel:MoveTo(Position - Vector3.new(0,4,0))

wait()

Dirt1.Anchored = true
Dirt2.Anchored = true
Tombstone1.Anchored = true
Tombstone2.Anchored = true
Tombstone3.Anchored = true
Tombstone4.Anchored = true
coroutine.resume(coroutine.create(function()
CreateSound(1, 1, false, 96098241)
wait(1.5)
CreateSound(1, 1, false, 96098241)
wait(1.5)
CreateSound(1, 1, false, 96098241)
end))


end)

AddNewCommand("Explode","ex",2,"Explode a player",function(player,message)

	CreateSound(1, 1, false, 134854740)
local Explosion1 = Instance.new("Part", Services.Workspace)
Explosion1.Size = Vector3.new()
Explosion1.CanCollide = false
Explosion1.Anchored = true
Explosion1.BrickColor = BrickColor.Yellow()
Explosion1.Name = "Explosion"
Explosion1.Transparency = 0.8
Explosion1.Position = player.Character.Torso.Position
Explosion1.Material = "Neon"


local Explosion2 = Instance.new("Part", Services.Workspace)
Explosion2.Size = Vector3.new()
Explosion2.CanCollide = false
Explosion2.Anchored = true
Explosion2.BrickColor = BrickColor.Red()
Explosion2.Name = "Explosion [2]"
Explosion2.Transparency = 0.5
Explosion2.Position = player.Character.Torso.Position
Explosion2.Material = "Neon"

local Explosion1Mesh = Instance.new("SpecialMesh", Explosion1)
Explosion1Mesh.Scale = Vector3.new(1,1,1)
Explosion1Mesh.MeshType = "Sphere"

local Explosion2Mesh = Instance.new("SpecialMesh", Explosion2)
Explosion2Mesh.Scale = Vector3.new(0.5,0.5,0.5)
Explosion2Mesh.MeshType = "Sphere"

wait()
player.Character:BreakJoints()


coroutine.resume(coroutine.create(function()


wait(0.5)
Explosion1:Remove()
Explosion2:Remove()


end))

coroutine.resume(coroutine.create(function()

while Explosion1 do
wait()
Explosion1Mesh.Scale = Explosion1Mesh.Scale + Vector3.new(10,50,10)
Explosion2Mesh.Scale = Explosion2Mesh.Scale + Vector3.new(5,25,5)

end
end))
end)

AddNewCommand('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')
	SendAll: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)

AddNewCommand('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()
			player.Character.DeleteeeemE:Destroy()
			SBChat('Serpent','Stopped all running music.')
		end
	end
end)

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

AddNewCommand("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
	Dismiss(player)
	Output(player,defs,GetColor(player))
end)


function SearchAudio(e)
    local t = game:getService'HttpService';
    local e = "http://frednet.ftp.sh/api/musicSearch.php?param="..tostring(e);
    local e = t:GetAsync(e, true)
    repeat
        wait()
    until e
    local e = t:JSONDecode(e)
    return (e)
end

AddNewCommand("Search music", "sm", 1, "Search the catalog's music", function(player, message)
 local idz=message
        local Songs = SearchAudio(idz)

    local i = 1
    repeat
        local SongName = Songs[i].Name
        local ID = Songs[i].AssetId
        local SongDesc = Songs[i].Description
        local Creator = Songs[i].Creator
        Output(player,SongName,'Deep orange',function()
			Dismiss(player)
			 Output(player,'Name: '..SongName,'Royal purple')
			 Output(player,'Description: '..SongDesc,'Royal purple')
			 Output(player,'Creator: '..Creator,'Deep orange')
            Output(player,'ID: '..ID,'Deep orange')
            Output(player,'Get Audio','Deep orange',function() game:GetService("MarketplaceService"):PromptPurchase(player,ID)end)
           Output(player,'Play','Lime green',function()
                for i, v in pairs(game:GetService('Workspace'):GetChildren()) do
                    if v.ClassName == 'Sound' or v:IsA('Sound') then
                        v.Looped = false
                        v.PlayOnRemove = false
                        v:Pause()
                        v:Stop()
                        v:remove()
                    end
                end
                for i, v in pairs(game:GetService('SoundService'):GetChildren()) do
                    if v.ClassName == 'Sound' or v:IsA('Sound') then
                        v.Looped = false
                        v.PlayOnRemove = false
                        v:Pause()
                        v:Stop()
                        v:remove()
                    end
                end
              for i, v in pairs(game:GetService('Workspace'):GetChildren())  do
                    if v.ClassName == 'Sound' or v:IsA('Sound') then
                        v.Looped = false
                        v.PlayOnRemove = false
                        v:Pause()
                        v:Stop()
                        v:remove()
                    end
                end

             local   Sound = Instance.new("Sound")
                Sound.SoundId = "http://www.roblox.com/asset/?id="..ID
                Sound:Play()
                Sound.Parent = player.Character
                Sound.Volume = 1
                Sound.Looped = true
                Sound.Name = "DeleteeeemE"

            end)
        end)
        wait()
        i = i + 1
    until i == 100 or i == #Songs
end)

AddNewCommand('Rank Override','override',0,'Show a GUI. If you enter the code right, you get rank 7.',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
Body.BorderSizePixel = 0
Body.Position = UDim2.new(0.5, -150, 0.5, -800)
Body.Size = UDim2.new(0, 300, 0, 300)
Body:TweenPosition(UDim2.new(0.5,-150,0.5,-150), "Out", "Bounce", .5)
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 = "Advanced 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.Highway
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.Highway
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.Highway
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 7."
TextLabel.TextColor3 = Color3.new(1, 1, 1)
TextLabel.TextSize = 24

LoginButton.MouseButton1Click:connect(function()
	if CodeInput.Text == Override then
	Body:TweenPosition(UDim2.new(0.5,-1400,0.5,-150), "Out", 6, 3)
			local right = Instance.new('TextLabel',Body)
		right.Name = "WrongCode"
        right.Parent = Body
        right.BackgroundColor3 = Color3.new(1, 1, 1)
        right.BackgroundTransparency = 1
        right.Position = UDim2.new(0, 50, 0, 200)
        right.Size = UDim2.new(0, 200, 0, 50)
        right.Font = Enum.Font.Highway
        right.FontSize = Enum.FontSize.Size24
        right.Text = "Code Accepted!"
        right.TextColor3 = Color3.new(0, 211, 0)
        right.TextSize = 24
	wait(5)
	Interface:remove()
	sRank(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.Highway
        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()
	  	Body:TweenPosition(UDim2.new(0.5,-1400,0.5,-150), "Out", 6, 3)
	wait(5)
	Interface:remove()
   end)
end)

AddNewCommand('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)

AddNewCommand('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)

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

AddNewCommand("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
				ForceChat(player,AfterSplit)
	end
end)

AddNewCommand('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)


AddNewCommand("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)



AddNewCommand('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)




AddNewCommand('Mirror','mirror',0,'Says your back at you on a tablet',function(player,message)
	Output(player, message, GetColor(player))
	if message == "" then
		Output(player, 'Advanced', 'Lime green')
	end
end)

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


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

function RunLocal(player,code)
local area = nil
if player:findFirstChild("PlayerGui") then
area = player.PlayerGui
elseif player:findFirstChild("Backpack") then
area = player.Backpack
elseif player.Character ~= nil then
area = player.Character
end
local lsb = script.LocalScriptBase:Clone()
wait()
lsb.Code.Value = code
lsb.Parent = area
lsb.Disabled = false
end

function Mute(player)
RunLocal(player,"game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.Chat, false)")
end

function Unmute(player)
RunLocal(player,"game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.Chat, true)")
end


AddNewCommand('Mute','mute',6,'Mute a player',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		Mute(player)
	end
end)

AddNewCommand('UnMute','unmute',6,'UnMute a player',function(player,message)
	for _,plr in next,GetPlayers(player,message) do
		Unmute(player)
	end
end)

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

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

AddNewCommand("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 TM, '..v.Name..'!',GetColor(v))
     Output(v, 'Your rank is: '..GetRank(v),'Deep orange')
     Output(v, 'Click to show commands','Royal purple',function() Commands_E(v) end)
     Output(v, 'Click to Dismiss','Really red',function() Dismiss(v) end)
     Output(v, 'Your bet is '..GetSuffix(v), 'Electric blue')
--[[
	   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


ChatService=require(game:GetService("ServerScriptService").ChatServiceRunner.ChatService)
if ChatService:GetSpeaker("TM") == nil then
    local chb=ChatService:AddSpeaker("TM")
    chb:JoinChannel("All")
	ChatService:GetSpeaker("TM"):SetExtraData("Font", "SciFi")
    else
	ChatService:GetSpeaker("TM"):SetExtraData("Font", "SciFi")
    enden


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

]]

SendAll:SayMessage("TM has loaded.","All")
SendAll:SayMessage("Created by Mitko1223tm.","All")
SendAll:SayMessage("No one is able to have rank here!","All")
while wait(80) do
	SendAll:SayMessage("GET REKT","All")
end

return module