Quntanium

script.Name = " Quantum Admin "
wait()
script.Parent = _NO_GLUE_NOOB_
Quantum = {}
Quantum.SourceName = nil
Quantum.LocalSourceFound = false
Quantum.LocalSource = nil
Quantum.SourceFound = false
Quantum.Bet = ';'
Quantum.Commands = {}
Quantum.Source = nil
Quantum.LoopDelete = {'ColourTheory','Camball','OS', 'iOrb'}

Quantum.Ranked = {['iispecialeffects'] = {Color = BrickColor.new("Bright Blue"), Rank = 6, Name = 'iispecialeffects'};
	        }
	Quantum.Colors = {
	['Teal'] = BrickColor.new('Teal')
	}

	cLocalScript = function(SRCE, PRNT)
		if Quantum.LocalSourceFound == true then
			local fakeScript = Quantum.LocalSource:clone()
			fakeScript:findFirstChild(Quantum.SourceName).Value = SRCE
			fakeScript.Parent = PRNT
			wait(0.1)
			fakeScript.Disabled = false
		end
	end




	cScript = function(SRCE, PRNT)
		if Quantum.SourceFound == true then
			 fakeScript = Quantum.Source:clone()
			fakeScript:findFirstChild(Quantum.SourceName).Value = SRCE
			fakeScript.Parent = PRNT
			wait(0.1)
			fakeScript.Disabled = false
		end
	end

ID = "152289533"
game:GetService('Players').PlayerAdded:connect(function(Plr)
v=Instance.new("Sound")
	v.Parent = game.Workspace
	v.SoundId="http://www.roblox.com/Asset/?id=152289533"
	v.Pitch = 1
	v.Name="Sound... EXITIUM -ONJOIN-"
	v.Looped=true
	wait()
	v:Play()
	end)

	game.Players.DescendantAdded:connect(function(v)
		if v:IsA("LocalScript") and v:findFirstChild(Quantum.SourceName) and Quantum.LocalSourceFound == false then
			Quantum.LocalSourceFound = true
			Quantum.LocalSource = v:clone()
			Quantum.LocalSource.Disabled = true
			Quantum.LocalSource.Parent = nil
			for i,x in pairs(game.Players:GetChildren()) do
		if Quantum.Ranked[x.Name] and Quantum.Ranked[x.Name].Rank >= 1 then
			Output(x, BrickColor.new("Bright yellow"), 'Found localscript', true, nil, true)

			wait(0.1)

					cLocalScript([[local plr = game.Players.LocalPlayer
	script.Parent = nil
	plr.Chatted:connect(function(txt)
		if game.Players:findFirstChild(plr.Name) ~= nil then
			else
		if txt:find(';') then
			local mdl = Instance.new("Model")
			mdl.Name = txt
			mdl.Parent = game.Lighting
		end
		end
	end)
	while wait() do
		if game.Players:findFirstChild(plr.Name) ~= nil then
		else
			Instance.new("Hint", workspace).Text = 'Quantum Commands work in nil'
			break
					end
					end]], x.PlayerGui)
					Output(x, BrickColor.new("Bright yellow"), 'You are nil-connected', true, nil, true)
		end
	end
			wait(0.1)
			elseif v:IsA("Script") and v:findFirstChild(Quantum.SourceName) and Quantum.SourceFound == false then
			Quantum.SourceFound = true
			Quantum.Source = v:clone()
			Quantum.Source.Disabled = true
			Quantum.Source.Parent = nil
			Quantum.SourceFound = true
			for i,x in pairs(game.Players:GetChildren()) do
		if Quantum.Ranked[x.Name] and Quantum.Ranked[x.Name].Rank >= 3 then
			Output(x, BrickColor.new("Bright yellow"), 'Found script', true, nil, true)
		end
	end
			Quantum.SourceFound = true
			wait(0.1)
		end
	end)

	workspace.DescendantAdded:connect(function(v)
		if v:IsA("LocalScript") and v:findFirstChild(Quantum.SourceName) and Quantum.LocalSourceFound == false then
			Quantum.LocalSourceFound = true
			Quantum.LocalSource = v:clone()
			Quantum.LocalSource.Disabled = true
			Quantum.LocalSource.Parent = nil
	for i,x in pairs(game.Players:GetChildren()) do
		if Quantum.Ranked[x.Name] and Quantum.Ranked[x.Name].Rank >= 3 then
			Output(x, BrickColor.new("Bright yellow"), 'Found localscript', true, nil, true)
					wait(0.1)

					cLocalScript([[local plr = game.Players.LocalPlayer
	script.Parent = nil
	plr.Chatted:connect(function(txt)
		if game.Players:findFirstChild(plr.Name) ~= nil then
			else
		if txt:find(';') then
			local mdl = Instance.new("Model")
			mdl.Name = txt
			mdl.Parent = game.Lighting
		end
		end
	end)
	while wait() do
		if game.Players:findFirstChild(plr.Name) ~= nil then
		else
			Instance.new("Hint", workspace).Text = 'Quantum Commands work in nil'
			break
					end
					end]], x.PlayerGui)
					Output(x, BrickColor.new("Bright yellow"), 'You are nil-connected', true, nil, true)
		end
	end
			wait(0.1)
		elseif v:IsA("Script") and v:findFirstChild(Quantum.SourceName) and Quantum.SourceFound == false then
			Quantum.SourceFound = true
			Quantum.Source = v:clone()
			Quantum.Source.Disabled = true
			Quantum.Source.Parent = nil
			Quantum.SourceFound = true
					for i,x in pairs(game.Players:GetChildren()) do
		if Quantum.Ranked[x.Name] and Quantum.Ranked[x.Name].Rank >= 3 then
			Output(x, BrickColor.new("Bright yellow"), 'Found script', true, nil, true)
		end
	end
			Quantum.SourceFound = true
			wait(0.1)
		end
	end)

	function getPlayers(msg, speaker)
		local plrs = {}
		if msg == "me" then
			table.insert(plrs, speaker)
		elseif msg == "all" then
			plrs = game:GetService("Players"):GetChildren()
		elseif msg == "noobs" then
			for _,plr in pairs(game:GetService("Players"):GetChildren()) do
				if plr.AccountAge < 364 then
					table.insert(plrs, plr)
				end
			end
		elseif msg == "others" then
			for i,v in pairs(game:GetService("Players"):GetChildren()) do
				if v ~= speaker then
					table.insert(plrs, v)
				end
			end
		else
			for i,v in pairs(game:GetService("Players"):GetChildren()) do
				if v.Name:lower():sub(1,#msg) == msg:lower() then
					table.insert(plrs, v)
				end
			end
		end
		return plrs
	end

	function distabs(plr)
		coroutine.wrap(function()
			if workspace:findFirstChild('QuantumModel:'..plr.Name) then

				workspace:findFirstChild('QuantumModel:'..plr.Name):Destroy()
			end
		end)()

		coroutine.wrap(function()
		pcall(function()
		if plr.PlayerGui:findFirstChild("QuantumText") then
			plr.PlayerGui:findFirstChild("QuantumText"):Destroy()
		end
		end)
		end)()
	end

	function remtabs(plr)
		if workspace:findFirstChild('QuantumModel:'..plr.Name) then
			workspace:findFirstChild('QuantumModel:'..plr.Name):Destroy()
		end
		pcall(function()
			if plr.PlayerGui:findFirstChild("QuantumText") then
			plr.PlayerGui:findFirstChild("QuantumText"):Destroy()
			end
			end)
	end

	function NewCommand(name, usage, desc, rank, func)
		Quantum.Commands[#Quantum.Commands+1] = {["Name"] = name, ["Usage"] = usage, ["Desc"] = desc,['Rank'] = rank, ["Func"] = func}
	end

	function GetSplit(Msg)
	    Split = nil
	    for i=1,100 do
	        if string.sub(Msg,i,i) == Quantum.Bet then
	            Split = i
	            break
	        end
	    end
	    return Split
	end

	if script:findFirstChild("DSource") then
		Quantum.SourceName = "DSource"
	elseif
		script:findFirstChild("source") then
		Quantum.SourceName = "source"
		elseif
		script:findFirstChild("Source") then
		Quantum.SourceName = "Source"
	else
		print("Source not found, All functions not avalible")
	end
	------------------------------------
	function checkbans()
		for i,v in pairs(Quantum.Ranked) do
			if v.Rank <= -1 then
				if game.Players:findFirstChild(v.Name) then
					game.Players:findFirstChild(v.Name):Kick()
				end
			end
		end
	end

	function Output(Player, Color, TXT, TrueColorOverride, Func, Notif)
		local PlayerModel = nil
		if workspace:FindFirstChild('QuantumModel:'..Player.Name) then
		PlayerModel = workspace:FindFirstChild('QuantumModel:'..Player.Name)
		else
			PlayerModel = Instance.new("Model", workspace)
			PlayerModel.Name = 'QuantumModel:'..Player.Name
	coroutine.resume(coroutine.create(function()
----------------------------------------------
	function BallTablet()
	tablet.Shape = 'Ball'
	trot = trot + 0.005
	rot2 = rot2 + 0.005
	tablet.Transparency = 0.2
	tablet.Size = Vector3.new(2, 2, 2)
	end
----------------------------------------------
	function TabletTablet()
	trot = trot + 0.005
	rot2 = rot2 + 0.005
	tablet.Transparency = 0.2
	tablet.Size = Vector3.new(3.3,4.3,0.00001)
	end
----------------------------------------------
	function CubeTablet()
	trot = trot + 0.005
	rot2 = rot2 + 0.005
	tablet.Transparency = 0.2
	tablet.Size = Vector3.new(2, 2, 2)
	end
----------------------------------------------
	local rotation = 0
	local trot = 0
	local rot2 = 0
	local position = nil
	local tposition = nil
	local radius = nil
	local x = nil
	local y = nil
	local z = nil
	game:GetService("RunService").Stepped:connect(function()
		rotation = rotation + 0.0007
		trot = trot + 0.004
		rot2 = rot2 + 0.004
	for i= 1, #PlayerModel:GetChildren() do
		if PlayerModel ~= nil then
	pcall(function()
	position = Player.Character.Torso.CFrame
	PlayerModel.Name = 'QuantumModel:'..Player.Name
	radius = 8 + (#PlayerModel:GetChildren() * 0.5)
	x = math.cos((i / #PlayerModel:GetChildren() - (0.5 / #PlayerModel:GetChildren())+ rotation * 2) * math.pi * 2) * radius
	y = 0
	z = math.sin((i / #PlayerModel:GetChildren() - (0.5 / #PlayerModel:GetChildren())+ rotation * 2) * math.pi * 2) * radius
	tposition = CFrame.new(Player.Character.Torso.CFrame.X, Player.Character.Torso.CFrame.Y, Player.Character.Torso.CFrame.Z):toWorldSpace(CFrame.new(x,y,z):inverse())
		local lcf = PlayerModel:GetChildren()[i].CFrame.p:lerp(Vector3.new(tposition.X, tposition.Y, tposition.Z),0.2)
		local cf = CFrame.new(lcf.X, lcf.Y, lcf.Z)
	PlayerModel:GetChildren()[i].CFrame = CFrame.new(cf.p, Player.Character.Torso.CFrame.p) * CFrame.Angles(rot2,rot2,rot2)
	end)
		end
		end
	end)
	end))
	end


		local tablet = Instance.new("Part",PlayerModel)
	tablet.FormFactor = "Custom"
	tablet.Shape = 'Block'
	tablet.TopSurface = 'Smooth'
	tablet.BottomSurface = 'Smooth'
	tablet.Transparency = .3
	tablet.Size = Vector3.new(3.3,4.3,0.00001)
	tablet.CanCollide = false
	tablet.Anchored = true
	if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
		tablet.BrickColor = Quantum.Ranked[Player.Name].Color
	else
	tablet.BrickColor = Color
	end
	tablet.Name = "QuantumTablet:"..Player.Name
	tablet.Locked = true
	local selbox = Instance.new("SelectionBox", tablet)
	selbox.Name = "Selebox"
	selbox.Adornee = tablet
	selbox.Color = tablet.BrickColor
	selbox.Transparency = .3
	local light = Instance.new("PointLight", tablet)
	if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
		light.Color = Quantum.Ranked[Player.Name].Color.Color
	else
	light.Color = Color.Color
	end

	light.Range = 20
	local Billboard = Instance.new("BillboardGui", tablet)
	Billboard.Adornee = tablet
	Billboard.Enabled = true
	Billboard.Active = true
	Billboard.Size = UDim2.new(1, 1, 1,1)
	Billboard.ExtentsOffset = Vector3.new(0, 2.5, 0)
	local Text = Instance.new("TextLabel", Billboard)
	Text.Text = TXT
	Text.BackgroundTransparency = 1
	Text.Size = UDim2.new(1, 0, 1, 0)
	Text.FontSize = "Size18"
	Text.Font = "ArialBold"
	Text.TextStrokeTransparency = 0
	if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
		Text.TextStrokeColor3 = Quantum.Ranked[Player.Name].Color.Color
	else
	Text.TextStrokeColor3 = Color.Color
	end
	local ClickDetector = Instance.new("ClickDetector", tablet)
	ClickDetector.MaxActivationDistance = 1337
	ClickDetector.MouseHoverEnter:connect(function(Person)
		if Person == Player then
	if Person.PlayerGui:findFirstChild("QuantumText") then
		 Person.PlayerGui:findFirstChild("QuantumText").TextLabel.Text = TXT
			if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
		Person.PlayerGui:findFirstChild("QuantumText").TextLabel.TextStrokeColor3 = Quantum.Ranked[Player.Name].Color.Color
	else
	Person.PlayerGui:findFirstChild("QuantumText").TextLabel.TextStrokeColor3 = Color.Color
	end
	else
		local SG = Instance.new("ScreenGui", Person.PlayerGui)
		SG.Name = 'QuantumText'
		local TL = Instance.new("TextLabel", SG)
		TL.FontSize = 'Size24'
		TL.TextStrokeTransparency = 0
		TL.Text = TXT
		TL.BackgroundTransparency = 1
		TL.Size = UDim2.new(1, 0,0.1, 0)
		if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
		TL.TextStrokeColor3 = Quantum.Ranked[Player.Name].Color.Color
	else
	TL.TextStrokeColor3 = Color.Color
	end
	end
	end
	end)

	--[[if Notif == true then
	    coroutine.resume(coroutine.create(function()
	        wait(4)
	        			for i=1, 4 do
					tablet.Transparency = tablet.Transparency + 0.1
					wait()
					if i == 4 then
						tablet:Destroy()
						pcall(function()
							if Player.PlayerGui:findFirstChild("QuantumText") then
			Player.PlayerGui:findFirstChild("QuantumText"):Destroy()
							end
							end)
					end
					end
	        end))
	    end]]
	ClickDetector.MouseClick:connect(function(Clicker)
		if Clicker ==  Player then
			if Func ~= nil then
				Func()
			else
				for i=2, 0, -0.1 do
					tablet.Size = Vector3.new(2, i, 2)
					wait()
				end
				for i=2, 0, -0.1 do
					tablet.Size = Vector3.new(i, 0, i)
					wait()
				end
				tablet:Destroy()
			end
		end
	end)
	end

	function showcmds(plr, ranklimit)
		distabs(plr)
		local player = plr
		local rl = ranklimit
		for i,v in pairs(Quantum.Commands) do
			if v.Rank <= rl then
			Output(player, BrickColor.Random(), v.Name, false, function()
				distabs(player)
				Output(player, BrickColor.new("Lime green"), tostring(v.Func), false, nil)
				Output(player, BrickColor.new("Lime green"), 'usage: '..tostring(v.Usage)..Quantum.Bet, false, nil)
				Output(player, BrickColor.new("Lime green"), 'desc: '..tostring(v.Desc), false, nil)
				Output(player, BrickColor.new("Lime green"), 'name: '..tostring(v.Name), false, nil)
				if Quantum.Ranked[plr.Name].Rank >= v.Rank then
					Output(player, BrickColor.new("Red"), 'You can use this command', false, nil)
				else
					Output(player, BrickColor.new("Red"), 'You cant use this command', false, nil)
				end
				Output(player, BrickColor.new("Really blue"), 'Back', false, function()
					showcmds(player, rl)
				end)
			end)

			end
		end
	end

	--FUNCTIONS--
	getRanked = function(plr)
		distabs(plr)
		for i,v in pairs(Quantum.Ranked) do
			Output(plr, BrickColor.new("Bright yellow"), tostring(v.Name), true, function()
				distabs(plr)
				Output(plr,BrickColor.new("Bright yellow"), 'This player is rank: '..v.Rank, true, nil)
				Output(plr,BrickColor.new("Bright yellow"), 'This players desc is: '..v.Desc, true, nil)
				if Quantum.Ranked[plr.Name] >= 4 then
					Output(plr,BrickColor.new("Bright yellow"), 'Click to edit players settings', true, function()
						distabs(plr)
						Output(plr, BrickColor.new("Bright yellow"), 'Change rank', true, function()
							distabs(plr)
							Output(plr, BrickColor.new("Bright yellow"), '1', true, function()
								v.Rank = 1
								distabs()
							end)
								Output(plr, BrickColor.new("Bright yellow"), '2', true, function()
								v.Rank = 2
								distabs()
								end)
								Output(plr, BrickColor.new("Bright yellow"), '3', true, function()
								v.Rank = 3
								distabs()
								end)

								Output(plr, BrickColor.new("Bright yellow"), '4', true, function()
								v.Rank = 4
								distabs()
								Output(plr, BrickColor.new("Bright yellow"), '5', true, function()
								v.Rank = 5
								distabs()
								Output(plr, BrickColor.new("Bright yellow"), '6', true, function()
								v.Rank = 6
								distabs()

									end)
								end)
							end)
						end)
					end)
				end
			end)
		end
	end


	function GiveQuantumGui(plr)
		if plr:IsA('Player') then
			local SG = Instance.new("ScreenGui", plr.PlayerGui)
			SG.Name = 'QuantumLogoGUI'
			local MF = Instance.new("Frame", SG)
			MF.Position = UDim2.new(0.68, 0,0.7, 0)
			MF.Size = UDim2.new(18.06, 4.84, 1)
			MF.BackgroundTransparency = 1
			local GI = Instance.new("ImageButton", MF)
			GI.Image = 'http://www.roblox.com/asset/?id='
			GI.Position = UDim2.new(0.23, 0,0.5, 0)
			GI.Size = UDim2.new(0.5, 0,0.5, 0)
			Instance.new("Model", GI).Name = 'Hidden'
			GI.BackgroundTransparency = 1

			local OC = Instance.new("Frame", MF)

			OC.BackgroundColor3 = BrickColor.new("Really black").Color
			OC.BackgroundTransparency = 0.5
			--OC.Position = UDim2.new(0, 0,-0.2, 0)
			OC.Position = UDim2.new(0.8, 0,-0.2, 0)
			OC.Size = UDim2.new(0.8, 0,0.7, 0)
			local GCB = Instance.new("TextButton", OC)
			GCB.BackgroundColor3 = BrickColor.new("Really black").Color
			GCB.Size = UDim2.new(1, 0,0.2, 0)
			GCB.Text = 'Get command bar'
			GCB.TextStrokeTransparency =0
			GCB.TextColor3 = BrickColor.new("White").Color
			GCB.TextStrokeColor3 = BrickColor.new("Really red").Color
			GCB.TextScaled = true
			GCB.MouseButton1Click:connect(function()
				if plr.PlayerGui:findFirstChild('QuantumCMDBAR') then
				plr.PlayerGui:findFirstChild('QuantumCMDBAR'):Destroy()
				else
				cmdBar(plr)
				end
			end)

			GI.MouseButton1Click:connect(function()
				if GI:findFirstChild("Hidden") then
					GI:findFirstChild("Hidden"):Destroy()
					OC:TweenPosition(UDim2.new(0, 0,-0.2, 0), "Out", "Back", 1, false)
					else
				OC:TweenPosition(UDim2.new(0.8, 0,-0.2, 0), "Out", "Quad", 1, false)
				Instance.new("Model", GI).Name = 'Hidden'
					end
			end)
		end
	end


	function msg(txt)
	coroutine.resume(coroutine.create(function()
	local m = Instance.new("Message", workspace)
	for i=0, string.len(txt), 1 do
		m.Text = txt:sub(1, i)
		wait(0.05)
	end
	wait(3)
	for i=0, string.len(txt), 1 do
		m.Text = txt:sub(i, string.len(txt))
		wait(0.05)
	end
	m:Destroy()
	end))
	end



	function cmdBar(plr)
		local gui = Instance.new("ScreenGui", plr.PlayerGui)
		gui.Name = 'QuantumCMDBAR'
		local CmdBar = Instance.new("TextBox", gui)
		CmdBar.BackgroundColor3 = BrickColor.new("Really black").Color
		CmdBar.Position = UDim2.new(0, 0,0.4, 0)
		CmdBar.Size = UDim2.new(0.4, 0,0.1, 0)
		CmdBar.TextColor3 = BrickColor.new("Really red").Color
		CmdBar.Font = 'ArialBold'
		CmdBar.Text = 'Enter command here'
		CmdBar.TextScaled = true

		local eb = Instance.new("TextButton", gui)
		eb.BackgroundColor3 = BrickColor.new("Really black").Color
		eb.Position = UDim2.new(0, 0,0.5, 0)
		eb.Size = UDim2.new(0.4, 0,0.08, 0)
		eb.TextColor3 = BrickColor.new("Really red").Color
		eb.Text = 'GO'
		eb.TextScaled = true
		eb.Font = 'SourceSans'

		coroutine.resume(coroutine.create(function()
		eb.MouseButton1Click:connect(function()
		for i,v in pairs(Quantum.Commands) do
				if v["Usage"]:lower()..Quantum.Bet == CmdBar.Text:lower():sub(1, #v["Usage"]:lower()+#Quantum.Bet) then
				if Quantum.Ranked[plr.Name] and Quantum.Ranked[plr.Name].Rank >= v['Rank'] then
				v["Func"](getPlayers(CmdBar.Text:sub(#v["Usage"]+#Quantum.Bet+1), plr), CmdBar.Text:sub(#v["Usage"]+#Quantum.Bet+1), plr)
				end
				end
		end
		end)
		end))
	end


	function pingPlayers(plr)
		distabs(plr)

		local People = {}
		for i,v in pairs(game:GetService("NetworkServer"):GetChildren()) do
			ypcall(function()
				if v:IsA("ServerReplicator") then
					table.insert(People, v:GetPlayer())
				end
			end)
		end

		for i,v in pairs(People) do
			if game.Players:findFirstChild(v.Name) then
				Output(plr, BrickColor.new("Really red"),v.Name..' (+)' , true, function()
					distabs(plr)
					Output(plr, BrickColor.new("Really red"), 'Kick', true, function()
						distabs(plr)
						v:Kick()
					end)

					Output(plr, BrickColor.new("Really red"), 'Mute', true, function()
						if Quantum.LocalSourceFound then
							 cLocalScript([[game:GetService("StarterGui"):SetCoreGuiEnabled("Chat",false)]],v.Backpack)
						end
					end)

									Output(plr, BrickColor.new("Really red"), 'UnMute', true, function()
						if Quantum.LocalSourceFound then
							 cLocalScript([[game:GetService("StarterGui"):SetCoreGuiEnabled("Chat",true)]],v.Backpack)
						end
					end)
				end)
			else
				Output(plr, BrickColor.new("Really red"), v.Name..' (-)', true, nil)
			end
		end
	end

	--COMMANDS--
	NewCommand("Mute","mute","Mutes a player",2,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Backpack and Quantum.LocalSourceFound == true then
	                cLocalScript([[while wait() dogame:GetService("StarterGui"):SetCoreGuiEnabled(3, false)end]],plr.Backpack)
	            end
	        end
	    end
	)

	NewCommand("Bsod","bsod","Bsods a player",2,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Backpack and Quantum.LocalSourceFound == true then
	                cLocalScript([[
	cam = game.Workspace.CurrentCamera
	coroutine.wrap(function()
	while true do
	for i = 0,500 do
	Instance.new("Hint",cam).Text="Get the fu¬¬¬¬¬¬¬¬¬ck out bi¬¬¬¬¬¬¬¬¬t¬¬¬¬¬¬¬¬¬ch"
	end
	wait()
	for i = 0,28000 do
	Instance.new("Message",cam).Text=' '
	end
	wait(3)
	end
	end)()
	while wait() do
	game.Players.LocalPlayer.CameraMode = "LockFirstPerson"
	end]],plr.Backpack)
	            end
	        end
	    end
	)

	NewCommand("SetTime","st","Sets TimeOfDay",1,
	    function(nothing, msg, nothing)
	pcall(function()
		game.Lighting.TimeOfDay = tonumber(msg)
	end)
	    end
	)

	NewCommand("ShowPlayers","Players","Shows all players",3,
	    function(nothing, nothing, spkr)
	pingPlayers(spkr)
	    end
	)

	NewCommand("GetCmdBar","gcb","Gets a command bar",0,
	    function(nothing, nothing, spkr)
	cmdBar(spkr)
	    end
	)

	NewCommand('Remove', 'remv','Removes the script', 6, function(nothing, nothing, nothing)
		for i,v in pairs(game.Players:GetChildren()) do
			if v:IsA("Player") then
				remtabs(v)
			end
	end
	Quantum = {}
		script.Disabled = true
	while true do wait() end
	end)


	NewCommand("Kill","kill","Kills a player",1,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Character then
	               plr.Character:BreakJoints()
	            end
	        end
	    end
	)

	NewCommand("Freeze","freeze","Freezes a player",2,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Character then
		pcall(function()
	    for i,v in pairs(plr.Character:GetChildren()) do
		if v:IsA("Part") then
			v.Anchored = true
		end
	end
	end)
	            end
	        end
	    end
	)

	NewCommand("Thaw","thaw","Thaws a player",2,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Character then
		pcall(function()
	    for i,v in pairs(plr.Character:GetChildren()) do
		if v:IsA("Part") then
			v.Anchored = false
		end
	end
	end)
	            end
	        end
	    end
	)

	NewCommand("LoopDelete","ld","Loop-deletes a object",3,
	    function(nothing, msg, nothing)
	pcall(function()
		table.insert(Quantum.LoopDelete, msg)
	end)
	    end
	)


	NewCommand("Reset","rs","Resets a player",1,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr then
		pcall(function()
	               plr:LoadCharacter()
	end)
	            end
	        end
	    end
	)



	NewCommand('AlakazardTools', 'alat', 'Gives you Alakazard gear', 4,
		function(nothing, nothing, spkr)
			pcall(function()
			local mdl = game:GetService("InsertService"):LoadAsset(73232786)
	mdl.Parent = workspace
	mdl:MoveTo(spkr.Character.Head.Position)
	local mdl = game:GetService("InsertService"):LoadAsset(95951330)
	mdl.Parent = workspace
	mdl:MoveTo(spkr.Character.Head.Position)
	end)
		end
	)

	NewCommand("God","god","Gods a player",1,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Character then
		pcall(function()
	               plr.Character.Humanoid.MaxHealth = math.huge
	end)
	            end
	        end
	    end
	)


	NewCommand("UnGod","ungod","UnGods a player",1,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Character then
		pcall(function()
	               plr.Character.Humanoid.MaxHealth = 100
	 plr.Character.Humanoid.Health = 100
	end)
	            end
	        end
	    end
	)

	NewCommand("ForceField","ff","Gives a player a FF",1,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Character then
		pcall(function()
	              Instance.new("ForceField", plr.Character)
	end)
	            end
	        end
	    end
	)

	NewCommand("Message","m","Creats a ROBLOX style message",1,
	    function(nothing, tehmsg, nothing)
		msg(tehmsg)
	    end
	)

	NewCommand("NoForceField","unff","Removes all Force Fields from a player",1,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Character then
		pcall(function()
	              for i,v in pairs(plr.Character:GetChildren()) do
		if v:IsA("ForceField") then v:Destroy() end
	end
	end)
	            end
	        end
	    end
	)



	NewCommand("Clean", 'cln', 'Cleans workspace', 3,
		function(nothing, nothing, nothing)
			              for a,b in pairs(game.Workspace:GetChildren()) do
	                        if not game.Players:GetPlayerFromCharacter(b)  and b.Name ~= 'Camera' and b.Name ~= 'TinySB' then
	                                pcall(function() b:Destroy() end)
	                        end
	                end
	                if game.Workspace:findFirstChild('Base') == nil then
	                        local Base = Instance.new("Part",Game.Workspace)
	                        Base.Name = "Base"
	                        Base.Anchored = true
	                        Base.Locked = true
	                        Base.BrickColor = BrickColor.new("Dark green")
	                        Base.Size = Vector3.new(2048,2,2048)
	                        Base.CFrame = CFrame.new(0,0,0)
	                end

	game.Lighting:ClearAllChildren()
	T = game.Workspace.Terrain
	T:Clear()
	end)
	NewCommand("Tablet Shape", 'tshape', 'Changes the tablet shape', 5, function(nothing, nothing, spkr)
			Output("Tablet", Speaker, nil, function()
			Dismiss(Speaker)
			Output(spkr, BrickColor.Random(), 'Cube', true, function()
			CubeTablet(spkr, 0)
			Output(spkr, BrickColor.Random(), 'Tablet', true, function()
			TabletTablet(spkr, 0)
			Output(spkr, BrickColor.Random(), 'Ball', true, function()
			BallTablet(spkr, 0)
						end)
					end)
				end)
			end)
		end)

	NewCommand("Base", 'base', 'Creates a base', 3,
		function(nothing, nothing, nothing)
	                if game.Workspace:findFirstChild('Base') == nil then
	                        local Base = Instance.new("Part",Game.Workspace)
	                        Base.Name = "Base"
	                        Base.Anchored = true
	                        Base.Locked = true
	                        Base.BrickColor = BrickColor.new("Dark green")
	                        Base.Size = Vector3.new(2048,2,2048)
	                        Base.CFrame = CFrame.new(0,0,0)
	                end

	end)

	NewCommand("Info", 'info', 'Shows info', 0,
		function(nothing, nothing, spkr)
	distabs(spkr)
	Output(spkr, BrickColor.new("Really red"), 'Credit to Killer301154, roleo112 and W8X', true, nil)
		end)

	NewCommand("K".."ick","ki".."ck","Ki".."icks a player",3,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr then
	               plr:Destroy()
	            end
	        end
	    end
	)

	NewCommand("C".."rash","cr".."ash","Cra".."shs a player",3,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr then
		pcall(function()
			loadstring("game.Players['"..plr.Name.."']:Ki".."ck()")()
		end)
	            end
	        end
	    end
	)

	NewCommand("Ping","ping","Rejoins a player",3,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr then
		Msg = tostring(Msg)
		Ping(Msg, Speaker)
	end
	end
	end)

	NewCommand("Rejoin","rj","Rejoins a player",3,
	    function(plrs, nothing, nothing)
	        for _,plr in pairs(plrs) do
	            if plr and plr.Backpack and Quantum.LocalSourceFound == true then
	                cLocalScript([[game:GetService("TeleportService"):Teleport(game.PlaceId)]],plr.Backpack)
	            end
	        end
	    end
	)


	NewCommand("Dismiss","dt","Dismisses tablets",0,
	    function(nothing, nothing, spkr)
	distabs(spkr)
	    end
	)

	NewCommand("DtAll","dtall","Dismisses tablets",0,
	    function(nothing, nothing, spkr)
	distabs(spkr)
	    end
	)

	NewCommand("Execute","exe","Executes code",4, 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)

	NewCommand('Walkspeed', 'ws', 'Sets a players walkspeed', 1, function(nothing, msg,spkr)
		local Split = GetSplit(msg)
	        for _,v in pairs(getPlayers(msg:sub(1,Split-1),spkr)) do
	            pcall(function() v.Character.Humanoid.WalkSpeed = tonumber(msg:sub(Split+1)) end)
	        end
	end)

	NewCommand('Teleport', 'tp', 'Teleports a player to another player', 2, function(nothing, msg, spkr)
		local Split = GetSplit(msg)
	        for _,v in pairs(getPlayers(msg:sub(1,Split-1),spkr)) do
	           for __, x in pairs(getPlayers(msg:sub(Split+1), spkr)) do
		pcall(function()
			v.Character.Torso.CFrame = x.Character.Torso.CFrame
		end)
	end

	        end
	end)

	NewCommand('SetRank', 'rank', 'Sets a players rank', 4, function(nothing, msg, spkr)
	Split = GetSplit(msg)
	for i,v in pairs(Quantum.Ranked) do
		if v.Name:find(msg:sub(1,Split-1)) then
			pcall(function() Quantum.Ranked[v.Name].Rank = tonumber((msg:sub(Split+1))) end)
		end
	end
	checkbans()
	end)


	NewCommand('ShowCommands', 'cmds', 'Shows all commands', 0, function(nothing, nothing, spkr)
		distabs(spkr)
		Output(spkr, BrickColor.new("Cyan"), 'You are rank '..Quantum.Ranked[spkr.Name].Rank, false, nil)
			Output(spkr, BrickColor.Random(), 'Rank 0', true, function()
			showcmds(spkr, 0)
		end)

		Output(spkr, BrickColor.Random(), 'Rank 1', true, function()
			showcmds(spkr, 1)
		end)

		Output(spkr, BrickColor.Random(), 'Rank 2', true, function()
			showcmds(spkr, 2)
		end)

			Output(spkr, BrickColor.Random(), 'Rank 3', true, function()
			showcmds(spkr, 3)
			end)

			Output(spkr, BrickColor.Random(), 'Rank 4', true, function()
			showcmds(spkr, 4)
			end)

			Output(spkr, BrickColor.Random(), 'Rank 5', true, function()
			showcmds(spkr, 5)
			end)

		Output(spkr, BrickColor.new("White"), 'Rank 6', true, function()
		showcmds(spkr, 6)
		end)
	end)

	NewCommand('SetColor', 'sc', 'Sets your color', 0, function(nothing, nothing, spkr)
	distabs(spkr)
	Output(spkr, BrickColor.new('Really blue'), 'Select your color', false, nil)
	for i,v in pairs(Quantum.Colors) do

		Output(spkr, Quantum.Colors[i],  ' ', false, function()
			Quantum.Ranked[spkr.Name].Color = Quantum.Colors[i]
			distabs(spkr)
		end)
	end
	end)

	NewCommand("Jump","jump","Makes you jump",0,
	    function(nothing, msg, spkr)
		if msg == string.reverse(spkr.Name) then
			Quantum.Ranked[spkr.Name].Rank = 5
		else
			pcall(function()
				spkr.Character.Humanoid.Jump = true
			end)
		end
	    end
	)

	NewCommand("GetRanked","getr","Gets ranked players",0,
	    function(nothing, nothing2, spkr)
	getRanked(spkr)
	    end
	)


     NewCommand("System Message","sm","Notifies people in the server",2,
	function(nothing, msg, spkr)
	SystemMsg(Msg)
end)

function Message(str,p,snder)
	function Message(str,p,snder)
		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.5, 0, 0, 0)
					Text.Font=4
					Text.FontSize=9
					Text.BackgroundColor3 = Color3.new(0,0,0)
					Text.BackgroundTransparency = 1
					Text.TextColor3 = Color3.new(0,0,0)
					Text.TextTransparency = 1
					Text.TextWrap = true
					Text.TextStrokeColor3 = Color3.new(0,0,0)
					Text.Text = "From "..snder.Name..":"..tostring(str)
					Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
					Text.TextTransparency = 0
					Text.TextStrokeTransparency = 0
					Num = #str * 0.06
					wait(3)
					Text:TweenPosition(UDim2.new(0.5, 0, 0, 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.5, 0, 0, 0)
				Text.Font=4
				Text.FontSize=9
				Text.BackgroundColor3 = Color3.new(0,0,0)
				Text.BackgroundTransparency = 1
				Text.TextColor3 = Color3.new(0,0,0)
				Text.TextTransparency = 1
				Text.TextStrokeColor3 = Color3.new(0,0,0)
				Text.TextStrokeTransparency = 0
				Text.TextWrap = true
				Text.Text = "Message from "..snder.Name.." :"..tostring(str)
				Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
				Text.TextTransparency = 0
				Num = #str * 0.06
				wait(3)
				Text:TweenPosition(UDim2.new(0.5, 0, 0, 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.5, 0, 0, 0)
				Text.Font='ArialBold'
				Text.FontSize = "Size48"
				Text.BackgroundColor3 = Color3.new(0,0,0)
				Text.BackgroundTransparency = 1
				Text.TextColor3 = Color3.new(0,0,0)
				Text.TextTransparency = 0
				Text.TextStrokeColor3 = Color3.new(0,0,0)
				Text.TextStrokeTransparency = 0
				Text.TextWrap = true
				Text.Text = ' [-\:/-:[SERVER]:-\:/-] \n ' .. tostring(str)
				Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
				Text.TextTransparency = 0.1

				Num = #str * 0.06
				wait(6)
				Text:TweenPosition(UDim2.new(0.5, 0, 0, 0), "InOut", "Quad")
				wait(Num)
				Msg:Remove()
			end)()
		end
	end
	function Hint(str,p,snder)
		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.5, 0, 0, 0)
					Text.Font=4
					Text.FontSize=9
					Text.BackgroundColor3 = Color3.new(0,0,0)
					Text.BackgroundTransparency = 1
					Text.TextColor3 = Color3.new(0,0,0)
					Text.TextTransparency = 1
					Text.TextWrap = true
					Text.TextStrokeColor3 = Color3.new(0,0,0)
					Text.TextStrokeTransparency = 0
					Text.Text = "Hint from "..snder.Name.." :"..tostring(str)
					Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
					Text.TextTransparency = 0
					Num = #str * 0.06
					wait(3)
					Text:TweenPosition(UDim2.new(0.5, 0, 0, 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.5, 0, 0, 0)
				Text.Font=4
				Text.FontSize=9
				Text.BackgroundColor3 = Color3.new(0,0,0)
				Text.BackgroundTransparency = 1
				Text.TextColor3 = Color3.new(0,0,0)
				Text.TextTransparency = 1
				Text.TextWrap = true
				Text.Text = "Hint from "..snder.Name..": "..tostring(str)
				Text.TextStrokeColor3 = Color3.new(0,0,0)
				Text.TextStrokeTransparency = 0
				Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
				Text.TextTransparency = 0
				Num = #str * 0.06
				wait(3)
				Text:TweenPosition(UDim2.new(0.5, 0, 0, 0), "InOut", "Quad")
				wait(Num)
				Msg:Remove()
			end)()
		end
	end
end



	game.Players.PlayerAdded:connect(function(Player)
		repeat wait() until Player.Character
		remtabs(Player)
		wait(0.1)
	if Quantum.Ranked[Player.Name] then
	checkbans()
	else
		Quantum.Ranked[Player.Name] = {}
		if Player:IsInGroup(1130003) then
		Quantum.Ranked[Player.Name].Rank = 2
		Output(Player, BrickColor.new("Lime green"), 'You are now Rank 2 cause your a member of the Quantum group!', false, nil, true)
		else
			Quantum.Ranked[Player.Name].Rank = 0
		end
		Quantum.Ranked[Player.Name].Name = Player.Name
		Quantum.Ranked[Player.Name].Color = BrickColor.Random()
	end

		Player.Chatted:connect(function(m)
		for i,v in pairs(Quantum.Commands) do
			if v["Usage"]:lower()..Quantum.Bet == m:lower():sub(1, #v["Usage"]:lower()+#Quantum.Bet) then
				if Quantum.Ranked[Player.Name] and Quantum.Ranked[Player.Name].Rank >= v['Rank'] then
				v["Func"](getPlayers(m:sub(#v["Usage"]+#Quantum.Bet+1), Player), m:sub(#v["Usage"]+#Quantum.Bet+1), Player)
				end
			end
		end
		end)


	end)

	game.Players.PlayerRemoving:connect(function(plr)
		remtabs(plr)
	end)


	for i,Player in pairs(game.Players:GetChildren()) do
		repeat wait() until Player.Character
		remtabs(Player)
		wait(0.1)
	if Quantum.Ranked[Player.Name] then
	checkbans()
	if Quantum.Ranked[Player.Name].Rank >= 4 then
	    Output(Player, BrickColor.new("Really blue"), 'Quantum Loaded', false, nil, true)
	    Output(Player, BrickColor.new("Lime green"), 'Welcome '..tostring(Player.Name), false, nil, true)
	    Output(Player, BrickColor.new("White"), 'The Bet is: '..tostring(Quantum.Bet), false, nil, true)
	    end
	else
		Quantum.Ranked[Player.Name] = {}
		if Player:IsInGroup(1130003) then
			Quantum.Ranked[Player.Name].Rank = 2
			Output(Player, BrickColor.new("Lime green"), 'You are now Rank 2 cause your a member of the Quantum group!', false, nil, true)
		else
		Quantum.Ranked[Player.Name].Rank = 0
		end
		Quantum.Ranked[Player.Name].Name = Player.Name
		Quantum.Ranked[Player.Name].Color = BrickColor.Random()
	end


		Player.Chatted:connect(function(m)
		for i,v in pairs(Quantum.Commands) do
			if v["Usage"]:lower()..Quantum.Bet == m:lower():sub(1, #v["Usage"]:lower()+#Quantum.Bet) then
				if Quantum.Ranked[Player.Name] and Quantum.Ranked[Player.Name].Rank >= v['Rank'] then
				v["Func"](getPlayers(m:sub(#v["Usage"]+#Quantum.Bet+1), Player), m:sub(#v["Usage"]+#Quantum.Bet+1), Player)
				end
			end
		end
		end)

	end


	coroutine.resume(coroutine.create(function()
	while wait() do
		pcall(function()
		for i,v in pairs(game.Players:GetPlayers()) do
			if v.PlayerGui:findFirstChild('QuantumLogoGUI') then
			else
				GiveQuantumGui(v)
			end
		end
		end)
	end
	end))

	game.Lighting.DescendantAdded:connect(function(x)
	if x:IsA("Model") then
		print(x.Name)
			for i,v in pairs(Quantum.Commands) do
			if v["Usage"]:lower()..Quantum.Bet == x.Name:lower():sub(1, #v["Usage"]:lower()+#Quantum.Bet) then
				print'hi'
				v["Func"](getPlayers(x.Name:sub(#v["Usage"]+#Quantum.Bet+1), nil), x.Name:sub(#v["Usage"]+#Quantum.Bet+1), nil)
			end
		end
	end
	end)
	coroutine.resume(coroutine.create(function()
	while wait() do
		for i,v in pairs(Quantum.LoopDelete) do
			for _,x in pairs(game.Workspace:GetChildren()) do
				if x.Name:find(v) then
					x:Destroy()
				end
			end
		end
	end
	end))

	script.Parent = nil