Create a new version of paste:

 local Admins = {
	{Name = "Player",Rank = 3},
	{Name = "xJaffie",Rank = 5000},
} -- Who can have admin. Set 'Name' to there name, and 'Rank' to there rank. Goes as follows:

--1, can use nonabusive.
--2, can use administrative and nonabusive, but no abusives.
--3, can use anything they want.

local Banned = {
	{Name = "Enemy",Reason = "Noob"},
} -- Who is banned. Set 'Name' to there name, and 'Reason' to why they are banned.

local Prefix = "-" -- What comes before a command.
local Seperator = " " -- What seperates arguments.

local MinimumAge = 50 -- What age you have to be to play the game.

--Do not touch below this line, unless you know what you are doing.

script:Destroy()

local Players = game:GetService("Players")

local Commands = {}
local CommandsInfo = {}

local function MakeTablet(Text,Function,Player,Color)
	if #Text >= 1 then else return end
	if not Color and Player:FindFirstChild("Color") then
		Color = Player.Color.Value
	elseif not Color then
		Color = "Deep orange"
	end
	local Model
	for _,v in next,workspace:GetChildren() do
		if v.Name == "[Tablets] "..Player.Name then
			Model = v
		end
	end
	local Tablet = Instance.new("Part",Model)
		Tablet.BrickColor = BrickColor.new(Color)
		Tablet.FormFactor = Enum.FormFactor.Custom
		Tablet.Shape = Enum.PartType.Ball
		Tablet.Material = Enum.Material.SmoothPlastic
		Tablet.Name = "Tablet"
		Tablet.FormFactor = Enum.FormFactor.Symmetric
		Tablet.Size = Vector3.new(2,2,2)
		if Player.Character and Player.Character.Torso then
			Tablet.CFrame = Player.Character.Torso.CFrame*CFrame.new(0,0,-2*#Model:GetChildren())
		end
		Tablet.CanCollide = false
		Tablet.Locked = true
		Tablet.BottomSurface = Enum.SurfaceType.Smooth
		Tablet.TopSurface = Enum.SurfaceType.Smooth
	local TabletBox = Instance.new("SelectionBox",Tablet)
		TabletBox.Adornee = Tablet
		TabletBox.Name = "TabletBox"
		TabletBox.Color = BrickColor.new(Color)
		TabletBox.Transparency = .5
	local ClickDetector = Instance.new("ClickDetector",Tablet)
		ClickDetector.Name = "Detector"
		ClickDetector.MaxActivationDistance = 9e9
	local TabletPos = Instance.new("BodyPosition",Tablet)
		TabletPos.Name = "TabletPos"
		TabletPos.maxForce = Vector3.new(9e9,9e9,9e9)
	local Fire = Instance.new("Fire",Tablet)
		Fire.Size = 3
		Fire.Heat = 7
		Fire.Color = BrickColor.new("Deep blue").Color
		Fire.SecondaryColor = BrickColor.new("Cyan").Color
		Fire.Name = "TabletFire"
	local Light = Instance.new("PointLight",Tablet)
		Light.Name = "TabletLight"
		Light.Brightness = 9e9
		Light.Range = 10
	local TabletGui = Instance.new("BillboardGui",Tablet)
		TabletGui.Name = "TabletGui"
		TabletGui.Active = true
		TabletGui.Size = UDim2.new(0,1,0,1)
		TabletGui.StudsOffset = Vector3.new(0,2.5,0)
		TabletGui.Adornee = Tablet
	local TabletLabel = Instance.new("TextLabel",TabletGui)
		TabletLabel.BackgroundColor3 = Color3.new(0,0,0)
		TabletLabel.BackgroundTransparency = 1
		TabletLabel.BorderColor3 = Color3.new(0,0,0)
		TabletLabel.BorderSizePixel = 0
		TabletLabel.Name = "TabletLabel"
		TabletLabel.Size = UDim2.new(0,1,0,1)
		TabletLabel.Text = Text
		TabletLabel.TextColor3 = Color3.new(1,1,1)
		TabletLabel.TextStrokeColor3 = Color3.new(0,0,0)
		TabletLabel.TextStrokeTransparency = 0
		TabletLabel.Font = Enum.Font.SourceSansBold
		TabletLabel.FontSize = Enum.FontSize.Size18
	if Function == nil then
		Function = function()
			Tablet:Destroy()
		end
	end
	ClickDetector.MouseHoverEnter:connect(function(Hoverer)
		if Hoverer.Name == Player.Name then
			TabletBox.Transparency = 0
			Tablet.Transparency = .5
		end
	end)
	ClickDetector.MouseHoverLeave:connect(function(Hoverer)
		if Hoverer.Name == Player.Name then
			TabletBox.Transparency = .5
			Tablet.Transparency = 0
		end
	end)
	ClickDetector.MouseClick:connect(function(Clicker)
		if Clicker.Name == Player.Name then
			Function(Tablet)
		else
			if Clicker.Character then
				Clicker.Character:BreakJoints()
			end
		end
	end)
end

local function Split(Message)
	local Table = {}
	for String in Message:gmatch("([^"..Seperator.."]+)") do
		table.insert(Table,String)
	end
	return Table
end

local function CheckRank(Player,Rank)
	for _,v in next,Admins do
		if v.Name == Player.Name and v.Rank >= Rank then
			return true
		end
	end
	return false
end

local function AddCmd(String,Usage,Desc,Rank,Function)
	Commands[String] = Function
	table.insert(CommandsInfo,{String,Usage,Desc,Rank})
end

local function Dismiss(Player)
	for _,v in next,workspace:GetChildren() do
		if v.Name == "[Tablets] "..Player.Name then
			for _,Child in next,v:GetChildren() do
				Child:Destroy()
			end
		end
	end
end

local function SendHint(Player,From,Text)
	if Player.PlayerGui then
		coroutine.wrap(function()
			local HintGui = Instance.new("ScreenGui",Player.PlayerGui)
				HintGui.Name = "HintGui"
			local HintFromLabel = Instance.new("TextButton",HintGui)
				HintFromLabel.BackgroundColor3 = Color3.new(140/255,140/255,140/255)
				HintFromLabel.BorderColor3 = Color3.new(140/255,140/255,140/255)
				HintFromLabel.BorderSizePixel = 0
				HintFromLabel.Name = "FromLabel"
				HintFromLabel.Size = UDim2.new(.2,0,.075,0)
				HintFromLabel.Text = From.." - Click to close."
				HintFromLabel.TextColor3 = Color3.new(0,0,0)
				HintFromLabel.Font = Enum.Font.Arial
				HintFromLabel.FontSize = Enum.FontSize.Size14
				HintFromLabel.BackgroundTransparency = 1
				HintFromLabel.TextTransparency = 1
			HintFromLabel.MouseButton1Click:connect(function()
				if HintGui then
					HintGui:Destroy()
				end
			end)
			local HintParagraph = Instance.new("TextLabel",HintGui)
				HintParagraph.BackgroundColor3 = Color3.new(140/255,140/255,140/255)
				HintParagraph.BorderColor3 = Color3.new(140/255,140/255,140/255)
				HintParagraph.BorderSizePixel = 0
				HintParagraph.BackgroundTransparency = 1
				HintParagraph.Name = "HintLabel"
				HintParagraph.Position = UDim2.new(.22,0,0,0)
				HintParagraph.Size = UDim2.new(.78,0,.075,0)
				HintParagraph.Text = Text
				HintParagraph.TextWrapped = true
				HintParagraph.TextColor3 = Color3.new(0,0,0)
				HintParagraph.Font = Enum.Font.Arial
				HintParagraph.FontSize = Enum.FontSize.Size18
				HintParagraph.TextTransparency = 1
			local HintSeperator = Instance.new("Frame",HintGui)
				HintSeperator.BackgroundColor3 = Color3.new(0,0,0)
				HintSeperator.BorderColor3 = Color3.new(0,0,0)
				HintSeperator.BorderSizePixel = 0
				HintSeperator.Name = "Seperator"
				HintSeperator.Position = UDim2.new(.2,0,0,0)
				HintSeperator.Size = UDim2.new(.02,1,.075,0)
				HintSeperator.BackgroundTransparency = 1
			for i = 1,0,-.1 do
				HintFromLabel.TextTransparency = i
				HintFromLabel.BackgroundTransparency = i
				HintParagraph.TextTransparency = i
				HintParagraph.BackgroundTransparency = i
				HintSeperator.BackgroundTransparency = i
				wait(.05)
			end
			wait(15)
			if HintGui then
				HintGui:Destroy()
			end
		end)()
	end
end

local function SendMessage(Player,From,Text)
	if Player.PlayerGui then
		coroutine.wrap(function()
			local MessageGui = Instance.new("ScreenGui",Player.PlayerGui)
				MessageGui.Name = "MessageGui"
			local MessageBackground = Instance.new("Frame",MessageGui)
				MessageBackground.BackgroundColor3 = Color3.new(140/255,140/255,140/255)
				MessageBackground.BorderColor3 = Color3.new(140/255,140/255,140/255)
				MessageBackground.BorderSizePixel = 0
				MessageBackground.Name = "Background"
				MessageBackground.Position = UDim2.new(.25,0,.25,0)
				MessageBackground.Size = UDim2.new(.5,0,.5,0)
			local MessageFromLabel = Instance.new("TextButton",MessageBackground)
				MessageFromLabel.BackgroundColor3 = Color3.new(120/255,120/255,120/255)
				MessageFromLabel.BorderColor3 = Color3.new(120/255,120/255,120/255)
				MessageFromLabel.BorderSizePixel = 0
				MessageFromLabel.Name = "FromLabel"
				MessageFromLabel.Size = UDim2.new(1,0,.15,0)
				MessageFromLabel.Text = From.." - Click to close."
				MessageFromLabel.TextColor3 = Color3.new(0,0,0)
				MessageFromLabel.TextTransparency = 1
				MessageFromLabel.FontSize = Enum.FontSize.Size14
				MessageFromLabel.BackgroundTransparency = 1
			MessageFromLabel.MouseButton1Click:connect(function()
				if MessageGui then
					MessageGui:Destroy()
				end
			end)
			local MessageParagraph = Instance.new("TextLabel",MessageBackground)
				MessageParagraph.BackgroundColor3 = Color3.new(100/255,100/255,100/255)
				MessageParagraph.BorderColor3 = Color3.new(100/255,100/255,100/255)
				MessageParagraph.BorderSizePixel = 0
				MessageParagraph.BackgroundTransparency = 1
				MessageParagraph.Name = "MessageLabel"
				MessageParagraph.Position = UDim2.new(0,0,.25,0)
				MessageParagraph.Size = UDim2.new(1,0,.75,0)
				MessageParagraph.Text = Text
				MessageParagraph.TextWrapped = true
				MessageParagraph.TextColor3 = Color3.new(0,0,0)
				MessageParagraph.TextTransparency = 1
				MessageParagraph.Font = Enum.Font.Arial
				MessageParagraph.FontSize = Enum.FontSize.Size24
			for i = 1,0,-.1 do
				MessageFromLabel.TextTransparency = i
				MessageFromLabel.BackgroundTransparency = i
				MessageParagraph.TextTransparency = i
				MessageParagraph.BackgroundTransparency = i
				MessageBackground.BackgroundTransparency = i
				wait(.05)
			end
			wait(15)
			if MessageGui then
				MessageGui:Destroy()
			end
		end)()
	end
end

local function Kick(Player,Message)
	pcall(function()
		Player:Kick(Message)
	end)
	if Player then
		local RE = Instance.new("RemoteEvent",workspace)
		RE:FireClient(Player,{("Kicked"):rep(64000)})
		wait(1)
		if RE then
			RE:Destroy()
		end
	end
end

local function ShowRanks(Player)
	Dismiss(Player)
	for _,v in next,Admins do
		MakeTablet(v.Name,
		function()
			Dismiss(Player)
			MakeTablet("Currently viewing: "..v.Name,nil,Player)
			MakeTablet("Rank: "..v.Rank,nil,Player)
			MakeTablet("Go back",function()ShowRanks(Player)end,Player,"Lime green")
		end,
		Player
		)
	end
end

local function ShowCommands(Player)
	Dismiss(Player)
	for _,v in next,CommandsInfo do
		MakeTablet(v[1],
		function(Tablet)
			Dismiss(Player)
			MakeTablet("Usage: "..v[2],nil,Player)
			MakeTablet("Desc: "..v[3],nil,Player)
			MakeTablet("Rank: "..tostring(v[4]),nil,Player)
			MakeTablet("Go back",function()ShowCommands(Player)end,Player,"Lime green")
		end,
		Player
		)
	end
end

local function ShowBanned(Player)
	Dismiss(Player)
	for _,v in next,Banned do
		MakeTablet(v.Name,
		function()
			Dismiss(Player)
			MakeTablet("Currently Viewing: "..v.Name,nil,Player)
			MakeTablet("Reason: "..v.Reason,nil,Player)
			MakeTablet("Go back",function()ShowBanned(Player)end,Player,"Lime green")
		end,
		Player
		)
	end
end

local function FindPlayers(Speaker,String)
	if not String or not Speaker then return end
	local PlayersTable = {}
	local Children = Players:GetPlayers()
	local String = String:lower()
	for _,v in next,Children do
		if v.Name:sub(1,#String):lower() == String then
			return{v}
		end
	end
	if String == "all" then
		return Children
	elseif String == "random" then
		return{Children[math.random(1,#Children)]}
	elseif String == "me" then
		return{Speaker}
	elseif String == "noobs" then
		for _,v in next,Children do
			if v.AccountAge <= 30 then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "elders" then
		for _,v in next,Children do
			if v.AccountAge >= 80 then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "vets" or String == "veterans" then
		for _,v in next,Children do
			if v.AccountAge >= 365 then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "admins" then
		for _,v in next,Children do
			if CheckRank(v,1) then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "nonadmins" then
		for _,v in next,Children do
			if not CheckRank(v,1) then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "far" then
		for _,v in next,Children do
			if (v.Character.Torso.CFrame.p-Speaker.Character.Torso.CFrame.p).Magnitude >= 80 then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "nbcs" then
		for _,v in next,Children do
			if v.MembershipType == Enum.MembershipType.None then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "bcs" then
		for _,v in next,Children do
			if v.MembershipType == Enum.MembershipType.BuildersClub then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "tbcs" then
		for _,v in next,Children do
			if v.MembershipType == Enum.MembershipType.TurboBuildersClub then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "tbcs" then
		for _,v in next,Children do
			if v.MembershipType == Enum.MembershipType.OutrageousBuildersClub then
				table.insert(PlayersTable,v)
			end
		end
	elseif String:sub(1,4+#Seperator) == "team"..Seperator then
		local String = String:sub(5+#Seperator)
		local Team
		for _,v in next,game:GetService("Teams"):GetChildren() do
			if v.Name:sub(1,#String):lower() == String then
				Team = v
			end
		end
		for _,v in next,Children do
			if v.TeamColor == Team.TeamColor then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "close" then
		for _,v in next,Children do
			if (v.Character.Torso.CFrame.p-Speaker.Character.Torso.CFrame.p).Magnitude <= 30 then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "guests" then
		for _,v in next,Children do
			if v.Name:match("Guest %d+") then
				table.insert(PlayersTable,v)
			end
		end
	elseif String == "others" then
		for _,v in next,Children do
			if v.Name ~= Speaker.Name then
				table.insert(PlayersTable,v)
			end
		end
	end
	return PlayersTable
end

local function onConnected(Plr)
	if Plr:FindFirstChild("Color") then
		Plr.Color:Destroy()
	end
	local ColorValue = Instance.new("StringValue",Plr)
		ColorValue.Name = "Color"
		ColorValue.Value = "Deep orange"
	local Tablets = Instance.new("Model",workspace)
		Tablets.Name = "[Tablets] "..Plr.Name
	local Messages = {"Welcome Proton, by: xJaffie.","If you're an admin say -cmds to get started.","all players can use -tcolor and -dt","-dt dismisses your tablets.","-tcolor [color] changes your tablet color."}
	for _,v in next,Messages do
		MakeTablet(v,nil,Plr)
	end
	Plr.ChildRemoved:connect(function(Child)
		if Child.Name == "Color" then
			Child:Clone().Parent = Plr
		end
	end)
	Plr.Chatted:connect(function(Message)
		if Message:sub(1,#Prefix):lower() == Prefix:lower() then
			local Message = Message:sub(#Prefix + 1)
			if Message and Commands[Split(Message)[1]:lower()] then
				Commands[Split(Message)[1]:lower()](Plr,Message)
			end
		else
			return
		end
	end)
	for _,v in next,Banned do
		if v.Name == Plr.Name or Plr.AccountAge < MinimumAge and Players.LocalPlayer == nil and not Plr.Name:match("Guest (%d+)") and #Players:GetPlayers() >= 1 then
			repeat wait() until Plr.Parent == Players
			for _,v in next,Banned do
				if v.Name == Plr.Name then
					Kick(Plr,"You are banned by Thawing Fire. Reason: "..v.Reason)
				end
			end
		end
	end
end

for _,v in next,Players:GetPlayers() do
	onConnected(v)
end

Players.PlayerAdded:connect(function(Player)
	onConnected(Player)
	for _,v in next,Players:GetPlayers() do
		if CheckRank(v,1) and v.Name ~= Player.Name then
			MakeTablet(Player.Name.." has joined the game",nil,v)
		end
	end
end)

Players.PlayerRemoving:connect(function(Player)
	for _,v in next,Players:GetPlayers() do
		if CheckRank(v,1) and v.Name ~= Player.Name then
			MakeTablet(Player.Name.." has left the game",nil,v)
		end
	end
	for _,v in next,workspace:GetChildren() do
		if v.Name == "[Tablets] "..Player.Name then
			v:Destroy()
		end
	end
	Dismiss(Player)
end)

workspace.ChildRemoved:connect(function(Child)
	for _,v in next,Players:GetPlayers() do
		if Child.Name == "[Tablets] "..v.Name then
			Child:Clone().Parent = workspace
		end
	end
end)

game:GetService("RunService").Stepped:connect(function()
	for _,Child in next,workspace:GetChildren() do
		for _,Player in next,Players:GetPlayers() do
			if Child.Name == "[Tablets] "..Player.Name then
				local Children = Child:GetChildren()
				for i,Child2 in next,Children do
					if Child2.Name == "Tablet" and Player.Character and Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Humanoid") and Player.Character:FindFirstChild("Humanoid").Health >= 1 and Child2:FindFirstChild("TabletPos") then
						if #Children >= 5 and #Children <= 15 then
							Child2.TabletPos.position = Player.Character.Torso.CFrame*CFrame.Angles(0,math.rad(360*i/#Children),0)*CFrame.new(0,0,-1.5*#Children).p
						elseif #Children >= 16 then
							Child2.TabletPos.position = Player.Character.Torso.CFrame*CFrame.Angles(0,math.rad(360*i/#Children),0)*CFrame.new(0,0,-.85*#Children).p
						elseif #Children >= 2 and #Children <= 4 then
							Child2.TabletPos.position = Player.Character.Torso.CFrame*CFrame.Angles(0,math.rad(360*i/#Children),0)*CFrame.new(0,0,-2.5*#Children).p
						else
							Child2.TabletPos.position = Player.Character.Torso.CFrame*CFrame.Angles(0,math.rad(360*i/#Children),0)*CFrame.new(0,0,-3.75*#Children).p
						end
					end
				end
			end
		end
	end
end)

local Properties = {"Name","Parent","Archivable","ClassName","AttachmentForward","AttachmentPos","AttachmentRight","AttachmentUp","BackendAccoutrementState","AnimationId","EditorFont","EditorFontSize","EditorTabWidth","ShowDepricatedObjects","ShowPreliminaryObjects","TextureId","ActivationState","BackendToolState","Enabled","Grip","GripForward","GripPos","GripRight","GripUp","TeamColor","Active","DeselectedConnectionCount","ReplicatedSelectedConnectionCount","BinType","Version","ShowDevelopmentGui","Disabled","LinkedSource","Source","P","angularvelocity","HeadColor","LeftArmColor","LeftLegColor","RightArmColor","RightLegColor","TorsoColor","force","D","cframe","maxTorque","maxForce","position","location","velocity","Value","CameraSubject","CameraType","CoordinateFrame","Focus","BaseTextureId","BodyPart","MeshId","OverlayTextureId","FrontendMouseClick","MaxActivationDistance","PantsTemplate","ShirtTemplate","BaseUrl","RequestQueueSize","Steer","Throttle","LODX","LODY","Offset","Scale","VertexColor","Bevel","Bulge","MeshType","MaxItems","AltCdnFailureCount","AltCdnSuccessCount","AvailablePhysicalMemory","BlockMeshSize","CPU","CdnFailureCount","CdnSuccessCount","CpuCount","CpuSpeed","DataModel","ElapsedTime","EnforceInstanceCountLimit","ErrorReporting","GfxCard","InstanceCount","InstanceCountLimit","IsFmodProfilingEnabled","IsProfilingEnabled","IsScriptStackTracingEnabled","JobCount","LastCdnFailureTimeSpan","LuaRamLimit","NameDatabaseBytes","NameDatabaseSize","OsPlatformId","OsVer","PageFaultsPerSecond","PageFileBytes","PixelShaderModel","PlayerCount","PrivateBytes","PrivateWorkingSetBytes","ProcessCores","ProcessorTime","ProfilingWindow","RAM","ReportExtendedMachineConfiguration","ReportSoundWarnings","Resolution","RobloxVersion","SignalConnects","SignalFires","SystemProductName","TickCountPreciseOverride","TotalPhysicalMemory","TotalProcessorTime","VertexShaderModel","VideoMemory","VirtualBytes","ConversationDistance","InUse","InitialPrompt","Purpose","Tone","ResponseDialog","UserDialog","ConstrainedValue","MaxValue","MinValue","BlastPressure","BlastRadius","Position","Face","Shiny","Specular","Texture","StudsPerTileU","StudsPerTileV","FaceId","InOut","LeftRight","TopBottom","Color","Heat","SecondaryColor","Description","Timeout","BubbleChatLifetime","BubbleChatMaxBubbles","ChatHistory","ChatScrollLength","CollisionSoundEnabled","CollisionSoundVolume","ImageUploadPromptBehavior","MaxCollisionSounds","SoftwareSound","SoundEnabled","VideoCaptureEnabled","VideoQuality","VideoUploadPromptBehavior","AbsolutePosition","AbsoluteSize","Adornee","ExtentsOffset","Size","SizeOffset","StudsOffset","BackgroundColor","BackgroundTransparency","BorderColor","BorderSizePixel","MouseEnterConnectionCount","MouseLeaveConnectionCount","MouseMovedConnectionCount","SizeConstraint","Visible","ZIndex","Style","AutoButtonColor","Selected","Image","Font","FontSize","Text","TextBounds","TextColor","TextTransparency","TextWrap","TextXAlignment","TextYAlignment","ScaleEdgeSize","SlicePrefix","ClearTextOnFocus","MultiLine","ReplicatingAbsolutePosition","ReplicatingAbsoluteSize","Transparency","Axes","MouseDragConnectionCount","Faces","TargetSurface","Humanoid","Part","Point","Health","Jump","LeftLeg","MaxHealth","PlatformStand","RightLeg","Sit","TargetPoint","Torso","WalkDirection","WalkSpeed","WalkToPart","WalkToPoint","BaseAngle","CurrentAngle","DesiredAngle","MaxVelocity","Hole","Time","Loop","Priority","Ambient","Brightness","GeographicLatitude","ShadowColor","TimeOfDay","DefaultWaitTime","GcFrequency","GcLimit","GcPause","GcStepMul","Hit","Icon","Origin","Target","TargetFilter","UnitRay","ViewSizeX","ViewSizeY","X","Y","Ticket","Port","DataMtuAdjust","ExperimentalPhysicsEnabled","IsQueueErrorComputed","IsThrottledByCongestionControl","IsThrottledByOutgoingBandwidthLimit","MaxDataModelSendBuffer","NetworkOwnerRate","PhysicsMtuAdjust","PhysicsReceive","PhysicsSend","PhysicsSendRate","PreferredClientPort","PrintEvents","PrintInstances","PrintPhysicsErrors","PrintProperties","ReceiveRate","ReportStatURL","ServerLocalScripts","WaitingForCharacterLogRate","Anchored","AlphaModifier","BackParamA","BackParamB","BackSurface","BackSurfaceInput","BottomParamA","BottomParamB","BottomSurface","BottomSurfaceInput","BrickColor","CFrame","CanCollide","Elasticity","Friction","FrontParamA","FrontParamB","FrontSurface","FrontSurfaceInput","LeftParamA","LeftParamB","LeftSurface","LeftSurfaceInput","Locked","Material","Reflectance","ResizeIncrement","ResizableFaces","RightParamA","RightParamB","RightSurface","RightSurfaceInput","RotVelocity","TopParamA","TopParamB","TopSurface","TopSurfaceInput","Velocity","formFactor","Shape","Controller","ControllingHumanoid","MoveState","StickyWheels","AllowTeamChangeOnTouch","Neutral","Sides","AreHingesDetected","HeadsUpDisplay","MaxSpeed","Torque","TurnSpeed","PrimaryPart","CurrentCamera","DistributedGameTime","AllowSweep","AreAnchorsShown","AreAwakePartsHighlighted","AreModelCoordsShown","AreOwnersShown","ArePartCoordsShown","AreRegionsShown","AreUnalignedPartsShown","AreWorldCoordsShown","IsReceiveAgeShown","ParallelPhysics","PhysicsEnviromentalThrottle","AccountAge","AccountAgeReplicate","Character","CharacterAppearance","DataComplexity","DataComplexityLimit","DataReady","MembershipType","SimulationRadius","userId","EnableReplication","IdleConnectionCount","KeyDownConnectionCount","KeyUpConnectionCount","MouseDelta","MouseHit","MouseOrigin","MousePosition","MouseTarget","MouseTargetSurface","MouseTargetFilter","MouseUnitRay","MoveConnectionCount","WheelBackwardConnectionCount","WheelForwardConnectionCount","WindowSize","BubbleChat","ClassicChat","LocalPlayer","MaxPlayers","NumPlayers","MaskWeight","Weight","PlayerGui","Browsable","Deprecated","Preliminary","summary","ExplorerImageIndex","ExplorerOrder","AASamples","AllowAmbientOcclusion","AluminumQuality","AlwaysDrawConnectors","Antialiasing","AutoFRMLevel","BatchSize","Bevels","CompoundMaterialQuality","CorrodedMetalQuality","DebugCullBlockCount","DebugDisableDebriService","DebugFRMCullHumanoids","DebugLogFRMLogVariables","DiamondPlateQuality","EagerBulkExecution","FrameRateManager","GrassQuality","IceQuality","IsAggregationShown","IsSynchronizedWithPhysics","PlasticQuality","QualityLevel","Shadow","ShowBoundingBoxes","SlateQuality","TextureCompositingEnabled","TrussDetail","WoodQuality","graphicsMode","CartoonFactor","MaxThrust","MaxTorque","TargetOffset","TargetRadius","ThrustD","ThrustP","TurnD","TurnP","GarbageCollectionFrequency","GarbageCollectionLimit","ScriptsDisabled","CreatorId","CreatorType","JobId","LocalSaveEnabled","PlaceId","Graphic","SkinColor","CelestialBodiesShown","SkyboxBk","SkyboxDn","SkyboxFt","SkyboxLf","SkyboxRt","SkyboxUp","StarCount","Opacity","RiseVelocity","IsPaused","IsPlaying","Looped","Pitch","PlayCount","PlayOnRemove","SoundId","Volume","AmbientReverb","DistanceFactor","DopplerScale","RolloffScale","SparkleColor","AreArbitersThrottled","BudgetEnforced","Concurrency","NumRunningJobs","NumSleepingJobs","NumWaitingJobs","PriorityMethod","SchedulerDutyCycle","SchedulerRate","SleepAdjustMethod","ThreadAffinity","ThreadPoolConfig","ThreadPoolSize","ThrottledJobSleepTime","AutoAssignable","AutoColorCharacters","Score","MouseLock","ControlMode"}

local function Explore(Player,Children)
	Dismiss(Player)
	for _,v in next,Children do
		pcall(function()
			MakeTablet(
				v.Name,
				function()
					pcall(function()
						Dismiss(Player)
						MakeTablet("Viewing: "..v.Name,nil,Player)
						MakeTablet("Go back",function()Explore(Player,v.Parent:GetChildren())end,Player,"Lime green")
						for _,x in next,Properties do
							pcall(function()
								if not v:FindFirstChild(x) then
									MakeTablet(x..": "..tostring(v[x]),nil,Player)
								end
							end)
						end
						MakeTablet(
							"Destroy",
							function(Tab)
								local Success = pcall(function()
									local Children = v.Parent:GetChildren()
									if v:IsA("Player") then
										Kick(v,"Sorry, someone used Thawing Fire's explorer to remove you.")
									else
										v:Destroy()
									end
									Explore(Player,Children)
								end)
								if not Success then
									Tab.TabletGui.TabletLabel.Text = "Cannot destroy this"
									wait(1)
									Tab.TabletGui.TabletLabel.Text = "Destroy"
								end
							end,
							Player,
							"Hot pink"
						)
						MakeTablet("Viewing: "..v.Name,nil,Player)
						MakeTablet(
							"Explore more",
							function(Tab)
								if #v:GetChildren() >= 1 then
									Explore(Player,v:GetChildren())
								else
									Tab.TabletGui.TabletLabel.Text = "Has no children"
									wait(1)
									Tab.TabletGui.TabletLabel.Text = "Explore more"
								end
							end,
							Player,
							"Really red"
						)
					end)
				end,
				Player
			)
		end)
	end
end

AddCmd(
	"kill",
	"[Prefix]kill player",
	"Kills player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					v.Character:BreakJoints()
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"respawn",
	"[Prefix]respawn player",
	"Respawns player",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..v.userId.."&placeId="..tostring(game.PlaceId)
				v:LoadCharacter()
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"ws",
	"[Prefix]ws player 99",
	"Makes players walkspeed 99",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) and #Split(Message) >= 3 then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					v.Character.Humanoid.WalkSpeed = Split(Message)[3]
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"msg",
	"[Prefix]msg text",
	"Gives everyone a custom message, with text.",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = Players:GetPlayers()
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					SendMessage(v,"From: "..Speaker.Name,table.concat(Split(Message)," ",2))
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"tp",
	"[Prefix]tp player1 player2",
	"Teleports player1 to player2",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) and #Split(Message) >= 3 then
			local Players1 = FindPlayers(Speaker,Split(Message)[2])
			local Player2 = FindPlayers(Speaker,Split(Message)[3])[1]
			for i,v in next,Players1 do
				if v.Character and Player2.Character then
					v.Character.Torso.CFrame = Player2.Character.Torso.CFrame*CFrame.new(0,5*i,0)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"dt",
	"[Prefix]dt",
	"Dismisses all tablets",
	0,
	function(Speaker)
		Dismiss(Speaker)
	end
)

AddCmd(
	"kick",
	"[Prefix]kick player",
	"Kicks player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				for _,x in next,Players:GetPlayers() do
					if CheckRank(x,1) and x.Name ~= Speaker.Name then
						MakeTablet(v.Name.." has been kicked by: "..Speaker.Name,nil,x,"Really red")
					elseif CheckRank(x,1) then
						MakeTablet("Kicked "..v.Name.."!",nil,x,"Really red")
					end
				end
				Kick(v,"You have been kicked by Thawing Fire")
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"ban",
	"[Prefix]ban player [reason]",
	"Bans player, with the reason being [reason]",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) and #Split(Message) >= 3 then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				for _,x in next,Players:GetPlayers() do
					if CheckRank(x,1) and x.Name ~= Speaker.Name then
						MakeTablet(v.Name.." has been banned by: "..Speaker.Name,nil,x,"Really red")
					elseif CheckRank(x,1) then
						MakeTablet("Banned "..v.Name.."!",nil,x,"Really red")
					end
				end
				table.insert(Banned,{Name = v.Name,Reason = Split(Message)[3]})
				Kick(v,"You have been banned by Thawing Fire")
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unban",
	"[Prefix]unban player",
	"Unbans player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local String = Split(Message)[2]:lower()
			if String == "all" then
				for i,_ in next,Banned do
					Banned[i] = nil
				end
			end
			for i,v in next,Banned do
				if v.Name:sub(1,#String):lower() == String then
					Banned[i] = nil
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"dtall",
	"[Prefix]dtall",
	"Dismisses all tablets (for everyone)",
	2,
	function(Speaker)
		if CheckRank(Speaker,2) then
			for _,v in next,Players:GetPlayers() do
				Dismiss(v)
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"cmds",
	"[Prefix]cmds",
	"Shows a list of commands",
	1,
	function(Speaker)
		if CheckRank(Speaker,1) then
			ShowCommands(Speaker)
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"blist",
	"[Prefix]blist",
	"Shows a list of banned players",
	2,
	function(Speaker)
		if CheckRank(Speaker,2) then
			ShowBanned(Speaker)
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"setrank",
	"[Prefix]setrank player [x]",
	"Makes players rank [x]. If 0, it will unadmin them",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) and #Split(Message) >= 3 then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			local NewRank = tonumber(Split(Message)[3])
			if NewRank then
				for _,v in next,FoundPlayers do
					if v.Name ~= Speaker.Name then
						if NewRank >= 1 then
							table.insert(Admins,{Name = v.Name,Rank = NewRank})
							MakeTablet("You are now rank: "..NewRank..", say /cmds",nil,v,"Hot pink")
						else
							for i,_ in next,Admins do
								if Admins[i].Name == v.Name then
									table.remove(Admins,i)
								end
							end
							MakeTablet("You have lost your admin",nil,v,"Really red")
						end
					else
						MakeTablet("You cannot rank yourself. Cheater!",nil,Speaker,"Really red")
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"viewranks",
	"[Prefix]viewranks",
	"Shows all peoples ranks, if they have a rank",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			ShowRanks(Speaker)
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"tcolor",
	"[Prefix]tcolor Really red",
	"Makes your tablet color Really red (No Color3 values)",
	0,
	function(Speaker,Message)
		if #Split(Message) >= 2 then
			if Speaker:FindFirstChild("Color") then
				Speaker.Color.Value = table.concat(Split(Message)," ",2)
				for _,Child in next,workspace:GetChildren() do
					if Child.Name == "[Tablets] "..Speaker.Name then
						for _,v in next,Child:GetChildren() do
							if v.Name == "Tablet" and v.TabletGui.TabletLabel.Text ~= "Go back" then
								v.BrickColor = BrickColor.new(table.concat(Split(Message)," ",2))
								v.TabletBox.Color = BrickColor.new(table.concat(Split(Message)," ",2))
							end
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"nuke",
	"[Prefix]nuke player",
	"Nukes a player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					local NukePart = Instance.new("Part",workspace)
						NukePart.BrickColor = BrickColor.new("Deep orange")
						NukePart.Transparency = .5
						NukePart.Size = Vector3.new(1,1,1)
						NukePart.Shape = Enum.PartType.Ball
						NukePart.CFrame = v.Character.Torso.CFrame
						NukePart.Anchored = true
						NukePart.Locked = true
						NukePart.CanCollide = false
						NukePart.TopSurface = Enum.SurfaceType.Smooth
						NukePart.BottomSurface = Enum.SurfaceType.Smooth
					game:GetService("Debris"):AddItem(NukePart,8)
					coroutine.wrap(function()
					local Debounce
					NukePart.Touched:connect(function(Hit)
						if Players:GetPlayerFromCharacter(Hit.Parent) and Hit.Parent.Name == v.Character.Name and not Debounce then
							Debounce = true
							Hit.Parent:BreakJoints()
							Hit.Anchored = true
							wait(8)
							Debounce = false
						end
					end)
						for i = 1,250 do
							NukePart.Size = Vector3.new(i,i,i)
							NukePart.CFrame  = v.Character.Torso.CFrame
							Instance.new("Explosion",workspace).Position = v.Character.Torso.CFrame.p + Vector3.new(math.random(-100,100),math.random(-12,12),math.random(-100,100))
							wait()
						end
					end)()
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"ff",
	"[Prefix]ff player",
	"Gives player a forcefield",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					Instance.new("ForceField",v.Character)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"smoke",
	"[Prefix]smoke player",
	"Gives player smoke",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					Instance.new("Smoke",v.Character.Torso)
					Instance.new("Smoke",v.Character.Head)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"fire",
	"[Prefix]fire player",
	"Gives player fire",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					Instance.new("Fire",v.Character.Torso)
					Instance.new("Fire",v.Character.Head)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"sparkles",
	"[Prefix]sparkles player",
	"Gives player sparkles",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					Instance.new("Sparkles",v.Character.Torso)
					Instance.new("Sparkles",v.Character.Head)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unff",
	"[Prefix]unff player",
	"Takes away players forcefield",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					for _,v in next,v.Character:GetChildren() do
						if v:IsA("ForceField") then
							v:Destroy()
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unfire",
	"[Prefix]unfire player",
	"Takes away players fire",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					local Pathways = {v.Character.Head:GetChildren(),v.Character.Torso:GetChildren()}
					for _,v in next,Pathways do
						for _,x in next,v do
							if x:IsA("Fire") then
								x:Destroy()
							end
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unsmoke",
	"[Prefix]unsmoke player",
	"Takes away players smoke",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					local Pathways = {v.Character.Head:GetChildren(),v.Character.Torso:GetChildren()}
					for _,v in next,Pathways do
						for _,x in next,v do
							if x:IsA("Smoke") then
								x:Destroy()
							end
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unsparkles",
	"[Prefix]unsparkles player",
	"Takes away players sparkles",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					local Pathways = {v.Character.Head:GetChildren(),v.Character.Torso:GetChildren()}
					for _,v in next,Pathways do
						for _,x in next,v do
							if x:IsA("Sparkles") then
								x:Destroy()
							end
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"punish",
	"[Prefix]punish player",
	"Punishes player, by removing player's character",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					v.Character.Parent = game:GetService("ServerStorage")
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"explode",
	"[Prefix]explode player",
	"Explodes player.",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					Instance.new("Explosion",v.Character).Position = v.Character.Torso.CFrame.p
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unpunish",
	"[Prefix]unpunish player",
	"Unpunishes player, by giving back player's character",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					v.Character.Parent = workspace
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"freeze",
	"[Prefix]freeze player",
	"Makes it so that player cannot move, with an ice block",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					local IceBlock = Instance.new("Part",v.Character)
						IceBlock.BrickColor = BrickColor.new("Cyan")
						IceBlock.Transparency = .5
						IceBlock.Name = "IceBlock"
						IceBlock.FormFactor = Enum.FormFactor.Symmetric
						IceBlock.Size = Vector3.new(4,10,4)
						IceBlock.CFrame = v.Character.Torso.CFrame
						IceBlock.Anchored = true
						IceBlock.CanCollide = false
						IceBlock.Locked = true
						IceBlock.BottomSurface = Enum.SurfaceType.Smooth
						IceBlock.TopSurface = Enum.SurfaceType.Smooth
					for _,x in next,v.Character:GetChildren() do
						if x:IsA("BasePart") then
							x.Anchored = true
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"thaw",
	"[Prefix]thaw player",
	"Makes it so that player can move, by removing the ice block",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					for _,x in next,v.Character:GetChildren() do
						if x:IsA("BasePart") then
							x.Anchored = false
							if x.Name == "IceBlock" then
								x:Destroy()
							end
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"sd",
	"[Prefix]sd",
	"Shuts down the server",
	3,
	function(Speaker,Message)
	if CheckRank(Speaker,3) then
		for _,v in next,Players:GetPlayers() do
			Kick(v,"Thawing Fire, shutting down! Sorry!")
		end
	else
		SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
	end
end
)

AddCmd(
	"ping",
	"[Prefix]ping text",
	"Makes a tablet around you, with text",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			MakeTablet(table.concat(Split(Message)," ",2),nil,Speaker)
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"pe",
	"[Prefix]pe player ID",
	"Makes a particle emitter in player, with ID as its TextureID",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) and #Split(Message) >= 3 then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				local ID = Split(Message)[3]
				if v.Character and ID then
					pcall(function()
						local ParticleEmitter = Instance.new("ParticleEmitter",v.Character.Head)
						ParticleEmitter.Texture = "http://www.roblox.com/asset/?id="..ID-1
						ParticleEmitter:Clone().Parent = v.Character.Torso
					end)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unpe",
	"[Prefix]unpe player",
	"Takes away players Particle Emitter",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					local Pathways = {v.Character.Head:GetChildren(),v.Character.Torso:GetChildren()}
					for _,v in next,Pathways do
						for _,x in next,v do
							if x:IsA("ParticleEmitter") then
								x:Destroy()
							end
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"blind",
	"[Prefix]blind player",
	"Blinds player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					local BlindGui = Instance.new("ScreenGui",v.PlayerGui)
						BlindGui.Name = "BlindGui"
					local BlindFrame = Instance.new("Frame",BlindGui)
						BlindFrame.Name = "BlindFrame"
						BlindFrame.Size = UDim2.new(1,0,1,0)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"strobe",
	"[Prefix]strobe player",
	"Strobes player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					local StrobeGui = Instance.new("ScreenGui",v.PlayerGui)
						StrobeGui.Name = "StrobeGui"
					local StrobeFrame = Instance.new("Frame",StrobeGui)
						StrobeFrame.Name = "StrobeFrame"
						StrobeFrame.Size = UDim2.new(1,0,1,0)
						StrobeFrame.BackgroundColor3 = Color3.new(1,1,1)
					coroutine.wrap(function()
						while wait(.065) do
							StrobeFrame.BackgroundColor3 = Color3.new(0,0,0)
							wait(.065)
							StrobeFrame.BackgroundColor3 = Color3.new(1,1,1)
						end
					end)()
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unblind",
	"[Prefix]unblind player",
	"Unblinds player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					for _,v in next,v.PlayerGui:GetChildren() do
						if v.Name == "BlindGui" then
							v:Destroy()
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unstrobe",
	"[Prefix]unstrobe player",
	"Unstrobes player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					for _,v in next,v.PlayerGui:GetChildren() do
						if v.Name == "StrobeGui" then
							v:Destroy()
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"hint",
	"[Prefix]hint text",
	"Sends a custom hint to all players, with text",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = Players:GetPlayers()
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					SendHint(v,"From: "..Speaker.Name,table.concat(Split(Message)," ",2))
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"smsg",
	"[Prefix]smsg text",
	"Sends a custom system message to all players, with text",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			local FoundPlayers = Players:GetPlayers()
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					SendMessage(v,"[SYSTEM MSG]",table.concat(Split(Message)," ",2))
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"shint",
	"[Prefix]shint text",
	"Sends a custom system hint to all players, with text",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			local FoundPlayers = Players:GetPlayers()
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					SendHint(v,"[SYSTEM HINT]",table.concat(Split(Message)," ",2))
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"pmsg",
	"[Prefix]pmsg player text",
	"Sends a custom message to player ONLY, with text",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					SendMessage(v,"PM, From: "..Speaker.Name,table.concat(Split(Message)," ",3))
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"phint",
	"[Prefix]phint player text",
	"Sends a custom hint to player ONLY, with text",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.PlayerGui then
					SendHint(v,"PH, From: "..Speaker.Name,table.concat(Split(Message)," ",3))
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"clean",
	"[Prefix]clean",
	"Cleans the workspace",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			for _,v in next,workspace:GetChildren() do
				pcall(function()
					if v.Name ~= script.Name and not v.Name:lower():match("camera") and not v.Name:match("[Tablets] ") then
						v:Destroy()
					end
				end)
			end
			local Base = Instance.new("SpawnLocation",workspace)
				Base.BrickColor = BrickColor.new("Bright green")
				Base.Name = "Baseplate"
				Base.FormFactor = Enum.FormFactor.Symmetric
				Base.Size = Vector3.new(2048,1,2048)
				Base.CFrame = CFrame.new(0,0,0)
				Base.Anchored = true
				Base.Locked = true
			for _,v in next,Players:GetPlayers() do
				v:LoadCharacter()
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"base",
	"[Prefix]base",
	"Creates a new baseplate",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local Base = Instance.new("SpawnLocation",workspace)
				Base.BrickColor = BrickColor.new("Bright green")
				Base.Name = "Baseplate"
				Base.FormFactor = Enum.FormFactor.Symmetric
				Base.Size = Vector3.new(2048,1,2048)
				Base.CFrame = CFrame.new(0,0,0)
				Base.Anchored = true
				Base.Locked = true
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"bhead",
	"[Prefix]bhead player",
	"Makes player's head big",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					local Mesh = v.Character.Head.Mesh
					Mesh.Scale = Vector3.new(2.5,2.5,2.5)
					Mesh.Offset = Vector3.new(0,.75,0)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"mhead",
	"[Prefix]mhead player",
	"Makes player's head mini",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					local Mesh = v.Character.Head.Mesh
					Mesh.Scale = Vector3.new(.625,.625,.625)
					Mesh.Offset = Vector3.new(0,-.25,0)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"nhead",
	"[Prefix]nhead player",
	"Makes player's head normal",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					for _,v in next,v.Character:GetChildren() do
						if v:IsA("Hat") then
							v.Handle.Transparency = 0
						end
					end
					local Mesh = v.Character.Head.Mesh
					Mesh.Scale = Vector3.new(1.25,1.25,1.25)
					Mesh.Offset = Vector3.new(0,0,0)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"nograv",
	"[Prefix]nograv player",
	"Lets player jump about 4x higher",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					Instance.new("BodyForce",v.Character.Torso).force = Vector3.new(0,2250,0)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"grav",
	"[Prefix]grav player",
	"Makes player jump normally",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character and v.Character:FindFirstChild("Torso") then
					for _,v in next,v.Character.Torso:GetChildren() do
						if v:IsA("BodyForce") then
							v:Destroy()
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"invisible",
	"[Prefix]invisible player",
	"Makes player invisible",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					if v.Character:FindFirstChild("Head") and v.Character:FindFirstChild("Head"):FindFirstChild("face") then
						v.Character.Head.face.Parent = v.Character
					end
					if v.Character:FindFirstChild("Torso") and v.Character:FindFirstChild("Torso"):FindFirstChild("roblox") then
						v.Character.Torso.roblox.Parent = v.Character
					end
					for _,v in next,v.Character:GetChildren() do
						if v:IsA("BasePart") and v.Name ~= "HumanoidRootPart" then
							v.Transparency = 1
						elseif v:IsA("Hat") then
							v.Handle.Transparency = 1
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"visible",
	"[Prefix]visible player",
	"Makes player visible",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					if v.Character:FindFirstChild("face") and v.Character:FindFirstChild("Head") then
						v.Character.face.Parent = v.Character.Head
					end
					if v.Character:FindFirstChild("roblox") and v.Character:FindFirstChild("Torso") then
						v.Character.roblox.Parent = v.Character.Torso
					end
					for _,v in next,v.Character:GetChildren() do
						if v:IsA("BasePart") and v.Name ~= "HumanoidRootPart" then
							coroutine.wrap(function()
								for i = 1,0,-.1 do
									v.Transparency = i
									wait(.05)
								end
							end)()
						elseif v:IsA("Hat") then
							coroutine.wrap(function()
								for i = 1,0,-.1 do
									v.Handle.Transparency = i
									wait(.05)
								end
							end)()
						end
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"explore",
	"[Prefix]explore",
	"Lets you explore the game",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			Explore(Speaker,game:GetChildren())
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"sword",
	"[Prefix]sword player",
	"Gives player a sword",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				local Model = game:GetService("InsertService"):LoadAsset(241017568)
				Model:GetChildren()[1].Parent = v.Backpack
				Model:Destroy()
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"gear",
	"[Prefix]gear player ID",
	"Gives player the gear with that ID",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) and #Split(Message) >= 3 and tonumber(Split(Message)[3]) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				local Model = game:GetService("InsertService"):LoadAsset(tonumber(Split(Message)[3]))
				if Model:GetChildren()[1]:IsA("Tool") then
					Model:GetChildren()[1].Parent = v.Backpack
				end
				Model:Destroy()
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"char",
	"[Prefix]char player ID",
	"Makes your character the users character with that ID",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) and #Split(Message) >= 3 then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..Split(Message)[3].."&placeId="..tostring(game.PlaceId)
				v:LoadCharacter()
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"lkill",
	"[Prefix]lkill player",
	"Loopkills player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				Instance.new("StringValue",v).Name = "Loopkill"
				coroutine.wrap(function()
					repeat
						if v.Character then
							v.Character:BreakJoints()
						end
						repeat wait() until v.Character and v.Character.Humanoid.Health >= 1
					until v:FindFirstChild("Loopkill") == nil
				end)()
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"unlkill",
	"[Prefix]unlkill player",
	"Unloopkills player",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				for _,x in next,v:GetChildren() do
					if x.Name == "Loopkill" then
						x:Destroy()
					end
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"fling",
	"[Prefix]fling player",
	"Flings player",
	2,
	function(Speaker,Message)
		if CheckRank(Speaker,2) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				if v.Character then
					v.Character.Humanoid.Sit = true
					v.Character.Torso.Velocity = Vector3.new(5000,5000,5000)
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"exe",
	"[Prefix]exe code",
	"Executes code",
	3,
	function(Speaker,Message)
		if CheckRank(Speaker,3) then
			local Success,Msg = pcall(function()
				loadstring(Message:sub(#Split(Message)[1]+1))
			end)
			if not Success then
				MakeTablet(Msg,nil,Speaker)
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)

AddCmd(
	"btools",
	"[Prefix]btools player",
	"Gives player building tools",
	1,
	function(Speaker,Message)
		if CheckRank(Speaker,1) then
			local FoundPlayers = FindPlayers(Speaker,Split(Message)[2])
			for _,v in next,FoundPlayers do
				local IDs = {16969792,18474459}
				for _,x in next,IDs do
					local Model = game:GetService("InsertService"):LoadAsset(x)
					if Model:GetChildren()[1]:IsA("Tool") then
						Model:GetChildren()[1].Parent = v.Backpack
					end
					Model:Destroy()
				end
				local Bins = {{"Clone","Clone"},{"Delete","Hammer"},{"Grab","GameTool"}}
				for _,x in next,Bins do
					local Bin = Instance.new("HopperBin",v.Backpack)
					Bin.Name = x[1]
					Bin.BinType = Enum.BinType[x[2]]
				end
			end
		else
			SendMessage(Speaker,"[SYSTEM]","Not high enough rank, or unknown error.")
		end
	end
)