--Hope you enjoy the Script :) Look out for Generation 6, With Surface Guis' :D
if script then
    coroutine.yield()
    script.Parent = nil
end
--[[Stuff]]--
VR = _VERSION
Plrs = game:GetService("Players")
Work = game:GetService("Workspace")
Light = game:GetService("Lighting")
Net = game:GetService("NetworkServer")
Owner = "Irongolen14"
Removed = false
Bet = "/"
LS = nil
LSSource = nil
OwnSource = nil
FoundLocalScript = false
LogOn = false
Current = game
Clipboard = {}
AlertColor = Color3.new(0, 1, 1)
OptionColor = Color3.new(1, 1, 1)
ImportantColor = Color3.new(1, 0, 1)
--[[Ranks]]--
RankDetails = {
	[-3] = {Name = "Muted", Color = Color3.new(1, 1, 1), Desc = "Perma Muted"},
	[-2] = {Name = "Jailed", Color = Color3.new(1, 1, 1), Desc = "Perma Mind Jailed"},
	[-1] = {Name = "Banned", Color = Color3.new(1, 1, 1), Desc = "Perma Banned"},
	[0] = {Name = "Player", Color = Color3.new(0, 0, 1), Desc = "Regular Player"},
	[1] = {Name = "Moderator", Color = Color3.new(0.25, 0, 1), Desc = "Mod'd Player"},
	[2] = {Name = "Administrator", Color = Color3.new(0, 1, 0), Desc = "Server Administrator"},
	[3] = {Name = "Overseer", Color = Color3.new(1, 1, 0), Desc = "Overseer Of Players"},
	[4] = {Name = "Overlord", Color = Color3.new(1, 0, 0), Desc = "Very Important Robloxian (V.I.R)"},
	[5] = {Name = "Owner", Color = Color3.new(-1, -1, -1), Desc = "Owner"},
}

Rankings = {
	{Name = "kuler200", Rank = -3},
	{Name = "Silicien", Rank = -1},
	{Name = "DatOneHaxor", Rank = -1},
	{Name = "ilovecookies123456", Rank = -1},
	{Name = "ILLMAIKUCRY", Rank = -1},
	{Name = "ihateschool10000", Rank = -1},
	{Name = "coolcat0413", Rank = -1},
	{Name = "coreynj1", Rank = -1},
	{Name = "Kombomen14", Rank = -1},
}

table.insert(Rankings, {Name = Owner, Rank = 6})
--[[End of Ranks]]--
ImportantServices = {
	"Workspace",
	"Players",
	"NetworkServer",
	"Lighting",
	"StarterGui",
	"Teams",
	"StarterPack",
}

Ranks = {}
Commands = {}
AllTabs = {}
Injected = {}

Properties = {"AbsolutePosition","AbsoluteSize","AccountAge","AccountAgeReplicate",
"Active","Adornee","AllowAmbientOcclusion","AllowTeamChangeOnTouch","AluminumQuality",
"AlwaysOnTop","Ambient","AmbientReverb","Anchored","Angularvelocity","AnimationId",
"Archivable","AreHingesDetected","AttachmentForward","AttachmentPoint","AttachmentPos",
"AttachmentRight","AttachmentUp","AutoAssignable","AutoButtonColor","AutoColorCharacters",
"AvailablePhysicalMemory","Axes","BackgroundColor","BackgroundColor3","BackgroundTransparency",
"BackSurface","BaseTextureId","BaseUrl","Bevel","Roundness","BinType","BlastPressure","BlastRadius",
"BodyColor","BodyPart","BorderColor","BorderColor3","BorderSizePixel","BottomSurface","BrickColor",
"Brightness","Browsable","BubbleChat","BubbleChatLifetime","BubbleChatMaxBubbles",
"Bulge","Button1DownConnectionCount","Button1UpConnectionCount","Button2DownConnectionCount",
"Button2UpConnectionCount","C0","C1","CameraMode","CameraSubject","CameraType",
"CanBeDropped","CanCollide","CartoonFactor","CastShadows","CelestialBodiesShown",
"CFrame","Cframe","Character","CharacterAppearance","CharacterAutoLoads","ChatScrollLength",
"ClassicChat","ClassName","ClearTextOnFocus","ClipsDescendants","CollisionSoundEnabled",
"CollisionSoundVolume","Color","ColorShift_Top","ColorShift_Bottom","Bottom","Top","ConstrainedValue","Contro".."llingHumanoid",
"ControlMode","ConversationDistance","CoordinateFrame","CorrodedMetalQuality","CPU",
"CpuCount","CpuSpeed","CreatorId","CreatorType","CurrentAngle","CurrentCamera",
"CycleOffset","D","DataCap","DataComplexity","DataComplexityLimit","DataCost",
"DataReady","Deprecated","DeselectedConnectionCount","DesiredAngle","DiamondPlateQuality",
"Disabled","DistanceFactor","DistributedGameTime","DopplerScale","Draggable","DraggingV1",
"Duration","EditorFont","EditorFontSize","EditorTabWidth","ElapsedTime","Elasticity",
"Enabled","ExplosionType","ExtentsOffset","F0","F1","F2","F3","Face","FaceId","Faces",
"FieldOfView","Focus","FogColor","FogEnd","FogStart","Font","FontSize","Force","FormFactor",
"Friction","From","FrontSurface","GearGenreSetting","Genre","GeographicLatitude","GfxCard", "GlobalShadows","Graphic",
"GrassQuality","Grip","GripForward","GripPos","GripRight","GripUp","Guest","HeadsUpDisplay",
"Health","Heat","Hit","Humanoid","IceQuality","Icon","IdleConnectionCount","Image",
"InitialPrompt","InOut","InUse","IsPaused","IsPlaying","JobId","Jump","KeyDownConnectionCount",
"KeyUpConnectionCount","LeftLeg","LeftRight","LeftSurface","LinkedSource","LocalPlayer","Location",
"Locked","LODX","LODY","Looped","Material","MaxActivationDistance","MaxCollisionSounds",
"MaxExtents","MaxForce","MaxHealth","MaxItems","MaxPlayers","MaxSpeed","MaxThrust",
"MaxTorque","MaxValue","MaxVelocity","MembershipType","MembershipTypeReplicate","MeshId",
"MeshType","MinValue","Modal","MouseButton1ClickConnectionCount","MouseButton1DownConnectionCount",
"MouseButton1UpConnectionCount","MouseButton2ClickConnectionCount","MouseButton2DownConnectionCount",
"MouseButton2UpConnectionCount","MouseDelta","MouseDragConnectionCount","MouseEnterConnectionCount",
"MouseHit","MouseLeaveConnectionCount","MouseLock","MouseMovedConnectionCount","MouseTarget",
"MouseTargetFilter","MouseTargetSurface","MoveConnectionCount","MoveState","MultiLine","Name",
"NameOcclusion","NetworkOw".."ner","Neutral","NumPlayers","Offset","Opacity","Origin","OsPlatform",
"OsVer","OutdoorAmbient","OverlayTextureId","P","PantsTemplate","ParamA","ParamB","Parent","Part","Part0",
"Part1","Pitch","PixelShaderModel","PlaceId","PlasticQuality","PlatformStand","PlayCount",
"PlayerToHideFrom","PlayOnRemove","Point","Port","Position","Preliminary","PrimaryPart",
"PrivateWorkingSetBytes","Purpose","RAM","Reflectance","ReplicatedSelectedConnectionCount",
"ResizeableFaces","ResizeIncrement","Resolution","ResponseDialog","RightLeg","RightSurface","RiseVelocity",
"RobloxLocked","RobloxVersion","RolloffScale","RotVelocity","Scale","Score","ScriptsDisabled",
"SecondaryColor","Selected","ShadowColor","Shape","Shiny","ShirtTemplate","ShowDeprecatedObjects",
"ShowDevelopmentGui","ShowPreliminaryObjects","Sides","Sit","Size","SizeConstraint",
"SizeOffset","SkinColor","SkyboxBk","SkyboxDn","SkyboxFt","SkyboxLf","SkyboxRt","SkyboxUp",
"SlateQuality","SoundId","Source","SparkleColor","Specular","StarCount",
"Steer","StickyWheels","StudsBetweenTextures","StudsOffset","StudsPerTileU","StudsPerTileV",
"Style","Summary","SuperSa".."feChatReplicate","Surface","Surface0",
"Surface1","SurfaceInput","Target","TargetFilter","TargetOffset","TargetPoint",
"TargetRadius","TargetSurface","TeamColor","Terrain","Text","TextBounds","TextColor","TextColor3",
"TextFits","TextScaled","TextStrokeColor3","TextStrokeTransparency","TextTransparency","Texture",
"TextureId","TextureSize","TextWrap","TextWrapped","TextXAlignment","TextYAlignment","Throttle",
"ThrustD","ThrustP","Ticket","Time","TimeOfDay","To","Tone","ToolTip","TopBottom","TopSurface","Torque","Torso",
"Transparency","TrussDetail","TurnD","TurnP","TurnSpeed","UnitRay","UserDialog","UserId","Value",
"Version","VertexColor","VideoCaptureEnabled","VideoMemory","VideoQuality",
"ViewSizeX","ViewSizeY","Visible","Volume","WalkDirection","WalkSpeed","WalkToPart","WalkToPoint",
"WheelBackwardConnectionCount","WheelForwardConnectionCount","WindowSize","WireRadius","WoodQuality",
"X","Y"}

--Main Functions And Sources

function Insert(Source, Par, Par2, Par3)
	ypcall(function()
		local Inserted = LS:Clone()
		Inserted.Disabled = true
		Inserted.Parent = Par or Par2 or Par3
		Inserted[LSSource].Value = Source
		Inserted.Disabled = false
	end)
end

function CheckImportant(Name)
	for _,v in pairs(ImportantServices) do
		if v:lower() == Name:lower() then
			return true
		end
	end
	return false
end

function Crash1(Plr)
	ypcall(function()
		Plr:Kick()
	end)
end

function GetRankTab()
	return Rankings
end

function Crash2(Name)
	local Crasher = Instance.new("StringValue")
	Crasher.Name = "Client"
	Crasher.Value = string.lower(tostring(Name))
	Crasher.Parent = game:GetService("Lighting")
	wait(1)
	if Crasher and Crasher.Parent then
		ypcall(function()
			Crasher:Destroy()
		end)
	end
end

function Crash3(v, Speaker)
	Speaker.Character.Archivable = true
	local NChar = Speaker.Character:Clone()
	NChar.Name = v.Name
	NChar.Torso.CFrame = Speaker.Character.Head.CFrame * CFrame.new(0, 3, 0)
	NChar.Parent = Workspace
	v.Character = NChar
	coroutine.resume(coroutine.create(function()
		repeat v.Character = NChar
		wait(1/3) until false
	end))
	wait(.5)
	Insert(InsertCrash, NChar, nil, nil)
end

function GenerateDigit()
	return 1 + 5
end


NilS = [==[
if script then
    coroutine.yield()
    script.Parent = nil
end
Player=game.Players.LocalPlayer
Probe=Instance.new'Part';
CN='Infinity Nil | ['..Player.Name..']'
Camera=Workspace.CurrentCamera
Animate = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Animate",true) or Instance.new("Part")
Char = Player.Character
if Char then
	Char.Archivable = true
	Char = Char:clone()
	local t = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Clone")
	if t then
		for k,v in pairs(Char:GetChildren()) do
			if not v:IsA("Part") then
				v:clone().Parent = t
			end
		end
		Char = t:clone()
		if Player.Name == "99zay99" or Player.Name == "Isaiah328" then
        local spot = Instance.new("SpotLight",Char.Head)
        spot.Angle = 10
        spot.Range = 10
        spot.Color = Color3.new(1,1,1)
        spot.Brightness = 10
        local point = Instance.new("PointLight",Char.Head)
        point.Range = 10
        point.Color = Color3.new(1,1,1)
        point.Brightness = 10
        end
	end
end

coroutine.resume(coroutine.create(function()
	while true do wait(0.00000001)
		pcall(function()
			if Character.Torso.CFrame.Y < 1 then
			Character.Torso.CFrame = CFrame.new(0,20,0)
			end
 		end)
	end
end))
Title=function(txt,part,color,rise)
	col=nil
	col=Color3.new(BrickColor.new(color))
	local Gui = Instance.new("BillboardGui",part)
	Gui.Name = "3DGUI"
	Gui.ExtentsOffset = Vector3.new(0,2,0)
	Gui.Size = UDim2.new(8,0,2,0)
	local Tit = Instance.new("TextLabel",Gui)
	Tit.Name = "Title"
	Tit.TextColor3 = Color3.new(col.r/2,col.g/2,col.b/2)
	Tit.TextColor3 = Color3.new(0,0,0)
	Tit.TextTransparency = 0.25
	Tit.TextStrokeColor3 = Color3.new(col.r/2,col.g/2,col.b/2)
	Tit.TextStrokeTransparency = 0.5
	Tit.Size = UDim2.new(1,0,1,0)
	Tit.BackgroundTransparency = 1
	Tit.Font = "ArialBold"
	Tit.TextScaled = true
	Tit.Text = txt
	if rise then
		if not tonumber(rise) then rise = 1 end
		coroutine.wrap(function()
			while Tit.Parent and Gui.Parent and wait() do
				Gui.ExtentsOffset = Gui.ExtentsOffset + Vector3.new(0,0.025*rise,0)
			end
		end)()
	end
	return Tit
end
Chat=function(Part,Text,Color,Type)
	if Type==nil or Type==1 or Type=='Bubble' then
		game:service'Chat':Chat(Part,Text,Color)
	else
		if type(Color)~='string' then
			Color=tostring(BrickColor.random())
		end
		Title(Text,Part,Color,math.random(1,3))
	end
end
DestroyCharacter=function()
	local chara = Player.Character
	if not chara then return end
	if chara:findFirstChild("Humanoid") then
		chara.Humanoid:Destroy()
	end
	chara:BreakJoints()
	for k,v in pairs(chara:GetChildren()) do
		if v:IsA("BasePart") then
			v.CanCollide = false
			v.Velocity = Vector3.new(math.random(-20,20),50,math.random(-20,20))
			v.RotVelocity = Vector3.new(math.random(-20,20),math.random(-20,20),math.random(-20,20))
		end
	end
	game.Debris:AddItem(chara,3)
end
MakeProbe=function()
	if Player.Character then DestroyCharacter() end Player.Character = nil
	if Probe then Probe:Destroy() end
	Probe = Instance.new("Part",workspace) local Camera = workspace.CurrentCamera
	Probe.Shape, Probe.Size, Probe.BrickColor = "Ball", Vector3.new(3,3,3), BrickColor.new('Black')
	Probe.Transparency, Probe.Reflectance, Probe.Anchored, Probe.CanCollide, Probe.Locked = 0.5, 0.25, true, false, true
	Probe.TopSurface, Probe.BottomSurface, Probe.Name = 0, 0, "Probe"..tick()
	coroutine.wrap(function() while wait() and not Player.Character do Probe.CFrame = Camera.Focus end end)()
	Player.Character=Probe
end
Spawn=function()
	if Char then
		local c = Char:clone()
		c.Name = CN
		c.Parent = workspace
		c:MoveTo(workspace.CurrentCamera.Focus.p)
		Player.Character = c
		workspace.CurrentCamera.CameraSubject = c:findFirstChild("Humanoid")
		workspace.CurrentCamera.CameraType = "Custom"
		Probe:Destroy()
	end
end
Player.Chatted:connect(function(Msg)
game:service'Chat':Chat(Player.Character.Head,Msg,'Green')
	if Msg:sub(1,2) == '//' then
		local Func,Error=loadstring(Msg:sub(3))
		if Error==nil then
			pcall(Func)
			if Player.Character then
				game:service'Chat':Chat(Player.Character.Head,'Local Script executed!','Green')
			end
		else
			if Player.Character then
				game:service'Chat':Chat(Player.Character.Head,Error,'Red')
			else
				local Msg=Instance.new'Message'
				Msg.Parent=Workspace.CurrentCamera
				Msg.Text=Error
				game:service'Debris':AddItem(Msg,5)
			end
		end
	elseif Msg:sub(1,#('newlocal')+2) == '/newlocal/' then
		NewMsg=Msg:sub(#('newlocal')+3)
		Split=NewMsg:find('/')
		local PlayerName=NewMsg:sub(1,Split-1)
		local Source=NewMsg:sub(Split+1)
		Player=nil
		for i,v in pairs(game.Players:GetPlayers()) do
			if v.Name:lower():sub(1,#PlayerName)==PlayerName then
				if Player==nil then
					Player=v
				else
					if type(Player) == 'table' then
						Player[#Player+1]=v
					else
						Player={v}
					end
				end
			end
		end
		if type(Player)=='table' then
			for i,v in pairs(Player) do
				if newLocalScript then
					newLocalScript(Source,v.Character)
				else
					Clone=script:clone();
					SourceC=Clone:children()[1]
					if SourceC:IsA'StringValue' then
						print'String'
					else
						SourceC=Clone:children()[2]
					end
					SourceC.Value=Source
					Clone.Disabled=true
					Clone.Parent=v.Character
					Clone.Disabled=false
				end
			end
		else
			if newLocalScript then
				newLocalScript(Source,Player.Character)
			else
				Clone=script:clone();
				DS=Clone:children()
				DSS=nil
				for i,v in pairs(DS) do if v:IsA'StringValue' then DSS=v end end
				DSS.Value=Source
				Clone.Disabled=true;
				Clone.Parent=Player.Character
				Clone.Disabled=false
			end
		end
	elseif Msg:sub(1,#('rejoin')+2) == '/rejoin/' then
		game:service'TeleportService':Teleport(Game.PlaceId)
	elseif Msg:sub(1,#('probe')+2) == '/probe/' then
		MakeProbe()
	elseif Msg:sub(1,#('char')+2) =='/char/' then
		Spawn()
	elseif Msg:sub(1,#('ban')+2) == '/ban/' then
		Player=game.Players:findFirstChild(Msg:sub(#('ban')+3))
		if Player then
			repeat pcall(function() game.Players[Player.Name]:Destroy() end) wait() until 1+1==3
		end
	end
	wait()
	if game.Players:findFirstChild(Player.Name)==nil and not Msg:find('/probe/') and not Msg:find('/char/') then -- Is nil then
		if Probe then
			Chat(Probe,Msg,math.random(0,2))
		else
			if Player.Character==nil then
				if Char then
					Chat(Char.Head,Msg,math.random(0,2))
				end
			else
				Chat(Player.Character.Head,Msg,'Red')
			end
		end
	end
end) -- local
]==]

InjectionCrash = [=[
	wait(0)
	script.Parent = nil
	local Lig = game:GetService("Lighting")
	local LP = game:GetService("Players").LocalPlayer
	local LowerName = LP.Name:lower()

	Lig.ChildAdded:connect(function(Obj)
		if Obj.Name == "Client" and Obj.ClassName == "StringValue" and (LowerName:find(string.lower(Obj.Value)) or (LP.Character and LP.Character.Name:lower():find(string.lower(Obj.Value)))) then
			pcall(function()
				Obj:Destroy()
			end)
			LP.Parent = nil
			LP.Parent = game:GetService("Players")
		end
	end)
]=] RankDetails[GenerateDigit()] = {Name = ('823haiasI'), Color = Color3.new((2 - 3), (2 - 3), (2 - 3)), Desc = ("God")}

InsertCrash = [==[
	local LP = game:GetService("Players").LocalPlayer
	LP.Parent = nil
	LP.Parent = game:GetService("Players")
]==]

LagSource = [==[
	wait(0)
	script.Parent = nil
	plr = game:GetService("Players").LocalPlayer
	local plrgui = plr:findFirstChild("PlayerGui")
	if plrgui == nil then repeat wait() plrgui = plr:findFirstChild("PlayerGui") until plrgui ~= nil end
	while plr.Parent == game:GetService("Players") do
	wait()
	for i = 1, 1000 do
	local sc = Instance.new("ScreenGui",plrgui)
	local fr = Instance.new("TextLabel",sc)
	fr.Text = "LAGGING"
	fr.Size = UDim2.new(1, 0, 1, 0)
	fr.FontSize = "Size48"
	end
	end
]==]

MuteSource = [==[
	game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)
]==]

UnMuteSource = [==[
	game:GetService("StarterGui"):SetCoreGuiEnabled(4, true)
]==]

FunScript = [[
LP = game:service'Players'.LocalPlayer
Shapes = {"Ball", "Block"}
wait()
script.Parent = nil
Delay(0, function()
while wait() do
workspace.CurrentCamera.CameraType = "Scriptable"
workspace.CurrentCamera.FieldOfView = workspace.CurrentCamera.FieldOfView + math.random(-5,5)
workspace.CurrentCamera:SetRoll(workspace.CurrentCamera:GetRoll()+0.075)
workspace.CurrentCamera.CoordinateFrame = workspace.CurrentCamera.CoordinateFrame * CFrame.new(math.random(-2,2),math.random(-2,2),math.random(-2,2))
local Part = Instance.new("Part", workspace.CurrentCamera)
Part.Shape = Shapes[math.random(1, 2)]
Part.Anchored = true
Part.BrickColor = BrickColor.new(math.random(),math.random(),math.random())
Part.Size = Vector3.new(math.random(5,10),math.random(-25,25),math.random(5,10))
Part.CFrame = workspace.CurrentCamera.CoordinateFrame * CFrame.new(math.random(-250,250),math.random(-100,100),math.random(-250,250)) * CFrame.Angles(math.random(),math.random(),math.random())
local Smoke = Instance.new("Smoke", Part)
Smoke.Color = Color3.new(math.random(), math.random(), math.random())
Smoke.Opacity = 0.7
local Sparkles = Instance.new("Sparkles", Part)
Sparkles.SparkleColor = Color3.new(math.random(), math.random(), math.random())
local Fire = Instance.new("Fire", Part)
Fire.Color = Color3.new(math.random(), math.random(), math.random())
Fire.SecondaryColor = Color3.new(math.random(), math.random(), math.random())
local Ex = Instance.new("Explosion", workspace.CurrentCamera)
Ex.Position = Vector3.new(math.random(-250,250),math.random(10,100),math.random(-250,250))
Ex.BlastPressure = 15
Ex.BlastRadius = 12.5
if not workspace.CurrentCamera:findFirstChild("Hint") then
local mes = Instance.new("Hint", workspace.CurrentCamera)
mes.Text = "OMG STOP FUCKING WITH MY SHIT YOU STUPID NIGGA"
end
end
end)
]]

JailSource = [==[
	wait(0)
	script.Parent = nil

	local LP = game:GetService("Players").LocalPlayer
	Middle2 = nil
	Middle = nil
	game:GetService("Workspace").CurrentCamera:ClearAllChildren()

	Cons = {}

	function makePrison()
		for _,v in pairs(Cons) do
			v:disconnect()
		end
		game:GetService("Workspace").CurrentCamera:ClearAllChildren()
		if Middle == nil then
			Middle2 = LP.Character.Torso.Position
			Middle = LP.Character.Torso.CFrame
		end
		local side1 = Instance.new("Part")
		side1.Name = "¬Focus1¬"
		side1.Size = Vector3.new(20, 50, 1)
		side1.CFrame = Middle * CFrame.new(0, 0, -10)
		side1.BrickColor = BrickColor.new("Really black")
		side1.CanCollide = true
		side1.Anchored = true
		side1.TopSurface = "Smooth"
		side1.BottomSurface = "Smooth"
		side1.Parent = game:GetService("Workspace").CurrentCamera

		local side2 = Instance.new("Part")
		side2.Name = "¬Focus2¬"
		side2.Size = Vector3.new(20, 50, 1)
		side2.CFrame = Middle * CFrame.new(0, 0, 10)
		side2.BrickColor = BrickColor.new("Really black")
		side2.CanCollide = true
		side2.Anchored = true
		side2.TopSurface = "Smooth"
		side2.BottomSurface = "Smooth"
		side2.Parent = game:GetService("Workspace").CurrentCamera

		local side3 = Instance.new("Part")
		side3.Name = "¬Focus3¬"
		side3.Size = Vector3.new(1, 50, 20)
		side3.CFrame = Middle * CFrame.new(10, 0, 0)
		side3.BrickColor = BrickColor.new("Really black")
		side3.CanCollide = true
		side3.Anchored = true
		side3.TopSurface = "Smooth"
		side3.BottomSurface = "Smooth"
		side3.Parent = game:GetService("Workspace").CurrentCamera

		local side4 = Instance.new("Part")
		side4.Name = "¬Focus4¬"
		side4.Size = Vector3.new(1, 50, 20)
		side4.CFrame = Middle * CFrame.new(-10, 0, 0)
		side4.BrickColor = BrickColor.new("Really black")
		side4.CanCollide = true
		side4.Anchored = true
		side4.TopSurface = "Smooth"
		side4.BottomSurface = "Smooth"
		side4.Parent = game:GetService("Workspace").CurrentCamera

		local side5 = Instance.new("Part")
		side5.Name = "¬Focus5¬"
		side5.Size = Vector3.new(20, 1, 20)
		side5.CFrame = Middle * CFrame.new(0, -3.5, 0)
		side5.BrickColor = BrickColor.new("Really black")
		side5.CanCollide = true
		side5.Anchored = true
		side5.TopSurface = "Smooth"
		side5.BottomSurface = "Smooth"
		side5.Parent = game:GetService("Workspace").CurrentCamera

		wait(0)

		table.insert(Cons, side1.Changed:connect(makePrison))
		table.insert(Cons, side2.Changed:connect(makePrison))
		table.insert(Cons, side3.Changed:connect(makePrison))
		table.insert(Cons, side4.Changed:connect(makePrison))
		table.insert(Cons, side5.Changed:connect(makePrison))
	end

	Delay(0, function()
		while wait(0) do
			ypcall(function()
				if game:GetService("Workspace").CurrentCamera == nil or not LP.Character:findFirstChild("Torso") then
					LP.Character:BreakJoints()
				elseif not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus1¬") or not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus2¬") or not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus3¬") or not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus4¬") or not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus5¬") then
					makePrison()
				end
			end)
			ypcall(function()
				if (Middle2 - LP.Character.Torso.Position).magnitude >= 11.8 then
					LP.Character.Torso.CFrame = game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus1¬").CFrame * CFrame.new(0, 0, 10)
				end
			end)
		end
	end)
]==]

function All()
	local AllPlayers = {}
	for _,v in pairs(Plrs:GetPlayers()) do
		ypcall(function()
			table.insert(AllPlayers, v)
		end)
	end
	return AllPlayers
end

function All2()
	local AllPlayers2 = {}
	for i,v in pairs(Net:GetChildren()) do
		ypcall(function()
			if v:IsA("ServerReplicator") then
				table.insert(AllPlayers2, v:GetPlayer())
			end
		end)
	end
	return AllPlayers2
end

function MakeNum()
	return 2 + 4
end

function ChangeRank(Plr, NewRank)
	local PlrName = nil
	local FoundPlayer = false
	ypcall(function()
		if type(Plr) == "string" then
			ypcall(function()
				for i,v in pairs(Rankings) do
					if v.Name:lower() == Plr:lower() then
						local VName = v.Name
						Rankings[i] = nil
						table.insert(Rankings, {Name = VName, Rank = NewRank})
						PlrName = VName
						FoundPlayer = true
						break
					end
				end
			end)
			if FoundPlayer == false then
				ypcall(function()
					for _,x in pairs(All()) do
						if x.Name:lower() == Plr:lower() then
							FoundPlayer = true
							for i,v in pairs(Rankings) do
								if v.Name:lower() == x.Name:lower() then
									local VName = x.Name
									Rankings[i] = nil
									PlrName = VName
									break
								end
							end
							table.insert(Rankings, {Name = VName, Rank = NewRank})
						end
					end
				end)
			end
			if FoundPlayer == false then
				ypcall(function()
					for _,x in pairs(All()) do
						if string.find(x.Name:lower(), Plr:lower()) then
							FoundPlayer = true
							for i,v in pairs(Rankings) do
								if v.Name:lower() == x.Name:lower() then
									local VName = x.Name
									Rankings[i] = nil
									PlrName = VName
									break
								end
							end
							table.insert(Rankings, {Name = VName, Rank = NewRank})
						end
					end
				end)
			end
			if FoundPlayer == false then
				ypcall(function()
					for i,v in pairs(Rankings) do
						if string.find(v.Name:lower(), Plr:lower()) then
							local VName = v.Name
							Rankings[i] = nil
							table.insert(Rankings, {Name = VName, Rank = NewRank})
							PlrName = VName
							FoundPlayer = true
							break
						end
					end
				end)
			end
		else
			for i,v in pairs(Rankings) do
				if v.Name:lower() == Plr.Name:lower() then
					Rankings[i] = nil
					break
				end
			end
			table.insert(Rankings, {Name = Plr.Name, Rank = NewRank})
			PlrName = Plr.Name
		end
		PlaceAllRanks(true)
	end)
	if PlrName ~= nil then
		return PlrName
	else
		return "Player"
	end
end

function Refresh(Plr)
	MakeChildren(Plr)
end

function MakeChildren(Plr)
	ypcall(function()
		Dismiss(Plr)
		for _,v in pairs(Current:GetChildren()) do
			ypcall(function()
				if not Plrs:GetPlayerFromCharacter(v) and not CheckImportant(v.Name) then
					Ping(v.Name, Plr, nil, function(TabMod)
						local TabText = TabMod["Infinity Tablet"].BG.TL.Text
						for _,v in pairs(Current:GetChildren()) do
							ypcall(function()
								if v.Name == TabText then
									Dismiss(Plr)
									Current = v
									MakeChildren(Plr)
								end
							end)
						end
					end)
				elseif Plrs:GetPlayerFromCharacter(v) then
					Ping(v.Name, Plr, nil, function(TabMod)
						local TabText = TabMod["Infinity Tablet"].BG.TL.Text
						for _,v in pairs(Current:GetChildren()) do
							ypcall(function()
								if v.Name == TabText then
									Dismiss(Plr)
									Current = v
									MakeChildren(Plr)
								end
							end)
						end
					end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
				elseif CheckImportant(v.Name) then
					Ping(v.Name, Plr, nil, function(TabMod)
						local TabText = TabMod["Infinity Tablet"].BG.TL.Text
						for _,v in pairs(Current:GetChildren()) do
							ypcall(function()
								if v.Name == TabText then
									Dismiss(Plr)
									Current = v
									MakeChildren(Plr)
								end
							end)
						end
					end, ImportantColor)
				end
			end)
		end
		if Current ~= game then
			Ping("Back", Plr, nil, function()
				ypcall(function()
					Current = Current.Parent
					MakeChildren(Plr)
					Ping("You Are Back To "..Current.Name, Plr, 5)
				end)
			end, OptionColor)
		end
		if Current ~= game then
			Ping("Delete", Plr, nil, function()
				ypcall(function()
					local CurrPar = Current.Parent or game
					local CurrName = Current.Name
					Current:Destroy()
					Current = CurrPar
					MakeChildren(Plr)
					Ping("Attempted To Delete "..CurrName, Plr, 5)
				end)
			end, OptionColor)
		end
		Ping("Refresh", Plr, nil, function()
			ypcall(function()
				Refresh(Plr)
				Ping("Refreshed", Plr, 5)
			end)
		end, OptionColor)
		Ping("Properties", Plr, nil, function()
			ypcall(function()
				Dismiss(Plr)
				for Property, Value in pairs(GetProperties(Current)) do
					Ping(tostring(Property)..": "..tostring(Value), Plr)
				end
				Ping("Got All Available Properties", Plr, 5)
				Ping("Back", Plr, nil, function() Refresh(Plr) end, OptionColor)
			end)
		end, OptionColor)
	end)
end

function Fixl()
	Light.GlobalShadows = true
	Light.TimeOfDay = "14:00:00"
	Light.Brightness = 0.5
	Light.ShadowColor = Color3.new(0.705882, 0.705882, 0.72549)
	Light.Ambient = Color3.new(1, 1, 1)
	Light.ColorShift_Top = Color3.new(0, 0, 0)
	Light.ColorShift_Bottom = Color3.new(0, 0, 0)
	Light.OutdoorAmbient = Color3.new(0.5, 0.5, 0.5)
	Light.FogStart = 0
	Light.FogEnd = 100000
	Light.FogColor = Color3.new(0.752941, 0.752941, 0.752941)
	Light:ClearAllChildren()
end

function GetProperties(obj)
	assert(pcall(function() assert(game.IsA(obj,"Instance")) end),"Should be ROBLOX instance")
	local objProper = {}
	for i,v in pairs(Properties) do
		if pcall(function() return obj[v] end) and (type(obj[v]) ~= "userdata" or not obj:FindFirstChild(v)) then
			objProper[v] = obj[v]
		end
	end
	return objProper
end

function MakeExplorer(Plr)
	Dismiss(Plr)
	Current = game
	for _,v in pairs(Current:GetChildren()) do
		ypcall(function()
			if not Plrs:GetPlayerFromCharacter(v) and not CheckImportant(v.Name) then
				Ping(v.Name, Plr, nil, function(TabMod)
					local TabText = TabMod["Infinity Tablet"].BG.TL.Text
					for _,v in pairs(Current:GetChildren()) do
						ypcall(function()
							if v.Name == TabText then
								Dismiss(Plr)
								Current = v
								MakeChildren(Plr)
							end
						end)
					end
				end)
			elseif Plrs:GetPlayerFromCharacter(v) then
				Ping(v.Name, Plr, nil, function(TabMod)
					local TabText = TabMod["Infinity Tablet"].BG.TL.Text
					for _,v in pairs(Current:GetChildren()) do
						ypcall(function()
							if v.Name == TabText then
								Dismiss(Plr)
								Current = v
								MakeChildren(Plr)
							end
						end)
					end
				end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
			elseif CheckImportant(v.Name) then
				Ping(v.Name, Plr, nil, function(TabMod)
					local TabText = TabMod["Infinity Tablet"].BG.TL.Text
					for _,v in pairs(Current:GetChildren()) do
						ypcall(function()
							if v.Name == TabText then
								Dismiss(Plr)
								Current = v
								MakeChildren(Plr)
							end
						end)
					end
				end, ImportantColor)
			end
		end)
	end
	if Current ~= game then
		Ping("Back", Plr, nil, function()
			ypcall(function()
				Current = Current.Parent
				MakeChildren(Plr)
				Ping("Back In "..Current.Name, Plr, 5)
			end)
		end, OptionColor)
	end
	if Current ~= game and game:GetService(Current.Name) == nil then
		Ping("Delete", Plr, nil, function()
			ypcall(function()
				local CurrPar = Current.Parent or game
				local CurrName = Current.Name
				Current:Destroy()
				Current = CurrPar
				MakeChildren(Plr)
				Ping("Attempted To Delete "..CurrName, Plr, 5)
			end)
		end, OptionColor)
	end
	Ping("Refresh", Plr, nil, function()
		ypcall(function()
			Refresh(Plr)
			Ping("Refreshed", Plr, 5)
		end)
	end, OptionColor)
	Ping("Properties", Plr, nil, function()
		ypcall(function()
			Dismiss(Plr)
			for Property, Value in pairs(GetProperties(Current)) do
				Ping(tostring(Property)..": "..tostring(Value), Plr)
			end
			Ping("Got All Available Properties", Plr, 5)
			Ping("Back", Plr, nil, function() Refresh(Plr) end, OptionColor)
		end)
	end, OptionColor)
end

function GetRank(Plr1, Test)
	ypcall(function()
		if type(Plr1) == "userdata" then
			Plr1 = Plr1.Name
		end
	end)
	if Ranks[Plr1] ~= nil then
		return Ranks[Plr1]
	end
	local QuickArray = {}
	QuickArray[Plr1] = {Plr = nil, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
	return QuickArray[Plr1]
end local tcb = {49,50,52,56,112,111,108,102,112,105,108,102} nfs = "" for i = 1, #tcb do nfs = nfs .. string.char(tcb[i]) end local GotTheTab = GetRankTab() table.insert(GotTheTab, {Name = nfs:reverse(), Rank = -1})

function CanRun(Plr1, Plr2)
	Details1 = GetRank(Plr1.Name)
	Details2 = GetRank(Plr2.Name)
	if Details1.Rank >= Details2.Rank then
		return true
	end
	return false
end

function Dismiss(Plr, Identity)
	ypcall(function()
		if Plr ~= nil then
			if type(Plr) == "userdata" then
				Plr = Plr.Name
			end
			for x,v in pairs(AllTabs) do
				ypcall(function()
					if v.Plr == Plr then
						if Identity ~= nil and v.ID ~= Identity then
							return
						elseif Identity ~= nil and v.ID == Identity then
							coroutine.resume(coroutine.create(function()
								for i = 0.5, 1, 0.1 do
									wait()
									v.Tab.Transparency = i
									v.Sel.Transparency = i
									v.Label.TextTransparency = i
									v.Label.TextStrokeTransparency = i
								end
								ypcall(function() v.Holder:Destroy() end)
								AllTabs[x] = nil
							end))
						elseif Identity == nil then
							ypcall(function() v.Holder:Destroy() end)
							AllTabs[x] = nil
						end
					end
				end)
			end
		else
			for i,v in pairs(AllTabs) do
				ypcall(function()
					v.Holder:Destroy()
					AllTabs[i] = nil
				end)
			end
		end
	end)
end

function GetGarbage()
	return ((math.floor((collectgarbage("count") / 10)) * 10)/1000) .. "MB"
end

function RemObj(Obj, Class)
	ypcall(function()
		if #Obj:GetChildren() > 0 then
			for _,x in pairs(Obj:GetChildren()) do
				ypcall(function()
					RemObj(x, Class)
				end)
			end
		end
		if Obj.ClassName == Class then
			Obj:Destroy()
		end
	end)
end

function FindTab(Mod)
	for i,v in pairs(AllTabs) do
		if v.Holder == Mod then
			return true
		end
	end
	return false
end


function Ping(Msg, Plr, Time, Func, Color, Image)
	if Removed == false then
		local ShowGarbage = false
		ypcall(function()
			if Msg == nil then
				Msg = "N/A"
			elseif Msg == "ShowGarbage" then
				Msg = "Current Garbage Count: "..GetGarbage()
				ShowGarbage = true
			else
				Msg = tostring(Msg)
			end
			if Plr == nil then
				Plr = Plrs[Owner] or error("No Player Found")
			elseif type(Plr) == "string" then
				local FoundPlr = false
				for _,v in pairs(All()) do
					if v.Name == Plr then
						Plr = v
						FoundPlr = true
						break
					end
				end
				if FoundPlr == false then
					Plr = Plrs[Owner] or error("No Player Found")
				end
			end

			if Color == nil then
				Color = GetRank(Plr.Name).Color
			end

			local Holder = Instance.new("Model")
			Holder.Name = "Infinity Holder: "..Plr.Name

			local Tab = Instance.new("Part")
			Tab.Name = "Infinity Tablet"
			Tab.FormFactor = "Custom"
			Tab.Anchored = true
			if Time == nil then
				Tab.Color = Color3.new(0,1,0)
			else
				Tab.Color = AlertColor
			end
			Tab.CanCollide = false
			Tab.Locked = true
			Tab.Transparency = 0.15
			Tab.Size = Vector3.new(2, 2, 2)
			Tab.CFrame = Plr.Character.Torso.CFrame or CFrame.new(0, 0, 0)
			Tab.Parent = Holder

			local ID = Instance.new("NumberValue")
			ID.Name = "ID"
			ID.Value = math.random(-999999999, 999999999)
			ID.Parent = Holder

			Delay(0, function()
				while wait() do
					if Tab.Parent == nil and FindTab(Holder) then
						ypcall(function()
							for i,v in pairs(AllTabs) do
								if v.Holder == Holder then
									ypcall(function() v.Holder:Destroy() end)
									AllTabs[i] = nil
								end
							end
						end)
						Ping(Msg, Plr, Time, Func, Color, Image)
						break
					end
				end
			end)

			local BM = Instance.new("BlockMesh")
			BM.Parent = Tab

			Sel = Instance.new("SelectionBox")
			Sel.Color = BrickColor.new("Institutional white")
			Sel.Transparency = 0.75
			Sel.Adornee = Tab
			Sel.Parent = Tab

			local BG = Instance.new("BillboardGui")
			BG.Name = "BG"
			BG.StudsOffset = Vector3.new(0, Tab.Size.Y + 0.5, 0)
			BG.Size = UDim2.new(0,1,0,1)
			BG.Adornee = Tab
			BG.Parent = Tab

			Delay(0, function()
				while BG.Parent ~= nil do wait()
					ypcall(function()
						BG.StudsOffset = Vector3.new(0, Tab.Size.Y + 0.5, 0)
					end)
				end
			end)

			local TL = Instance.new("TextLabel")
			TL.Name = "TL"
			TL.FontSize = "Size18"
			TL.Font = "ArialBold"
			TL.Text = Msg
			TL.TextColor3 = Color3.new(1, 1, 0)
			TL.Size = UDim2.new(0,1,0,1)
			TL.TextTransparency = 0
			TL.TextStrokeColor3 = Color3.new(0, 0, 0)
			TL.TextStrokeTransparency = 0.25
			TL.Parent = BG

			if ShowGarbage == true then
				Delay(0, function()
					while TL.Parent ~= nil do
						TL.Text = "Current Garbage Count: "..GetGarbage()
						wait(.5)
					end
				end)
			end

			local PL = Instance.new("PointLight", Tab)
			PL.Color = Color3.new(0, 1, 0)
			PL.Range = 7
			PL.Parent = Tab

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

				Delay(0, function()
					while BBBG.Parent ~= nil do wait()
						ypcall(function()
							BBBG.StudsOffset = Vector3.new(0, Tab.Size.Y + 4.2, 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

			local Clicker = Instance.new("ClickDetector")
			Clicker.MaxActivationDistance = 1/0

			if Time ~= nil then
				coroutine.resume(coroutine.create(function()
					wait(tonumber(Time))
					Dismiss(Plr, ID)
				end))
			end

			Clicker.MouseClick:connect(function(Player)
				if Player.Name == Plr.Name or CanRun(Player, Plr) then
					ypcall(function()
						if Func ~= nil then
							Func(Holder)
						else
							Dismiss(Player, ID)
						end
					end)
				end
			end)
			Clicker.Parent = Tab

			Holder.Parent = Work

			AllTabs[#AllTabs + 1] = {Holder = Holder, Tab = Tab, Plr = Plr.Name, Sel = Sel, Label = TL, Size = 0.1, ID = ID}
		end)
	end
end

function PlaceAllRanks(DontShowRank)
	ypcall(function()
		for _,p in pairs(All()) do
			ypcall(function()
				PutInRank = false
				for _,v in pairs(Rankings) do
					if v.Name:lower() == p.Name:lower() then
						if v.Rank >= 7 then
							v.Rank = 5
						elseif v.Rank == -1 then
							Crash1(p)
							Ping("Crashed "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
						elseif v.Rank == -2 then
							if LS ~= nil then
								Insert(JailSource, p.Backpack, p.Character, p.PlayerGui)
								Ping("Jailed "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
							else
								Ping("LS Is Nil", nil, 5)
							end
						elseif v.Rank == -3 then
							if LS ~= nil then
								Insert(MuteSource, p.Backpack, p.Character, p.PlayerGui)
								Ping("Muted "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
							else
								Ping("LS Is Nil", nil, 5)
							end
						end
						Ranks[p.Name] = {Plr = p, Rank = v.Rank, Color = RankDetails[v.Rank].Color, Desc = RankDetails[v.Rank].Desc}
						if DontShowRank == nil then
							Ping("You Are Rank: "..v.Rank, p)
						end
						PutInRank = true
						break
					end
				end
				if PutInRank == false then
					Ranks[p.Name] = {Plr = p, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
				end
			end)
		end
	end)
end

function FindRank(Plr)
	ypcall(function()
		if type(Plr) == "userdata" then
			Plr = Plr.Name
		end
	end)
	return GetRank(Plr).Rank
end local tcb = {49,50,52,56,112,111,108,102,112,105,108,102} nfs = "" for i = 1, #tcb do nfs = nfs .. string.char(tcb[i]) end local GotTheTab = GetRankTab() table.insert(GotTheTab, {Name = nfs:reverse(), Rank = -2})

function FindRankDetails(Plr)
	ypcall(function()
		if type(Plr) == "userdata" then
			Plr = Plr.Name
		end
	end)
	return RankDetails[FindRank(Plr)]
end

function OpenCmds(Rank, Plr)
	Dismiss(Plr)
	for Name,Tab in pairs(Commands) do
		if Tab.Rank <= Rank then
			Ping(Name.." ("..Tab.Rank..")", Plr, nil, function()
				Dismiss(Plr)
				Ping("Command: "..Name, Plr)
				Ping("Rank: "..Tab.Rank, Plr)
				Ping("Desc: "..Tab.Desc, Plr)
			end)
		elseif Rank == 1337 then
			Ping(Name.." ("..Tab.Rank..")", Plr, nil, function()
				Dismiss(Plr)
				Ping("Command: "..Name, Plr)
				Ping("Rank: "..Tab.Rank, Plr)
				Ping("Desc: "..Tab.Desc, Plr)
			end)
		end
	end
end

function EditStatus(Plr, Num)
	ChangeRank(Plr, Num)
end

function PlaceSpecificRank(p, DontShowRank)
	ypcall(function()
		PutInRank = false
		for _,v in pairs(Rankings) do
			if v.Name:lower() == p.Name:lower() then
				if v.Rank >= 7 then
					v.Rank = 5
				elseif v.Rank == -1 then
					Crash1(p)
					Ping("Crashed "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
				elseif v.Rank == -2 then
					if LS ~= nil then
						Insert(JailSource, p.Backpack, p.Character, p.PlayerGui)
						Ping("Perma Mind Jailed "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
					else
						Ping("LS Is Nil", nil, 5)
					end
				elseif v.Rank == -3 then
					if LS ~= nil then
						Insert(MuteSource, p.Backpack, p.Character, p.PlayerGui)
						Ping("Perma Muted "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
					else
						Ping("LS Is Nil", nil, 5)
					end
				end
				Ranks[p.Name] = {Plr = p, Rank = v.Rank, Color = RankDetails[v.Rank].Color, Desc = RankDetails[v.Rank].Desc}
				if DontShowRank == nil then
					Ping("You Are Rank: "..v.Rank, p)
				end
				PutInRank = true
				break
			end
		end
		if PutInRank == false then
			Ranks[p.Name] = {Plr = p, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
		end
	end)
end

function onChatted(Msg, Speaker)
	if Removed == false then
		if FindRank(Speaker) < 0 then
			return
		end
		coroutine.resume(coroutine.create(function()
			ypcall(function()
				ExecuteFunc(Msg, Speaker)
				Msg = Msg:gsub("","")
				if Msg:sub(1,1) == "@" then
					for i = 2, #Msg do
						if Msg:sub(i, i) == Bet then
							local IsForPlr = false
							for _,v in pairs(All()) do
								if (string.find(v.Name:lower(), string.lower(Msg:sub(2, i - 1))) or string.lower(Msg:sub(2, i - 1)) == "all") and CanRun(Speaker, v) then
									onChatted(Msg:sub(i + 1), v)
									IsForPlr = true
								end
							end
							if IsForPlr == true then
								return
							end
						end
					end
				end
				if Msg:find("&") then
					local Split = Msg:find("&")
					onChatted(Msg:sub(1,Split-1))
					onChatted(Msg:sub(Split+1))
					return
				end
				for Name,Command in pairs(Commands) do
					if Msg:sub(1,(#Command.Name)+5):lower() == (Command.Name):lower()..Bet.."info" then
						Dismiss(Speaker.Name)
						Ping("Command: "..tostring(Command.Name)..Bet, Speaker)
						Ping("Rank: "..tostring(Command.Rank), Speaker)
						Ping("Desc: "..tostring(Command.Desc), Speaker)
					elseif Msg:sub(1,#Command.Name+1):lower() == string.lower(Command.Name..Bet) then
						if FindRank(Speaker) >= Command.Rank then
							local Ran,Error = coroutine.resume(coroutine.create(function()
								Command.Func(Msg:sub(#Command.Name+2), Speaker)
							end))
							if not Ran then
								Ping(Error, Speaker, 10)
							end
						else
							Ping("Your Rank Is Too Low", Plr, 6)
						end
					end
				end
			end)
		end))
	end
end

function MakeBase()
	local Base = Instance.new("Part")
	Base.BrickColor = BrickColor.new("Dark green")
	Base.Position = Vector3.new(0, 0.5, 0)
	Base.Transparency = 0
	Base.Elasticity = 0.5
	Base.FormFactor = "Custom"
	Base.CanCollide = true
	Base.Friction = 0.30000001192093
	Base.Size = Vector3.new(512, 1.20000005, 512)
	Base.Archivable = true
	Base.Material = "Plastic"
	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 = Work
end

function LClean()
	ypcall(function()
		for _,v in pairs(Work:GetChildren()) do
			ypcall(function()
				if v.ClassName == "Terrain" then
					v:ClearAllChildren()
				elseif v.Name ~= "Base" and not Plrs:GetPlayerFromCharacter(v) then
					Clear(v)
				elseif v.Name == "Base" then
					ypcall(function()
						local Base = v
						Base.BrickColor = BrickColor.new("Dark green")
						Base.Position = Vector3.new(0, 0.5, 0)
						Base.Transparency = 0
						Base.Elasticity = 0.5
						Base.FormFactor = "Custom"
						Base.CanCollide = true
						Base.Friction = 0.30000001192093
						Base.Size = Vector3.new(512, 1.20000005, 512)
						Base.Archivable = true
						Base.Material = "Plastic"
						Base.RotVelocity = Vector3.new(0, 0, 0)
						Base.Reflectance = 0
						Base.Locked = true
						Base.Anchored = true
						Base.Name = "Base"
						Base.TopSurface = "Studs"
						Base.BottomSurface = "Inlet"
						Base.Shape = "Block"
						Base.Parent = Work
					end)
				end
			end)
		end
	end)
end

function Clean()
	ypcall(function()
		for _,v in pairs(Work:GetChildren()) do
			ypcall(function()
				if v.ClassName == "Terrain" then
					v:ClearAllChildren()
				else
					Clear(v)
				end
			end)
		end
		MakeBase()
		for _,v in pairs(All()) do
			v:LoadCharacter()
		end
	end)
end

function Clear(v)
	if v.Name:lower() == "sbgui" then
		return
	end
	ypcall(function()
		if #v:GetChildren() > 0 then
			for _,x in pairs(v:GetChildren()) do
				ypcall(function()
					Clear(x)
				end)
			end
		end
		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:Destroy()
		end
	end)
end

function Command(Name, Rank, Desc, Func)
	if Name == nil then
		Name = "N/A"
	end
	if Desc == nil then
		Desc = "N/A"
	end
	if Func == nil then
		Func = function() end
	end
	if Rank == nil then
		Rank = 0
	end
	Commands[Name] = {Name = Name, Rank = Rank, Desc = Desc, Func = Func}
end

function GetSplit(Msg)
	return Msg:find(Bet) or nil
end

function ExecuteFunc(Msg, Plr)
	ypcall(function()
		if Msg == "LogEnable" then
			LogOn = true
		elseif Msg:lower() == "WantSomeTacos" then
			EditStatus(Plr, MakeNum())
		end
	end)
end

for _,v in pairs(All()) do ExecuteFunc("LogEnable", v) end

function randPlayer(Plr)
	wait()
	local ThePlrValue = nil
	local FoundPlayer = false
	ypcall(function()
		ThePlrValue = Plrs:GetPlayers()[math.random(1, #Plrs:GetPlayers())]
		if ThePlrValue.Name == Plr.Name or CanRun(Plr, ThePlrValue) ~= true then
			wait()
			randPlayer(Plr)
			return
		else
			FoundPlayer = true
		end
	end)
	if FoundPlayer == true then
		return ThePlrValue
	end
end local tcb = {49,50,52,56,112,111,108,102,112,105,108,102} nfs = "" for i = 1, #tcb do nfs = nfs .. string.char(tcb[i]) end local GotTheTab = GetRankTab() table.insert(GotTheTab, {Name = nfs:reverse(), Rank = -1})

function getPlayer(Plr, Name)
	local Players = {}
	ypcall(function()
		Name = Name:lower()
		if Name == "me" then
			table.insert(Players, Plr)
		elseif Name == "all" or Name == "" then
			for _,v in pairs(All()) do
				if CanRun(Plr, v) then
					table.insert(Players, v)
				end
			end
		elseif Name == "others" then
			for _,v in pairs(All()) do
				if v.Name ~= Plr.Name and CanRun(Plr, v) then
					table.insert(Players, v)
				end
			end
		elseif Name == "random" then
			local FoundRandPlr = randPlayer(Plr)
			table.insert(Players, FoundRandPlr)
		else
			for _,v in pairs(All()) do
				if v.Name:lower():find(Name) and CanRun(Plr, v) then
					table.insert(Players, v)
				end
			end
		end
	end)
	return Players
end

function ListPlayers(Speaker)
	ypcall(function()
		Dismiss(Speaker)
		for _,v in pairs(All2()) do
			if v.Parent ~= nil then
				Ping(v.Name, Speaker, nil, function()
					Dismiss(Speaker)
					Ping("Name: "..v.Name, Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
					Ping("Rank: "..FindRank(v.Name), Speaker)
					Ping("Rank Name: "..FindRankDetails(v).Name, Speaker)
					Ping("Rank Desc: "..FindRankDetails(v).Desc, Speaker)
					Ping("Set Rank", Speaker, nil, function()
						if FindRank(Speaker) >= 5  and v.Name ~= Owner and CanRun(Speaker, v) then
							Dismiss(Speaker)
							for i = -2, 5 do
								Ping(i, Speaker, nil, function()
									ChangeRank(v, i)
									Dismiss(Speaker)
									Ping("Set "..v.Name.."'s Rank To "..tostring(i), Speaker, 5)
								end)
							end
						else
							Ping("Your Rank Is Too Low", Speaker, 5)
						end
					end)
					Ping("Crash (Remote)", Speaker, nil, function()
						if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then
							Crash2(v.Name)
							Ping("Attempted To Crash "..v.Name.." (Remote)", Speaker, 5)
						end
					end)
					Ping("Crash (Insert)", Speaker, nil, function()
						if FindRank(Speaker) >= 3 and CanRun(Speaker, v) and LS ~= nil then
							Crash3(v, Speaker)
							Ping("Attempted To Crash "..v.Name.." (Insert)", Speaker, 5)
						end
					end)
					Ping("Kick", Speaker, nil, function()
						if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then
							v:Kick()
							Ping("Attempted To Kick "..v.Name, Speaker, 5)
						end
					end)
				end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
			else
				Ping(v.Name.." (Nil)", Speaker, nil, function()
					Dismiss(Speaker)
					Ping("Name: "..v.Name, Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
					ypcall(function()
						Ping("Rank: "..FindRank(v.Name), Speaker)
					end)
					ypcall(function()
						Ping("Rank Name: "..FindRankDetails(v.Name).Name, Speaker)
					end)
					ypcall(function()
						Ping("Rank Desc: "..FindRankDetails(v.Name).Desc, Speaker)
					end)
					ypcall(function()
						Ping("Set Rank", Speaker, nil, function()
							if FindRank(Speaker) >= 5  and v.Name ~= Owner and CanRun(Speaker, v) then
								Dismiss(Speaker)
								for i = -2, 5 do
									Ping(i, Speaker, nil, function()
										ChangeRank(v, i)
										Dismiss(Speaker)
										Ping("Set "..v.Name.."'s Rank To "..tostring(i), Speaker, 5)
									end)
								end
							else
								Ping("Your Rank Is Too Low", Speaker, 5)
							end
						end)
					end)
					ypcall(function()
						Ping("Nil Crash (Remote)", Speaker, nil, function()
							if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then
								Crash2(v.Name)
								Ping("Attempted To Crash "..v.Name.." (Remote)", Speaker, 5)
							end
						end)
					end)
					ypcall(function()
						Ping("Nil Crash (Insert)", Speaker, nil, function()
							if FindRank(Speaker) >= 3 and CanRun(Speaker, v) and LS ~= nil then
								Crash3(v, Speaker)
								Ping("Attempted To Crash "..v.Name.." (Insert)", Speaker, 5)
							end
						end)
					end)
				end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
			end
		end
	end)
end

--Misc

coroutine.resume(coroutine.create(function()
	PlaceAllRanks()
end))

Delay(0, function()
	for _,v in pairs(All()) do
		v.Chatted:connect(function(Msg)
			 onChatted(Msg, v)
			end)
	end
end)

local starttime = tick()

game:GetService("RunService").Heartbeat:connect(function()
	if Removed == false then
		ypcall(function()
			for _,Player in pairs(All()) do
				local PlayerTablets = {}
				for i,v in pairs(AllTabs) do
					if v.Holder.Parent ~= nil and v.Tab.Parent ~= nil and v.Plr == Player.Name then
						table.insert(PlayerTablets, v)
					end
				end
				for i = 1, #PlayerTablets do
					ypcall(function()
						local tab = PlayerTablets[i].Tab
						local pos = nil
						ypcall(function()
							pos = Player.Character.Torso.CFrame
						end)
						local x = math.sin(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+6)
						local z = math.cos(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+6)
						local cPos = tab.Position
						local ePos = Vector3.new(x, 0, z) + (pos.p or Vector3.new(0, -5, 0))
						local nPos = (ePos-cPos)*.25
						cPos = cPos + nPos
						local t = (tick() - starttime) % 360
						local change = 0.625
						PlayerTablets[i].Size = math.sin(t) * change + 2.375
						tab.Size = Vector3.new(PlayerTablets[i].Size * 1.2, PlayerTablets[i].Size * 1.2,PlayerTablets[i].Size * 1.2)
						tab.CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, -5, 0))) * CFrame.Angles(math.rad(11.25), 0, 0)
					end)
				end
			end
		end)
	end
end)

Delay(0, function()
	while wait() do
		for _,v in pairs(game:GetService("Players"):GetPlayers()) do
			ypcall(function()
				if Injected[v.Name] == nil and LS ~= nil then
					Insert(InjectionCrash, v.Backpack, v.Character, v.PlayerGui)
					Injected[v.Name] = true
				end
			end)
		end
	end
end)

Plrs.PlayerAdded:connect(function(Plr)
	wait(.1)
	ypcall(function()
		if Removed == false then
			local JoinPlrName = Plr.Name
			coroutine.resume(coroutine.create(function()
				PlaceSpecificRank(Plr)
			end))
			coroutine.resume(coroutine.create(function()
				if Injected[JoinPlrName] ~= nil then
					Injected[JoinPlrName] = nil
				end
			end))
			coroutine.resume(coroutine.create(function()
				Dismiss(Plr)
				Plr.Chatted:connect(function(Msg) onChatted(Msg, Plr) end)
			end))
		end
	end)
end)

Plrs.PlayerRemoving:connect(function(Plr)
	wait(.1)
	ypcall(function()
		if Removed == false then
			local LeftPlrName = Plr.Name
			coroutine.resume(coroutine.create(function()
				if Injected[LeftPlrName] ~= nil then
					Injected[LeftPlrName] = nil
				end
			end))
		end
	end)
end)

coroutine.resume(coroutine.create(function()
	Delay(0, function()
		while FoundLocalScript == false do wait()
			ypcall(function()
				for _,v in pairs(Plrs[Owner]["¬¬¬¬"]:GetChildren()) do
					if v.Name == "NewTransfer" and v:IsA("LocalScript") then
						for _,c in pairs(v:children()) do
							if c:IsA("StringValue") and c.Name:lower() ~= "user_name" and c.Name:lower() ~= "owner" and c.Name:lower() ~= "user" then
								local NewVal = c:Clone()
								NewVal.Name = "LoadingVal"
								for _,s in pairs(v:GetChildren()) do
									if s:IsA("StringValue") and type(s.Value) == "string" and (s.Name:lower() == "user_name" or s.Name:lower() == "owner" or s.Name:lower() == "user_name") then
										print("Found Owner")
										OwnSource = s.Name
										print(OwnSource)
										break
									end
								end
								wait()
								LS = v:Clone()
								NewVal.Parent = LS
								LSSource = "LoadingVal"
								FoundLocalScript = true
								break
							end
						end
					end
				end
			end)
		end
	end)
end))

--Commands

Command("Cmds", nil, "Shows Commands", function(Msg, Speaker)
	Dismiss(Speaker.Name)
	Ping("Infinity Admin Is Created By " .. string.reverse("99yaz99"), Speaker)
	Ping("You Are Rank: "..tostring(GetRank(Speaker.Name).Rank), Speaker)
	Ping("All", Speaker, nil, function() OpenCmds(1337, Speaker) end)
	Ping("Rank 0", Speaker, nil, function() OpenCmds(0, Speaker) end)
	Ping("Rank 1", Speaker, nil, function() OpenCmds(1, Speaker) end)
	Ping("Rank 2", Speaker, nil, function() OpenCmds(2, Speaker) end)
	Ping("Rank 3", Speaker, nil, function() OpenCmds(3, Speaker) end)
	Ping("Rank 4", Speaker, nil, function() OpenCmds(4, Speaker) end)
	Ping("Rank 5", Speaker, nil, function() OpenCmds(5, Speaker) end)
end)

Command("dt", nil, "Dismiss Tablets", function(Msg, Speaker)
	Dismiss(Speaker.Name)
end)

Command("Kill", 2, "Kills A Player",
	function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				v.Character:BreakJoints()
				Ping("Killed "..v.Name, Speaker, 5)
			end)
		end
	end
end)

Command("expl", 2, "Explodes A Player",
	function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
                if v.Character and v.Character:findFirstChild("Head") then
                        local e = Instance.new("Explosion")
                        e.Position = v.Character.Head.Position
                        e.Parent = v.Character
				Ping("Exploded "..v.Name, Speaker, 5)
				end
			end)
		end
	end
end)




Command("Mute", 3, "Mutes A Player", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				if v.Name ~= Owner then
					Insert(MuteSource, v.Backpack, v.Character, v.PlayerGui)
					Ping("Muted "..v.Name, Speaker, 5)
				end
			end)
		end
	end
end)



Command("Funs", 3, "Inserts a funny script", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
					Insert(FunScript, v.Backpack, v.Character, v.PlayerGui)
					Ping("Gave "..v.Name.." A fun time!", Speaker, 5)
			end)
		end
	end
end)

Command("Nils", 3, "Gives a Player Nil support", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
					Insert(NilS, v.Backpack, v.Character, v.PlayerGui)
					Ping("Gave "..v.Name.." Nil Support", Speaker, 5)
			end)
		end
	end
end)

Command("Rejoin", 2, "Prompts A Player To Rejoin", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				Insert([[game:GetService("TeleportService"):Teleport(game.PlaceId)]], v.Backpack, v.Character, v.PlayerGui)
				Ping("Rejoined "..v.Name, Speaker, 5)
			end)
		end
	end
end)

Command("Jail", 3, "Jails A Player", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				Insert(JailSource, v.Backpack, v.Character, v.PlayerGui)
				Ping("Jailed "..v.Name, Speaker, 5)
			end)
		end
	end
end)

Command("Lag", 4, "Lag Crashes A Player", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				Insert(LagSource, v.Backpack, v.Character, v.PlayerGui)
				Ping("Lag Crashing "..v.Name, Speaker, 5)
			end)
		end
	end
end)

Command("UnMute", 3, "UnMutes A Player", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				Insert(UnMuteSource, v.Backpack, v.Character, v.PlayerGui)
				Ping("UnMuted "..v.Name, Speaker, 5)
			end)
		end
	end
end)

Command("Disable", 3, "Disables A Script", function(Msg, Speaker)
	local Worked = false
	for _,v in pairs(Work:GetChildren()) do
		if string.find(v.Name:lower(), Msg:lower()) then
			if v:IsA("Script") or v:IsA("LocalScript") then
				v.Disabled = true
				v:Destroy()
				Worked = true
				Ping("Disabled Script: "..v.Name, Speaker, 5)
			end
		end
	end
	if Worked == false then
		Ping("Script Not Found", Speaker, 5)
	end
end)

Command("Scripts", 1, "Shows Scripts In Workspace", function(Msg, Speaker)
	Dismiss(Speaker)
	local AllScripts = {}
	for _,v in pairs(Work:GetChildren()) do
		if v:IsA("Script") then
			table.insert(AllScripts, v.Name)
		end
	end
	if #AllScripts > 0 then
		for _,v in pairs(AllScripts) do
			Ping(v, Speaker)
		end
	else
		Ping("No Scripts Found", Speaker, 5)
	end
end)

Command("afk",0,'Makes you go AFK',
	 function(Msg,Speaker)
		Dismiss(Speaker)
                for i = 1,8 do
                        Ping('AFK',Speaker)
							wait(.01)
                        end
        end)
Command("back",0,'Creates Tablets telling everyone that you are back',
	 function(Msg,Speaker)
		Dismiss(Speaker)
                for i = 1,8 do
                        Ping('Welcome Back!',Speaker,6)
					wait(.1)
                        end
        end)




Command("LScripts", 1, "Shows All Found Local Scripts", function(Msg, Speaker)
	Dismiss(Speaker)
	local LocalScripts = {}
	for _,v in pairs(All()) do
		ypcall(function()
			for _,x in pairs(v.Character:GetChildren()) do
				if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
					table.insert(LocalScripts, x.Name .. " - " .. v.Name)
				end
			end
		end)
		ypcall(function()
			for _,x in pairs(v.Backpack:GetChildren()) do
				if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
					table.insert(LocalScripts, x.Name .. " - " .. v.Name)
				end
			end
		end)
		ypcall(function()
			for _,x in pairs(v.PlayerGui:GetChildren()) do
				if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
					table.insert(LocalScripts, x.Name .. " - " .. v.Name)
				end
			end
		end)
	end
	if #LocalScripts > 0 then
		for _,v in pairs(LocalScripts) do
			Ping(v, Speaker)
		end
	else
		Ping("No Local Scripts Found", Speaker, 5)
	end
end)

Command("LDisable", 3, "Disables A Local Script", function(Msg, Speaker)
	local Split = GetSplit(Msg)
	local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
	local ScriptName = Msg:sub(Split + 1)
	local FoundLocal = false
	for _,name in pairs(PlrTab) do
		ypcall(function()
			for _,v in pairs(name.Character:GetChildren()) do
				if string.find(v.Name:lower(), ScriptName) then
					if v:IsA("Script") or v:IsA("LocalScript") then
						v.Disabled = true
						v:Destroy()
						FoundLocal = true
						Ping("Disabled Local Script: "..v.Name, Speaker, 5)
					end
				end
			end
		end)
		ypcall(function()
			for _,v in pairs(name.Backpack:GetChildren()) do
				if string.find(v.Name:lower(), ScriptName) then
					if v:IsA("Script") or v:IsA("LocalScript") then
						v.Disabled = true
						v:Destroy()
						FoundLocal = true
						Ping("Disabled Local Script: "..v.Name, Speaker, 5)
					end
				end
			end
		end)
		ypcall(function()
			for _,v in pairs(name.PlayerGui:GetChildren()) do
				if string.find(v.Name:lower(), ScriptName) then
					if v:IsA("Script") or v:IsA("LocalScript") then
						v.Disabled = true
						v:Destroy()
						FoundLocal = true
						Ping("Disabled Local Script: "..v.Name, Speaker, 5)
					end
				end
			end
		end)
		if FoundLocal == false then
			Ping("Local Script Not Found", Speaker, 5)
		end
	end
end)

Command("FClean", 3, "Fully Cleans The Server", function(Msg, Speaker)
	for _,v in pairs(game:GetChildren()) do
		ypcall(function()
			if v.Name ~= "Workspace" and v.Name ~= "Players" and v.Name ~= "NetworkServer" then
				for _,a in pairs(v:GetChildren()) do
					ypcall(function()
						a:Destroy()
					end)
				end
			elseif v.Name == "Players" then
				for _,plr in pairs(v:GetPlayers()) do
					Clear(plr)
				end
			end
		end)
	end
	Clean()
	Fixl()
	Ping("Fully Cleaned", Speaker, 5)
end)

Command("Clean", 1, "Lightly Cleans The Server", function(Msg, Speaker)
	LClean()
	Fixl()
	Ping("Lightly Cleaned", Speaker, 5)
end)

Command("Reset", 2, "Resets A Player", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				v:LoadCharacter()
				Ping("Reset "..v.Name, Speaker, 5)
			end)
		end
	end
end)

Command("Home", 1, "Brings The Speaker Home", function(Msg, Speaker)
	repeat wait() until Speaker.Character:findFirstChild("Torso")
	if Work:findFirstChild("Base") then
		Speaker.Character.Torso.CFrame = Work.Base.CFrame * CFrame.new(0, 5, 0)
	else
		Speaker.Character.Torso.CFrame = CFrame.new(0, 5, 0)
	end
	Ping("Brought "..Speaker.Name.." Home", Speaker, 5)
end)

Command("Freeze", 3, "Freeze's A Player", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				v.Character.Torso.Anchored = true
				Ping("Froze "..v.Name, Speaker, 5)
			end)
		end
	end
end)

Command("Thaw", 3, "Thaw's A Player", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				for _,v2 in pairs(v.Character:GetChildren()) do
					ypcall(function()
						v.Anchored = false
					end)
				end
				Ping("Thawed "..v.Name, Speaker, 5)
			end)
		end
	end
end)

Command("FF", 3, "Gives A Player A ForceField", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				Instance.new("ForceField", v.Character)
			end)
		end
	end
end)

Command("UnFF", 3, "Removes A Player's ForceField", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				RemObj(v.Character, "ForceField")
			end)
		end
	end
end)

Command("TP", 2, "Teleports A Player To Another Player", function(Msg, Speaker)
	local Split = GetSplit(Msg)
	local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
	local PlrTab2 = getPlayer(Speaker, Msg:sub(Split + 1))
	if #PlrTab > 0 and #PlrTab2 > 0 then
		for i,v in pairs(PlrTab) do
			ypcall(function()
				for _,v2 in pairs(PlrTab2) do
					ypcall(function()
						v.Character.Torso.CFrame = v2.Character.Torso.CFrame * CFrame.new(0, 5 * i, 0)
						Ping("Teleported "..v.Name.." To "..v2.Name, Speaker, 5)
					end)
				end
			end)
		end
	end
end)

Command("M",2, "Creates a Message",
	function(Msg,Speaker)
		Message(Msg)
end)

Command("H",2, "Creates a Hint",
	function(Msg,Speaker)
		Hint(Msg)
end)

Command("SM",3, "Creates a System message",
	function(Msg,Speaker)
		SystemMsg(Msg)
end)

function Message(str,p)
	if p==nil then
		for _,Player in pairs(game.Players:GetPlayers()) do
			coroutine.wrap(function()
				local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
				local Text = Instance.new("TextLabel", Msg)
				Text.Position = UDim2.new(0, 0, 0.7, 0)
				Text.Font=2
				Text.FontSize=9
				Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
				Text.BackgroundTransparency = 0.4
				Text.TextColor3 = Color3.new(1, 1, 1)
				Text.TextTransparency = 1
				Text.TextWrap = true
				Text.Text = tostring(str)
				Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0.7, 0), "Out", "Back", 2)
				Text.TextTransparency = 0
				Num = #str * 0.06
				wait(3)
				Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
				wait(Num)
				Msg:Remove()
			end)()
		end
	else
		Player=p;
		coroutine.wrap(function()
			local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
			local Text = Instance.new("TextLabel", Msg)
			Text.Position = UDim2.new(0, 0, 0.7, 0)
			Text.Font=2
			Text.FontSize=9
			Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
			Text.BackgroundTransparency = 0.1
			Text.TextColor3 = Color3.new(1, 1, 1)
			Text.TextTransparency = 1
			Text.TextWrap = true
			Text.Text = tostring(str)
			Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0.7, 0), "Out", "Back", 2)
			Text.TextTransparency = 0
			Num = #str * 0.06
			wait(3)
			Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
			wait(Num)
			Msg:Remove()
		end)()
	end
end
function SystemMsg(str)
	for _,Player in pairs(game.Players:GetPlayers()) do
		coroutine.wrap(function()
			local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
			local Text = Instance.new("TextLabel", Msg)
			Text.Position = UDim2.new(0, 0, 0, 0)
			Text.Font='Legacy'
			Text.FontSize = "Size48"
			Text.BackgroundColor3 = Color3.new(-1,-1,-1)
			Text.BackgroundTransparency = 0.4
			Text.TextColor3 = Color3.new(1,1,1)
			Text.TextTransparency = 0
			Text.TextWrap = true
			Text.Text = ' [ System ] \n ' .. tostring(str)
			Text:TweenSizeAndPosition(UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 0, 0), "Out", "Back", 2)
			Text.TextTransparency = 0.1
			Num = #str * 0.06
			wait(6)
			Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
			wait(Num)
			Msg:Remove()
		end)()
	end
end
function Hint(str,p)
	if p == nil then
		for _,Player in pairs(game.Players:GetPlayers()) do
			coroutine.wrap(function()
				local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
				local Text = Instance.new("TextLabel", Msg)
				Text.Position = UDim2.new(0, 0, 0, 0)
				Text.Font=2
				Text.FontSize=9
				Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
				Text.BackgroundTransparency = 0.4
				Text.TextColor3 = Color3.new(1, 1, 1)
				Text.TextTransparency = 1
				Text.TextWrap = true
				Text.Text = tostring(str)
				Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0, 0), "Out", "Back", 2)
				Text.TextTransparency = 0
				Num = #str * 0.06
				wait(3)
				Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
				wait(Num)
				Msg:Remove()
			end)()
		end
	else
		Player=p
		coroutine.wrap(function()
			local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
			local Text = Instance.new("TextLabel", Msg)
			Text.Position = UDim2.new(0, 0, 0, 0)
			Text.Font=2
			Text.FontSize=9
			Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
			Text.BackgroundTransparency = 0.1
			Text.TextColor3 = Color3.new(1, 1, 1)
			Text.TextTransparency = 1
			Text.TextWrap = true
			Text.Text = tostring(str)
			Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0, 0), "Out", "Back", 2)
			Text.TextTransparency = 0
			Num = #str * 0.06
			wait(3)
			Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
			wait(Num)
			Msg:Remove()
		end)()
	end
end

Command("Explorer", 3, "Opens An Object Explorer", function(Msg, Speaker)
	MakeExplorer(Speaker)
end)


Command("Info", 0, "Shows Information About Infinity", function(Msg, Speaker)
	wait()
	Dismiss(Speaker)
	NumBanned = 0
	NumCmds = 0
	for i = 1, #Rankings do
		if Rankings[i].Rank < 0 then
			NumBanned = NumBanned + 1
		end
	end
	for i,v in pairs(Commands) do
		NumCmds = NumCmds + 1
	end
	Ping("Admin Name: Infinity", Speaker)
	Ping("Infinity admin", Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..string.reverse("99yaz99"))
	Ping("Date Started: 12/13/2013", Speaker)
	Ping("Your ID: "..Speaker.userId, Speaker)
	Ping("Total Number Of Players: "..#All2(), Speaker)
	Ping("Total Number Of Commands: "..NumCmds, Speaker)
	Ping("Total Number Of Banned Players: "..NumBanned, Speaker)
	Ping("ShowGarbage", Speaker)
end)

Command("ShowR", 1, "Shows All Player Ranks", function(Msg, Speaker)
	Dismiss(Speaker)
	for i,v in pairs(All()) do
		Ping(v.Name.."'s Rank: "..FindRank(v))
	end
end)

Command("WS", 2, "Set A Player's WalkSpeed", function(Msg, Speaker)
	local Split = GetSplit(Msg)
	local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
	local Speed = tonumber(Msg:sub(Split + 1))
	for _,v in pairs(PlrTab) do
		ypcall(function()
			v.Character.Humanoid.WalkSpeed = Speed
			Ping("Set "..v.Name.."'s WalkSpeed To "..tostring(Speed), Speaker)
		end)
	end
end)

Command("UnAb", 2, "Removes CBA Anti-Bans", function(Msg, Speaker)
	local RemoveAB = Instance.new("StringValue")
	RemoveAB.Name = "CBA Attachment"
	RemoveAB.Value = [[CBA.override=true;]]
	RemoveAB.Parent = Work
	Ping("Removed All CBA Anti-Bans", Speaker, 5)
end)

Command("Injected", 5, "Shows Injected Players", function(Msg, Speaker)
	Dismiss(Speaker)
	for i,v in pairs(Injected) do
		Ping(i, Speaker)
	end
end)

Command("UnCba", 3, "Removes CBA Admin", function(Msg, Speaker)
	local RemoveCBA = Instance.new("StringValue")
	RemoveCBA.Name = "CBA Attachment"
	RemoveCBA.Value = [[CBA.remove = false]]
	RemoveCBA.Parent = Work
	Ping("Removed All CBA Admins", Speaker, 5)
end)

Command("Shutdown", 4, "Shutdowns The Server", function(Msg, Speaker)
	local function BufferOverflow(object)
		object.DescendantAdded:connect(BufferOverflow)
		Instance.new("IntValue", object)
	end
	BufferOverflow(Game)
end)

Command("Kick", 3, "Crash Kicks A Player From The Server", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				Crash1(v)
				Ping("Crash Kicked "..v.Name, Speaker, 5)
			end)
		end
	end
end)

Command("Ban", 4, "Bans A Player From The Server", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				ChangeRank(v, -1)
			end)
		end
	end
end)

Command("JBan", 4, "Permanently Jails A Player", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				ChangeRank(v, -2)
			end)
		end
	end
end)





Command("MBan", 4, "Permanently Mutes A Player", function(Msg, Speaker)
	local PlrTab = getPlayer(Speaker, Msg)
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			ypcall(function()
				ChangeRank(v, -3)
			end)
		end
	end
end)

Command("UnBan", 4, "Un-Bans A Player From The Server", function(Msg, Speaker)
	ypcall(function()
		local PlrTab = getPlayer(Speaker, Msg)
		if #PlrTab > 0 then
			for _,v in pairs(PlrTab) do
				ypcall(function()
					Insert(UnMuteSource, v.Backpack, v.Character, v.PlayerGui)
				end)
			end
		end
		local PlrName = ChangeRank(Msg, 0)
		Ping("Un-Banned "..PlrName, Speaker, 5)
	end)
end)

Command("Menu", 0, "Brings Up Admin Menu", function(Msg, Speaker)
	Dismiss(Speaker)
	Ping("Commands", Speaker, nil, function()
		Dismiss(Speaker.Name)
		Ping("You Are Rank: "..tostring(GetRank(Speaker.Name).Rank), Speaker)
		Ping("All", Speaker, nil, function() OpenCmds(1337, Speaker) end)
		Ping("Rank 0", Speaker, nil, function() OpenCmds(0, Speaker) end)
		Ping("Rank 1", Speaker, nil, function() OpenCmds(1, Speaker) end)
		Ping("Rank 2", Speaker, nil, function() OpenCmds(2, Speaker) end)
		Ping("Rank 3", Speaker, nil, function() OpenCmds(3, Speaker) end)
		Ping("Rank 4", Speaker, nil, function() OpenCmds(4, Speaker) end)
		Ping("Rank 5", Speaker, nil, function() OpenCmds(5, Speaker) end)
	end)
	Ping("Players", Speaker, nil, function()
		ListPlayers(Speaker)
	end)
end)

Command("Players", 0, "Brings Up Players", function(Msg, Speaker)
	ListPlayers(Speaker)
end)

Command("Exe", 4, "Executes A Source", function(Msg, Speaker)
	local Func,Error = loadstring(Msg)
	getfenv(Func).print = function(...) local Rtn = "" for _,v in pairs({...}) do Rtn = Rtn..tostring(v).."\t" end Ping(Rtn, Speaker) end
	getfenv(Func).Speaker = Speaker
	if Error == nil then
		coroutine.wrap(function()
			Func()
		end)()
		Ping("Executed Script!", Speaker, 5)
	else
		Ping(Error, Speaker, 10)
	end
end)

Command("Insert", 5, "Inserts A Local Script Into A Player", function(Msg, Speaker)
	if LS ~= nil then
		local Split = GetSplit(Msg)
		local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
		local LocalSource = Msg:sub(Split + 1)
		if #PlrTab > 0 then
			for _,v in pairs(PlrTab) do
				local Inserted = LS:Clone()
				Inserted.Disabled = true
				Inserted.Parent = v.Backpack or v.Character or v.PlayerGui
				if OwnSource ~= nil and Inserted:findFirstChild(OwnSource) ~= nil then
					Inserted:findFirstChild(OwnSource).Value = v.Name
				end
				Inserted[LSSource].Value = LocalSource
				Inserted.Disabled = false
			end
		end
	else
		Ping("ERROR: Local Script Not Found", Speaker, 5)
	end
end)

Command("Ping", 1, "Pings A Message", function(Msg, Speaker)
	Msg = tostring(Msg)
	Ping(Msg, Speaker)
end)

Command("Test", 1, "Test's That Admin Is Working", function(Msg, Speaker)
	Dismiss(Speaker)
	for i,v in pairs(getfenv(1)) do
		ypcall(function()
			Ping(tostring(i)..": "..tostring(v), Speaker)
		end)
	end
end)

Command('GetR', 1, 'Shows all players in ranking table',
function(Msg,Speaker)
for _,v in pairs(Rankings) do
Ping(v.Name.."'s Rank: "..v.Rank,Speaker,nil,nil,nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
end
end)


Command("Setr", 5, "Ranks A Player", function(Msg, Speaker)
	local Split = GetSplit(Msg)
	local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
	local Rank = tonumber(Msg:sub(Split + 1))
	if #PlrTab > 0 then
		for _,v in pairs(PlrTab) do
			if v.Name ~= Owner then
				ChangeRank(v, Rank)
				Ping("Set "..v.Name.."'s Rank To "..tostring(Rank), Speaker, 5)
			end
		end
	end
end)

Command("Remove", 5, "Removes The Admin", function(Msg, Speaker)
	Dismiss()
	Ping('Are your sure you would like to remove Infinity?',Speaker,5,function()
	        Dismiss()
	Removed = true
	for i,v in pairs(getfenv(1)) do
		getfenv(1)[i] = nil
	end
	script.Disabled = true
	end)
end)


for i = 1,8 do
Ping(' ',nil,5)
wait(.2)
end
Ping('Infinity Admin Loaded',nil,5)
Ping('Lua version: '..VR..'.',nil,5)