-- Last orb by 12GaugeNick
-- Binary-Orb

-- (Yes, I am a NVIDIA fanboy. Get over it.)
-- Tribute to all White Hat Hackers out there. :)


-- 420208851

																																																--[[
01010111011010000110000101110100001111110010000001000100011011110110111001110100001000000111010101101110011001000110010101110010011100110111010001100001011011100110010000111111
00100000010101110110010100100000011000010111001001100101001000000111011101100001011101000110001101101000011010010110111001100111001000000111100101101111011101010010110000100000
01010111||------||011001||------||010011000110010101/___\1000010111011001100||----------------------||001011||-------||   /---------/010010000110000101101000011000010110100001100001
01010110||011001||101001||100110||10010110101010101/10110\101 PASSWORD 01010||1100010100011010110111||110101||0010111||  /001010101/010010000110000101101000011000010110100001100001
01100100||110101||010111||110100||1010100100011011/0010010\01010101100111001||10101 WATCHING 1001010||001011||0010101||	/110101011/010010000110000101101000011000010110100001100001
00101010||001010||100111||001001||001010101010110/100100110\0010101000110101||1010101001010100011010||001011||1101011||/001010001/010010000110000101101000011000010110100001100001
00101000||100111||------||001001||1 USERNAME 001/101 ARE 001\110101111011001||1101011-----------------011011||110101001111111010/010010000110000101101000011000010110100001100001
01001011||0111011101100101001010||0100001010101/0010101000111\00100011100011||001101|00110101010111101010101||10011 YOU 0010100/010010000110000101101000011000010110100001100001
00100100||10101010 WE 0101101001||011010101011/11010/__\001001\1101000111111||110101|10 EXPLOITS 00101011011||01101001001111111|011000010111001101100100 BINARY 0100111001001111
00101100||0100111001101111001011||11010000101/01001/1011\001001\001010101001||001010|10111101001110101000111||10010111110100101|01010011011000110110000101110010011001010110010000111111
01101111||101001||------||110010||1101010001/00100/011101\001001\10101001101||110010|10101110100111101010101||110100010101011101\010000100110010101110111011000010111001001100101
00100101||001001||111001||110000||010010011/00101/_______ \110101\0011111011||001010-----------------||00101||0010111||\110101000\010010000110000101101000011000010110100001100001
00100100||110101||110010||111101||11101010/11101/0100010101\001011\110100111||00011010111010001101101||11011||0010111||	\001010101\010010000110000101101000011000010110100001100001
00000010||000101||001010||110101||1101000/00101/110011101011\110101\00101001||11010110001101111010001||00111||0010110||	 \110101001\010010000110000101101000011000010110100001100001
10001001||------||101110||------||001010/-----/11010110001010\------\1101011||-----------------------||10100||-------||   \---------\010010000110000101101000011000010110100001100001
00110001001100100100011101100001011101010110011101100101010011100110100101100011011010110010110000100000011101110110000101110011001000000110100001100101011100100110010100101110
010010010110110100100000011101110110000101110100011000110110100001101001011011100110011100100000011101000110100001101001011100110010000001101111011100100110001000101110 BEWARE.				--]]


wait()

local r,e=ypcall(function()

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

local Owner				="12GaugeNick" -- Orb owner name
local StartUp			=tick()
local OrbAllowed		=true
local ORB;
ORB={
	NetworkPort			=0;

	Ranks				={
		[5] = 'Owner',
		[4] = 'Trusted',
		[3] = 'Developer',
		[2] = 'Mod',
		[1] = 'Member',
		[0] = 'Guest',
		[-.5] = 'Muted',
		[-1] = 'Banned',
		[-2] = 'Obama banned',
		[-3] = '666 your fucked'
	},


	Services			={
		TeleportService=game:GetService("TeleportService");
		NetworkServer=game:FindService("NetworkServer") or "Studio";
		Workspace=workspace;
		Players=game.Players;
		HttpService=game.HttpService;
		RunService=game:GetService("RunService");
		ReplicatedStorage=game.ReplicatedStorage;
		LogService=game.LogService;
		MarketplaceService=game.MarketplaceService;
		DataStore=game:GetService("DataStoreService");
	};
	Threads				={
		Index=0;
		Threading={}
	};

	Commands			={};
	Loopkilled			={};
	Logs				={
		ScriptQuery={};
		Errors={};
		Http={};
	};

	Orb					=nil;
	OrbTrail			={};

	PrivateServer		={
		Enabled = false,
		Mode = "",
		Modes = {
			"Playeradded", -- PlayerAdded -> :Kick(player)
			"Friends", -- PlayerAdded -> if NOT friend -> :Kick(player)

		},
	};
	Version				="0.1.2";

	SavedAudio			={};

	AgeNeeded			={
		Age=20;
		Enabled=true;
	};
	Bets				={
		Prefix="/";
		Suffix=""
	};
	PrivateServer		={
		Whitelist={};
		Mode={
			['PlayerAdded']=false;
			['Friends']=false;
			['Followers']=false;
			['Whitelist']=true;
		};
		Enabled=false;
	};
	ScriptLock			={
		Whitelist={};
		Enabled=false;
	};

	Uptime				={
		Seconds=0;
		Minutes=0;
		Hours=0;
	};

	OutputSettings		={
		['Error']=true;
		['Warning']=true;
		['Print']=true
	};
	OutputFilter		={"deprecated";"FormFactor";"waitForChild";"waitforChild";"service";"getService";"httpPost";"http 404";"http/1.1 301";"NewLocal";"httpGet https://data.roblox.com/Per";"ClassDescriptor";"failed to learn";"locked part";};

	IRC_Event			=Instance.new("BindableEvent");
	Nil_Event			=AddInstance("RemoteEvent",{
		Parent=game.ReplicatedStorage;
		Name="Nil_Event"
	});
	Gui_Event			=AddInstance("RemoteEvent",{
		Parent=game.ReplicatedStorage;
		Name="Gui_Event"
	});

	DataStore			=require(script:WaitForChild("DataStore")),
	Gui_Local			=require(script:WaitForChild("GuiString")),
	APIs				=require(script:WaitForChild("APIs")),
	IRC_Bind			=nil, --require(script:FindFirstChild("IRC",true) or 482725307),
	Logger				=require(693814746),

	ClientSideLocal		=script:WaitForChild("ClientSide"),
	SpectrumLocal		=script:WaitForChild("Spectrum"),

	Trash				={};

	HTTP				={
		_POST = function(...)
			table.insert(ORB.Logs.Http, "_POST: "..tostring(...))
			return(ORB.Services.HttpService:PostAsync(...))
		end;
		_GET = function(...)
			table.insert(ORB.Logs.Http, "_GET: "..tostring(...))
			return(ORB.Services.HttpService:GetAsync(...))
		end;
		JSONDecode=function(...)
			table.insert(ORB.Logs.Http, "JSONDecode: "..tostring(...))
			return(ORB.Services.HttpService:JSONDecode(...))
		end;
		JSONEncode=function(...)
			table.insert(ORB.Logs.Http, "JSONEncode: "..tostring(...))
			return(ORB.Services.HttpService:JSONEncode(...))
		end;
		UrlEncode=function(...)
			return(ORB.Services.HttpService:UrlEncode(...))
		end
	};
}

ORB.Gui_Event.Changed:connect(function()
	if ORB.Gui_Event.Parent ~= game:GetService("ReplicatedStorage") then
		ORB.Gui_Event = AddInstance("RemoteEvent",{
			Parent=game.ReplicatedStorage;
			Name="Gui_Event"
		});
	end
end)

local Thread = function(Func)
	local _Thread=coroutine.resume(coroutine.create(Func));
	table.insert(ORB.Threads.Threading, _Thread);
	ORB.Threads.Index=ORB.Threads.Index+1
end

local CHAT_TABLE,CMD_TABLE,oxFunc = {
	['Oxcool1'] = function(Title, Message)
		for _,plr in next,game.Players:GetPlayers() do
			local val=AddInstance("StringValue",{
				Name="SB_Chat";
				Parent=plr;
				Value=tostring(Title).."/"..tostring(Message)
			})
			game.Debris:AddItem(val,0)
		end
	end;
	['CleverSourceChat'] = function(Title, Message)
		local SB=game:service('ReplicatedStorage'):WaitForChild('SB_Remote')
		for _,v in next,game.Players:GetPlayers() do
			SB:InvokeClient(v, "Chat", {PlayerName = Title, Text = Message, PlayerNameColor3 = Color3.new(1, 186/255, 46/255), TxtColor3 = Color3.new(64/255, 198/255, 1/255)})
		end
	end
},{
	['Oxcool1'] = function(Player, Code)
		Thread(function()
			local PlayerGui 		=Player:WaitForChild("PlayerGui")
			local DataTransfer 		=PlayerGui:WaitForChild("SB_DataTransfer")
			local Remote			=DataTransfer:WaitForChild("SB_CommandRemote")
			Remote.Value 			="l/"..tostring(Code)
			return("Executed")
		end)
	end;
	['CleverSource'] = function(Player, Code)
		Thread(function()
			if _G.newLocal~=nil then
				_G.newLocal(Player, Code)
			else
				warn("Unable to find _G.newLocal")
			end
		end)
	end;
},function(Player, Code)
	Thread(function()
		local PlayerGui 		=Player:WaitForChild("PlayerGui")
		local DataTransfer 		=PlayerGui:WaitForChild("SB_DataTransfer")
		local Remote			=DataTransfer:WaitForChild("SB_CommandRemote")
		Remote.Value 			=tostring(Code)
		return("Executed")
	end)
end;
local Chat = function(Title, Message)
	if game.PlaceId == 341830777 then -- Clever Source
		CHAT_TABLE.CleverSourceChat(Title, Message)
	elseif game.PlaceId == 20279777 or game.PlaceId == 437965235 then -- Oxcool1
		CHAT_TABLE.Oxcool1(Title, Message)
	else
		warn("Unable to identify chat!")
	end
end
local NLS = function(Player, Code)
	if game.PlaceId == 341830777 then -- Clever Source
		CMD_TABLE.CleverSource(Player, Code)
	elseif game.PlaceId == 20279777 or game.PlaceId == 437965235 then -- Oxcool1
		CMD_TABLE.Oxcool1(Player, Code)
	else
		warn("Unable to identify chat!")
	end
end

if ORB.IRC_Bind~=nil then
	ORB.IRC_Bind.Event:connect(function(Table)
		if Table.User ~= nil then
			local User = Table.User
			local Message = Table.Message
			if User and Message then
				Chat(User, Message)
			end
		end
	end)
end
-- Guis --
function ORB:sendGui(p, Type, DataTable, Function)
	if p == nil or p == "All" then
		ORB.Gui_Event:FireAllClients({Type, DataTable})
	else
		ORB.Gui_Event:FireClient(game.Players[tostring(p)], {Type, DataTable})
	end
end
function sendQuestion(p, Title, Desc, Responce1, Responce2, Function)
	local event=AddInstance("RemoteEvent",{Parent=game.Lighting})
	ORB:sendGui(p, "Question", {Title, Responce1, Responce2, Desc, event})
	event.OnServerEvent:connect(function(p,Responce)
		Function(p,Responce)
	end)
end
function addConsole(p)
	ORB:sendGui(p,"addConsole")
end
function sendTable(p, Title, Table, Event, Type)
	ORB:sendGui(p, "openTable", {Title, Table, Event, Type}) -- sending -> sendTable(p, "Search music", result, event, "Music")
end
function sendMessage(p, Owner, Message)
	ORB:sendGui(p, "Message", {Owner, Message})
end

function playSong(Message)
	for _,p in next,game.Players:GetPlayers() do
		local Val = Instance.new('StringValue')
		Val.Value = Message
		Val.Name = 'B_SOUND'
		Val.Parent = p
		delay(wait(),function()
			Val:Destroy()
		end)
	end
	sendMessage(nil,"Song Playing", ORB.Services.MarketplaceService:GetProductInfo(tonumber(Message)).Name)
end

function NilKick(plr)
	local event=AddInstance("RemoteEvent",{Parent=plr,Name="Bye bye!"})
	event:FireClient(plr,{[string.rep("a",2e5+5)]="a"})
end

function getSinglePlayer(m)
	for i,v in pairs(game:service'Players':GetPlayers()) do
		if v.Name:lower():sub(1,5):find(m:lower()) then
			return v
		end
	end
	return nil
end

local getPlayer=function(Plr,Msg)
	local ReturnedTable={}
	Msg = Msg:lower():sub(2)
	if Msg:lower()=='me' or Msg=='' then table.insert(ReturnedTable,Plr)
	elseif Msg:lower()=='all' then coroutine.wrap(function() for _,v in pairs(game.Players:GetPlayers()) do table.insert(ReturnedTable,v) end end)()
	elseif Msg:lower()=='others' then for _,v in pairs(game.Players:GetPlayers()) do if v.Name~=Plr.Name then table.insert(ReturnedTable,v) end end
	elseif Msg:lower()=='friends' then for _,v in pairs(game.Players:GetPlayers()) do if v:IsFriendsWith(Plr.userId) then table.insert(ReturnedTable,v) end end
	elseif Msg:lower()=='bestfriends' then for _,v in pairs(game.Players:GetPlayers()) do if v:IsBestFriendsWith(Plr.userId) then table.insert(ReturnedTable,v) end end
	elseif Msg:lower()=='nonfriends' then for _,v in pairs(game.Players:GetPlayers()) do if not v:IsFriendsWith(Plr.userId) then table.insert(ReturnedTable,v) end end
	elseif Msg:lower()=='nonbestfriends' then for _,v in pairs(game.Players:GetPlayers()) do if not v:IsBestFriendsWith(Plr.userId) then table.insert(ReturnedTable,v) end end
	elseif Msg:lower()=='nbc' then for _,v in pairs(game.Players:GetPlayers()) do if v.MembershipType == Enum.MembershipType.None then table.insert(ReturnedTable,v) end end
	elseif Msg:lower()=='tbc' then for _,v in pairs(game.Players:GetPlayers()) do if v.MembershipType == Enum.MembershipType.TurboBuildersClub then table.insert(ReturnedTable,v) end end
	elseif Msg:lower()=='obc' then for _,v in pairs(game.Players:GetPlayers()) do if v.MembershipType == Enum.MembershipType.OutrageousBuildersClub then table.insert(ReturnedTable,v)end end
	elseif Msg:lower()=='anybc' then for _,v in pairs(game.Players:GetPlayers()) do if v.MembershipType==Enum.MembershipType.BuildersClub then elseif v.MembershipType==Enum.MembershipType.TurboBuildersClub then elseif v.MembershipType==Enum.MembershipType.OutrageousBuildersClub then table.insert(ReturnedTable,v) end end
	else for _,v in pairs(game.Players:GetPlayers()) do local NM=v.Name:lower() local Msg=Msg:lower() if NM:sub(1,5):lower():find(Msg) then table.insert(ReturnedTable,v) end end end
	wait()
	return ReturnedTable
end

NewChar = function(plr,id)
	plr.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..id
	ResetCharacter(plr)
end

CheckForBan = function(plr)
	local rank = ORB.DataStore:getRank(plr)
	if rank <= -1 then
		return true
	else
		return false
	end
end

ResetCharacter = function(plr)
	local cx = nil
	local cy = nil
	local cz = nil
	if plr.Character then
		cx = plr.Character.Torso.Position.X
		cy = plr.Character.Torso.Position.Y
		cz = plr.Character.Torso.Position.Z
		plr:LoadCharacter()
		plr.Character:WaitForChild('Torso')
		plr.Character:MoveTo(Vector3.new(cx,cy,cz))
	end
end

local getSplit = function(String)
	local SubBet = String:find(";")
	local Bet1 = String:sub(0,SubBet-1)
	local Bet2 = String:sub(SubBet+1)
	return {Bet1, Bet2}
end

-- addCommand --
local addCommand = function(Table)
	table.insert(ORB.Commands, Table)
end
-- Commands	--
addCommand({
	Command = "noaorb",
	Rank = 2,
	Function = function(p,m)
		Instance.new('Model',workspace).Name = 'l0l'
	end
})
addCommand({
	Command = "grank";
	Rank = 1;
	Function = function(p,m)
		local plr = getSinglePlayer( tostring(m):sub(2) )
		local ranked = nil
		if plr == nil then
			ranked = ORB.DataStore:getRank( tostring(m):sub(2) )
		else
			ranked = ORB.DataStore:getRank( tostring(plr) )
		end
		if ranked ~= nil then
			sendMessage(p, tostring(m), ranked)
		else
			sendMessage(p, "Command-Error", "Unable to find user "..tostring(m):sub(2).."!")
		end
	end
})
addCommand({
	Command = "nrank";
	Rank = 3;
	Function = function(p,m)
		local Data = getSplit(m)
		 local plr = Data[1]:sub(2)
		 local rank = Data[2]
		local result = ORB.DataStore:setNilUserRank(plr, rank)
		sendMessage(p, "Ranking", result)
	end
})
addCommand({
	Command = "unban";
	Rank = 3;
	Function = function(p,m)
		local result = ORB.DataStore:setNilUserRank(m:sub(2), 0)
		sendMessage(p, "Ranking", result)
	end
})
addCommand({
	Command = "ban";
	Rank = 3;
	Function = function(p,m)
		local plrs = getPlayer(p, m)
		local users = ""
		for _,v in next,plrs do
			users = users..tostring(v)..","
			ORB.DataStore:setRank(v, -1)
			v:Kick("Banned on Binary-Orb!")
		end
		sendMessage(nil,"Ranking", "Banned users: "..tostring(users):sub(0,#users-1))
	end
})
addCommand({
	Command = "rank";
	Rank = 4;
	Function = function(p,m)
		local Data = getSplit(m)
		 local plrs = getPlayer(p, Data[1]:sub(2))
		 local rank = Data[2]
		for _,v in next,plrs do
			ORB.DataStore:setRank(v, rank)
		end
	end
})
addCommand({
	Command = "sky";
	Rank = 1;
	Function = function(p,m)
		game.Lighting:ClearAllChildren()
		repeat wait() until #game.Lighting:GetChildren()==0
		local id = "rbxassetid://"..tostring(m-1)
		local s=AddInstance("Sky",{
			SkyboxBk=id,
			SkyboxDn=id,
			SkyboxFt=id,
			SkyboxLf=id,
			SkyboxRt=id,
			SkyboxUp=id,
			Parent=game.Lighting
		})
	end
})
addCommand({
	Command = "h";
	Rank = 1;
	Function = function(p,m)
		sendMessage(nil,p.Name, tostring(m))
	end
})
addCommand({
	Command = "shadows";
	Rank = 1;
	Function = function(p,m)
		if game.Lighting.GlobalShadows == true then
			game.Lighting.GlobalShadows = false
		else
			game.Lighting.GlobalShadows = true
		end
		sendMessage(nil,"GlobalShadows", "Toggled to: "..tostring(game.Lighting.GlobalShadows))
	end
})
addCommand({
	Command = "outlines";
	Rank = 1;
	Function = function(p,m)
		if game.Lighting.Outlines == true then
			game.Lighting.Outlines = false
		else
			game.Lighting.Outlines = true
		end
		sendMessage(nil,"Outlines", "Toggled to: "..tostring(game.Lighting.Outlines))
	end
})
addCommand({
	Command = "brightness";
	Rank = 1;
	Function = function(p,m)
		game.Lighting.Brightness = tonumber(m)
	end
})
addCommand({
	Command = "time";
	Rank = 1;
	Function = function(p,m)
		game.Lighting.TimeOfDay = tonumber(m)
	end
})
addCommand({
	Command = "fogend";
	Rank = 1;
	Function = function(p,m)
		game.Lighting.FogStart = tonumber(m)
	end
})
addCommand({
	Command = "fogstart";
	Rank = 1;
	Function = function(p,m)
		game.Lighting.FogStart = tonumber(m)
	end
})
--ORB.SpectrumLocal
addCommand({
	Command = "kick";
	Rank = 4;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v then
				v:Kick("[BinaryOrb]: Why?")
			end
		end
	end
})
addCommand({
	Command = "spectrum";
	Rank = 0;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v then
				local Local = ORB.SpectrumLocal:Clone()
				Local.Parent = v:WaitForChild("PlayerGui")
				Local.Disabled = false
			end
		end
	end
})
addCommand({
	Command = "sit";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				pcall(function()
					v.Character.Humanoid.Sit = true
				end)
			end
		end
	end
})
addCommand({
	Command = "jump";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				pcall(function()
					v.Character.Humanoid.Jump = true
					v.Character.Humanoid.PlatformStand = false
				end)
			end
		end
	end
})
addCommand({
	Command = "stun";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				pcall(function()
					v.Character.Humanoid.PlatformStand = true
				end)
			end
		end
	end
})
addCommand({
	Command = "skydive";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				if v.Character.Torso~=nil then
					v.Character.Torso.CFrame=CFrame.new(v.Character.Torso.CFrame.X,9999,v.Character.Torso.CFrame.Z)
					v.Character.Torso.CanCollide=false
				end
			end
		end
	end
})
addCommand({
	Command = "minihead";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				if v.Character.Head~=nil then
					v.Character.Head.Mesh.Scale = Vector3.new(.76,.76,.76)
					v.Character.Torso.Neck.C0 = CFrame.new(0,.8,0) * CFrame.Angles(math.rad(90),math.rad(180),0)
				end
			end
		end
	end
})
addCommand({
	Command = "bighead";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				if v.Character.Head~=nil then
					v.Character.Head.Mesh.Scale = Vector3.new(3,3,3)
					v.Character.Torso.Neck.C0 = CFrame.new(0,1.9,0) * CFrame.Angles(math.rad(90),math.rad(180),0)
				end
			end
		end
	end
})
addCommand({
	Command = "ff";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				Instance.new("ForceField",v.Character)
			end
		end
	end
})
addCommand({
	Command = "ungod";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				pcall(function()
					v.Character.Humanoid.Health=100
					v.Character.Humanoid.MaxHealth=100
				end)
			end
		end
	end
})
addCommand({
	Command = "god";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				pcall(function()
					v.Character.Humanoid.MaxHealth=math.huge
				end)
			end
		end
	end
})
addCommand({
	Command = "heal";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				pcall(function()
					v.Character.Humanoid.Health=100
				end)
			end
		end
	end
})
addCommand({
	Command = "thaw";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				for _,vp in pairs(v.Character:GetChildren()) do
					if vp.ClassName == 'Part' then
						vp.Anchored=false
					end
				end
			end
		end
	end
})
addCommand({
	Command = "freeze";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				for _,vp in pairs(v.Character:GetChildren()) do
					if vp.ClassName == 'Part' then
						vp.Anchored=true
					end
				end
			end
		end
	end
})
addCommand({
	Command = "unsparkles";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				for _,vp in pairs(v.Character:GetChildren()) do
					if vp.ClassName == 'Part' then
						pcall(function()
							vp.Sparkles:Destroy()
						end)
					end
				end
			end
		end
	end
})
addCommand({
	Command = "sparkles";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				for _,vp in pairs(v.Character:GetChildren()) do
					if vp.ClassName == 'Part' then
						local fire = Instance.new('Smoke',vp)
					end
				end
			end
		end
	end
})
addCommand({
	Command = "unsmoke";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				for _,vp in pairs(v.Character:GetChildren()) do
					if vp.ClassName == 'Part' then
						pcall(function()
							vp.Smoke:Destroy()
						end)
					end
				end
			end
		end
	end
})
addCommand({
	Command = "smoke";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				for _,vp in pairs(v.Character:GetChildren()) do
					if vp.ClassName == 'Part' then
						local fire = Instance.new('Smoke',vp)
					end
				end
			end
		end
	end
})
addCommand({
	Command = "unfire";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				for _,vp in pairs(v.Character:GetChildren()) do
					if vp.ClassName == 'Part' then
						pcall(function()
							vp.Fire:Destroy()
						end)
					end
				end
			end
		end
	end
})
addCommand({
	Command = "fire";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			if v.Character then
				for _,vp in pairs(v.Character:GetChildren()) do
					if vp.ClassName == 'Part' then
						local fire = Instance.new('Fire',vp)
					end
				end
			end
		end
	end
})
addCommand({
	Command = "explode";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			local e = Instance.new('Explosion',v.Character)
			e.Position = v.Character.Position
		end
	end
})
addCommand({
	Command = "char";
	Rank = 1;
	Function = function(p,m)
		NewChar(p,tonumber(m))
	end
})
addCommand({
	Command = "reset";
	Rank = 1;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			spawn(function()
				ResetCharacter(v)
			end)
		end
	end
})
addCommand({
	Command = "mute";
	Rank = 2;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			NLS(v,[[game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.All, false)]])
		end
	end
})
addCommand({
	Command = "unmute";
	Rank = 2;
	Function = function(p,m)
		local Players = getPlayer(p,m)
		for _,v in next,Players do
			NLS(v,[[game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.All, true)]])
		end
	end
})
addCommand({
	Command = "sound";
	Rank = 1;
	Function = function(p,Message)
		playSong(Message)
	end
})
addCommand({
	Command = "con";
	Rank = 2;
	Function = function(p,m)
		addConsole(p)
	end
})
addCommand({
	Command = "sd";
	Rank = 4;
	Function = function(p,m)
		for _,v in next,game.Players:GetPlayers() do
			v:Kick("Server has shutdown")
		end
		game.Players.PlayerAdded:connect(function(p)
			p:Kick("Server has shutdown")
		end)
	end
})
addCommand({
	Command = "cmds";
	Rank = 0;
	Function = function(p,Message)
		local cmds = {}
		local rank = (ORB.DataStore:getRank(p) or 0)
		for i = 1,#ORB.Commands,1 do
			local cmd_old = ORB.Commands[i].Command:lower()
			local _cmd = cmd_old:sub(1,1):upper()
			local cmd = _cmd..cmd_old:sub(2)
			local cRank = ORB.Commands[i].Rank
			if rank >= cRank then
				table.insert(cmds, "/"..cmd)
			end
		end
		sendTable(p, "Binary Orb Commands", cmds)
	end
})
addCommand({
	Command = "net";
	Rank = 1;
	Function = function(p,m)
		local net = {}
		local event = AddInstance("RemoteEvent",{Parent=game.Lighting,Name="MusicSearch"})
		for _,v in next,ORB.Services.NetworkServer:GetChildren() do
			if v and v.ClassName == "ServerReplicator" then
				local plr = v:GetPlayer()
				if plr then
					if plr.Parent~=game.Players then
						table.insert(net, "(Nil) "..plr.Name)
					else
						table.insert(net, plr.Name)
					end
				end
			end
		end
		sendTable(p, "Network",net,event, "Network")
		event.OnServerEvent:connect(function(p,m)
			for _,v in next,ORB.Services.NetworkServer:GetChildren() do
				if v and v.ClassName == "ServerReplicator" then
					local plr = v:GetPlayer()
					if plr then
						if plr.Parent~=game.Players then
							NilKick(plr)
						end
					end
				end
			end
		end)
	end
})
addCommand({
	Command = "req";
	Rank = 2;
	Function = function(p,m)
		pcall(function()
			require(tonumber(m))
		end)
	end
})
addCommand({
	Command = "set";
	Rank = 0;
	Function = function(p,m)
		if m:lower():sub(1,6) == "-allow" then
			OrbAllowed = (not OrbAllowed)
		end
	end
})
addCommand({
	Command = "sm";
	Rank = 1;
	Function = function(p,m)
		local event = AddInstance("RemoteEvent",{Name="MusicSearch",Parent=game.ReplicatedStorage})
		local result = ORB.APIs.SearchAudio(m)
		sendTable(p, "Search music", result, event, "Music")
		event.OnServerEvent:connect(function(p,ID)
			playSong(ID)
		end)
	end
})
addCommand({
	Command = "clean";
	Rank = 1;
	Function = function(p,Message)
		local Blacklisted={
			"Terrian";
			"Baseplate";
			"Base";
			"DefaultChatSystemChatEvents";
			"DefaultServerSoundEvent";
			"OCServer";
			"Nil_Event";
			"Gui_Event";
			"BluringEffect";
			"Nethex";
			"Tha'kiel";
			"md1";
			"beamy";

		}
		local Services={
			workspace;
			game.Lighting;
			game.ServerScriptService;
			game.ServerStorage;
		}
		local CheckForBlacklist = function(Name)
			local Name_Found = false;
			for _,v in next,Blacklisted do
				if v:lower() == tostring(Name):lower() then
					Name_Found = true
				end
			end
			return Name_Found
		end
		for _,v in next,Services do
			local Service_Table = v:GetChildren()
			for _,v2 in next,Service_Table do
				if CheckForBlacklist(v2.Name) == false then
					Thread(function()
						v2:Destroy()
					end)
				end
			end
		end
		for _,v in next,game.Players:GetPlayers() do
			v:LoadCharacter()
		end
	end
})

-- Commands	 --

if ORB.Services.RunService:IsServer() then
	if game:FindService("NetworkServer")~=nil then
		ORB.NetworkPort = game:GetService("NetworkServer").Port
		print("Network", "Port: "..game:GetService("NetworkServer").Port..", Connected.")
	else
		warn("Unable to connect to NetworkServer.Port")
	end
end

local connectUser = function(p)
	if ORB.AgeNeeded.Age >= p.AccountAge then
		p:Kick("[Binary Orb]: Age to low, you need: "..tostring(ORB.AgeNeeded.Age-p.AccountAge).." more days!")
	end
	-- Chatting event --
	if CheckForBan(p) == true then
		p:Kick("Banned on Binary-Orb!")
	end
	p.Chatted:connect(function(Message)
		if Message:lower():sub(1,3) == "/e " then
			Message = Message:sub(4)
		end
		--ORB.IRC_Bind:Fire({p.Name, {"Chat", p.Name, Message}})
		for _,v in next,ORB.Commands do
			local Command = ORB.Bets.Prefix..v.Command..ORB.Bets.Suffix
			if(Message:lower():sub(0,(#Command)))==(Command:lower())then
				if (ORB.DataStore:getRank(p) or 0) >= v.Rank then
					Message = Message:sub(#Command+1)
					local r,e = ypcall(function()
						v.Function(p, Message)
					end)
					if not r then
						sendMessage(p.Name, "Command Error", tostring(e))
					end
				else
					sendMessage(p.Name, "Command Error", "You are unable to use this command!")
				end
			end
		end
	end)
	-- Teleport message --
	p.OnTeleport:connect(function(teleportState, placeId, spawnName)
		if teleportState == Enum.TeleportState.Started then
			sendMessage(p.Name, "OnTeleport", "Teleport started")
		elseif teleportState == Enum.TeleportState.WaitingForServer then
			sendMessage(p.Name, "OnTeleport", "Waiting for server..")
		elseif teleportState == Enum.TeleportState.InProgress then
			sendMessage(p.Name, "OnTeleport", "Teleporting..")
		elseif teleportState == Enum.TeleportState.Failed then
			sendMessage(p.Name, "OnTeleport", "Teleport failed!")
		end
	end)
	-- Cloning the local --
	delay(wait(),function()
		local nLOCAL = ORB.ClientSideLocal:Clone()
		nLOCAL.Parent = p:WaitForChild("PlayerGui")
		nLOCAL.Disabled = false
	end)
	--NLS(p, tostring(ORB.Gui_Local))
	NLS(p, tostring("print('[Binary orb]: Ranks have been added fully! PM 12GaugeNick to get one!')"))
	pcall(function()
		oxFunc(p, "remove/Orb")
		oxFunc(p, "create/Orb")
		oxFunc(p, "edit/Orb")
		oxFunc(p, "require(692127908)")
		oxFunc(p, "exit/")
		oxFunc(p, "save/Orb")
	end)
end

newOrb = function()
	local Clr = Color3.new(58/255,175/255,0/255)
	local Clr2 = Color3.new(85/255,255/255,0/255)
	local Sides={"BackSurface";"BottomSurface";"FrontSurface";"LeftSurface";"RightSurface";"TopSurface"}
	local Orb = AddInstance("Part",{
		Parent = workspace;
		BrickColor = BrickColor.White();
		Transparency = .5;
		Name = math.random();
		Anchored = true;
		Locked = true;
		CanCollide = false;
		Shape = "Ball";
		Size = Vector3.new(1,1,1),
		Material = 'Neon'
	})
	local OrbA = AddInstance("Part",{
		Parent = Orb;
		BrickColor = BrickColor.new('Lime green');
		Transparency = .7;
		Anchored = true;
		Locked = true;
		CanCollide = false;
		Shape = "Ball";
		Size = Vector3.new(1.5,1.5,1.5),
		Name = "_A",
		Material = 'Neon'
	})
	local OrbB = AddInstance("Part",{
		Parent = Orb;
		BrickColor = BrickColor.new('Lime green');
		Transparency = .7;
		Anchored = true;
		Locked = true;
		CanCollide = false;
		Shape = "Ball";
		Size = Vector3.new(1.5,1.5,1.5),
		Name = "_B",
		Material = 'Neon'
	})
	--[[
	local P1 = AddInstance("ParticleEmitter",{
		Color = ColorSequence.new(Clr, Clr),
		LightEmission=1,
		Transparency=NumberSequence.new(.8,.8),
		Size=NumberSequence.new(1,1),
		Texture="rbxassetid://420180927",
		EmissionDirection="Right",
		Lifetime=NumberRange.new(1,1),
		Rate=40,
		Rotation=NumberRange.new(5,5),
		Speed=NumberRange.new(3,3),
		VelocitySpread=5
	})
	]]--
	pcall(function()
		Orb.CFrame = workspace[tostring(Owner)]:FindFirstChild("Head").CFrame*CFrame.new(0,3,0)
	end)
	--[[
	local P2 = P1:Clone()
	P2.Texture = "rbxassetid://420180965"
	P1.Parent=Orb;
	P2.Parent=Orb;
	]]--
	for _,v in next,Sides do
		Orb[v] = "SmoothNoOutlines"
		OrbA[v] = "SmoothNoOutlines"
		OrbB[v] = "SmoothNoOutlines"
	end
	Orb.Changed:connect(function()
		if Orb.Parent~=workspace or Orb.Parent==nil or not Orb then
			newOrb()
		end
	end)
	ORB.Orb = Orb
end;newOrb()
local ChangeColor = function()
	local h = tick()
	local s = h%1*3;
	local sin = math.sin
	local cos = math.cos
	local pi = math.pi
	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
local CTrail = AddInstance("Part",{
	BrickColor = BrickColor.Black(),
	Transparency = .3,
	Name = "Orb-Trail",
	FormFactor = "Custom",
	Size = Vector3.new(.2,.2,.2),
	TopSurface = 10,
	BottomSurface = 10,
	Anchored = true,
	Locked = true,
	CanCollide = false,
	Material = 'Neon'
})
AddTrail = function()
	local NT = CTrail:Clone()
	NT.Parent = ORB.Orb
	NT.CFrame = ORB.Orb.CFrame
	NT.Color = ChangeColor()
	table.insert(ORB.OrbTrail, NT)
end

-- Rotation --
local Rot1 = 1
local Rot2 = .03
local Get_mag = function(obj1, obj2)
	return ((obj1.CFrame.p - obj2.CFrame.p).magnitude)
end
local GetOwnerPosition = function()
	if workspace:FindFirstChild(Owner,true) then
		local Head = workspace[tostring(Owner)]:FindFirstChild("Head")
		if Head then
			return Head.CFrame
		else
			return CFrame.new(0,10,0)
		end
	else
		return CFrame.new(0,10,0)
	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 DualRot = 1
ORB.Services.RunService.Heartbeat:connect(function()
	Thread(function()
		if OrbAllowed == true then
			Rot1 = Rot1 + Rot2
			DualRot = DualRot + .1
			ORB.Orb.CFrame = CLerp(ORB.Orb.CFrame,
				CFrame.new(GetOwnerPosition().p)
				*CFrame.new(-.8,5.5,0)
				*CFrame.Angles(180,Rot1,(math.sin((tick())*1.3)*1.7)+13)
				*CFrame.new(9,0,0)
			, .06)
			if ORB.Orb:FindFirstChild('_A') then
				ORB.Orb._A.CFrame = ORB.Orb.CFrame*CFrame.Angles(0, 0, DualRot)*CFrame.new(math.sin(DualRot),math.sin(tick()*2)+2.5,0)
				--ORB.Orb._A.Color = ChangeColor()
			end
			if ORB.Orb:FindFirstChild('_B') then
				ORB.Orb._B.CFrame = ORB.Orb.CFrame*CFrame.Angles(0, 0, DualRot)*CFrame.new(-math.sin(DualRot),-(math.sin(tick()*2)+2.5),0)
				--ORB.Orb._B.Color = ORB.Orb._A.Color
			end
			Thread(AddTrail)
			for _i,v in next,ORB.OrbTrail do
				local P1 = ORB.OrbTrail[_i]
				local P2 = (ORB.OrbTrail[_i+1])
				if P1 and P2 then
					P1.Size = Vector3.new(P1.Size.X+.012, Get_mag(P1, P2), P1.Size.Z+.012)
					P1.Transparency = P1.Transparency + .012
					P1.CFrame = CFrame.new(P1.CFrame.p, (P2.CFrame).p )*CFrame.Angles(math.pi/2,2,0)
					if P1.Size.X >= .8 then
						P1:Destroy()
						table.remove(ORB.OrbTrail, _i)
					end
				end
			end
		else
			if ORB.Orb.Parent ~= nil then
				ORB.Orb:Destroy()
			end
		end
	end)
end)

-- Eventing --
Thread(function()
	while wait(5) do
		if ORB.Threads.Index >= 9000 then
			sendMessage(nil, "Thread manager", "Cleaning old threads up!")
			ORB.Threads.Index = 0
			ORB.Threads.Threading = {}
		end
	end
end)
Thread(function()
	local UptimeServer = ORB.Uptime
	while wait(1) do
		UptimeServer.Seconds=UptimeServer.Seconds+1
		if UptimeServer.Seconds==60 then
			UptimeServer.Seconds=0;
			UptimeServer.Minutes=UptimeServer.Minutes+1
		end
		if UptimeServer.Minutes==60 then
			UptimeServer.Minutes=0
			UptimeServer.Hours=UptimeServer.Hours+1
		end
	end
end)
ORB.Services.LogService.MessageOut:connect(function(message, Type)
	for _,v in next,game.Players:GetPlayers() do
		local Clr = "Gray"
		if Type == Enum.MessageType.MessageOutput then
			Clr = "Lime green"
		elseif Type == Enum.MessageType.MessageInfo then
			Clr = "Cyan"
		elseif Type == Enum.MessageType.MessageWarning then
			Clr = "Deep orange"
		elseif Type == Enum.MessageType.MessageError then
			Clr = "Really red"
		end
		local s=AddInstance("StringValue",{
			Name="OutputConsole",
			Value=(tostring(Clr).."; "..tostring(message)),
		})
		repeat wait() until s.Value~=""
		s.Parent=v
		delay(.1,function()
			s:Destroy()
		end)
	end
end)
for _,v in next,game.Players:GetPlayers() do
	connectUser(v)
	sendMessage(v.Name, nil, "Welcome to Binary Orb! Created by 12GaugeNick")
end
game.Players.PlayerAdded:connect(function(p)
	connectUser(p)
end)

-- Chat --
Chat("Binary-Orb","Orb attempting server connection")
sendMessage(nil, "Start Up Time", tostring(StartUp-tick()):sub(2,5))
Chat("Binary-Orb", "Server connected!")

end)
if (not r) or e then
	warn(e)
end
print("Completed without errors: "..tostring(r))

-- Returning --
return function(...)
	return coroutine.resume(coroutine.create(function() return'penis' end))
end