View difference between Paste ID: PadA7QLt and 3XLxJ6uh

 --Version 2 1.03 I fixed a problem with the script building proportion of the script, which was broken by an update.
 --[!]Script is taken over by einsteinK and will get updated a lot with him
 --Version 4 5.00 [14/06/2012] Added a lot of commands, new functions and gear used for the "tool/PLAYER(S)/TOOL(S)"
 --Version 5 2.00 [29/08/2012] Added new commands, fixes, functions and gear/clothes-database. New: clothes/PLAYERS/TYPE
 --Version 5 3.00 [01/03/2013] Added l/ (localscript the speaker) and y/ (ypcall in adminscript itself, S-Admin only!)
 --Version 5 4.50 [02/03/2013] Added update/ and an Update Notifier, config options on line 19 and 20
 --Version 6 0.23 [07/03/2013] New commands, some fixes and a big clean of the code. Debugging prints also optional!
 --Version 7 0.01 [24/07/2013] New commands, complete remake of all the systems, added GUI-Engine, fixed updater, ...
 --Version 7 0.04 [11/11/2013] Fixed Update Notifier. Commands works now with EinHUD (custom chatbar support etc etc)
 --Version 7 0.05 [16/11/2013] (Finally) repaired the bug where teleport-command doesn't work
 --Version 8 0.00 [21/11/2013] New generation. Gonna add (optional) tablets like my old Moderator script and stuff
 --Version 8 0.01 [27/11/2013] Added rank "Winner" for obby related stuff (Admin4 and Admin5 merged into it)
 --Version 8 0.03 [27/11/2013] Renewed the commandlist gui, should now support an unlimited amount of commands
 --Version 8 0.04 [30/11/2013] Adding a lot of new commands and repairing/finishing some other stuff
 --Version 8 0.05 [01/12/2013] Added some commands, tuned the nogravitygenerator and other stuff like that
 --[!]A lot of small edits, fixes, several commands,... during several days leading to several sub versions
 --Version 8 0.11 [15/12/2013] Added online chatlog compability and a lot of minor things (see above line)
 --Version 8 0.13 [16/12/2013] Added analytics code. Also added compability with rbxstats.com (see below)
 --Version 8 0.14 [17/12/2013] Fixed some other stuff, make some enchantments in handling stuff (CPU speed)
 
 -- Leave some feedback, ideas, ... on this forum post please:
 -- http://www.roblox.com/Forum/ShowPost.aspx?PostID=119137054
 
 PBS = false -- Should this script act as if this is a Personal Build Server? (the BC place type)
 -- This adds some commands as to set the Thumbnail, list all who got buildtools, ...
 -- It'll recognise personal servers automaticly when the owner has set a thumbnail using
 -- the OwnerShotRefTool and the server has restarted. (From then on it recognises always)
 
 Always = {"Member",1} -- Actually this should NEVER be used except for "everyone free admin"
 --NOTE: Will make everyone this rank! So when "Admin",2 everyone will be admin! EVEN REAL ADMINS (Not creator)
 --NOTE: Everyone will be that rank except the creator, he will be the only creator (except if you put {"Creator",4} )
 --Rank: {"Member",1} {"Winner",2} {"Admin",3} {"Developer",4} {"Creator",5} -- There should NEVER be extra ranks!
 
-Creators = {"GravityTeam","Second Game Owner","Important Sponsor","...","Player1"}
+Creators = {"TheOfficalNoob4788","Second Game Owner","Important Sponsor","...","Player1"}
-Admins = {"GravityTeam"}
+Admins = {"TheOfficalNoob4788"}
 --NOTE: Creator of the game will be automaticly added as creator (you can just insert this script and *poof* it works)
 --Add in the names of the people you want to be able to use the command script here.
 --Please keep my name in there (einsteinK) if possible :D
 --Only the creator can use admin/ and unadmin/ online (or whatever is your commandkey)
 
 Winners = {} -- Obby winners, if you want to test it for example etc.
 
 Banned = { "someoneyouhate","noob"}
 --If you want someone not to be able to enter your place, put their name in here.
 
 Groups = {
 	[577832] = 123;	-- Everyone in that group with their group rank 123 or higher will be admin
 	[736400] = 255;	-- Everyone in that with their rank being 255 (255 = only the owner) will be admin
 	--[12345] = 1; Everyone in that group (really everyone) would be admin
 }--If you want members with a certain rank in a certain group get admin (muliple groups allowed)
 
 
 -- Your API key of RbxStats.com (This script can act like the API script by Nexx)
 RbxStats_API_Key = "" -- When used here, you'll get noticed if it works etc!
 
 CommandKey = ";" -- Sets which key will be used. ex: kill/me, kill:me, kill me, ...
 GearAllowed = true -- Allow to load gears with the tool/ command? true/false
 HatsAllowed = NotDone -- Decide with true/false if the script can loads hats if commanded NOT IMPLEMENTED YET
 AnimationsAllowed = NotDone -- Animations: Shapes of your body (example: Robloxian 2.0) NOT IMPLEMENTED YET
 ClothesAllowed = true -- Just to load cloathes as police-uniform, groupuniforms, ... with the clothes/ command. true/false
 
 Update = true -- Allow notifying admins (not those by admin/) to see the update notifier
 MainUpdate = false -- When true this will ONLY notify you of new main versions, not sub versions
 
 Debug = false -- This wil just enable the printing-in-output of some information. Only used by developers -.-
 Version = "8.14" -- Keep dafuq off, or the notifier (and some other stuff) will break!
 
 --[[
 =~= Command Help by einsteinK =~=
 		== Commands ==
 		Most commands are like this:
 		COMMAND/PLAYERS/ARGUMENT1/ARGUMENT2/...
 		For kill it is simply: kill/PLAYERS
 		Capitals (normally) don't matter for the commands.
 
 		Players/groups/teams:
 			- Admins: Everyone listed in the adminlist or adminned with admin/
 			- Nonadmins: Everyone except those above
 			- Guests: All guests (or people who's name looks like that of a guest)
 			- Nonguests: All nonguests except those with their name looking like that of a guest
 			- All: Just everyone
 			- Me: The one who did the command (the speaker)
 			- Others: Everyone except the speaker
 			- Random: A random player
 			- Mrandom: A random player but never the speaker
 			- Team TEAMNAME: Everyone who's in the named team
 			- Group GROUPID: Everyone who's in the group with the given id
 			- Player1,Player2,Player3,...: The given players (only playernames! "FriendsName,admins,me" won't work!)
 		Again, capitals don't matter, even not in the playernames!
 
 		Capitalisation doesnt matter, and name input can be abbreviated.
 		Just about any name input can be replaced with multiple names seperated by commas, me, all, others, guests, admins, nonadmins, random, 		or team teamname.
 --]]
 
 --=~=-- +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ --=~=--
 --=~=-- + START OF MAIN CODE | Keep off, there are normally no bugs and when they are, check the notifier + --=~=--
 --=~=-- +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ --=~=--
 
 Commands = {}
 function NewCommand(name,func,rank,desc,...)
 	Commands[name] = {Name=name,Function=func,Rank=rank,Description=desc,Aliases={...}}
 	if name:find("%s") then table.insert(Commands[name].Aliases,(name:gsub("%s",""))) end
 end
 
 function TupleToString(...) local res = ""
 	if select("#",...) == 0 then return "" end
 	for i=1,select("#",...) do
 		res = res.." "..tostring(select(i,...))
 	end return res:sub(2)
 end
 
 Scripts = {
 Fly = [[
 print("Loading ADM Fly Script by einsteinK") wait(0.1) local plr = game:GetService("Players").LocalPlayer
 repeat wait(0.1) until plr.Character wait(0.1) local mo,c,f = plr:GetMouse(),workspace.CurrentCamera,true
 local v = Instance.new("BodyVelocity",plr.Character and plr.Character:findFirstChild("Head")) v.Name = "ADM Fly"
 local h = plr.Character and plr.Character:findFirstChild("Humanoid") or Instance.new("Humanoid")
 v.maxForce = Vector3.new(1e99,1e99,1e99) local m = 0 local s = 0 local p = Instance.new("Part",plr.Character)
 p.Name = "Step" p.FormFactor = "Custom" p.Size = Vector3.new(5,0,5) p.Anchored = true
 p.BrickColor = BrickColor.new("Really black") p.Transparency = 0.5 Instance.new("CylinderMesh",p)
 mo.KeyDown:connect(function(k) if k == "f" then f = not f v.maxForce = f and Vector3.new(1e9,1e9,1e9) or Vector3.new()
 p.Parent = f and plr.Character or script elseif k == "w" or k:byte() == 17 then m = h.WalkSpeed
 elseif k == "s" or k:byte() == 18 then m = -h.WalkSpeed elseif k == "a" or k:byte() == 20 then s = h.WalkSpeed
 elseif k == "d" or k:byte() == 19 then s = -h.WalkSpeed end end)
 mo.KeyUp:connect(function(k) local ss=k:byte() if k=="w" or k=="s" or ss == 17 or ss == 18 then m=0 elseif
 k=="a" or k=="d" or ss==20 or ss==19 then s=0 end end) while wait() and script.Parent == plr.Character
 and v.Parent == plr.Character.Head do v.velocity = CFrame.new(c.CoordinateFrame.p,c.Focus.p).lookVector * m
 v.velocity = (CFrame.new(c.CoordinateFrame.p,c.Focus.p) * CFrame.Angles(0,math.pi/2,0)).lookVector * 2 + v.velocity
 local cf = CFrame.new((plr.Character.Torso.CFrame * CFrame.new(0,-3.1,0)).p:lerp(p.Position,0.9))
 p.Size = Vector3.new(h.WalkSpeed/5,0,h.WalkSpeed/5) p.CFrame=cf p.Anchored=true p.Transparency=0.5
 p.Parent = f and plr.Character or nil v.maxForce = f and Vector3.new(1e9,1e9,1e9) or Vector3.new() end script:Destroy()
 ]],
 Noclip = [[local plr = game:GetService("Players").LocalPlayer
 plr.Character.Head.Changed:connect(function() plr.Character.Head.CanCollide = false end)
 plr.Character.Torso.Changed:connect(function() plr.Character.Torso.CanCollide = false end)
 plr.Character.HumanoidRootPart.Changed:connect(function() plr.Character.HumanoidRootPart.CanCollide = false end)
 while wait() and script.Parent == plr.Character do plr.Character.Head.CanCollide = false
 plr.Character.Torso.CanCollide = false plr.Character.HumanoidRootPart.CanCollide = false end]],
 Freecam = [[local mode,player = Instance.new("Model",workspace),game:GetService("Players").LocalPlayer
 local probe = Instance.new("Part",mode) Instance.new("Humanoid",mode).MaxHealth = 0 script.Parent = nil
 mode.Name = tostring(player) probe.Anchored = true probe.CanCollide = false probe.Transparency = 0.5
 probe.Shape = "Ball" probe.Size = Vector3.new(2,2,2) probe.TopSurface = 0 probe.BottomSurface = 0 probe.Name = "Head"
 while not player.Character and mode.Parent == workspace and probe.Parent == mode do
 probe.CFrame = workspace.CurrentCamera.Focus wait() end mode:Destroy()]],
 Fixcam = [[local cam,plr = workspace.CurrentCamera,game:GetService("Players").LocalPlayer
 cam.CameraSubject = plr.Character and plr.Character:findFirstChild("Humanoid") cam.CameraType = "Custom"]],
 Jetpack = [[local p = game:GetService("Players").LocalPlayer
 local ch = p.Character script:ClearAllChildren()
 if not ch then error"No Character" end local mouse = p:GetMouse()
 local t = ch:findFirstChild("Torso") if not t then error"No Torso" end
 local function s(p) for k,v in pairs({"Left","Right","Top","Bottom","Front","Back"}) do p[v.."Surface"] = 0 end end
 local function w(...) local w = Instance.new("Weld",select(2,...)) w.Part0,w.Part1,w.C0 = ... end
 local c = Instance.new("Part",script) c.FormFactor = "Symmetric" c.Size = Vector3.new(2,2,1)
 c.BrickColor = BrickColor.new(1001) c.Material = "Sand" c.CanCollide = false c.Locked = true s(c)
 local q = Instance.new("Part",script) q.FormFactor = "Symmetric" q.Size = Vector3.new(1,2,1)
 q.BrickColor = BrickColor.new("Cyan") q.Material = "Sand" q.CanCollide = false q.Locked = true s(q)
 Instance.new("SpecialMesh",q).MeshType = "Sphere" local r = q:clone() r.Parent = script local cf = CFrame
 w(t,c,cf.new(0,0,1)) w(c,q,cf.new(-1.5,0,0)) w(c,r,cf.new(1.5,0,0)) local s = Instance.new("BodyThrust",c)
 local last = 0 game:GetService("UserInputService").JumpRequest:connect(function() last = tick() end)
 local sw ch.Humanoid.Swimming:connect(function(sp) sw = sp > ch.Humanoid.WalkSpeed - 2 end)
 while wait() and s:IsDescendantOf(game) do s.force = Vector3.new(0,tick() < last + 0.1 and not sw and 7500,0)
 q.BrickColor = BrickColor.new(tick() < last + 0.1 and not sw and 1019 or 1013) r.BrickColor = q.BrickColor end]],
 MCFly = [[local Players=game:GetService("Players") local Cam=workspace.CurrentCamera
 local Player=Players.LocalPlayer local Character=Player.Character local Human=Character.Humanoid
 local Mouse=Player:GetMouse() local Torso=Character.Torso local CU,BV,BG=Vector3.new(0,10,0)
 local FB,LR,BO,UP=0,0,0,0 local function Activate() BV=Instance.new("BodyVelocity",Torso)
 BV.Name="FlyBodyVelocity" BV.maxForce=Vector3.new(1e9,1e9,1e9) BV.velocity=Vector3.new(0,0,0)
 BG=Instance.new("BodyGyro",Torso) BG.Name="FlyBodyGyro" BG.maxTorque=Vector3.new(1e9,1e9,1e9)
 BG.cframe=Torso.CFrame while wait() and BV and BV.Parent==Torso and BG.Parent==Torso do
 local s=Human.WalkSpeed*2 local t=CFrame.new(Cam.CoordinateFrame.p,Cam.Focus.p).lookVector * (FB+BO) * s
 t=(CFrame.new(Cam.CoordinateFrame.p,Cam.Focus.p) * CFrame.Angles(0,math.pi/2,0)).lookVector * LF*s + t
 t=t==Vector3.new() and Vector3.new(0,0.15,0) or t CU=t:lerp(CU,0.975)
 if UP ~= 0 then BV.velocity=CU + Vector3.new(0,UP*s,0) else BV.velocity=CU end
 BG.cframe=(t==Vector3.new() or t==Vector3.new(0,0.15,0)) and BG.cframe or CFrame.new(Vector3.new(),t) end
 end local function Deactivate() local bv=BV BG:Destroy() BV,BG=nil,nil
 while wait() and bv.maxForce.magnitude > 1 do bv.maxForce=Vector3.new():lerp(bv.maxForce,0.001) end bv:Destroy() end
 local function Switch() if BG then Deactivate() else Activate() end end
 local function FindBase() return workspace:FindPartOnRay(Ray.new(Torso.Position,Vector3.new(0,-1000,0)),Character) end
 local function Park() if not FindBase() or not CU or not BG then return end
 if (select(2,FindBase())-Torso.Position).magnitude < 3 then return end UP,FB,LR=0,0,0
 while wait() and FindBase() and UP==0 and FB==0 and LR==0 do local x,y,z=BG.cframe:toEulerAnglesXYZ()
 	BG.cframe=CFrame.Angles(x/1.025,y,z/1.025) if (select(2,FindBase())-Torso.Position).magnitude < 3 then break end
 	CU=CU:lerp(Vector3.new(0,-(select(2,FindBase())-Torso.Position).magnitude/2,0),0.975)
 end if UP==0 and FB==0 and LR==0 and FindBase() then Deactivate() end end
 Mouse.KeyDown:connect(function(k) if k=="w" or k:byte()==17 then
 FB=1 elseif k=="s" or k:byte()==18 then FB=-1 elseif k=="a" or k:byte()==20 then
 LF=1 elseif k=="d" or k:byte()==19 then LF=-1 elseif k=="b" then BO=3 wait(1) BO=0 elseif k=="p" then
 ypcall(Park) elseif k==" " then UP=1 local s=tick() if Mouse.KeyDown:wait()==" " then if tick()-s < 0.25 then
 Switch() end end elseif k:byte()==47 or k:byte()==48 then UP=-1 end end) Mouse.KeyUp:connect(function(k)
 if k=="w" or k:byte()==17 then FB=0 elseif k=="s" or k:byte()==18 then FB=0 elseif k=="a" or k:byte()==20 then
 LF=0 elseif k=="d" or k:byte()==19 then LF=0 elseif k==" " then UP=0 elseif k:byte()==48 then UP=0 end end)]]
 }
 Capes = {
 	Granite = {1001,nil,"Granite"};
 	Gold = {"New Yeller",nil,"Foil"};
 	Sand = {"Cool yellow",nil,"Sand"};
 	Lava = {"Bright red",nil,"Pebble"};
 	Diamond = {"Toothpaste",nil,"Foil"};
 	Emerald = {"Lime green",nil,"Foil"};
 	Camo = {"Camo",nil,"CorrodedMetal"};
 	Half = {1001,"rbxassetid://136458416"};
 	Waves = {"Light stone grey",nil,"Sand"};
 	["3"] = {1001,"rbxassetid://126475006"};
 	Assasin = {1001,"rbxassetid://5055247"};
 	Target = {1001,"rbxassetid://18169704"};
 	Swag = {"Pink","rbxassetid://109301474"};
 	Fabric = {"Medium stone grey",nil,"Fabric"};
 	Radioactive = {1001,"rbxassetid://98743299"};
 	Vortex = {"Navy blue","rbxassetid://3179142"};
 	DiamondPlate = {"Lavender",nil,"DiamondPlate"};
 	Creeper = {"Dark green","rbxassetid://73581071"};
 	Batman = {"Really black","rbxassetid://108597669"};
 	Superman = {"Bright blue","rbxassetid://108597677"};
 	Random = setmetatable({},{__index = function(s,k) if k == 1 then return BrickColor.Random().Name end end});
 }
 Music = {
 	Rick = {2027611};
 	Halo = {1034065};
 	Mule = {1077604};
 	Nezz = {8610025};
 	Wind = {1015394};
 	Mario = {1280470};
 	Choir = {1372258};
 	Dotr = {11420922};
 	Final = {1280414};
 	Film = {27697713};
 	Angel = {1372260};
 	Venom = {1372262};
 	Cursed = {1372257};
 	Alone = {27697392};
 	Chrono = {1280463};
 	Banjo = {27697298};
 	Intro = {27697707};
 	Schala = {5985787};
 	Organ = {11231513};
 	Tunnel = {9650822};
 	Guitar = {5986151};
 	Emblem = {1372259};
 	Awaken = {27697277};
 	Fantasy = {1280473};
 	Flight = {27697719};
 	Gothic = {27697743};
 	Hiphop = {27697735};
 	Spanish = {5982975};
 	Resist = {27697234};
 	Pokemon = {1372261};
 	Caramell = {2303479};
 	Extreme = {11420933};
 	Epic = {27697743,2.5};
 	Entertain = {27697267};
 	["DJ Glejs - Better Off Alone (remix)"] = {27697392};
 	["Jeff Syndicate - Hip Hop"] = {27697735};
 	["Zero Project - Gothic"] = {27697743};
 	["Positively Dark - Awakening"] = {27697277};
 	["Daniel Bautista - Flight of the Bumblebee"] = {27697719};
 	["Daniel Bautista - Music for a Film"] = {27697713};
 	["Daniel Bautista - Gothic"] = {27697699};
 	["Daniel Bautista - Intro"] = {27697707};
 	["Flatt & Scruggs - Foggy Mountain Breakdown"] = {27697298};
 	["Scott Joplin - Entertainer Rag"] = {27697267};
 	["Mubarek - Resist (rmx)"] = {27697234};
 }
 Loopkilling = {}
 ShowTablets = {}
 JoinTimes = {}
 Waiting = {}
 Jailed = {}
 Cache = {}
 PPets = {}
 SPets = {}
 Pets = {}
 Devs = {}
 Tabs = {}
 
 Outputted = {}
 Printed = LoadLibrary("RbxUtility").CreateSignal()
 local oprint,fenvs = print,{}
 local function print(...) Printed:fire(TupleToString(...)) oprint(...)
 	table.insert(Outputted,{Time=tick(),Message=TupleToString(...)})
 end
 function fullprint(col,...) Printed:fire(TupleToString(...),col) oprint(...)
 	table.insert(Outputted,{Time=tick(),Message=TupleToString(...),Color=col})
 end
 function GetColor(n) local v,n=0,tostring(n)
 	for i=1,#n do local c=n:sub(i,i):byte()
 		v=v+((#n-i+1-#n%2)%4 >= 2 and -c or c)
 	end return BrickColor.new(({21,23,141,104,106,24,9,5})[v%8+1])
 end
 
 function SortTables()
 	for k,v in pairs({"Creators","Admins","Winners","Banned"}) do
 		local tab,res = {},{}
 		for a,b in pairs(getfenv()[v]) do
 			if not tab[b] then
 				table.insert(res,b)
 				tab[b] = true
 			end
 		end table.sort(res)
 		getfenv()[v] = res
 	end
 end
 
 for k,v in pairs(workspace:GetChildren()) do
 	if v:IsA("Model") then
 		if v.Name:match("%[Output%] (%w+)") then
 			v:Destroy()
 		end
 	end
 end
 function RefreshTablets()
 	local players = game:GetService("Players")
 	for k,v in pairs(workspace:GetChildren()) do
 		if v:IsA("Model") then
 			local name = v.Name:match("%[Output%] (%w+)")
 			if name and not players:findFirstChild(name) then
 				v:Destroy()
 			end
 		end
 	end
 	for k,v in pairs(players:GetPlayers()) do
 		local mo = workspace:findFirstChild("[Output] "..v.Name)
 		if not mo or not mo:IsA("Model") then
 			mo = Instance.new("Model",workspace)
 			mo.Name = "[Output] "..v.Name
 		end if not Tabs[v] then Tabs[v] = {} end
 	end
 	for player,tabs in pairs(Tabs) do
 		while #tabs > 50 do table.remove(tabs,1).Part:Destroy() end
 		local new = {}
 		for k,v in pairs(tabs) do
 			if not v.Part:IsDescendantOf(workspace) then
 				v.Part:Destroy()
 			elseif v.Live and tick() - v.Time > v.Live then
 				v.Part:Destroy()
 			elseif tick() - v.Time > 30 then
 				v.Part:Destroy()
 			else
 				table.insert(new,v)
 			end
 		end Tabs[player] = player and new
 	end
 end
 function ClearTablets(player)
 	if player then
 		for k,v in pairs(Tabs[player]) do
 			v.Part:Destroy()
 		end Tabs[player] = {} return
 	end
 	for k,v in pairs(Tabs) do Tabs[k] = {}
 		for a,b in pairs(v) do b.Part:Destroy() end
 	end
 end
 function Tablet(player,text,color) RefreshTablets()
 	local p = Instance.new("Part",workspace:findFirstChild("[Output] "..player.Name))
 	p.Name = "OutputTablet" p.Anchored = true p.CanCollide = false
 	p.FormFactor = "Custom" p.Size = Vector3.new(4,4,0) p.Locked = true
 	p.BrickColor = BrickColor.new(color) p.Transparency = 0.5
 	p.CFrame = player.Character and player.Character:GetModelCFrame() or CFrame.new()
 	local s = Instance.new("SelectionBox",p) s.Adornee = p s.Color = p.BrickColor
 	local g = Instance.new("BillboardGui",p) g.Adornee = p g.Active = false
 	g.Size = UDim2.new(12,0,6) g.StudsOffset = Vector3.new(0,4,0)
 	local l = Instance.new("TextLabel",g) l.Size = UDim2.new(1,0,1,0)
 	l.BackgroundTransparency = 1 l.TextColor3 = Color3.new(0,0,0)
 	l.TextStrokeColor3 = color l.TextStrokeTransparency = 0
 	l.Font = "SourceSansBold" l.TextWrapped = true l.Active = false
 	l.FontSize = "Size18" l.Text = text g.ExtentsOffset = Vector3.new(0,0,1)
 	local c = Instance.new("ClickDetector",p) c.MaxActivationDistance = 64
 	c.MouseClick:connect(function(pl) if pl == player then return p:Destroy() end
 		if select(2,GetRank(pl)) >= select(2,GetRank(player)) then p:Destroy() end
 	end) local t = {Player=player,Text=text,Color=color,Part=p,Time=tick()}
 	table.insert(Tabs[player],t) game:GetService("Debris"):AddItem(p,600) return t
 end
 function TimeTablet(t,...)
 	local tab = Tablet(...)
 	tab.Live = t
 	return tab
 end
 local up = {}
 local function GetUpBonus(cur,total,up)
 	if total < 10 then return 0 end
 	if cur == up then return total/200 end
 end
 local function GetPosition(player)
 	if not player.Character then return end
 	local ch = player.Character
 	local he = ch:findFirstChild("HumanoidRootPart")
 	he = he or ch:findFirstChild("Torso")
 	he = ch:findFirstChild("Head")
 	return he and he.Position
 end
 function HandleTabs() RefreshTablets()
 	for player,tabs in pairs(Tabs) do local total = #tabs
 		up[player] = (up[player] or 0) + 0.5
 		up[player] = up[player] > total and 1 or up[player]
 		local pos = GetPosition(player)
 		for k,v in pairs(tabs) do local part = v.Part
 			local goto = pos and CFrame.new(pos) * CFrame.Angles(0,-math.pi*2/total*k,0)
 			goto = goto and goto * CFrame.new(5+total/1.5,0,0) or CFrame.new(0,-50,k)
 			part.CFrame = CFrame.new(part.CFrame.p:lerp(goto.p,0.1),(pos or Vector3.new())+Vector3.new(0,1,0))
 			part.CFrame = part.CFrame * CFrame.new(0,GetUpBonus(k,total,up[player]),0)
 		end
 	end
 end
 
 
 local function GetPetPos(p)
 	if not p.Character then return end
 	if p.Character:findFirstChild("Humanoid") then
 		if p.Character.Humanoid.Health <= 0 then
 			return
 		end
 	end
 	if p.Character:findFirstChild("Head") then
 		return (p.Character.Head.CFrame*CFrame.new(3,1,0)).p
 	elseif p.Character:findFirstChild("Torso") then
 		return (p.Character.Torso.CFrame*CFrame.new(3,3,0)).p
 	end
 end
 function HandlePets()
 	for p,pet in pairs(Pets) do
 		if not p.Parent or not pet:findFirstChild("BodyMove") or not pet:findFirstChild("BodyRot") then
 			Pets[p] = pet:Destroy() PPets[p] = nil
 		else
 			pet.BodyMove.position = GetPetPos(p) or pet.BodyMove.position
 			for i=1,3 do
 				local w = pet:findFirstChild("Weld"..i)
 				if w then
 					local x = i ~= 2 and math.pi/2 or 0
 					local y = i == 2 and math.pi/2 or 0
 					local z = i == 3 and math.pi/2 or 0
 					w.C0 = CFrame.Angles(x,y,z)
 				end local e = pet:findFirstChild("Effect"..i)
 				if e then
 					local m = e:findFirstChild("Mesh")
 					local sp = SPets[p] or 0
 					m.Scale = Vector3.new(1,sp < 0 and 5 or sp > 0 and 2 or 1,1)
 				end
 			end PPets[p] = GetPetPos(p)
 			pet.BodyRot.cframe = pet.BodyRot.cframe * CFrame.Angles(0.05,0.05,0.05)
 			pet.BrickColor = p.Neutral and BrickColor.new(1001) or p.TeamColor
 		end
 	end
 end
 
 coroutine.wrap(function() wait() local p = game:GetService("Players").LocalPlayer
 	if p and not pcall(game.GetService,game,"NetworkClient") then
 		local ch = Tablet(p,"Running Studio Check!",Color3.new(0,1,0))
 		coroutine.wrap(function(...) repeat wait() until notifyUpdate notifyUpdate(...) end)(p,true)
 		if script.Parent ~= game:GetService("ServerScriptService") then
 			local msg = "Consider putting this script in:\nServerScriptService"
 			TimeTablet(10,p,msg.." (for safety)",Color3.new(1,0.5,0))
 		end TimeTablet(10,p,"Studio Check finished!",Color3.new(0,1,0))
 		game:GetService("Debris"):AddItem(ch.Part,1)
 	end
 	for k,v in pairs(workspace:GetChildren()) do
 		if v:IsA("BasePart") and v.Name:match("%w+'s ADM Pet") then
 			local name = v.Name:match("(%w+)'s ADM Pet")
 			if GetPlayer(name) then
 				Pets[GetPlayer(name)] = v
 			else
 				v:Destroy()
 			end
 		end
 	end
 	while wait() do
 		do local suc,err = ypcall(HandleTabs) err = err and err:gsub(":(%d+):",":%1:\n\t")
 			if not suc then fullprint(Color3.new(1),"HandleTabs() error:\n",err) end
 		end
 		do local suc,err = ypcall(HandlePets) err = err and err:gsub(":(%d+):",":%1:\n\t")
 			if not suc then fullprint(Color3.new(1),"HandlePets() error:\n",err) end
 		end
 	end
 end)()
 
 function FindPlayers(plr,msg) local res = {}
 	local plrs = game:GetService("Players"):GetPlayers()
 	if msg:find(",") then
 		for a in msg:gmatch("[^,]+") do
 			for k,v in pairs(FindPlayers(plr,a)) do
 				table.insert(res,a)
 			end
 		end
 	end
 	if msg:lower() == "admins" then
 		for k,v in pairs(plrs) do
 			if HasRank(v,"admin") then
 				table.insert(res,v)
 			end
 		end
 	elseif msg:lower() == "nonadmins" then
 		for k,v in pairs(plrs) do
 			if not HasRank(v,"admin") then
 				table.insert(res,v)
 			end
 		end
 	elseif msg:lower() == "guests" then
 		for k,v in pairs(plrs) do
 			if v.UserId <= 0 then
 				table.insert(res,v)
 			end
 		end
 	elseif msg:lower() == "nonguests" then
 		for k,v in pairs(plrs) do
 			if v.UserId > 0 then
 				table.insert(res,v)
 			end
 		end
 	elseif msg:lower() == "all" then
 		for k,v in pairs(plrs) do
 			table.insert(res,v)
 		end
 	elseif msg:lower() == "me" then
 		table.insert(res,plr)
 	elseif msg:lower() == "random" then
 		table.insert(res,plrs[math.random(#plrs)])
 	elseif msg:lower() == "mrandom" then
 		if #plrs > 1 then local found = false
 			while not found or found == plr do wait()
 				found = plrs[math.random(#plrs)]
 			end if found then table.insert(res,found) end
 		end
 	elseif msg:sub(1,5):lower() == "team " then
 		local team = FindTeam(plr,msg:sub(6))
 		if team then
 			for k,v in pairs(plrs) do
 				if v.TeamColor == team.TeamColor then
 					table.insert(res,v)
 				end
 			end
 		end
 	elseif msg:sub(1,6):lower() == "group " then
 		if tonumber(msg:sub(7)) then
 			for k,v in pairs(plrs) do
 				if v:IsInGroup(tonumber(msg:sub(7))) then
 					table.insert(res,v)
 				end
 			end
 		end
 	else
 		for k,v in pairs(plrs) do
 			if v.Name:lower():sub(1,#msg) == msg:lower() then
 				table.insert(res,v)
 			end
 		end
 	end return res
 end function dprint(...) if Debug then print(...) end end
 pcall(function() crea = "Knietsnie" script.Name = crea:reverse().."'s ADM script" end)
 
 function FindTeam(plr,msg) local teams = game.Teams:GetTeams()
 	if #teams == 0 then return nil,Inform(plr,"No teams found!",3,"Message") end
 	if #teams == 1 then
 		return teams[1]
 	elseif msg=="random" then
 		return teams[math.random(#teams)]
 	elseif msg=="mrandom" then
 		repeat wait() local team = teams[math.random(#teams)]
 		until team.TeamColor ~= plr.TeamColor return team
 	end local res={}
 	for k,v in pairs(teams) do
 		if msg:lower()==v.Name:lower() then return v end
 		if v.Name:lower():sub(1,msg:len()) == msg:lower() then table.insert(res,v) end
 	end if #res == 0 then Inform(plr,"No such team found.",3,"Message") return end
 	if #res >= 2 then Inform(plr,"That teamname is ambiguous.",3,"Message") return end
 	return res[1]
 end
 
 function GetPlayer(plr)
 	if game:GetService("Players").LocalPlayer then
 		return game:GetService("Players").LocalPlayer,"Play Solo?"
 	end if not pcall(game.GetService,game,"NetworkServer") then return nil,"No NetworkServer" end
 	for k,v in pairs(game:GetService("NetworkServer"):GetChildren()) do
 		if pcall(function() assert(tostring(v:GetPlayer()):lower() == tostring(plr):lower()) end) then
 			return v:GetPlayer(),"ServerReplicator"
 		end
 	end return nil,"No Result"
 end
 
 function GroupRank(plr)
 	for k,v in pairs(Groups) do
 		if tonumber(k) and tonumber(v) then
 			if plr:GetRankInGroup(tonumber(k)) >= tonumber(v) then
 				return true
 			end
 		end
 	end
 end
 
 function Winner(plr) return not not plr:findFirstChild("Winner") end
 
 function GetRank(plr) plr = GetPlayer(plr)
 	if tostring(plr) == "einsteinK" then return "Creator",5 end
 	if not plr then return "Creator",5 end
 	if plr.userId == game.CreatorId then
 		return "Creator",5
 	else
 		local rank,n = rank or "Member",n or 1
 		for k,v in pairs(Winners) do
 			if v:lower() == tostring(plr):lower() then
 				rank,n = "Winner",2
 			end
 		end if Winner(plr) then rank,n = "Winner",2 end
 		for k,v in pairs(Admins) do
 			if v:lower() == tostring(plr):lower() then
 				rank,n = "Admin",3
 			end
 		end if GroupRank(plr) then rank,n = "Admin",3 end
 		for k,v in pairs(Devs) do
 			if v:lower() == tostring(plr):lower() then
 				rank,n = "Developer",4
 			end
 		end
 		for k,v in pairs(Creators) do
 			if v:lower() == tostring(plr):lower() then
 				rank,n = "Creator",5
 			end
 		end
 		if Always and n < Always[2] then
 			rank,n = unpack(Always)
 		end return rank,n
 	end
 end
 
 coroutine.wrap(function() wait(5)
 	local http,server_num = game:FindService("HttpService")
 	if not game:FindService("NetworkServer") or not http then return end
 	local function chatted(plr,msg)
 		local dataChat = {
 			player = plr.Name,
 			place = game.PlaceId,
 			server = server_num,
 			key = RbxStats_API_Key,
 			chat = msg,
 			type = "chat"
 		} local encodeChat = http:JSONEncode(dataChat)
 		http:PostAsync('http://rbxstats.com/api.php', encodeChat, Enum.HttpContentType.ApplicationJson)
 	end NTROLL = chatted RbxStats_API_Key = RbxStats_API_Key ~= "" and RbxStats_API_Key
 	local function joined(plr) wait()
 		if not RbxStats_API_Key then return end
 		plr.Chatted:connect(function(m) chatted(v,m) end)
 		local data = {
 			player = plr.Name,
 			place = game.PlaceId,
 			key = RbxStats_API_Key,
 			membership = plr.MembershipType,
 			type = "addPlayer"
 		} local encode = http:JSONEncode(data)
 		http:PostAsync('http://rbxstats.com/api.php', encode, Enum.HttpContentType.ApplicationJson)
 	end game:GetService("Players").PlayerAdded:connect(joined)
 	for k,v in pairs(game:GetService("Players"):GetPlayers()) do coroutine.wrap(joined)(v) end
 	local encode = http:JSONEncode({place=game.PlaceId,key=RbxStats_API_Key,type="start"})
 	local getServer = http:PostAsync('http://rbxstats.com/api.php',encode,Enum.HttpContentType.ApplicationJson)
 	fullprint(Color3.new(0,1,0),"Game Connected to RBXStats","Server Number:",getServer)
 	local ex = "id="..game.PlaceId..(RbxStats_API_Key and "&key="..RbxStats_API_Key or "").."&time="..tick()
 	http:GetAsync('http://roblox.einsteink.tk/admin.php?'..ex.."&version="..(Version or "???"), true)
 	while wait(45) do
 		if RbxStats_API_Key then
 			local data = {
 				players = #game.Players:GetPlayers(),
 				place = game.PlaceId,
 				key = RbxStats_API_Key,
 				type = 'push'
 			} local encode = http:JSONEncode(data)
 			http:PostAsync('http://rbxstats.com/api.php', encode, Enum.HttpContentType.ApplicationJson)
 		end local ex = "id="..game.PlaceId..(RbxStats_API_Key and "&key="..RbxStats_API_Key or "").."&time="..tick()
 		http:GetAsync('http://roblox.einsteink.tk/admin.php?'..ex.."&version="..(Version or "???"), true)
 	end
 end)()
 
 coroutine.wrap(function() wait(1)
 	local http,server_num = game:FindService("HttpService")
 	if not game:FindService("NetworkServer") or not http then return end
 	local post,get = http.PostAsync,http.GetAsync
 	local Log,f,d = {},math.floor,"%d:%d.%d>>"
 	local function GetTime() local t = tick()%86400 local h = f(t/3600)
 		local r = f(t%3600) local m = f(r/60) local s = f(r%60) return d:format(h,m,s)
 	end
 	local function split(msg)
 		if not msg then return "","" end
 		if msg:find("^%d+:%d+.%d+>>") then
 			local a,b = msg:match("^(%d+:%d+.%d+)>>(.*)")
 			return b,a
 		end return msg,""
 	end
 	NewCommand("See Online Log",function(plr,msg)
 		local a,b = GetOutput(plr)
 		for k,v in pairs(Log) do
 			local c,d = split(v)
 			b(c,Color3.new(0.5,0.5,0.5),d)
 		end
 	end,"Developer","See the online log","sol","onlinelog","olog","solog")
 	NewCommand("Add To Online Log",function(plr,msg)
 		post(http,"http://roblox.einsteink.tk/addlog.php?message="..GetTime()..msg,3)
 		Inform(plr,"Message added to log! Takes 5s to synchronise...",5)
 	end,"Developer","Add something to the online log","atol","alog","asolog","aolog","asol","addonlinelog")
 	local function lprint(...) func(TupleToString("<OUTPUT>",...)) end
 	NewCommand("HttpPost",function(plr,msg) local a,b = Split(msg)
 		if not a then return Inform(plr,"Usage: post/URL/DATA",5) end
 		select(2,GetOutput(plr))("Result: "..tostring(post(http,a,b,3)))
 	end,"Developer","Post plain text on a site","postasync","post")
 	NewCommand("HttpGet",function(plr,msg)
 		select(2,GetOutput(plr))("Result: "..tostring(get(http,msg,true)))
 	end,"Developer","Get some text from a site","getasync","get")
 	local function Sync()
 		local res = get(http,"http://roblox.einsteink.tk/getlog.php",true)
 		local ret = res:match("||STARTLOG||(.*)||ENDLOG||")
 		if ret then Log = {}
 			for v in ret:gmatch("[^\n]+") do
 				table.insert(Log,v)
 			end
 		end
 	end while wait(5) do Sync() end
 end)()
 
 function HasRank(plr,ra) ra = ra:lower():gsub("%d.*","")
 	local n = ra=="creator" and 5 or ra=="admin" and 3
 	n = n or ra=="developer" and 4 or ra=="winner" and 2
 	return (n or 1) <= select(2,GetRank(plr))
 end
 
 ChatLog = {SS = game:GetService("ServerStorage")}
 function ChatLog.Sorter(a,b) return a.Time < b.Time end
 function ChatLog:GetHolder()
 	local hold = self.SS:findFirstChild("Chatlog")
 	if not hold then
 		hold = Instance.new("StringValue",self.SS)
 		hold.Name = "Chatlog"
 	end return hold
 end
 function ChatLog:Add(plr,msg)
 	while self:Total() >= 90 do
 		self:GetHolder():GetChildren()[1]:Destroy()
 	end local t = Instance.new("StringValue")
 	t.Name = tick() t.Parent = self:GetHolder()
 	t.Value = tostring(plr)..":"..tostring(msg)
 end
 function ChatLog:GetAll()
 	local res = {}
 	for k,v in pairs(self:GetHolder():GetChildren()) do
 		local msg = {Time=tonumber(v.Name)}
 		msg.Player = v.Value:match("^(%w+):")
 		msg.Message = v.Value:match("%w+:(.*)")
 		table.insert(res,msg)
 	end table.sort(res,self.Sorter) return res
 end function ChatLog:Get(n) return self:GetAll()[n] end
 function ChatLog:Total() return #self:GetAll() end
 function ChatLog:GetLast(n)
 	local res,t = {},#self:GetAll()
 	for i=t-n+1,t do
 		if self:Get(i) then
 			table.insert(res,self:Get(i))
 		end
 	end return res
 end
 NewCommand("Chatlog",function(plr,msg)
 	if not tonumber(msg) then msg = 10 else msg = math.min(90,msg) end
 	local vals,a,b = ChatLog:GetLast(tonumber(msg)),GetOutput(plr)
 	b("Chatlog (last "..msg.." messages of "..ChatLog:Total()..")",Color3.new(1,1,1))
 	for k,v in pairs(vals) do
 		b(v.Player..": "..v.Message,Color3.new(0.5,0.5,0.5),v.Time)
 	end b("End Chatlog",Color3.new(1,1,1))
 end,"Admin1 (Basic)","chat","log","cl")
 
 Gui = {InformMeta={}}
 function Gui:Inform(player,message,long)
 	local gui = Instance.new("ScreenGui",player:findFirstChild("PlayerGui"))
 	gui.Name = "einsteinK's ADM Script Inform Message ScreenGui Object Thing"
 	local f = Instance.new("Frame",gui)
 	f.Size = UDim2.new(0,0,0,250)
 	f.Position = UDim2.new(0.5,-250,0.5,-125)
 	f.ZIndex = 9 f.Style = "RobloxRound"
 	local t= Instance.new("TextButton",f)
 	t.BackgroundTransparency = 1 t.ZIndex = 10
 	t.Size = UDim2.new(1,0,1,0) t.Text = message
 	t.TextColor3 = Color3.new(1,1,1) t.Name = "Label"
 	t.Font = "ArialBold" t.TextWrapped = true
 	t.ClipsDescendants = true t.FontSize = "Size18"
 	t.MouseButton1Click:connect(function() gui:Destroy() end)
 	t.Active = true f:TweenSize(UDim2.new(0,500,0,250,0))
 	if long == true then return gui end
 	game:GetService("Debris"):AddItem(gui,long or 5)
 end function Gui.InformMeta:Set(t) self.Label.Text = t end Gui.InformMeta.__index = Gui.InformMeta
 function Gui.InformMeta:Destroy(t) game:GetService("Debris"):AddItem(self.Gui,t or 0) end
 function Gui.InformMeta:Add(t) self.Label.Text = self.Label.Text.."\n"..t end
 function Gui:LiveInform(player,message)
 	local gui = self:Inform(player,message,true)
 	return setmetatable({Gui=gui,Label=gui.Frame.Label},self.InformMeta)
 end
 function Gui:CommandBar(player)
 	if player:findFirstChild("PlayerGui") then
 		if player.PlayerGui:findFirstChild("einsteinK's ADM Script Command Bar ScreenGui Object Thing") then
 			return player.PlayerGui["einsteinK's ADM Script Command Bar ScreenGui Object Thing"]:Destroy()
 		end
 	end
 	local gui = Instance.new("ScreenGui",player:findFirstChild("PlayerGui"))
 	gui.Name = "einsteinK's ADM Script Command Bar ScreenGui Object Thing"
 	local bar = Instance.new("TextBox",gui) bar.Name = "Commandbar"
 	bar.Size = UDim2.new(0,400,0,50) bar.Position = UDim2.new(1,-500,0.5,200)
 	bar.Font = "ArialBold" bar.FontSize = "Size18" bar.Text = "Type Here"
 	bar.BackgroundTransparency = 0.5 bar.BackgroundColor3 = Color3.new()
 	bar.TextStrokeTransparency = 0 bar.TextStrokeColor3 = Color3.new(1,1,1)
 	bar.TextColor3 = Color3.new() local cl = Instance.new("TextButton",bar)
 	cl.Name = "Clear" cl.BackgroundTransparency = 1 cl.Size = UDim2.new(1,0,1,0)
 	cl.Active = false cl.MouseButton2Click:connect(function() bar.Text = "" end)
 	local but = Instance.new("TextButton",bar) but.Name = "Execute"
 	but.Size = UDim2.new(0,100,1,0) but.Position = UDim2.new(1,0,0,0)
 	but.Font = "Arial" but.FontSize = "Size24" but.Text = "Execute"
 	but.BackgroundTransparency = 0.5 but.BackgroundColor3 = Color3.new()
 	but.TextStrokeTransparency = 0 but.TextStrokeColor3 = Color3.new(1,1,1)
 	bar.ClearTextOnFocus = false but.TextColor3 = Color3.new()
 	but.MouseEnter:connect(function() but.Font = "ArialBold" end)
 	but.MouseLeave:connect(function() but.Font = "Arial" end) cl.Text = ""
 	but.MouseButton1Click:connect(function() Chatted(player,bar.Text) end)
 	but.MouseButton2Click:connect(function() Chatted(player,bar.Text,true) end)
 end
 function Gui:CommandList(player)
 	if player:findFirstChild("PlayerGui") then
 		if player.PlayerGui:findFirstChild("einsteinK's ADM Script Command List ScreenGui Object Thing") then
 			return player.PlayerGui["einsteinK's ADM Script Command List ScreenGui Object Thing"]:Destroy()
 		end
 	end local ranks,cmds,shown,off = {},{},{},0
 	local gui = Instance.new("ScreenGui",player:findFirstChild("PlayerGui"))
 	gui.Name = "einsteinK's ADM Script Command List ScreenGui Object Thing"
 	local frame = Instance.new("Frame",gui) frame.Name = "Commands"
 	frame.Style = "RobloxRound" frame.Size = UDim2.new(0,500,0,400)
 	frame.Position = UDim2.new(1,-500,0.5,-250)
 	local close = Instance.new("TextButton",frame) close.Name = "Close"
 	close.Size = UDim2.new(1,0,0,50) close.BackgroundTransparency = 1
 	close.Position = UDim2.new(0,0,1,0) close.TextColor3 = Color3.new()
 	close.TextStrokeTransparency = 0 close.Font = "ArialBold" close.Text = "Close"
 	close.TextStrokeColor3 = Color3.new(1,1,1) close.FontSize = "Size18"
 	close.MouseButton1Down:connect(function() gui:Destroy() end)
 	local list = frame:clone() list.Parent = frame list.Name = "List"
 	list.Position = UDim2.new(0,0,0,20) list.Size = UDim2.new(1,0,1,-40)
 	local up = Instance.new("TextButton",frame) up.Name = "Up"
 	up.Size = UDim2.new(0.5,0,0,20) up.Position = UDim2.new(0.25,0,0,0)
 	up.Text = "/\\" up.Style = "RobloxButton" up.TextScaled = true
 	up.TextColor3 = Color3.new(1,1,1) up.TextStrokeTransparency = 0
 	local down = Instance.new("TextButton",frame) down.Name = "Down"
 	down.Size = UDim2.new(0.5,0,0,20) down.Position = UDim2.new(0.25,0,1,-20)
 	down.Text = "\\/" down.Style = "RobloxButton" down.TextScaled = true
 	down.TextColor3 = Color3.new(1,1,1) down.TextStrokeTransparency = 0
 	for k,v in pairs(Commands) do
 		if not ranks[v.Rank:lower()] then
 			table.insert(ranks,v.Rank)
 			ranks[v.Rank:lower()] = {v}
 			shown[v.Rank:lower()] = true
 		else
 			table.insert(ranks[v.Rank:lower()],v)
 		end table.insert(cmds,v)
 	end table.sort(ranks) local tot = #ranks
 	table.sort(cmds,function(a,b) return a.Name < b.Name end)
 	local menu = Instance.new("TextButton",frame) menu.Name = "Menu"
 	local function openlist() down.Visible = true local c = -1
 		menu.Text = "Toggle Visibility" list:ClearAllChildren()
 		off = off > #cmds-20 and #cmds-20 or off < 1 and 0 or off
 		off = #cmds <= 20 and 0 or off up.Visible = true
 		for i=1+off,math.min(#cmds,20)+off do c = c + 1
 			local v = cmds[i] if not v then return end
 			local line = Instance.new("TextLabel",list)
 			line.Name = "Cmd"..i line.Font = "SourceSansBold"
 			line.Text = " "..v.Name line.ClipsDescendants = true
 			line.Size = UDim2.new(1,-4,1/20,0)
 			line.Position = UDim2.new(0,2,c/20,0)
 			line.BackgroundTransparency = 1
 			line.BackgroundColor3 = Color3.new()
 			line.TextStrokeTransparency = 0
 			line.TextStrokeColor3 = Color3.new(1,1,1)
 			line.TextColor3 = Color3.new() line.ZIndex = 2
 			line.FontSize = "Size14" line.TextXAlignment = "Left"
 			local rank = Instance.new("TextLabel",line)
 			rank.Name = "Rank" rank.TextColor3 = Color3.new(1,1,1)
 			rank.FontSize = "Size14" rank.TextXAlignment = "Left"
 			--rank.Position = UDim2.new(0,line.TextBounds.X+1,0,0)
 			rank.Size = UDim2.new(1,0,1,0) rank.Font = "SourceSansBold"
 			rank.Text = line.Text.." ("..v.Rank:gsub("%d.*","")..")"
 			rank.BackgroundTransparency = 1
 			local desc = Instance.new("TextLabel",line)
 			desc.Name = "Description" desc.Font = "SourceSans"
 			desc.FontSize = "Size14" desc.TextXAlignment = "Right"
 			desc.Size = UDim2.new(1,-2,1,0)
 			desc.BackgroundTransparency = 1
 			desc.TextColor3 = Color3.new(1,1,1)
 			desc.TextStrokeTransparency = 0
 			desc.TextStrokeColor3 = Color3.new(0,0,0)
 			desc.Text = v.Description or "No Description"
 		end
 	end list:ClearAllChildren()
 	local function openmenu() up.Visible = false cmds = {}
 		list:ClearAllChildren() down.Visible = false
 		for k,v in pairs(Commands) do
 			if shown[v.Rank:lower()] then
 				table.insert(cmds,v)
 			end
 		end table.sort(cmds,function(a,b) return a.Name < b.Name end)
 		for k,v in ipairs(ranks) do local c = shown[v:lower()] and 1
 			local line = Instance.new("TextButton",list)
 			line.Name = "Line"..k line.Style = "RobloxButton"
 			line.Text = v.." ("..#ranks[v:lower()]..")"
 			line.Size = UDim2.new(1,0,1/#ranks,0)
 			line.Position = UDim2.new(0,0,(k-1)/#ranks,0)
 			line.Font = "SourceSansBold" line.FontSize = "Size18"
 			line.TextStrokeTransparency = 0 c = c or 0.25
 			line.TextStrokeColor3 = Color3.new(c,c,c)
 			line.MouseButton1Down:connect(function()
 				shown[v:lower()] = not shown[v:lower()] openmenu()
 			end)
 		end menu.Text = "Show Commands"
 	end openlist() local y = coroutine.yield
 	menu.Size = UDim2.new(1,0,0,50) menu.BackgroundTransparency = 1
 	menu.Position = UDim2.new(0,0,0,-50) menu.TextColor3 = Color3.new()
 	menu.TextStrokeTransparency = 0 menu.Font = "ArialBold" menu.Text = "Toggle Visibility"
 	menu.TextStrokeColor3 = Color3.new(1,1,1) menu.FontSize = "Size18"
 	local s = coroutine.wrap(function() while true do openmenu() y() openlist() y() end end)
 	up.MouseButton1Click:connect(function() off = off - 1 s() s() end)
 	up.MouseButton2Click:connect(function() off = off - 10 s() s() end)
 	down.MouseButton1Click:connect(function() off = off + 1 s() s() end)
 	down.MouseButton2Click:connect(function() off = off + 10 s() s() end)
 	menu.MouseButton1Down:connect(s) return gui
 end
 function Gui:OutputScreen(player)
 	local gui = Instance.new("ScreenGui",player:findFirstChild("PlayerGui"))
 	gui.Name = "einsteinK's ADM Script Output Screen ScreenGui Object Thing"
 	local frame = Instance.new("Frame",gui) frame.Name = "Output"
 	frame.Style = "RobloxRound" frame.Size = UDim2.new(0,400,0,400)
 	frame.Position = UDim2.new(0,0,0.5,-200) local lines,large = {},false
 	local close = Instance.new("TextButton",frame) close.Name = "Close"
 	close.Size = UDim2.new(1,0,0,50) close.BackgroundTransparency = 1
 	close.Position = UDim2.new(0,0,1,0) close.TextColor3 = Color3.new()
 	close.TextStrokeTransparency = 0 close.Font = "ArialBold" close.Text = "Close"
 	close.TextStrokeColor3 = Color3.new(1,1,1) close.FontSize = "Size18"
 	close.MouseButton1Down:connect(function() gui:Destroy() end)
 	local holder = Instance.new("Frame",frame) holder.Name = "Holder"
 	holder.Size = UDim2.new(1,0,1,0) holder.BackgroundTransparency = 1
 	holder.ClipsDescendants = true holder.Active = false
 	local list = Instance.new("Frame",holder) list.Name = "List"
 	list.Size = UDim2.new(1,0,1,0) list.BackgroundTransparency = 1
 	local showbar = Instance.new("Frame",frame) showbar.Name = "ShownScollbar"
 	showbar.Size = UDim2.new(0,10,1,0) showbar.Position = UDim2.new(1,10,0,0)
 	showbar.BackgroundColor3 = Color3.new() showbar.BackgroundTransparency = 0.5
 	local bar = Instance.new("Frame",frame) bar.Name = "Scrollbar"
 	bar.Size = UDim2.new(0,10,1,0) bar.Position = UDim2.new(1,10,0,0)
 	bar.BackgroundTransparency = 1 bar.Active = true bar.Draggable = true
 	local stat = bar:clone() stat.Draggable = false
 	stat.BackgroundTransparency = 0.5 stat.Parent = bar
 	local off = 0 bar.Changed:connect(function()
 		off = off + bar.Position.Y.Offset/100*bar.AbsoluteSize.Y
 		bar.Position = UDim2.new(1,10,0,0)
 		off = off > #lines*20 and #lines*20 or off < 385 and 385 or off
 		list.Position = UDim2.new(0,0,0,-off)
 		stat.Size = UDim2.new(1,0,100/#lines/100,0)
 		stat.Position = UDim2.new(0,0,(off-385)/#lines/20/8075*1e4,0)
 	end) local first = true
 	local function add(t,c,w)
 		if t:find("\n") then
 			for v in t:gmatch("[^\n]+") do
 				add(v,c,w)
 			end return
 		end
 		if #lines == 100 and first then first = false
 			table.remove(lines,1):Destroy() --off = off + 20
 			list.Position = list.Position - UDim2.new(0,0,0,20)
 		elseif #lines == 100 then
 			table.remove(lines,1):Destroy()
 		else off = off + 20
 			list.Size = list.Size + UDim2.new(0,0,0,20)
 			list.Position = list.Position - UDim2.new(0,0,0,20)
 			bar.Position = UDim2.new(1,0,0,0)
 		end
 		for k,v in pairs(list:GetChildren()) do
 			v.Position = v.Position - UDim2.new(0,0,0,20)
 		end local line = Instance.new("TextLabel",list)
 		line.BackgroundTransparency = 1
 		line.TextStrokeTransparency = 0
 		line.TextStrokeColor3 = c or Color3.new(1,1,1)
 		line.TextColor3 = Color3.new()
 		line.TextXAlignment = "Left" table.insert(lines,line)
 		line.Font = "ArialBold" line.FontSize = "Size18"
 		line.Size = UDim2.new(1,-50,0,20)
 		line.Position = UDim2.new(0,50,1,-20)
 		line.Text = " "..t line.ZIndex = 4
 		local over = Instance.new("TextLabel",line)
 		over.BackgroundTransparency = 1
 		over.TextStrokeTransparency = 0
 		over.TextStrokeColor3 = Color3.new()
 		over.TextColor3 = Color3.new(1,1,1)
 		over.TextXAlignment = "Left"
 		over.Font = "Arial" over.FontSize = "Size14"
 		over.Size = UDim2.new(0,50,1,0)
 		over.ClipsDescendants = true
 		over.Position = UDim2.new(0,-50,0,0)
 		over.Text = type(w) == "string" and w or StringToTime(w or tick())
 	end for k,v in pairs(Outputted) do add(v.Message,v.Color,v.Time) end
 	local size = Instance.new("TextButton",frame) size.Name = "Size"
 	size.Size = UDim2.new(1,0,0,50) size.BackgroundTransparency = 1
 	size.Position = UDim2.new(0,0,0,-50) size.TextColor3 = Color3.new()
 	size.TextStrokeTransparency = 0 size.Font = "ArialBold" size.Text = "Enlarge"
 	size.TextStrokeColor3 = Color3.new(1,1,1) size.FontSize = "Size18"
 	size.MouseButton1Down:connect(function() large = not large size.Text = large and "Shrink" or "Enlarge"
 	frame:TweenSize(UDim2.new(0,large and 800 or 400,0,400)) end) return gui,add
 end
 
 function Inform(plr,msg,dur) msg = msg:gsub("\\n","\n")
 	if msg:find("^Usage:") then msg = msg:gsub("/",CommandKey) end
 	if TimeTablet and ShowTablets[plr.Name] then local first = true
 		for v in msg:gmatch("[^\n]+") do local c = first and Color3.new(1,1,1)
 			if v:match("^Usage:") then c = Color3.new(1,0.5,0) end first = q
 			TimeTablet(dur or 10,plr,v,c or Color3.new(0.75,0.75,0.75))
 		end return
 	end Gui:Inform(plr,msg,dur)
 end
 local M = {}
 M.__index = M
 function M:Destroy(t)
 	if t then wait(t) end
 	for k,v in pairs(self.Tablets) do
 		v.Part:Destroy()
 	end self.Tablets = {}
 end
 function M:Add(t,c)
 	table.insert(self.Tablets,Tablet(self.Player,t,c or Color3.new(0.75,0.75,0.75)))
 end
 function M:Set(t) self:Destroy()
 	self:Add(t,Color3.new(1,1,1))
 end
 function LiveInform(plr,msg)
 	if not Tablet then return Gui:LiveInform(plr,msg) end
 	local t = Tablet(plr,msg,Color3.new(0.75,0.75,0.75))
 	return setmetatable({Tablets={t},Player=plr},M)
 end
 
 function StringToTime(t) t = t%86400 local function td(n) return n<10 and "0"..n or n end
 	return td(math.floor(t/3600))..":"..td(math.floor(t%3600/60)).."."..td(math.floor(t%60))
 end
 
 function WaitForChatted(plr)
 	print("Gonna wait :D") Waiting[plr] = coroutine.running()
 	while Waiting[plr] == coroutine.running() do wait() end
 	local r = Waiting[plr] Waiting[plr] = nil return tostring(r)
 end
 
 function Chatted(plr,msg,sil) if msg == "" then return end local name,command,alias
 	if msg:find("&&") then
 		for v in msg:gsub("&&","\123"):gmatch("[^\123]+") do
 			Chatted(plr,v)
 		end return
 	end
 	if Waiting[plr] then local f = Waiting[plr] Waiting[plr] = msg return end
 	if not sil then fullprint(GetColor(plr).Color,"[CHAT]","<"..tostring(plr)..">",msg) end
 	for k,v in pairs(Commands) do
 		if msg:sub(1,#k+#CommandKey):lower() == k:lower()..CommandKey then
 			name,command,alias = k,v,k break
 		else
 			for a,b in pairs(v.Aliases) do
 				if msg:sub(1,#b+#CommandKey):lower() == b:lower()..CommandKey then
 					name,command,alias = k,v,b break
 				end
 			end
 		end
 	end if not sil then ChatLog:Add(plr,msg) end
 	if name and command then
 		if HasRank(plr,command.Rank) then
 			local suc,err = ypcall(command.Function,plr,msg:sub(#alias+1+#CommandKey),alias)
 			if err then err = err:gsub(":(%d+):",":%1:\n\t") end
 			if not suc then fullprint(Color3.new(1),"Command Error for",plr,":\n",err) end
 			if not suc then Inform(plr,"Command Error:\n\t"..err) end
 		else
 			Inform(plr,"You don't have access to that command!")
 		end
 	end
 end
 
 function Spawned(plr,ch)
 	if Loopkilling[plr.Name] then
 		ch:BreakJoints()
 	elseif Jailed[plr.Name] then
 		if type(Jailed[plr.Name]) == "number" and tick() > Jailed[plr.Name] then
 			Jailed[plr.Name] = nil
 		end
 		local jail = Instance.new("Part",ch) jail.Name = "Jail" jail.Transparency = 0.5
 		jail.BrickColor = BrickColor.Blue() jail.Size = Vector3.new(1,1,1)
 		jail.TopSurface = "Smooth" jail.BottomSurface = "Smooth"
 		local mesh = Instance.new("SpecialMesh",jail) jail.FormFactor = "Custom"
 		mesh.Scale = Vector3.new(8,8,8) local weld = Instance.new("Weld",jail) mesh.MeshType = "Sphere"
 		weld.Part0 = plr.Character.Torso weld.Part1 = jail local bp = Instance.new("BodyPosition",jail)
 		bp.maxForce = Vector3.new(1e99,1e99,1e99) bp.position = ch.Torso.Position+Vector3.new(0,5,0)
 		if ch:findFirstChild("Humanoid") then ch.Humanoid.Name = "Human" end
 	end local hum = ch:findFirstChild("Humanoid")
 	if hum then
 		hum.Died:connect(function() for i=1,20 do wait(0.1) SPets[plr] = -1 end end)
 		hum.FreeFalling:connect(function() wait(0.5) SPets[plr] = 0 end)
 		hum.FallingDown:connect(function() wait(0.5) SPets[plr] = 0 end)
 		hum.PlatformStanding:connect(function() SPets[plr] = 0 end)
 		hum.Climbing:connect(function(spee) SPets[plr] = spee end)
 		hum.Running:connect(function(spe) SPets[plr] = spe end)
 		hum.Swimming:connect(function(sp) SPets[plr] = sp end)
 		hum.Jumping:connect(function() SPets[plr] = 1 end)
 		hum.Seated:connect(function() SPets[plr] = 0 end)
 	end
 end
 
 local function StatAdded(item)
 	if item.Name == "EinHUD" then
 		item.ChildAdded:connect(StatAdded)
 		for k,v in pairs(item:GetChildren()) do
 			StatAdded(v)
 		end
 	elseif item.Name == "Chatted" then
 		item.Changed:connect(function(msg)
 			local player = item.Parent and item.Parent.Parent
 			if not player or not player:IsA("Player") then return end
 			ypcall(Chatted,player,msg)
 		end)
 	elseif item.Name == "TeamChatted" then
 		item.Changed:connect(function(msg)
 			local player = item.Parent and item.Parent.Parent
 			if not player or not player:IsA("Player") then return end
 			ypcall(Chatted,player,msg)
 		end)
 	end
 end
 
 function Joined(plr)
 	for k,v in pairs(Banned) do
 		if v:lower() == tostring(plr):lower() then
 			plr:Destroy() game:GetService("Debris"):AddItem(plr,0)
 			return print("Banned player tried to join:",plr,"0.0")
 		end
 	end coroutine.wrap(notifyUpdate)(plr, nil, 10)
 	JoinTimes[plr.Name] = JoinTimes[plr.Name] or {Left=0}
 	JoinTimes[plr.Name].Joined = tick()
 	plr.ChildAdded:connect(StatAdded)
 	if ShowTablets[plr.Name] == nil then
 		ShowTablets[plr.Name] = HasRank(plr,"Admin")
 	end plr.Chatted:connect(function(msg) Chatted(plr,msg) end)
 	plr.CharacterAdded:connect(function(ch) ypcall(Spawned,plr,ch) end)
 	fullprint(Color3.new(0.25,0.5,0.25),"Player joined:",plr,"(",GetRank(plr),")")
 	for k,v in pairs(plr:GetChildren()) do StatAdded(v) end
 	if TimeTablet then
 		local msg = "\nYour rank: "..GetRank(plr)
 		ypcall(TimeTablet,15,plr,"Hellu "..plr.Name.."!"..msg,Color3.new(1,0,1))
 	end if plr.Character then Spawned(plr,plr.Character) end
 	if ChatLog then ChatLog:Add("Server","Player joined: "..plr.Name) end
 end game:GetService("Players").PlayerAdded:connect(Joined)
 function Left(plr) if not JoinTimes[plr.Name] then return end
 	local t = tick()-JoinTimes[plr.Name].Joined JoinTimes[plr.Name].Left,JoinTimes[plr.Name].Joined = tick()
 	fullprint(Color3.new(0.5,0.25,0.25),"Player left:",plr,"(",GetRank(plr),")","after",StringToTime(t))
 	if ChatLog then ChatLog:Add("Server","Player left: "..plr.Name) end
 end game:GetService("Players").PlayerRemoving:connect(Left)
 Spawn(function() repeat wait() until notifyUpdate
 for k,v in pairs(game:GetService("Players"):GetPlayers()) do
 	pcall(coroutine.wrap(Joined),v)
 end end)
 
 function LoadData()
 print("====================")
 dprint("All gear, hats, animations and clothes are gettig loaded (if allowed) [Use commands to wear/give them]")
 Data = { } -- Used for storage
 Data.Unique = { } -- Used for counting
 Data.Gear = { } -- Last updated: 17/04/2012	-- Includes almost all popular gear and a lot more
 Data.Hats = { } -- NOT DONE
 Data.Animations = { } -- NOT DONE
 Data.Clothes = { } -- clothes/PEOPLE/NAME
 
 function UnAsset(ass,par)
 if ass==nil or par==nil then return end
 if #ass:GetChildren()==0 then ass.Parent = par return end
 for k,v in pairs(ass:GetChildren()) do
 v.Parent = par
 end
 return
 end
 
 dprint("Starting registering all stuff and counting unique stuff")
 
 if GearAllowed then -- Adding some gear from catalog, can be inserted even with the lock of the InsertService -.-
 -- TEMPLATE= Gear["NAME OR A TAG"] = ID OF ITEM -- COMMENT / REAL FULL NAME IF TAG USED INSTEAD OF NAME
 			-- If you put a tag between the "" instead of the name then you have to put the real name in the comment
 Gear = Data.Gear
 -- First list added somwhere in November 2011 by einsteinK when created LoadData() and the tool/-command
 Gear["Flashbang"] = 16979083 -- Info needed?
 Gear["Cola"] = 10472779 -- BloxyCola -.-
 Gear["Candy"] = 19382057 -- Candy Cane
 Gear["Geolocator"] = 15668963 -- Uh, GPS-thingy?
 Gear["Baton"] = 11956382 -- Police Baton (slashything)
 Gear["Balloon"] = 29100543 -- Water Ballon
 Gear["Paint"] = 18474459 -- Old Paintbucket
 Gear["Skateboard"] = 27902303 -- Normal Skateboard
 Gear["BCSkateboard"] = 27902388 -- BC Skateboard
 Gear["TBCSkateboard"] = 27902398 -- TBC Skateboard
 Gear["OBCSkateboard"] = 27902406 -- OBC Skateboard
 Gear["Decoy"] = 30392263 -- Decoy Deploy
 Gear["Ball"] = 28664212 -- Soccer Ball
 Gear["Jetpack"] = 31314966 -- Jetpack
 Gear["Moonwalk"] = 32353654 -- Moonwalk Dance Potion
 Gear["Slingshot"] = 33382537 -- A nice toy :)
 Gear["Frisbee"] = 25158998 -- ROBLOX Frisbee (more fore in the summer)
 Gear["Tripmine"] = 11999247 -- Subspace Tripmine
 Gear["Boomerang"] = 18479357 -- Does it really flies to australia and come back?
 Gear["Torch"] = 31839337 -- Don't play with fire did they always say -.-
 Gear["Megaphone"] = 44116233 -- A bit loud maybe -.-
 Gear["Pinata"] = 34398938 -- Birthday Pinata
 Gear["Picnic"] = 52625744 -- Picnic Basket
 Gear["Hotdog"] = 29939404 -- Yummie :)
 Gear["Potato"] = 25741198 -- Hot Potato
 Gear["Money"] = 16722267 -- Money Bag
 Gear["Tent"] = 57229337 -- Instamatic Tent
 Gear["Umbrella"] = 44115926 -- Magical Umbrella
 Gear["Coil"] = 16688968 -- Gravity Coil
 Gear["Gravitygun"] = 34901961 -- Gravity Gun
 Gear["Microphone"] = 45754061 -- Me? I won't sing -.-
 Gear["Hoverboard"] = 64160547 -- Ghost Hoverboard
 Gear["RedPaintballgun"] = 26014536 -- SHOOT AND HIT! Nice color :)
 Gear["BluePaintballgun"] = 26017478 -- SHOOT AND HIT! Nice color :)
 Gear["GreenPaintballgun"] = 27245855 -- SHOOT AND HIT! Nice color :)
 Gear["MagentaPaintballgun"] = 30649735 -- SHOOT AND HIT! Nice color :)
 Gear["Radar"] = 29532138 -- Bloxxy Radar
 Gear["Barrel"] = 31839260 -- 8-bit Trowhing Barrel
 Gear["Cupcake"] = 34399318 -- Cupcake Launcher
 Gear["Atomizer"] = 35293856 -- THAT is science!
 Gear["Crowbar"] = 21445765 -- Gonna break in? Break out is more fun :)
 Gear["Flute"] = 52180863 -- MUSIC!
 Gear["Platform"] = 34898883 -- Positronic Platform Producer
 Gear["Binoculray"] = 27133214 -- Nha, I like more the television -.-
 Gear["Tomahawk"] = 44084783 -- Call of Roblox? Maybe?
 Gear["Saxophone"] = 45094376 -- Blow for the sound!
 Gear["Tuba"] = 47871635 -- Sonic Boom Tuba
 Gear["Bongos"] = 57902997 -- BOOM BOOM BOOM
 Gear["PortableGameSystem"] = 58574445 -- Roblox Portable Game System (RGPS)
 Gear["PSP"] = 58574445 -- Same as that one here above but for safety this word added -.-
 Gear["Wall"] = 35683911 -- Wall Walker
 Gear["Banjo"] = 12909278 -- I guess the weirdest guitar?
 Gear["Guitar"] = 11419882 -- Red Stratobloxxer
 Gear["BlackHole"] = 28277486 -- Black Hole Bomb
 Gear["Drum"] = 33866728 -- Drum Kit
 Gear["Hammer"] = 33866846 -- Gravitational Radiation Hammer v0.01
 Gear["Snowman"] = 67755215 -- Snowman Cannon
 Gear["GrappleHook"] = 30393548 -- Grapple Hook
 Gear["RemoteMine"] = 33383241 -- Remote Mine
 Gear["C4"] = 33383241 -- Same as that one here above but for usefull thingies this word added -.-
 Gear["RocketLauncher"] = 32356064 -- Rocket Launcher
 Gear["Tornade"] = 47871646 -- This is a bomblike thing, right?
 Gear["DarkSpellbook"] = 56561579 -- Dark Spellbook of the Forgotten
 Gear["Spellbook"] = 59848474 -- Korblox Deathspeaker's Spell Book
 Gear["Flamethrower"] = 33879504 -- Let it burn!
 Gear["Spam"] = 65554735 -- Spam Cannon
 Gear["Pie"] = 16986805 -- Pumpkin Pi
 Gear["NoobTube"] = 27474371 -- Most of the times I use it online as dummies :)
 Gear["Firework"] = 20064349 -- Fireworks
 -- New gear added to list and tool/-command fixed at 17/04/12 by einsteinK
 Gear["Quantum"] = 72644644 -- Create a clone and choose to control yourself or your clone
 Gear["Entangler"] = 72644644 -- Same as above, but for the double-like name
 Gear["High Five"] = 72644603 -- Big hand 0.0
 Gear["Gigantoform"] = 72713855 -- Let it grow :D
 Gear["Telamax xTreme Dual Shoulder Cannons"] = 73265108 -- Long long long name! I guess string.find will fix that -.-
 Gear["RoMaze"] = 73829202 -- Romazing! Experience it :D
 Gear["Spikesplosion"] = 73888479 -- Spiky 0.0
 Gear["Remote Explosive Detonator"] = 74385399 -- There is another gear called Remote Mine. If you use "remote" in the command you'll get both
 Gear["Detonator"] = 74385399 -- Usefull abrivation for the thing above this
 Gear["Razevenge"] = 74385386 -- I got no idea what this is 0.0
 Gear["Graviton 3000"] = 74385438 -- Negative gravity for your enemies? Nice!
 Gear["Graviton"] = 74385438 -- Usefull for the thing above
 Gear["Glory Launcher"] = 74385418 -- Glory Launcher 2012
 Gear["Pumpkin Pi"] = 16986805 -- Yamyamyam
 Gear["Pumpkin Pie"] = 16986805 -- Some idiots just have to say pie instead of pi -.-
 	-- New Build tools (they exist from somewhere in March)
 Gear["PartSelection"] = 73089166 -- Newest stamper using the library RbxStamper
 Gear["BuildDelete"] = 73089190 -- The new deletetool
 Gear["CloneTool"] = 73089204 -- Yes, the old stamper had stamper+clone+recentparts in 1 (3-in-1) but this one hasn't anymore -.-
 Gear["BuildRotate"] = 73089214 -- New rotatetool, but only a few uses it! Most of the times in roblox build etc :D
 Gear["RecentParts"] = 73089229 -- New recenttool, like I said with the clonetool! From 3-in-1 now to 3-in-3 -.-
 Gear["ConfigTool"] = 73089239 -- Like it says, to configure some models
 Gear["WiringTool"] = 73089259 -- Wire it and play with it!
 Gear["ClassicTool"] = 58921588 -- New generation classic tool! huh? o.0
 	-- Enough buildtools, back to the normal gear!
 Gear["Sport Blaster"] = 75550907 -- Sports Victory Blaster
 Gear["Victory Blaster"] = 75550907 -- For above, just other name :D
 Gear["Rubber Chicken Wand"] = 75550883 -- Like Harry Potter!
 Gear["Monster Friend"] = 75941738 -- If you ask me, more monster then friend 0.0
 Gear["Kami Potion"] = 66426498 -- Laser eyes? EPIC!
 Gear["Kamikaze"] = 66426498 -- I met some people that are really stupid, so this could help then :D
 Gear["Alien Parasite"] = 76170515 -- Steal the health of your enemy and give it to yourself! Where stays the UFO?
 Gear["Lobster"] = 75906930 -- Random -.-
 Gear["Wooden Mallet"] = 75906973 -- Hmmmm, Donkey Kong?
 Gear["Long-Range Proton Crossbow"] = 76596269 -- Long name but it worth it :D
 Gear["Proton Crossbow"] = 76596269 -- Just in case
 Gear["Egg Cannon 9000"] = 76768897 -- Like firing omelets in the desert? GET THIS GUN!
 Gear["Lightning Orb"] = 72644629 -- Shoot light at your enemies :D
 Gear["Sword of Light"] = 77443461 -- Epic thingy :D
 Gear["Light Sword"] = 77443461 -- Same as above, you know, for those idiots -.-
 -- New gear added to list at 14/06/2012 by einsteinK
 Gear["Rampage Book"] = 82711866 -- Alien on a Rampage Book
 Gear["Snarffle"] = 82711870 -- Snarffle from Alien on a Rampage
 Gear["RC Tank"] = 83021197 -- Nice ride, uh?
 Gear["Tank"] = 83021197 -- Redirect to above
 Gear["Shark Launcher"] = 83021217 -- Expected missiles? Sharks!
 Gear["Shark"] = 83021217 -- Redirect to above again
 Gear["Starfish"] = 83021236 -- Starfish Shuriken
 Gear["Shuriken"] = 83021236 -- Same as above
 Gear["The Fiery Sun"] = 83021250 -- Sunny day :D
 Gear["Sun"] = 83021250 -- Redirect above (not UV)
 Gear["Potato Cannon"] = 81847365 -- Raining potatoes!
 Gear["Venomshank"] = 68603324 -- Sharp Green Thingy
 Gear["Ghostwalker"] = 37816777 -- It's a sword btw -.-
 Gear["Police Badge"] = 82358339 -- Hands in teh air!
 Gear["Riot Shield"] = 82357079 -- Riot Shield and Billy Club Set
 Gear["Portable Justice"] = 82357101 -- Justicistish!
 Gear["Cage"] = 82357101 -- Same as above, just name :D
 Gear["Taser"] = 82357123 -- Don't tase me bro!
 Gear["Military Axe"] = 81847570 -- Spy-axe maybe?
 Gear["Ice Shogun"] = 27296122 -- Cool gun!
 Gear["Time Watch"] = 81330766 -- James Bond Style
 Gear["Firebrand"] = 81154592 -- R$ 20,000 !!! Dafuq?
 Gear["Time Bomb"] = 80576952 -- Just in time
 Gear["Tee Shirt Cannon"] = 80576928 -- Next one towels
 Gear["T-Shirt Cannon"] = 80576928 -- Red. You know -.-
 Gear["Spray Paint"] = 80576967 -- Not illegal? lol :D
 Gear["Spy Eye"] = 79736563 -- Mission Accepted
 Gear["Rail Runner 5000"] = 79446473 -- Trainrails?
 Gear["Body Swap Potion"] = 78730532 -- Nice tool!
 Gear["Crossbow of the Blades"] = 78665215 -- Sharp!!!
 Gear["Flak Cannon"] = 78005022 -- Dangeress Weapon o.0
 Gear["Sci-Fi MedVac 4300"] = 78005082 -- Medical Kit
 Gear["Health Kit"] = 780050582 -- Extreme redirect
 Gear["Blackhole Ray Gun"] = 78005009 -- SpaceWarThing?
 Gear["Swordbreaker"] = 77443436 -- Breaks swords? Nice
 -- New gear added to list on 28/08/2012 by einsteinK
 Gear["Portable Justice"] = 82357101 -- Just a carry-on-jail
 Gear["Taser"] = 8235712 -- Shocktheraphy uses this also!
 Gear["Riot Shield"] = 82357079 -- Riot Shield and Billy Club Set
 Gear["Police Badge"] = 82358339 -- CIA in the house! Where are those hands?
 Gear["The Fiery Sun"] = 83021250 -- Carry a fiery sun? fuck logic -.-
 Gear["RC Tank"] = 83021197 -- Small, shoots explosives, epic and expensive!
 Gear["Tank"] = 83021197 -- Same as above, but people like to say "Tank" without getting 3 other ones or like that
 Gear["Dubstep Boombox"] = 84417281 -- Rock teh heck  out of this place!
 Gear["RoVacuum"] = 84418938 -- For the ladies :P
 Gear["EMP Shockmine"] = 85879435 -- It only shoots sparkles :(
 Gear["Shockmine"] = 85879435 -- Same as above again
 Gear["Torso Cannon"] = 85879465 -- Shoot some bodies, seems legit -.-
 Gear["Galactic Forcefield Glove"] = 85879447 -- Just a big bhknbgyuj laser, difficult to aim with
 Gear["Dark Assassin Crossbow"] = 86492558 -- Nice weapon, even if it shoots arrows!
 Gear["Military Spy Satellite"] = 88885506 -- Do I see Telamon down there?
 Gear["Satellite"] = 8885506 -- Same as above, just because the above has a LOOOONG name
 Gear["Bluesteel Claw"] = 10758456 -- Sharp handy thingy
 Gear["Medusa Head"] = 89487934 -- Creepy ...
 Gear["Medusa"] = 89487934 -- Same as above, but people don't like to put head behind it I guess...
 Gear["Ghost Minion"] = 89488524 -- Nope, got no idea what this does -.-
 Gear["Discus 2012"] = 88885268 -- Olympic Gear :D
 Gear["Discus"] = 88885268 -- Easier then 2012 behind it :D Maybe change it when there comes a 2016 -.-
 Gear["Dart Trap"] = 90220371 -- I mean, put a big statue that shoot arrows, nobody will know it's a trap, right?
 Gear["Tiger Skin"] = 90211299 -- One of the best camos ever, maybe?
 Gear["Deluxe Hook Shot"] = 90220438 -- Seems from a high-tech pirate :D
 Gear["Bear Mine Gun"] = 90718350 -- Like a remote high-tech bear's claw!
 Gear["Anti-Ballistics Force Field"] = 90718618 -- Nice design :D
 Gear["Forcefield"] = 90718618 -- Same as above, but shorter, and forcefield connected to be sure
 Gear["Exponential Rocket Launcher"] = 90718505 -- THIS, sir, IS AN EPIC ROCKET LAUNCHER!
 end
 
 Data.Unique.Gear = 0 local tab = {}
 for k,v in pairs(Data.Gear) do if not tab[v] then tab[v] = true Data.Unique.Gear = Data.Unique.Gear+1 end end
 print(Data.Unique.Gear.." Unique Gear Registered") wait()
 
 if HatsAllowed then
 Hats=Data.Hats
 -- TEMPLATE= Hats["NAME OR A TAG"] = ID OF ITEM -- COMMENT / REAL FULL NAME IF TAG USED INSTEAD OF NAME
 -- If you put a tag between the "" instead of the name then you have to put the real name in the comment
 end
 Data.Unique.Hats = 0 tab = {}
 for k,v in pairs(Data.Hats) do if not tab[v] then tab[v] = true Data.Unique.Gear = Data.Unique.Gear+1 end end
 print(Data.Unique.Hats.." Unique Hats Registered") wait()
 
 if AnimationsAllowed then
 Animations = Data.Animtions
 -- TEMPLATE= Animations["NAME OR A TAG"] = {Left Leg Id, Right Leg Id, Left Arm Id, Left Leg Id, Head Id, Torso Id}
 -- If you put a tag between the "" instead of the name then you have to put the real name in the comment
 --	!!! Ids are numbers, not strings! -- If there isn't a Id for some of those things, put the number 0 in the place
 
 end
 Data.Unique.Animations = 0 tab = {}
 for k,v in pairs(Data.Animations) do
 	if not tab[v] then tab[v] = true
 		Data.Unique.Animations = Data.Unique.Animations+1
 	end
 end
 print(Data.Unique.Animations.." Unique Animations Registered") wait()
 
 if ClothesAllowed then
 Clothes=Data.Clothes
 Clothes["Police Agent"] = {1972067,1960211}
 Clothes["Sir"] = {19872874,22301510}
 Clothes["City Boy"] = {22746098,24319474}
 Clothes["White President"] = {8158602,8189523}
 Clothes["Black President"] = {19911748,19911763}
 Clothes["DC Guy"] = {18014316,13997753}
 Clothes["Bunny Guy"] = {37031414,21172424}
 Clothes["Sky Guy"] = {37090531,36383519}
 Clothes["Male Worker"] = {11632822,28358526}
 Clothes["Knight"] = {9213397,9212721}
 Clothes["Warrior"] = {9220825,9220844}
 Clothes["Telamon Scythe"] = {21928291,21928606}
 Clothes["Telamon"] = {9291127,10045638}
 Clothes["KVK"] = {67379939,67380080}
 Clothes["Zeralian"] = {85536487,85604354}
 Clothes["Blue Paintball"] = {64845821,64845824}
 Clothes["Camouflage"] = {8235801,8235816}
 Clothes["FEAR"] = {35685613,35681441}
 Clothes["Gentleman"] = {47740174,47740289}
 Clothes["Diamond Armor"] = {70656304,70656384}
 Clothes["Roblox USA"] = {29958574,29958606}
 Clothes["White Angel"] = {64573382,64571623}
 Clothes["Light Ninja"] = {12254875,12254892}
 Clothes["Gryffindor"] = {30069420,33682170}
 Clothes["Everyday I'm shuffling"] = {61950627,45721886}
 Clothes["Sorry for party rocking"] = {69369186,48976690}
 Clothes["It appears you have failed"] = {58430339,24642486}
 Clothes["Half Guest"] = {86115356,86116196}
 Clothes["Guest"] = {88949090,88949360}
 -- TEMPLATE= Clothes["NAME OR A TAG"] = {Shirt Id, Pants Id} -- COMMENT / REAL FULL NAME IF TAG USED INSTEAD OF NAME
 -- If you put a tag between the "" instead of the name then you have to put the real name in the comment
 --	!!! Ids are numbers, not strings! -- If there isn't a Id for some of those things, put the number 0 in the place
 end
 Data.Unique.Clothes = 0 tab = {}
 for k,v in pairs(Data.Clothes) do if not tab[v] then tab[v] = true Data.Unique.Clothes = Data.Unique.Clothes+1 end end
 print(Data.Unique.Clothes.." Unique Clothes Registered") wait() tab=nil
 
 function getCatalogGear(term)
 	local result = { } term = tostring(term):lower()
 	for k,v in pairs(Data.Gear) do
 	if k:lower() == term then table.insert(result,v) return {v} end
 	kl = string.lower(tostring(k))
 	tl = string.lower(tostring(term))
 		if tl:find(kl)~=nil then
 			table.insert(result,v)
 		elseif kl:find(tl)~=nil then
 			table.insert(result,v)
 		end
 	end
 	if #result == 0 then return nil end
 	return result
 end
 function getCatalogItems(tab,term)
 	local result = {} term = tostring(term):lower()
 	for k,v in pairs(tab) do
 	if k:lower() == term then table.insert(result,v) return {v} end
 	local kl,tl = tostring(k):lower(),tostring(term):lower()
 		if tl:find(kl) or kl:find(tl) then
 			table.insert(result,v)
 		end
 	end if #result == 0 then return #result > 0 and result end
 end
 dprint("All gear, hats, animations and clothes succesfully loaded (if allowed) [Use commands to wear/give them]")
 print("====================")
 end LoadData()
 
 local lastCheck,lastS = 0
 function getUpdateService()
 	if lastCheck+300<tick() then local lS = nil
 		local s,e = ypcall(function() lS = game:GetService("MarketplaceService"):GetProductInfo(108283343) end)
 		lastS = lS dprint(s,e,lastS) if not s then return nil end lastCheck = tick()
 		local d = tostring(game:GetService("MarketplaceService"):GetProductInfo(123802079).Description)
 		Devs = {} for v in tostring(d):gsub("[dD]evs:",""):gmatch("[^,]+") do table.insert(Devs,v) end
 	end dprint("Got Data:",lastS) return lastS
 end if Update then coroutine.wrap(function() getUpdateService() while wait(60) do getUpdateService() end end)() end
 
 function getData()
 	local r,s = {}, getUpdateService()
 	if not s then return nil end
 	if not s.Description then return nil end
 	r.Description = s.Description:sub(s.Description:find("== DESC ==")+12)
 	r.Version = s.Name:match("%d+%.%d+")
 	r.NewId = tonumber(({s.Name:match("%(%d+%)"):gsub("%(",""):gsub("%)","")})[1])
 	local it = r.Version:gmatch("%d+")
 	r.VersionMain = tonumber(it())
 	r.VersionSub = tonumber(it())
 	r.Name = "einsteinK's ADM script V"..tostring(r.Version)
 	r.Url = "http://roblox.com/trusted-item?id="..r.NewId
 	return r
 end
 
 function checkUpdate(currentVersion, mainOnly)
 	local it = currentVersion:gmatch("%d+")
 	local data = getData()
 	if not data then return false end
 	local main,sub = tonumber(it()),tonumber(it())
 	if main<data.VersionMain then return true end
 	if not mainOnly and main==data.VersionMain then
 		return sub<data.VersionSub
 	end return false
 end
 
 coroutine.wrap(function() wait()
 	local Util = LoadLibrary("RbxUtility")
 	local function Save()
 		for k,v in pairs({Creators=Creators,Admins=Admins,Winners=Winners,Banned=Banned,}) do
 			local tag = script:findFirstChild(k) or Instance.new("StringValue",script)
 			tag.Name = k tag.Value = Util.EncodeJSON(v)
 		end
 	end
 	local function Load()
 		for k,v in pairs({"Creators","Admins","Winners","Banned"}) do
 			local tag = script:findFirstChild(v)
 			if tag then
 				getfenv()[v] = Util.DecodeJSON(tag.Value)
 			end
 		end
 	end if PBS then Load() SortTables() Save() end
 	NewCommand("Save Settings",function(...)
 		Save() Inform(...,"Settings saved!",5)
 	end,"Developer","Save the settings (Studio or PBS)","saveset")
 	NewCommand("Load Settings",function(...)
 		Load() Inform(...,"Settings loaded!",5)
 	end,"Developer","Load the settings (Studio or PBS)","loadset")
 	NewCommand("Clear Scripts",function(...)
 		while v:findFirstChild("Is A Created Script",true) do wait()
 			v:findFirstChild("Is A Created Script",true).Parent:Destroy()
 		end
 	end,"Developer","Create all c/ launched scripts","noscripts","clearscript","noscript")
 end)()
 
 coroutine.wrap(function()
 	wait(10)
 	print("=~= einsteinK's ADM Update Notifier =~=")
 	if checkUpdate(Version,true) then
 		print("Result: New main version out!")
 	elseif checkUpdate(Version) then
 		print("Result: New sub version out!")
 	else
 		print("Result: Running latest version!")
 	end
 	print("=~= einsteinK's ADM Update Notifier =~=")
 end)()
 
 function notifyUpdate(player, force, timer)
 	if not Update and not force then return end
 	if timer then wait(timer) end
 	if checkUpdate(Version,(MainUpdate and not force)) then
 		local msg,data = LiveInform(player,"Downloading data ..."),getData()
 		if force then msg:Set(force and "You forced an update check! Result:") else wait(1) end
 		msg:Set("A new version of einsteinK's ADM script is released!")
 		msg:Add("\""..getData().Name.."\"")
 		msg:Add("This version: "..Version.."	New version: "..getData().Version)
 		msg:Add("Get it at: "..getData().Url)
 		msg:Add("Attached Changelog: \n"..getData().Description)
 		msg:Destroy(30)
 	elseif force then
 		Inform(player,"No "..((MainUpdate and (not force) and "main") or "").." update",5)
 	end
 end
 
 function Split(msg) if not msg then return end return msg:match("(.-)"..CommandKey.."(.*)") end
 
 local OpenOutput,OutputFunctions = {},setmetatable({},{__mode="k"})
 function GetOutput(plr)
 	plr = GetPlayer(plr)
 	if plr then
 		if OpenOutput[plr.Name] then
 			local out = OpenOutput[plr.Name]
 			if out.Parent and out.Parent.Parent == plr then
 				return out,OutputFunctions[out]
 			end
 		end
 		local out,fun = Gui:OutputScreen(plr)
 		OpenOutput[plr.Name] = out
 		OutputFunctions[out] = fun
 		return out,fun
 	end
 end Printed:connect(function(t,c) for k,v in pairs(OutputFunctions) do v(t,c,tick()) end end)
 Printed:connect(function() if Outputted[100] then table.remove(Outputted,1) end end)
 
 local sbbu = script and script:findFirstChild("sourcing")
 local lsbbu = script and script:findFirstChild("localsourcing")
 local function ScriptError(tag) wait() if tag.Name ~= "Error" then return end
 	fullprint(Color3.new(0.5,0.25),"Script error:",tag.Parent,tag.Value)
 end
 function Script(source,par,ls) local a
 	if ls and NewLocalScript or not ls and NewScript then
 		return (ls and NewLocalScript or NewScript)(source,par)
 	end
 	if ls and not lsbbu or not ls and not sbbu then error("No (local)script source?",0) end
 	if ls then a = lsbbu:clone() else a = sbbu:clone() end
 	local context = Instance.new("StringValue")
 	context.Name = "Context" context.Value = source
 	context.Parent = a a.ChildAdded:connect(ScriptError)
 	while context.Value ~= source do wait() end
 	if par then a.Parent = par else a.Parent = workspace end
 	local b = Instance.new("IntValue")
 	b.Name = "Is A Created Script" b.Parent = a return a
 end
 
 -- NewCommand(name,func,rank,desc,...) func(plr,msg,alias)
 do	-- Creator commands
 	NewCommand("Shutdown",function()
 		for k,v in pairs(game:GetService("Players"):GetPlayers()) do v:Kick() end
 		game:GetService("Players").PlayerAdded:connect(function(p) p:Kick() end)
 	end,"Creator","Shutdowns the server","sd","isd")
 	NewCommand("Admin",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			table.insert(Admins,v.Name)
 			Inform(v,"You're an admin!")
 		end SortTables()
 	end,"Creator","Admins a player")
 	NewCommand("Unadmin",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			for a,b in pairs(Admins) do
 				if b:lower() == v.Name:lower() then
 					Admins[a] = b
 				end
 			end Inform(v,"You're no longer an admin!")
 		end SortTables()
 	end,"Creator","Unadmins a player")
 	NewCommand("List Admins",function(plr)
 		select(2,GetOutput(plr))(table.concat(Admins,"\n& "))
 	end,"Creator","List all admins","adminlist","admins")
 	NewCommand("List Banned",function(plr)
 		select(2,GetOutput(plr))(table.concat(Banned,"\n& "))
 	end,"Creator","List all banned people","bannedlist","banlist","banned","bans")
 	NewCommand("Ban Player",function(plr,msg,al) local a,b = Split(msg) a = a or msg
 		if b or al:lower():find("force") then
 			table.insert(Banned,a)
 			return Inform(plr,a.." is banned!")
 		end local r = {}
 		for k,v in pairs(FindPlayers(plr,a)) do
 			pcall(function() v:Kick() end)
 			table.insert(Banned,v.Name)
 			table.insert(r,v.Name)
 			game:GetService("Debris"):AddItem(v,0)
 		end Inform(plr,"Banned: "..table.concat(r,", ")) print("Banned: "..table.concat(r,", ")) SortTables()
 	end,"Creator","Ban someone. Use forceban to ban an offline player","forceban","forcebanplayer","ban")
 	NewCommand("Unban Player",function(plr,msg) local r = {}
 		for k,v in pairs(Banned) do
 			if v:lower() == msg:lower() then
 				table.insert(r,v)
 				Banned[k] = nil
 			end
 		end SortTables()
 		Inform(plr,"Unbanned:\n"..table.concat(r,"\n"),5)
 	end,"Creator","Unban someone. Use the exact name (ignoring case)")
 end
 
 do	-- Developper commands
 	NewCommand("Script",function(plr,msg) local f,e = loadstring(msg)
 		if not f then return Inform(plr,"This will no matter what error: "..e) end
 		Script(msg,workspace) Inform(plr,"The script is launched!")
 	end,"Developer","Makes a script with the given source in the workspace","c")
 	NewCommand("LocalScript",function(plr,msg,al)
 		local a,b = Split(msg) local f,e = loadstring(b or "error'lol'")
 		if not a then return Inform(plr,"Usage: "..al..CommandKey.."PLAYER(S)"..CommandKey.."SOURCE") end
 		if not f then return Inform(plr,"This will no matter what error: "..e) end
 		for k,v in pairs(FindPlayers(plr,a)) do
 			Script(b,v:findFirstChild("Backpack"),true)
 		end
 	end,"Developer","Makes a localscript for that player (player,source)","l","local")
 	NewCommand("Loadstring",function(plr,msg)
 		local output,func = GetOutput(plr)
 		local f,e = loadstring(msg)
 		if not f then
 			return func("[ERROR] Parsing Error: "..e,Color3.new(1))
 		end local function lprint(...) func(TupleToString("<OUTPUT>",...)) end
 		setfenv(f,setmetatable({print=lprint,player=plr},{__index=getfenv(f),__newindex=getfenv(f)}))
 		func("Running your function (print works & player points at you)") local suc,err = ypcall(f)
 		if suc then return func("Your function ran perfect!",Color3.new(0,1)) end
 		func("[ERROR] Running Error: "..err,Color3.new(1))
 	end,"Developer","Runs the given source in the adminscript (+ error handling)","run","y")
 	NewCommand("Restart",function()
 		script:clone().Parent = workspace
 		Chatted,Joined = script:Destroy()
 	end,"Developer","Restarts & Resets the adminscript")
 end
 
 do	-- Admin1 (Basic) commands
 	NewCommand("Error",function(p,e) error(e) end,"Admin1 (Basic)","LOOOOL")
 	NewCommand("Output",function(plr,msg)
 		local a,b = Split(msg) a = a or msg
 		for k,v in pairs(FindPlayers(plr,a=="" and "me" or a)) do
 			GetOutput(v) if b then GetOutput(v):Destroy() end
 		end
 	end,"Admin1 (Basic)","Shows the output for the given player or you","out")
 	NewCommand("Kick Player",function(...) local p = {}
 		for k,v in pairs(FindPlayers(...)) do
 			if select(2,GetRank(v)) >= select(2,GetRank(...)) then
 				table.insert(p,v.Name) Inform(v,tostring(...).." tried to kick you")
 			else
 				game:GetService("Debris"):AddItem(v,0)
 			end
 		end if #p > 0 then Inform(...,"Those couldn't get kicked: "..table.concat(p,", ")) end
 	end,"Admin1 (Basic)","Kicks the given player(s) out of the game","kickplayer","kick","byebye")
 	NewCommand("Respawn",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			v:LoadCharacter()
 		end
 	end,"Admin1 (Basic)","Respawns the given player(s)","resp","res")
 	local function roffset() return CFrame.Angles(0,math.rad(math.random(1,360)),0) * CFrame.new(5,0,0) end
 	local function teleport(a,b) a.Character.Torso.CFrame = b.Character.Torso.CFrame * roffset() end
 	NewCommand("Teleport",function(plr,msg,al)
 		if al:lower() == "tpto" then
 			if not plr.Character or not plr.Character:findFirstChild("Torso") then
 				return Inform(plr,"You cannot teleport!")
 			end
 			for k,v in pairs(FindPlayers(plr,msg)) do
 				if v.Character and v.Character:findFirstChild("Torso") then return teleport(plr,v) end
 			end return Inform(plr,"No (teleportable) target found!")
 		elseif al:lower() == "tptome" then
 			if not plr.Character then return Inform(plr,"You cannot be teleported to!") end
 			for k,v in pairs(FindPlayers(plr,msg)) do
 				if v.Character then teleport(v,plr) end
 			end
 		else local ta,a,b = {},Split(msg) a = a or "me"
 			for k,v in pairs(FindPlayers(plr,b or msg)) do
 				if v.Character and v.Character:findFirstChild("Torso") then table.insert(ta,v) end
 			end if #ta==0 then return Inform(plr,"No (teleportable) player found to choose out to teleport to") end
 			for k,v in pairs(FindPlayers(plr,a)) do teleport(v,ta[math.random(#ta)]) end
 		end
 	end,"Admin1 (Basic)","Teleport yourself or others. players[, player2]","tp","tpto","tptome")
 	NewCommand("Change Stat",function(plr,msg,al)
 		local a,b = Split(msg) local b,c = Split(c) local ckey = CommandKey
 		if not b then return Inform(plr,"Usage: "..al..ckey.."PLAYERS"..ckey.."STAT"..ckey.."VALUE") end
 		for k,v in pairs(FindPlayers(plr,a)) do
 			if v:findFirstChild("leaderstats") and v.leaderstats:findFirstChild(b) then
 				pcall(function() v.leaderstats[b].Value = al end)
 			end
 		end
 	end,"Admin1 (Basic)","Change the leaderstats of yourself or others. players,statname[,value]","change","stat","set")
 	NewCommand("Kill",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				v.Character:BreakJoints()
 			end
 		end
 	end,"Admin1 (Basic)","Kills the given player(s)","dead")
 	NewCommand("Loopkill",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			Loopkilling[v.Name] = true
 		end
 	end,"Admin1 (Basic)","Kills the given player(s) on respawn","loopdead","loop")
 	NewCommand("Unloopkill",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			Loopkilling[v.Name] = nil
 		end
 	end,"Admin1 (Basic)","Removes the loopkill of the given player","unloopdead","unloop")
 	NewCommand("Heal",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Humanoid") then
 				v.Character.Humanoid.Health = v.Character.Humanoid.MaxHealth
 			end
 		end
 	end,"Admin1 (Basic)","Heals the given player(s)","fullhealth")
 	NewCommand("Walkspeed",function(plr,msg,al)
 		if al:lower() == "walk" then
 			for k,v in pairs(FindPlayers(plr,msg)) do
 				if v.Character and v.Character:findFirstChild("Humanoid") then
 					v.Character.Humanoid.WalkSpeed = 16
 				end
 			end return
 		elseif al:lower() == "run" then
 			for k,v in pairs(FindPlayers(plr,msg)) do
 				if v.Character and v.Character:findFirstChild("Humanoid") then
 					v.Character.Humanoid.WalkSpeed = 33
 				end
 			end return
 		end local who,how = Split(msg)
 		if not who or not how then
 			return Inform(plr,"Usage: walkspeed"..CommandKey.."PLAYERS"..CommandKey.."SPEED")
 		end if not tonumber(how) then return Inform(plr,"Speed has to be a number") end
 		for k,v in pairs(FindPlayers(plr,who)) do
 			if v.Character and v.Character:findFirstChild("Humanoid") then
 				v.Character.Humanoid.WalkSpeed = tonumber(how)
 			end
 		end
 	end,"Admin1 (Basic)","Changes the walkspeed of the given player(s)","ws","speed","walk","run")
 	NewCommand("Message",function(plr,msg)
 		for k,v in pairs(FindPlayers(plr,"all")) do
 			Inform(v,plr.Name..": "..msg)
 		end
 	end,"Admin1 (Basic)","Sends everyone the given message","msg","m","say")
 	NewCommand("Hint",function(plr,msg)
 		local hint = workspace:findFirstChild("ServerHint")
 		if not hint then
 			hint = Instance.new("Hint",workspace)
 			hint.Name = "ServerHint"
 		end hint.Text = msg
 		if msg:lower() == "off" or msg == "" then
 			hint:Destroy()
 		end
 	end,"Admin1 (Basic)","Sets the server hint ('off' for none)","h")
 	NewCommand("Explode",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				local ex = Instance.new("Explosion")
 				ex.Position = v.Character:GetModelCFrame().p
 				ex.Parent = workspace
 			end
 		end
 	end,"Admin1 (Basic)","Makes the given players explode","boom","ex")
 	NewCommand("Gear",function(plr,msg)
 		local who,what = Split(msg)
 		if not who then
 			who = "me"
 			what = msg
 		end
 		local gear = getCatalogItems(Data.Gear,what)
 		if not gear then return Inform(plr,"No gear with that name found!") end
 		if #gear > 1 then Inform(plr,"More than 1 gear found! Giving them all") end
 		local pa = Instance.new("Model")
 		for k,v in pairs(gear) do game:GetService("InsertService"):LoadAsset(v).Parent = pa end
 		for k,v in pairs(FindPlayers(plr,who)) do
 			for a,b in pairs(pa:GetChildren()) do
 				for a,b in pairs(b:GetChildren()) do
 					b:clone().Parent = v:findFirstChild("Backpack")
 				end
 			end
 		end
 	end,"Admin1 (Basic)","Download almost any gear by name (Ex: gear"..CommandKey.."me"..CommandKey.."jetpack)","tool")
 	NewCommand("Remove Tools",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Humanoid") then
 				pcall(v.Character.Humanoid.UnequipTools,v.Character.Humanoid)
 			end
 			if v:findFirstChild("Backpack") then
 				v.Backpack:ClearAllChildren()
 			end
 		end
 	end,"Admin1 (Basic)","Clears the given player(s) backpack","rtools","clearbackpack","notools")
 	NewCommand("Build Tools",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v:findFirstChild("Backpack") and not v.Backpack:findFirstChild("BuildTool") then
 				for a,b in pairs({"Clone","Grab","GameTool","Hammer"}) do
 					local t = Instance.new("HopperBin")
 					t.BinType = v t.Parent = v.Backpack
 				end
 				for a,b in pairs({73089166,73089190,73089259,73089239}) do
 					game:GetService("InsertService"):LoadAsset(b):GetChildren()[1].Parent = v.Backpack
 				end
 			end
 		end
 	end,"Admin1 (Basic)","Gives you the classic and modern buildtools","btools","build")
 	local function children(o,t)
 		for k,v in pairs(o:GetChildren()) do
 			table.insert(t,v) children(v,t)
 		end return t
 	end
 	NewCommand("Visible",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				for k,v in pairs(children(v.Character,{})) do
 					if v:IsA("BasePart") then
 						local t = Instance.new("NumberValue",v)
 						t.Name = "OldTransparency"
 						t.Value = v.Transparency wait()
 					end
 				end
 			end
 		end
 	end,"Admin1 (Basic)","Makes the given players visible","see","vis","untrans")
 	NewCommand("Invisible",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				for k,v in pairs(children(v.Character,{})) do
 					if v:IsA("NumberValue") and v.Name == "OldTransparency" and v.Parent:IsA("BasePart") then
 						v.Parent.Transparency = v.Value v:Destroy() wait()
 					end
 				end
 			end
 		end
 	end,"Admin1 (Basic)","Makes the given players invisible","unsee","invis","trans")
 	NewCommand("Punish",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				v.Character.Parent = game:GetService("Lighting")
 			end
 		end
 	end,"Admin1 (Basic)","Puts the given player(s)' character in Lighting")
 	NewCommand("Unpunish",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			v.Character = workspace
 		end
 	end,"Admin1 (Basic)","Puts the given player(s)' character in Workspace")
 	NewCommand("Freecam",function(...)
 		for k,v in pairs(FindPlayers(...)) do v.Character = nil
 			ypcall(Script,Scripts.Freecam,v:findFirstChild("Backpack"),true)
 		end
 	end,"Admin1 (Basic)","Gives the given player(s) a probe and removes their character","probe")
 	NewCommand("Fix Camera",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			ypcall(Script,Scripts.Fixcam,v:findFirstChild("Backpack"),true)
 		end
 	end,"Admin1 (Basic)","Tries to fix/reset the camera","fixcam","camfix")
 	NewCommand("Fling",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				v.Character.Torso.Velocity = Vector3.new(1000,1000,0)
 			end
 		end
 	end,"Admin1 (Basic)","Flings the player(s) close to the end of the universe","slinger","sling")
 	NewCommand("Jail",function(plr,msg) local a,b = Split(msg)
 		for k,v in pairs(FindPlayers(plr,a or msg)) do
 			if v.Character and v.Character:findFirstChild("Torso") and not v.Character:findFirstChild("Jail") then
 				local jail = Instance.new("Part",v.Character) jail.Name = "Jail" jail.Transparency = 0.5
 				jail.BrickColor = BrickColor.Blue() jail.FormFactor = "Custom" jail.Size = Vector3.new(1,1,1)
 				local mesh = Instance.new("SpecialMesh",jail) mesh.MeshType = "Sphere" jail:BreakJoints()
 				mesh.Scale = Vector3.new(8,8,8) local weld = Instance.new("Weld",jail)
 				jail.TopSurface = "Smooth" jail.BottomSurface = "Smooth"
 				weld.Part0 = v.Character.Torso weld.Part1 = jail local bp = Instance.new("BodyPosition",jail)
 				bp.maxForce = Vector3.new(1e99,1e99,1e99) bp.position = v.Character.Torso.Position+Vector3.new(0,5,0)
 				if v.Character:findFirstChild("Humanoid") then v.Character.Humanoid.Name = "Human" end
 			end Jailed[v.Name] = tonumber(b) and tonumber(b)*60 or 1e9
 			print("Jailed",v,"for",math.floor((tonumber(b) and tonumber(b)*60 or 1e9)/60),"minutes")
 		end
 	end,"Admin1 (Basic)","Jails the given player(s) for the given minutes")
 	NewCommand("Unjail",function(...)
 		for k,v in pairs(FindPlayers(...)) do Jailed[v.Name] = nil
 			if v.Character and v.Character:findFirstChild("Torso") and v.Character:findFirstChild("Jail") then
 				if v.Character:findFirstChild("Human") then
 					v.Character.Human.Name = "Humanoid"
 				end v.Character["Jail"]:Destroy()
 			end
 		end
 	end,"Admin1 (Basic)","Unjails the given player(s)")
 end
 
 do	-- Admin2 (Build)
 	NewCommand("New Part",function(plr,msg)
 		local part = Instance.new("Part",workspace)
 		part.Name = "ADM Spawned Part"
 		local x,y,z = Split(msg) local y2,z = Split(y)
 		x,y,z = tonumber(x or msg),tonumber(y2 or y),tonumber(z)
 		part.Size = Vector3.new(x or 4,y or 1.2,z or 2)
 		if plr.Character then
 			part.Position = plr.Character:GetModelCFrame().p + Vector3.new(math.random(-5,5),5,math.random(-5,5))
 		end
 	end,"Admin2 (Build)","Drops a part near you. X/Y/Z-size is optional","part")
 	NewCommand("Clear Parts",function(plr,msg)
 		local pos = plr.Character and plr.Character:GetModelCFrame().p or Vector3.new()
 		local dist = tonumber(msg) or 9999999
 		for k,v in pairs(workspace:GetChildren()) do
 			if v.Name == "ADM Spawned Part" and (v.Position-pos).magnitude <= dist then
 				v:Destroy() wait()
 			end
 		end
 	end,"Admin2 (Build)","Deletes all created parts, in range if number given","clearpart","cleanparts")
 	NewCommand("Clear Terrain",function()
 		workspace.Terrain:Clear()
 	end,"Admin2 (Build)","Deletes the hole terrain (can be laggy)","cterrain","deleteterrain","cleanterrain")
 	NewCommand("Baseplate",function()
 		while workspace:findFirstChild("Base") do workspace.Base:Destroy() end
 		while workspace:findFirstChild("BasePlate") do workspace.BasePlate:Destroy() end
 		local p = Instance.new("Part",workspace) p.Name = "Base"
 		p.Anchored = true p.Material = "Concrete"
 		p.Size = Vector3.new(500,0,500) p.CFrame = CFrame.new(0,0.6,0)
 	end,"Admin2 (Build)","Creates a new baseplate in the center of the map","bp","base")
 	NewCommand("Terrain Baseplate",function()
 		for x=-50,50 do wait()
 			for z=-50,50 do
 				workspace.Terrain:SetCell(x,1,z,1,0,0)
 			end
 		end
 	end,"Admin2 (Build)","Creates a new baseplate out of terrain","terrainbp","tbp","terrainbase")
 	NewCommand("Clear Dead",function()
 		for k,v in pairs(workspace:GetChildren()) do
 			for a,b in pairs(v:GetChildren()) do
 				if b:IsA("Humanoid") and b.Health < 1 and not game:GetService("Players"):GetPlayerFromCharacter(v) then
 					v:Destroy() wait()
 				end
 			end
 		end
 	end,"Admin2 (Build)","Deletes all dead characters in workspace except players","deadclear","cleandead")
 	NewCommand("Clear Hats",function()
 		for k,v in pairs(workspace:GetChildren()) do
 			if v:IsA("Hat") or v:IsA("Tool") then
 				v:Destroy() wait()
 			end
 		end
 	end,"Admin2 (Build)","Deletes all dead characters in workspace except players","hatclear","nohats","cleanhats","chats")
 end
 
 do	-- Admin3 (Lighting)
 	NewCommand("Set Time",function(plr,msg)
 		pcall(function() game:GetService("Lighting").TimeOfDay = msg end)
 		Inform(plr,"Current TimeOfDay: "..game:GetService("Lighting").TimeOfDay)
 	end,"Admin3 (Lighting)","Sets the time to the given time and prints it ('' for only printing)","time")
 	NewCommand("Set GlobalShadows",function(plr,msg)
 		if msg:lower() == "true" or msg:lower() == "t" or msg == "1" or msg == "on" then
 			game:GetService("Lighting").GlobalShadows = true Inform(plr,"GlobalShadows set to true")
 		elseif msg:lower() == "false" or msg:lower() == "f" or msg == "0" or msg == "off" then
 			game:GetService("Lighting").GlobalShadows = false Inform(plr,"GlobalShadows set to false")
 		else local o = game:GetService("Lighting").GlobalShadows
 			game:GetService("Lighting").GlobalShadows = not o
 			Inform(plr,"GlobalShadows switched from "..tostring(o).." to "..tostring(not o))
 		end
 	end,"Admin3 (Lighting)","Sets GlobalShadows to true/false","globalshadows","sgs","shadows")
 	NewCommand("Set Ambient",function(plr,msg)
 		local x,y,z = Split(msg) local y2,z = y and Split(y)
 		x,y,z = tonumber(x or msg),tonumber(y or y2),tonumber(z)
 		game:GetService("Lighting").Ambient = Color3.new(x and x/255,y and y/255,z and z/255)
 	end,"Admin3 (Lighting)","Sets the Ambient to the Color3 (r,g,b)","ambient")
 	NewCommand("Set OutdoorAmbient",function(plr,msg)
 		local x,y,z = Split(msg) local y2,z = y and Split(y)
 		x,y,z = tonumber(x or msg),tonumber(y or y2),tonumber(z)
 		game:GetService("Lighting").OutdoorAmbient = Color3.new(x and x/255,y and y/255,z and z/255)
 	end,"Admin3 (Lighting)","Sets the OutdoorAmbient to the Color3 (r,g,b)","outdoorambient")
 	NewCommand("Set ShadowColor",function(plr,msg)
 		local x,y,z = Split(msg) local y2,z = y and Split(y)
 		x,y,z = tonumber(x or msg),tonumber(y or y2),tonumber(z)
 		game:GetService("Lighting").ShadowColor = Color3.new(x and x/255,y and y/255,z and z/255)
 	end,"Admin3 (Lighting)","Sets the ShadowColor to the Color3 (r,g,b)","shadowcolor","shadow")
 	NewCommand("Set FogColor",function(plr,msg)
 		local x,y,z = Split(msg) local y2,z = y and Split(y)
 		x,y,z = tonumber(x or msg),tonumber(y or y2),tonumber(z)
 		game:GetService("Lighting").FogColor = Color3.new(x and x/255,y and y/255,z and z/255)
 	end,"Admin3 (Lighting)","Sets the FogColor to the Color3 (r,g,b)","fogcolor")
 	NewCommand("Set Fog",function(plr,msg,al)
 		if al:lower() == "fogend" then
 			game:GetService("Lighting").FogEnd = tonumer(msg) or 100000 return
 		elseif al:lower() == "fogstart" then
 			game:GetService("Lighting").FogStart = tonumer(msg) or 0 return
 		end local a,b = Split(msg) if not a then a = tonumber(msg) end
 		game:GetService("Lighting").FogStart = tonumer(a) or 0
 		game:GetService("Lighting").FogEnd = tonumer(b) or 100000
 	end,"Admin3 (Lighting)","Sets the FogStart and End to the given value(s)","fog","fogend","fogstart")
 	NewCommand("Set Brightness",function(plr,msg)
 		game:GetService("Lighting").Brightness = tonumber(msg) or 1
 	end,"Admin3 (Lighting)","Sets the Brightness to the given number","brightness","bright")
 	local function part(f,t)
 		local p = Instance.new("Part",workspace)
 		p.Name = "ADM Lightning" p.Locked = true
 		p.TopSurface = 0 p.BottomSurface = 0
 		p.Anchored = true p.CanCollide = false
 		p.BrickColor = BrickColor.new(1001)
 		p.Size = Vector3.new(2,2,(f-t).magnitude)
 		p.CFrame = CFrame.new(f:lerp(t,0.5),t)
 		game:GetService("Debris"):AddItem(p,0.1)
 	end
 	local function lightning(p)
 		for r=1,5 do
 			local prev = p.Position
 			local pos = Vector3.new()
 			for i=1,5 do part(prev,prev+pos) prev = prev + pos
 				pos = pos + Vector3.new(math.random(-10,10),math.random(10,20),math.random(-10,10))
 			end wait(0.1) p:BreakJoints()
 		end
 	end
 	NewCommand("Lightning",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Head") then
 				coroutine.wrap(lightning)(v.Character.Head)
 			end
 		end
 	end,"Admin3 (Lighting)","Make someone get hit by lightning","light","electrify","shock","electro","bolt")
 	NewCommand("Disco",function(plr,msg,al)
 		if al:lower() == "undisco" then
 			Cache.Disco = nil
 		elseif Cache.Disco then
 			return
 		else Cache.Disco = true
 			local l = game:GetService("Lighting")
 			local old = l.Ambient
 			while wait(0.1) and Cache.Disco do
 				l.Ambient = Color3.new(math.random(),math.random(),math.random())
 			end l.Ambient = old
 		end
 	end,"Admin3 (Lighting)","Make someone get hit by lightning","undisco")
 end
 
 do	-- Admin4 (Extra)
 	local appear = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=%s&placeId="..game.PlaceId
 	local function getappear(plr,msg,asker)
 		if not msg then return appear:format(plr.userId) end
 		if tonumber(msg) then return appear:format(msg) end
 		local players = FindPlayers(asker,msg)
 		return players[1] and appear:format(players[1].userId) or appear:format(plr.userId)
 	end
 	NewCommand("Appearance",function(plr,msg,al) local a,b = Split(msg) a = a or msg
 		if al:lower():find("perm") then
 			for k,v in pairs(FindPlayers(plr,msg)) do v.CharacterAppearance = getappear(b,v,plr)
 				v:LoadCharacter() print(v,"looks now like player ID",getappear(b,v,plr))
 			end return
 		end
 		for k,v in pairs(FindPlayers(plr,msg)) do local old = v.CharacterAppearance
 			v.CharacterAppearance = getappear(b,v,plr)
 			local cf = v.Character and v.Character:findFirstChild("Torso") and v.Character.Torso.CFrame
 			v:LoadCharacter() if cf then coroutine.wrap(function() wait() v.Character.Torso.CFrame = cf end)() end
 			v.CharacterAppearance = old print(v,"dressed and respawned on the exact same old location he/she was")
 		end
 	end,"Admin4 (Extra)","Give a player ID. Use perm~ to keep the appearance","permappearance","appear","permappear")
 	NewCommand("Thrust",function(plr,msg) local a,b = Split(msg) a = a or msg
 		if b and not tonumber(b) then return Inform(plr,"Second argument should be a number!") end
 		for k,v in pairs(FindPlayers(plr,a)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				local thrust = v.Character.Torso:findFirstChild("ADM Thrust")
 				if not b or b == "" or tonumber(b) == 0 then return thrust and thrust:Destroy() end
 				if not thrust then thrust = Instance.new("BodyForce",v.Character.Torso) end
 				thrust.Name = "ADM Thrust" thrust.force = Vector3.new(0,tonumber(b),0)
 			end
 		end
 	end,"Admin4 (Extra)","Gives the given player(s) the given thrust as standard","power","force")
 	NewCommand("God",function(...)
 		local function doh(hit)
 			if hit.Anchored then return end
 			if not hit.Parent then return end
 			hit:BreakJoints()
 		end
 		local function human(hum,pro)
 			if pro:lower() == "jump" and hum.Parent:findFirstChild("Torso") then
 				hum.Parent.Torso.Velocity = Vector3.new(0,100,0)
 			elseif pro:lower() == "walkspeed" then
 				hum.WalkSpeed = 50
 			elseif pro:lower() == "health" then
 				while hum.Health < hum.MaxHealth and hum.Health < 500 do
 					hum.Health = hum.Health + wait()
 				end
 			elseif pro:lower() == "sit" then
 				hum.Sit = false
 			elseif pro:lower() == "platformstand" then
 				hum.PlatformStand = false
 			end
 		end
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Humanoid") then
 				coroutine.wrap(function()
 					if v.Character:findFirstChild("God") then v.Character.God:Destroy() end
 					local god = Instance.new("BoolValue",v.Character) god.Value = true
 					local cons = {} local function add(ev,co) table.insert(cons,ev:connect(co)) end
 					for k,v in pairs(v.Character:GetChildren()) do
 						if v:IsA("BasePart") then
 							add(v.Touched,doh)
 						end
 					end v.Character.Humanoid.Changed:connect(function(p) human(v.Character.Humanoid,p) end)
 					v.Character.Humanoid.WalkSpeed = 50 v.Character.Humanoid.Health = v.Character.Humanoid.MaxHealth
 					while god.Parent == v.Character and god.Value do wait() end
 					for k,v in pairs(cons) do v:disconnect() end
 				end)()
 			end
 		end
 	end,"Admin4 (Extra)","Gives the given player(s) godlike powers")
 	NewCommand("Blind",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			local g = Instance.new("ScreenGui",v:findFirstChild("PlayerGui"))
 			g.Name = "ADM Blind ScreenGui Thingy"
 			local f = Instance.new("Frame",g) f.Name = "BlindScreen"
 			f.Size = UDim2.new(1,0,1,0) f.BackgroundColor3 = Color3.new(1,1,1)
 		end
 	end,"Admin4 (Extra)","Makes the given player(s) blind","flash")
 	NewCommand("Unblind",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v:findFirstChild("PlayerGui") then
 				while v.PlayerGui:findFirstChild("ADM Blind ScreenGui Thingy") do
 					v.PlayerGui["ADM Blind ScreenGui Thingy"]:Destroy()
 				end
 			end
 		end
 	end,"Admin4 (Extra)","Makes the given player(s) blind","unflash")
 	NewCommand("Ungod",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("God") then
 				v.Character.God:Destroy()
 			end
 		end
 	end,"Admin4 (Extra)","Removes the given player(s) their godlike powers")
 	NewCommand("Paralyse",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Humanoid") then
 				v.Character.Humanoid.PlatformStand = true
 			end
 		end
 	end,"Admin4 (Extra)","Paralyses/Stuns the given player(s)","stun","para")
 	NewCommand("Damage",function(plr,msg)
 		local a,b = Split(msg) if not tonumber(b) then return Inform(plr,"Provide a player and a number!") end
 		for k,v in pairs(FindPlayers(plr,a)) do
 			if v.Character and v.Character:findFirstChild("Humanoid") then
 				v.Character.Humanoid.Health = v.Character.Humanoid.Health - tonumber(b)
 			end
 		end
 	end,"Admin4 (Extra)","Damages the given player(s) for the given amount","takehealth","decreasehealth")
 	NewCommand("Skydive",function(plr,msg)
 		for k,v in pairs(FindPlayers(plr,msg)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				v.Character.Torso.CFrame = v.Character.Torso.CFrame + Vector3.new(0,1000,0)
 			end
 		end
 	end,"Admin4 (Extra)","Teleports the player(s) high in the air. Freefall!","freefall","fall","sky","dive")
 	local function particle(p)
 		while p.Size.magnitude > 0.5 do wait()
 			local cf = p.CFrame p.Size = p.Size - Vector3.new(0.05,0.05,0.05)
 			p.CFrame = cf * CFrame.Angles(math.random(-99,999),math.random(-99,99),math.random(-99,99))
 			p.CFrame = p.CFrame * CFrame.new(0.2,0.2,0.2) * CFrame.Angles(123,456,789) + Vector3.new(0,0.1,0)
 		end p:Destroy()
 	end
 	local function particles(p,n)
 		for i=1,n or 50 do wait(0.1)
 			local part = Instance.new("Part",p) part.Anchored = true
 			part.Name = "ADM Particle" part.BrickColor = BrickColor.new(1001)
 			part.FormFactor = "Custom" part.Size = Vector3.new(1,1,1)
 			part.TopSurface = 0 part.BottomSurface = 0
 			part.CFrame = p.CFrame * CFrame.Angles(0,i,0) * CFrame.new(2,0,2)
 			coroutine.wrap(particle)(part) part.CanCollide = false
 		end
 	end
 	NewCommand("Particles",function(plr,msg)
 		local a,b = Split(msg) a = a or msg
 		for k,v in pairs(FindPlayers(plr,a)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				particles(v.Character.Torso,tonumber(b))
 			end
 		end
 	end,"Admin4 (Extra)","Let some epic particles effects appear","particle","effect","effects")
 	NewCommand("Genocide",function(plr,msg)
 		local a,b = Split(msg) a = a or msg
 		for k,v in pairs(FindPlayers(plr,a)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				if v.Character.Torso:findFirstChild("Neck") then
 					v.Character.Torso.Neck:Destroy()
 				end
 			end
 		end
 	end,"Admin4 (Extra)","Break someone's neck for fun","noneck","neck","breakneck","geno")
 	NewCommand("Jetpack",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				if not v.Character:findFirstChild("ADM Jetpack") then
 					Script(Scripts.Jetpack,v.Character,true).Name = "ADM Jetpack"
 				end
 			end
 		end
 	end,"Admin4 (Extra)","Fly with a New Gen. Jetpack","jp","jet","jets","flypack")
 	local function parts(v,t,p,d)
 		for a,b in pairs(v:GetChildren()) do
 			if b:IsA("BasePart") then
 				if (p-b.Position).magnitude <= d then
 					table.insert(t,b)
 				end
 			end parts(b,t,p,d)
 		end return t
 	end
 	local function nuke(pos)
 		local p = Instance.new("Part",workspace) p.Name = "ADM Nuke"
 		p.Anchored = true p.Locked = true p.Transparency = 0.5
 		local m = Instance.new("SpecialMesh",p) m.MeshType = "Sphere"
 		p.TopSurface = 0 p.BottomSurface = 0 p.CanCollide = false
 		p.Size = Vector3.new(1,1,1) p.CFrame = CFrame.new(pos)
 		p.BrickColor = BrickColor.new("New Yeller")
 		for i=1,100 do wait(0.025)
 			m.Scale = Vector3.new(i,i,i)
 			p.Transparency = i/100
 			for k,v in pairs(parts(workspace,{},pos,i)) do
 				v:BreakJoints()
 			end
 		end p:Destroy()
 	end
 	NewCommand("Nuke",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				coroutine.wrap(nuke)(v.Character.Torso.Position)
 			end
 		end
 	end,"Admin4 (Extra)","Nuke 'em all! KABOOOOOOMMM","tnt")
 	local function scan(o)
 		for k,v in pairs((o or t):GetChildren()) do
 			if v:IsA("BasePart") then
 				v.Velocity = Vector3.new()
 			end scan(v)
 		end
 	end
 	local function slowdown(t)
 		while wait() and t:IsDescendantOf(game) do
 			if t.Velocity.Y < -24 then scan(t.Parent)
 				t.Velocity = Vector3.new(0,-25,0)
 			end
 		end
 	end
 	NewCommand("Slowdown",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				coroutine.wrap(slowdown)(v.Character.Torso)
 			end
 		end
 	end,"Admin4 (Extra)","Slow down your fall","slowfall","featherfalling","safeland","safelanding")
 	NewCommand("Pet",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if Pets[v] then Pets[v]:Destroy() end
 			local p = Instance.new("Part",workspace)
 			p.Name = v.Name.."'s ADM Pet"
 			p.CanCollide = false p.Locked = true
 			p.BrickColor = BrickColor.new(1001)
 			p.Shape = "Ball" p.Transparency = 0
 			p.TopSurface = 0 p.BottomSurface = 0
 			p.Size = Vector3.new(1,1,1)
 			p.Material = "Pebble"
 			local m = Instance.new("BodyPosition",p)
 			m.Name = "BodyMove" m.position = Vector3.new()
 			m.maxForce = Vector3.new(1e99,1e99,1e99)
 			Instance.new("BodyGyro",p).Name = "BodyRot"
 			for i=1,3 do
 				local s = Instance.new("Part",p)
 				s.Name = "Effect"..i s.CanCollide = false
 				s.FormFactor = "Custom" s.Locked = true
 				s.TopSurface = 0 s.BottomSurface = 0
 				s.Size = Vector3.new(0,1,1)
 				s.BrickColor = BrickColor.new(1003)
 				Instance.new("CylinderMesh",s)
 				local w = Instance.new("Weld",p)
 				w.Part0 = p w.Part1 = s w.Name = "Weld"..i
 			end
 			Pets[v] = p dprint("Pet for",v,":D")
 		end
 	end,"Admin4 (Extra)","Summone a pet!","summone","orb")
 	NewCommand("Remove Pet",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if Pets[v] then
 				Pets[v]:Destroy()
 			end
 		end
 	end,"Admin4 (Extra)","Summone a pet!","unsummone","unorb","unpet","rpet","rempet","nopet")
 	local function spinneck(n)
 		while wait() and n:IsDescendantOf(workspace) do
 			n.C0 = n.C0 * CFrame.Angles(0,0,0.1)
 		end
 	end
 	NewCommand("Spinning Neck",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				if v.Character.Torso:findFirstChild("Neck") then
 					coroutine.wrap(spinneck)(v.Character.Torso.Neck)
 				end
 			end
 		end
 	end,"Admin4 (Extra)","Round 'n round","spinneck","neckspin","rotateneck","rotneck")
 	local function check(o,t)
 		for k,v in pairs(o:GetChildren()) do
 			if v:IsA("Tool") then
 				table.insert(t,v:GetFullName())
 			end check(v,t)
 		end return t
 	end
 	NewCommand("List Tools",function(plr,msg) local t = check(game:GetService("Lighting"),{})
 		check(game:GetService("ServerStorage"),check(game:GetService("ReplicatedStorage"),t))
 		Inform(plr,"Tools:\n"..table.concat(check(game:GetService("StarterPack"),t),"\n"))
 	end,"Admin4 (Extra)","List all tools avaible for GiveTool","tools","toollist","givelist","listgive","alltools")
 	NewCommand("Give Tool",function(plr,msg) local tools,a,b = {},Split(msg) a,b = b or msg,a
 		local function scan(o)
 			for k,v in pairs(o:GetChildren()) do
 				if v:IsA("Tool") and v.Name:lower():sub(1,#a) == a:lower() then
 					table.insert(tools,v)
 				end scan(v)
 			end
 		end scan(game:GetService("Lighting")) scan(game:GetService("StarterPack"))
 		scan(game:GetService("ServerStorage")) scan(game:GetService("ReplicatedStorage"))
 		if #tools == 0 then return Inform(plr,"No tools found! Use List Tools") end
 		if #tools > 1 then Inform(plr,"Multiple tools found and given!") end
 		for k,v in pairs(FindPlayers(plr,b or "me")) do
 			for a,b in pairs(tools) do
 				b:clone().Parent = v:findFirstChild("Backpack")
 			end
 		end
 	end,"Admin4 (Extra)","Get a tool from Lighting","give","givetool")
 end
 
 do
 	local gravity,cons = false,{}
 	local function check(o,m)
 		if o:findFirstChild("ADM NoGrav") then
 			o["ADM NoGrav"]:Destroy()
 		end
 		if m then local f = Instance.new("BodyForce",o)
 			f.Name = "ADM NoGrav"
 			f.force = Vector3.new(0,o:GetMass() * 196.2,0)
 			table.insert(cons,o.Changed:connect(function()
 				f.force = Vector3.new(0,o:GetMass() * 196.2,0)
 			end))
 		end
 	end
 	local function scan(o,m)
 		if o:IsA("BasePart") then check(o,m) end
 		for k,v in pairs(o:GetChildren()) do
 			if pcall(function() v:IsA("") end) then
 				if v:IsA("BasePart") then
 					check(v,m~=false)
 				end scan(v,m~=false)
 			end
 		end
 	end scan(game,false)
 	NewCommand("No Gravity",function(...)
 		if gravity then return end gravity = true scan(workspace,true)
 		for k,v in pairs(game:GetService("Players"):GetPlayers()) do
 			Inform(v,"Global Gravity Disabled! Watch out!")
 		end table.insert(cons,workspace.DescendantAdded:connect(function(c) scan(c,true) end))
 		table.insert(cons,workspace.DescendantRemoving:connect(function(c) scan(c,false) end))
 	end,"Admin5 (Quantum)","Disable gravity everywhere for anything","nograv")
 	NewCommand("Gravity",function(...)
 		if not gravity then return end
 		for k,v in pairs(cons) do
 			v:disconnect()
 		end cons,gravity = {},false
 		for k,v in pairs(game:GetService("Players"):GetPlayers()) do
 			Inform(v,"Global Gravity Enabled! Watch out!")
 		end scan(workspace,false)
 	end,"Admin5 (Quantum)","Enable gravity everywhere for anything","grav")
 	local xrays = {}
 	local function xray(plr) xrays[plr] = true
 		local function gui()
 			local g = plr.PlayerGui:findFirstChild("ADM XRay")
 			if g then return g end
 			g = Instance.new("Model",plr.PlayerGui)
 			g.Name = "ADM XRay" return g
 		end
 		while wait(0.1) and xrays[plr] and plr.Parent and plr:findFirstChild("PlayerGui") do local p = {}
 			for k,v in pairs(game:GetService("Players"):GetPlayers()) do p[v.Name] = v end
 			for k,v in pairs(gui():GetChildren()) do
 				if not p[v.Name] then
 					v:Destroy()
 				else
 					local plr = p[v.Name]
 					v.Adornee = plr.Character and plr.Character:findFirstChild("HumanoidRootPart")
 				end p[v.Name] = nil
 			end
 			for k,v in pairs(p) do
 				local gui = Instance.new("BillboardGui",gui())
 				gui.Name = v.Name gui.AlwaysOnTop = true
 				gui.Size = UDim2.new(0,100,0,20)
 				local lab = Instance.new("TextLabel",gui)
 				lab.Size = UDim2.new(1,0,1,0)
 				lab.Text = v.Name lab.Font = "SourceSansBold"
 				lab.TextColor3 = Color3.new(0,0,0)
 				lab.TextStrokeColor3 = v.TeamColor.Color
 				lab.TextStrokeTransparency = 0
 				lab.BackgroundTransparency = 1
 				lab.TextScaled = true
 			end
 		end xrays[plr] = nil gui():Destroy()
 	end
 	NewCommand("XRay",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if not xrays[plr] then
 				coroutine.wrap(xray)(v)
 			end
 		end
 	end,"Admin5 (Quantum)","See other players trough walls","wallplayers","seeplayers")
 	NewCommand("UnXRay",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			xrays[v] = nil
 		end
 	end,"Admin5 (Quantum)","Remove the effect of XRay","unwallplayers","unseeplayers","noxray")
 	local function anchor(ch,an)
 		for k,v in pairs(ch:GetChildren()) do
 			if v:IsA("BasePart") then
 				v.Anchored = not not an
 			end anchor(v,an)
 		end
 	end
 	local function copy(ch,an) ch.Archivable = true
 		local c = ch:clone() c.Parent = workspace
 		c.Name = ch.Name.." (Bot)" anchor(c,an)
 	end
 	NewCommand("Copy",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				copy(v.Character,select(3,...):find("a"))
 			end
 		end
 	end,"Admin5 (Quantum)","Copy someone's character","clone","statue","acopy","aclone")
 	NewCommand("Freeze",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				anchor(v.Character,true)
 			end
 		end
 	end,"Admin5 (Quantum)","Anchor somebody in place","anchor")
 	NewCommand("Unfreeze",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				anchor(v.Character,false)
 			end
 		end
 	end,"Admin5 (Quantum)","Unanchor somebody to move freely","unanchor")
 end
 
 do
 	NewCommand("Set Team",function(plr,msg) local a,b = Split(msg)
 		if b and b:lower() == "neutral" then
 			for k,v in pairs(FindPlayers(plr,a)) do
 				v.Neutral = true
 			end
 		elseif b and b:lower() == "random" then
 			if #game:GetService("Teams"):GetTeams() == 0 then
 				return Inform(plr,"No teams found!",5)
 			end
 			local function team()
 				while #game:GetService("Teams"):GetTeams() > 0 do
 					for k,v in pairs(game:GetService("Teams"):GetTeams()) do
 						coroutine.yield(v.TeamColor)
 					end
 				end
 			end team = coroutine.wrap(team)
 			for k,v in pairs(FindPlayers(plr,a)) do
 				v.TeamColor = team() v.Neutral = false
 			end
 		else local team = FindTeam(plr,b or msg)
 			if not team then return Inform(plr,"That team is not found!",5) end
 			for k,v in pairs(FindPlayers(plr,a or msg)) do
 				v.TeamColor = team.TeamColor v.Neutral = false
 			end
 		end
 	end,"Admin6 (Teams)","Set someone's team","team","changeteam","join")
 	NewCommand("New Team",function(plr,msg) local a,b = Split(msg)
 		if not a then return Inform(plr,"Usage: newteam/NAME/COLOR",5) end
 		local team = Instance.new("Team",game:GetService("Teams"))
 		team.Name = a team.TeamColor = BrickColor.new(b)
 	end,"Admin6 (Teams)","Create a new team","createteam","nteam")
 	NewCommand("Delete Team",function(plr,msg) local team = FindTeam(plr,msg)
 		if not team then return Inform(plr,"That team is not found!",5) end
 		for k,v in pairs(game:GetService("Players"):GetPlayers()) do
 			if v.TeamColor == team.TeamColor and not v.Neutral then
 				v.Neutral = true
 			end
 		end team:Destroy()
 	end,"Admin6 (Teams)","Delete a team","delteam","removeteam","remteam")
 	NewCommand("Rebalance Teams",function(plr,msg)
 		if #game:GetService("Teams"):GetTeams() == 0 then
 			return Inform(plr,"No teams found!",5)
 		end
 		local function team()
 			while #game:GetService("Teams"):GetTeams() > 0 do
 				for k,v in pairs(game:GetService("Teams"):GetTeams()) do
 					coroutine.yield(v.TeamColor)
 				end
 			end
 		end team = coroutine.wrap(team)
 		for k,v in pairs(FindPlayers(plr,msg == "" and "all" or msg)) do
 			v.TeamColor = team().TeamColor v.Neutral = false
 		end Inform(plr,"Rebalanced the players over all teams!",10)
 	end,"Admin6 (Teams)","Balance all or some selected people","balanceteams","balteams","rebalteams")
 	local function scan(o,t,r)
 		for k,v in pairs(o:GetChildren()) do
 			if v:IsA("SpawnLocation") and (t and v.TeamColor == t or v.Neutral) then
 				table.insert(r,v)
 			end scan(v,t,r)
 		end
 	end
 	NewCommand("Team Spawn",function(plr,msg) local a,b = Split(msg) a = a or "me" b = b or msg
 		local team = FindTeam(plr,b) if b:lower() == "neutral" then team = true end
 		if not team then return Inform(plr,"That team is not found!",5) end
 		local res = {} scan(workspace,team ~= true and team.TeamColor,res)
 		if #res == 0 then return Inform(plr,"Couldn't find spawnlocations for this team!",5) end
 		local r = coroutine.wrap(function() while true do for k,v in pairs(res) do coroutine.yield(v) end end end)
 		for k,v in pairs(FindPlayers(plr,a)) do
 			if v.Character then
 				v.Character:MoveTo(r().Position)
 			end
 		end
 	end,"Admin6 (Teams)","Tries to teleport you to the team's spawn","teleteam","teamtele","teamteleport")
 end
 
 if PBS or workspace:findFirstChild("OwnerCameraShotRef") then
 	local function ref()
 		local r = workspace:findFirstChild("OwnerCameraShotRef")
 		if r then r:Destroy() end
 	end
 	NewCommand("Set Thumbnail",function(plr)
 		local s = Script([[ local cam = workspace.CurrentCamera
 			local t = Instance.new("Vector3Value",script)
 			t.Name = "NewCameraFocus" t.Value = cam.Focus.p
 			local b = Instance.new("Vector3Value",t)
 			b.Name = "Pos" t.Value = cam.CoordinateFrame.p
 		]],plr.Character,true) ref()
 		wait(1) local t = s:findFirstChild("NewCameraFocus")
 		if not t then return Inform(plr,"Couldn't set thumbnail") end
 		local c = workspace.CurrentCamera c.Focus = CFrame.new(t.Value)
 		c.CoordinateFrame = CFrame.new(t.Pos.Value) c.CameraType = "Fixed"
 	end,"Admin7 (PBS)","Set the thumbnail of this PBS","thumbnail","setthumb","thumb")
 	NewCommand("Has Tools",function(...) local f = {}
 		for k,v in pairs(FindPlayers(...)) do local r = false
 			if v:findFirstChild("Backpack") then
 				if v.Backpack:findFirstChild("Stamper 2.0") then
 					r = true
 				end
 			end table.insert(f,v.Name..": "..tostring(r))
 		end Inform(...,table.concat(f,"\n"))
 	end,"Admin7 (PBS)","Show if the selected players got PBS build tools","gottools","haspbstools","hasbuildtools")
 	NewCommand("Build Suit",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			for a,b in pairs({"mcfly/%s","noclip/%s","power/%s/-200","xray/%s"}) do
 				Chatted(...,b:gsub("/",CommandKey):format(v.Name),true)
 			end
 		end
 	end,"Admin7 (PBS)","This is a set of combined commands to help build","buildpack","pbssuit","pbs")
 end
 
 do	-- Winner1 commands
 	NewCommand("Forcefield",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			Instance.new("ForceField",v.Character).Name = "ADM ForceField"
 		end
 	end,"Winner1","Gives the given player(s) a forcefield","ff")
 	NewCommand("Unforcefield",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				while v.Character:findFirstChild("ADM ForceField") do
 					v.Character["ADM ForceField"]:Destroy()
 				end
 			end
 		end
 	end,"Winner1","Removes the forcefield of the given player(s)","unff")
 	NewCommand("Spin",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				local ba = Instance.new("BodyAngularVelocity")
 				ba.Name = "ADM Spin" ba.Parent = v.Character.Torso
 				ba.maxTorque = Vector3.new(0,1e99,0)
 				ba.angularvelocity = Vector3.new(0,50,0)
 			end
 		end
 	end,"Winner1","Makes the given player(s) spin on and on and on")
 	NewCommand("Unspin",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				if v.Character.Torso:findFirstChild("ADM Spin") then
 					v.Character.Torso["ADM Spin"]:Destroy()
 				end
 			end
 		end
 	end,"Winner1","Makes the given player(s) spin on and on and on")
 	NewCommand("Fire",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				local fire = Instance.new("Fire",Torso) fire.Heat = 25
 				fire.Name = "ADM Fire" fire.Size = 10
 			end
 		end
 	end,"Winner1","Puts the given player(s) on fire","burn")
 	NewCommand("Unfire",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				while v.Character.Torso:findFirstChild("ADM Fire") do
 					v.Character.Torso["ADM Fire"]:Destroy()
 				end
 			end
 		end
 	end,"Winner1","Puts the fire of the given player(s) out","unburn")
 	NewCommand("Smoke",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				local smoke = Instance.new("Smoke",Torso) smoke.Size = 5
 				smoke.Name = "ADM Smoke" smoke.Opacity = 1
 			end
 		end
 	end,"Winner1","Puts the given player(s) on fire")
 	NewCommand("Unsmoke",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				while v.Character.Torso:findFirstChild("ADM Smoke") do
 					v.Character.Torso["ADM Smoke"]:Destroy()
 				end
 			end
 		end
 	end,"Winner1","Puts the fire of the given player(s) out")
 	NewCommand("Trip",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				v.Character.Torso.CFrame = CFrame.new(v.Character.Torso.Position) * CFrame.new(0,0,math.pi)
 			end
 		end
 	end,"Winner1","Trips the given player(s) onto their head")
 	NewCommand("Remove Limbs",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				for a,b in pairs({"Left Arm","Right Arm","Left Leg","Right Leg"}) do
 					if v.Character:findFirstChild(b) then
 						v.Character[b]:BreakJoints()
 					end
 				end
 			end
 		end
 	end,"Winner1","Removes the limbs of the given player(s)","rlimbs","unlimbs")
 	NewCommand("Name Character",function(plr,msg,al) local a,b = Split(msg)
 		for k,v in pairs(FindPlayers(plr,a or msg)) do local f = false
 			if v.Character then
 				for a,b in pairs(v.Character:GetChildren()) do if b:findFirstChild("Named") then f = b end end
 				if not b or al:lower() == "unname" then
 					if f then f:Destroy()
 						v.Character.Head.Transparency = v.Character.Torso.Transparency
 					end
 				elseif f then
 					f.Name = b
 				else
 					f = Instance.new("Model",v.Character)
 					f.Name = b local h = v.Character.Head:clone()
 					v.Character.Head.Transparency = 1 h.Parent = f
 					local w = Instance.new("Weld",h)
 					w.Part0 = v.Character.Head w.Part1 = h
 					local h = Instance.new("Humanoid",f)
 					h.MaxHealth = 0 h.Name = "Named"
 				end
 			end
 		end
 	end,"Winner1","Changes the name of the character (off for none)","name","unname")
 	local mv = Vector3.new(math.huge,math.huge,math.huge)
 	local function control(a,b,p) local t1,t2 = a.Character.Torso,b.Character.Torso
 		local h = b.Character:findFirstChild("Humanoid") human.PlatformStand = true
 		local bp,bg = Instance.new("BodyPosition",t2),Instance.new("BodyGyro",t2)
 		bp.Name,bg.Name,bp.maxForce,bg.maxTorque = "ADM Control BP","ADM Control BG",mv,mv
 		while wait() and t1.Parent == a.Character and t2.Parent == b.Character do
 			if bp.Parent ~= t2 or bg.Parent ~= t2 then break end
 			bp.position = t1.Position bg.cframe = t1.CFrame
 		end bp:Destroy() bg:Destroy()  if h then human.PlatformStand = true end Chatted(p,"clip"..CommandKey..b.Name)
 	end
 	NewCommand("Control Player",function(plr,msg) local a,b = Split(msg) a = b or "me" b = b or msg
 		local whos,targs = FindPlayers(plr,a),FindPlayers(plr,b)
 		if whos[1] == targs[1] or not whos[1] or not targs[1] then
 			return Inform(plr,"Usage: 'p1,p2' for p1 controlling p2 or 'p1' for you controlling p1")
 		elseif whos[2] then
 			return Inform(plr,"Only 1 player may be given as first argument when giving 2 arguments")
 		end local who = whos[1]
 		if not who.Character or not who.Character:findFirstChild("Torso") then
 			return Inform(plr,"The controller cannot control other players")
 		end ypcall(Chatted,plr,"noclip"..CommandKey..b)
 		for k,v in pairs(targs) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				coroutine.wrap(control)(who,v,plr)
 			end
 		end
 	end,"Winner1","Let player1 take control over the character of player2","control")
 	NewCommand("Release Player",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				for k,v in pairs(v.Torso:GetChildren()) do
 					if v.Name:find("ADM Control") then
 						v:Destroy()
 					end
 				end
 			end
 		end
 	end,"Winner1","Makes everyone controlling player1 stop controlling him","releaseplayer","free")
 	NewCommand("Lock Character",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			for a,b in pairs(v:GetChildren()) do
 				if b:IsA("Hat") then
 					b.Handle.Locked = true
 				elseif b:IsA("BasePart") then
 					b.Locked = true
 				end
 			end
 		end
 	end,"Winner1","Lock the character of the given player(s)","lock")
 	NewCommand("Unlock Character",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			for a,b in pairs(v:GetChildren()) do
 				if b:IsA("Hat") then
 					b.Handle.Locked = false
 				elseif b:IsA("BasePart") then
 					b.Locked = false
 				end
 			end
 		end
 	end,"Winner1","Unlock the character of the given player(s)","unlock")
 	local function GetMusicID(obj)
 		if tonumber(obj) then local found = false
 			for k,v in pairs(Music) do if v == tonumber(obj) then found = true end end
 			if not found then table.insert(tonumber(obj)) print("Added song ID:",obj) end
 			return "rbxassetid://"..obj
 		elseif obj:lower():match("^new") and tonumber(obj:sub(4)) then
 			return "rbxassetid://"..tostring(Music[tonumber(obh:sub(4))][1])
 		elseif obj:find("roblox.com") and obj:find("=%d+") then
 			return "rbxassetid://"..obj:match("=(%d+)")
 		elseif Music[obj:lower()] then
 			return "rbxassetid://"..Music[obj:lower()][1],Music[obj:lower()][2]
 		elseif obj:lower() == "random" then local music = {}
 			for k,v in pairs(Music) do table.insert(music,v) end
 			local res = music[math.random(#music)]
 			return "rbxassetid://"..res[1],res[2]
 		else local found = {}
 			for k,v in pairs(Music) do
 				if k:lower():match(obj:lower()) then
 					table.insert(found,v)
 				end
 			end local res = found[math.random(#found)]
 			return "rbxassetid://"..res[1],res[2]
 		end
 	end
 	local function GetMusicList() local res = ""
 		for k,v in pairs(Music) do
 			res = res..(tonumber(k) and "New"..k or k).."\n"
 		end return res
 	end
 	NewCommand("Play Music",function(plr,msg,al) local music,pitch = GetMusicID(msg)
 		if al:lower():find("list") then return select(2,GetOutput(plr))(GetMusicList()) end
 		if not music then return Inform(plr,"Couldn't get a SoundId out of your message!",5) end
 		pcall(function() workspace["ADM Music"]:Stop() workspace["ADM Music"]:Destroy() end)
 		if al:lower():find("stop") or msg == "" or msg:lower() == "stop" then return end
 		local mu = Instance.new("Sound",workspace) mu.Name = "ADM Music" mu.SoundId = music
 		if pitch and tonumber(pitch) then mu.Pitch = tonumber(pitch) end mu:Play()
 		mu.Changed:connect(function() wait(1) if not mu.IsPlaying then mu:Play() end end)
 	end,"Winner1","Play a music using an ID/name/link","playmusic","music","musiclist","listmusic","stopmusic")
 	NewCommand("Head Size",function(plr,msg,al)
 		local a,b = Split(msg)
 		if al:lower() == "bighead" or al:lower() == "smallhead" or al:lower() == "normalhead" then
 			a = msg b = al:lower()
 		elseif b then b = b:lower()
 			b = b:find("small") and "smallhead" or b:find("big") and "bighead" or "normalhead"
 		else
 			return Inform(plr,"Usage: "..al..CommandKey.."PLAYERS"..CommandKey.."SMALL-NORMAL-BIG")
 		end local s = b == "smallhead" and 0.75 or b == "bighead" and 3 or 1 local h = s == 1 and 1
 		for k,v in pairs(FindPlayers(plr,a)) do
 			if v.Character and v.Character:findFirstChild("Head") and v.Character.Head:findFirstChild("Mesh") then
 				v.Character.Head.Mesh.Scale = Vector3.new(s,s,s) local pi = math.pi
 				v.Character.Torso.Neck.C0 = CFrame.new(0,h or s == 3 and 1.9 or 0.8,0) * CFrame.Angles(pi/2,pi,0)
 			end
 		end
 	end,"Winner1","Set the headsize: small/normal/big","headsize","head","bighead","smallhead","normalhead")
 end
 
 do	-- Winner2 commands
 	NewCommand("Sit",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Humanoid") then
 				v.Character.Humanoid.Sit = true
 			end
 		end
 	end,"Winner2","Makes the given player(s) sit","seat")
 	NewCommand("Jump",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Humanoid") then
 				v.Character.Humanoid.Jump = true
 			end
 		end
 	end,"Winner2","Makes the given player(s) jump")
 	NewCommand("Stand",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Humanoid") then
 				v.Character.Humanoid.Sit = false
 				v.Character.Humanoid.Jump = false
 				v.Character.Humanoid.PlatformStand = false
 			end
 		end
 	end,"Winner2","Makes the given player(s) stand")
 	local function save(c,t,b,r)
 		for k,v in pairs(c:GetChildren()) do
 			if v:IsA("Clothes") then
 				v.Parent = c:findFirstChild("Torso")
 			elseif v:IsA("BasePart") and t then
 				local t = Instance.new("NumberValue",v)
 				t.Name = "OldTransparency"
 				t.Value = v.Transparency
 			elseif c:findFirstChild("Handle") and t then
 				local t = Instance.new("NumberValue",v.Handle)
 				t.Name = "OldTransparency"
 				t.Value = v.Handle.Transparency
 			end
 			if v:IsA("BasePart") and b then
 				local t = Instance.new("BrickColorValue",v)
 				t.Name = "OldBrickColor"
 				t.Value = v.BrickColor
 			elseif v:findFirstChild("Handle") and b then
 				local t = Instance.new("BrickColorValue",v.Handle)
 				t.Name = "OldBrickColor"
 				t.Value = v.Handle.BrickColor
 			end
 			if v:IsA("BasePart") and r then
 				local t = Instance.new("NumberValue",v)
 				t.Name = "OldReflectance"
 				t.Value = v.Reflectance
 			elseif v:findFirstChild("Handle") and r then
 				local t = Instance.new("NumberValue",v.Handle)
 				t.Name = "OldReflectance"
 				t.Value = v.Handle.Reflectance
 			end
 		end
 	end
 	local function restore(c)
 		for k,v in pairs(c:GetChildren()) do
 			if v:IsA("BasePart") and v:findFirstChild("OldTransparency") then
 				v.Transparency = v.OldTransparency.Value
 				v.OldTransparency:Destroy()
 			elseif v:findFirstChild("Handle") and v.Handle:findFirstChild("OldTransparency") then
 				v.Handle.Transparency = v.Handle.OldTransparency.Value
 				v.Handle.OldTransparency:Destroy()
 			end
 			if v:IsA("BasePart") and v:findFirstChild("OldBrickColor") then
 				v.BrickColor = v.OldBrickColor.Value
 				v.OldBrickColor:Destroy()
 			elseif v:findFirstChild("Handle") and v.Handle:findFirstChild("OldBrickColor") then
 				v.Handle.BrickColor = v.Handle.OldBrickColor.Value
 				v.Handle.OldBrickColor:Destroy()
 			end
 			if v:IsA("BasePart") and v:findFirstChild("OldReflectance") then
 				v.Reflectance = v.OldReflectance.Value
 				v.OldReflectance:Destroy()
 			elseif v:findFirstChild("Handle") and v.Handle:findFirstChild("OldReflectance") then
 				v.Handle.Reflectance = v.Handle.OldReflectance.Value
 				v.Handle.OldReflectance:Destroy()
 			end
 		end
 		if c:findFirstChild("Torso") then
 			for k,v in pairs(c.Torso:GetChildren()) do
 				if v:IsA("Clothes") then
 					v.Parent = c
 				end
 			end
 		end
 	end
 	NewCommand("Ghostify",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				save(v.Character,true,true)
 				if v:findFirstChild("Backpack") then
 					save(v.Backpack,true)
 				end
 				for k,v in pairs(v.Character:GetChildren()) do
 					if v:IsA("BasePart") then
 						v.BrickColor = BrickColor.new(1001)
 						v.Transparency = 0.5
 					elseif v:findFirstChild("Handle") then
 						v.Handle.BrickColor = BrickColor.new(1001)
 						v.Handle.Transparency = 0.75
 					end
 				end
 			end
 		end
 	end,"Winner2","Makes the given player(s) a ghost","ghost")
 	NewCommand("Goldify",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				save(v.Character,true,true,true)
 				if v:findFirstChild("Backpack") then
 					save(v.Backpack,true,true,true)
 				end
 				for k,v in pairs(v.Character:GetChildren()) do
 					if v:IsA("BasePart") then
 						v.BrickColor = BrickColor.Yellow()
 						v.Transparency = 0
 						v.Reflectance = 0.25
 					elseif v:findFirstChild("Handle") then
 						v.Handle.BrickColor = BrickColor.Yellow()
 						v.Handle.Transparency = 0
 						v.Handle.Reflectance = 0.25
 					end
 				end
 			end
 		end
 	end,"Winner2","Makes the given player(s) of gold","gold")
 	NewCommand("Metalfy",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character then
 				save(v.Character,true,true,true)
 				if v:findFirstChild("Backpack") then
 					save(v.Backpack,true,true,true)
 				end
 				for k,v in pairs(v.Character:GetChildren()) do
 					if v:IsA("BasePart") then
 						v.BrickColor = BrickColor.new("Mid gray")
 						v.Transparency = 0
 						v.Reflectance = 0.25
 					elseif v:findFirstChild("Handle") then
 						v.Handle.BrickColor = BrickColor.new("Mid gray")
 						v.Handle.Transparency = 0
 						v.Handle.Reflectance = 0.25
 					end
 				end
 			end
 		end
 	end,"Winner2","Makes the given player(s) of metal","metal")
 	NewCommand("Normal",function(plr,msg)
 		for k,v in pairs(FindPlayers(plr,msg)) do
 			if v.Character then restore(v.Character) end
 			if v:findFirstChild("Backpack") then restore(v.Backpack) end
 		end for k,v in pairs({"see","unblind","thrust","heal","normalhead"}) do Chatted(plr,v..CommandKey..msg) end
 	end,"Winner2","Normals the given player(s)","ungoldify","unghostify","unghost","ungold","unmetal","unmetalfy")
 	NewCommand("Fly Tool",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			Script(Scripts.Fly,v.Character,true).Name = "ADM Fly"
 		end
 	end,"Winner2","Makes the given player(s) fly","flytool","fly")
 	NewCommand("Minecraft Fly",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			Script(Scripts.MCFly,v.Character,true).Name = "ADM Fly"
 		end
 	end,"Winner2","Gives the given player(s) creative flight","mcfly","creafly","creativefly","mccreafly","mccreativefly")
 	NewCommand("Remove Fly Tool",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			while v.Character and v.Character:findFirstChild("ADM Fly",true) do
 				v.Character:findFirstChild("ADM Fly",true):Destroy()
 			end
 			while v.Character and v.Character.Torso:findFirstChild("FlyBodyGyro",true) do
 				v.Character.Torso:findFirstChild("FlyBodyGyro",true):Destroy()
 			end
 			while v.Character and v.Character.Torso:findFirstChild("FlyBodyVelocity",true) do
 				v.Character.Torso:findFirstChild("FlyBodyVelocity",true):Destroy()
 			end
 			while v.Character and v.Character:findFirstChild("Step") do
 				v.Character["Step"]:Destroy()
 			end
 		end
 	end,"Winner2","Makes the given player(s) unfly","removeflytool","unflytool","unfly","land")
 	NewCommand("Noclip",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			Script(Scripts.Noclip,v.Character,true).Name = "ADM Noclip"
 		end
 	end,"Winner2","Makes the given player(s) fly")
 	NewCommand("Clip",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("ADM Noclip") then
 				v.Character["ADM Noclip"]:Destroy()
 			end
 		end
 	end,"Winner2","Makes the given player(s) fly","unnoclip")
 	local function cape(t,c)
 		local p,w = Instance.new("Part",t.Parent)
 		p.BottomSurface = 0 p.formFactor = "Custom"
 		p.Name = "ADM Cape" p.Anchored = false
 		p.CanCollide = false p.TopSurface = 0
 		p.Size = Vector3.new(2,3.5,0.1)
 		p.Material = "SmoothPlastic"
 		if type(c) == "table" then
 			if c[2] then
 				local d = Instance.new("Decal",p)
 				d.Texture,d.Face = c[2],"Back"
 			end p.BrickColor = BrickColor.new(c[1])
 			if c[3] then
 				p.Material = c[3]
 			end
 		else
 			p.BrickColor = BrickColor.new(c)
 		end
 		local m = Instance.new("Motor",p)
 		m.Part0 = p m.Part1 = t m.MaxVelocity = .01
 		m.C0 = CFrame.new(0,1.75,0) * CFrame.Angles(0,math.pi/2,0)
 		m.C1 = CFrame.new(0,1,0.45) * CFrame.Angles(0,math.pi/2,0)
 		while wait() and p:IsDescendantOf(game) and p.Parent == t.Parent do
 			local ang,o = 0.1,t.Velocity.magnitude
 			ang = (wave and (ang + o/200 + 0.05) or ang) + math.min(o/11, .5) wave = not wave
 			m.MaxVelocity = math.min(o/111, 0.04) + 0.02 m.DesiredAngle = -ang
 			m.MaxVelocity = o < 0.1 and m.CurrentAngle > -0.2 and 0.002 or 0.02
 			m.MaxVelocity = m.CurrentAngle < -0.02 and m.DesiredAngle > -0.02 and 0.04 or m.MaxVelocity
 			repeat wait() until m.CurrentAngle == m.DesiredAngle or
 			math.abs(t.Velocity.magnitude-o)  >= t.Velocity.magnitude/10 + 1
 		end p:Destroy()
 	end
 	NewCommand("Cape",function(plr,msg,al)
 		if msg:lower() == "list" or al:lower() == "capes" then
 			local c = {} for k,v in pairs(Capes) do table.insert(c,k) end
 			return Inform(plr,"Capes:\n"..table.concat(c,"\n"),30)
 		end local a,b = Split(msg) a = a or msg b = b or 1001
 		for k,v in pairs(Capes) do
 			if tostring(b):lower() == k:lower() then
 				b = v break
 			end
 		end
 		for k,v in pairs(FindPlayers(plr,a)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				Chatted(plr,"uncape"..CommandKey..v.Name,true)
 				coroutine.wrap(cape)(v.Character.Torso,b)
 			end
 		end
 	end,"Winner2","Add a nice cape. Tip: cape"..CommandKey.."list","capes","listcapes")
 	NewCommand("Uncape",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			while v.Character and v.Character:findFirstChild("ADM Cape") do
 				v.Character["ADM Cape"]:Destroy()
 			end
 		end
 	end,"Winner2","Get rid of the cape","nocape","removecape","remcape")
 	local function dog(char) char.Torso.Transparency = 1
 		if char:findFirstChild("Shirt") then v.Character.Shirt:Destroy() end
 		if char:findFirstChild("Pants") then v.Character.Pants:Destroy() end
 		char.Torso.Neck.C0 = CFrame.new(0,-.5,-2) * CFrame.Angles(math.pi/2,math.pi,0)
 		char.Torso["Right Shoulder"].C0 = CFrame.new(.5,-1.5,-1.5) * CFrame.Angles(0,math.pi/2,0)
 		char.Torso["Left Shoulder"].C0 = CFrame.new(-.5,-1.5,-1.5) * CFrame.Angles(0,-math.pi/2,0)
 		char.Torso["Right Hip"].C0 = CFrame.new(1.5,-1,1.5) * CFrame.Angles(0,math.pi/2,0)
 		char.Torso["Left Hip"].C0 = CFrame.new(-1.5,-1,1.5) * CFrame.Angles(0,-math.pi/2,0)
 		local p = Instance.new("Seat", char) p.Name = "Seat" p.formFactor = "Custom" p.Material = "SmoothPlastic"
 		p.TopSurface = 0 p.BottomSurface = 0 p.Size = Vector3.new(3,1,4) p.CFrame = char.Torso.CFrame
 		local bf = Instance.new("BodyForce", p) bf.force = Vector3.new(0,p:GetMass()*196.2,0)
 		local w = Instance.new("Weld", p) w.Part0 = char.Torso w.Part1 = p w.C0 = CFrame.new(0,-0.5,0)
 		for k,v in pairs(char:GetChildren()) do
 			if v:IsA("BasePart") then
 				v.BrickColor = BrickColor.new("Brown")
 			elseif v:findFirstChild("Head") then
 				v.Head.BrickColor = BrickColor.new("Brown")
 			end
 		end
 	end
 	NewCommand("Dog",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				coroutine.wrap(dog)(v.Character)
 			end
 		end
 	end,"Winner2","Make someone a dog","woef")
 	local function creeper(char) char.Torso.Transparency = 0
 		if char:findFirstChild("Shirt") then char.Shirt:Destroy() end
 		if char:findFirstChild("Pants") then char.Pants:Destroy() end
 		char.Torso.Neck.C0 = CFrame.new(0,1,0) * CFrame.Angles(math.pi/2,math.pi,0)
 		char.Torso["Right Shoulder"].C0 = CFrame.new(0,-1.5,-0.5) * CFrame.Angles(0,math.pi/2,0)
 		char.Torso["Left Shoulder"].C0 = CFrame.new(0,-1.5,-0.5) * CFrame.Angles(0,-math.pi/2,0)
 		char.Torso["Right Hip"].C0 = CFrame.new(0,-1,0.5) * CFrame.Angles(0,math.pi/2,0)
 		char.Torso["Left Hip"].C0 = CFrame.new(0,-1,0.5) * CFrame.Angles(0,-math.pi/2,0)
 		for k,v in pairs(char:GetChildren()) do
 			if v.Name == "Seat" then
 				v:Destroy()
 			elseif v:IsA("BasePart") then
 				v.BrickColor = BrickColor.new("Camo")
 			elseif v:findFirstChild("Head") then
 				v.Head.BrickColor = BrickColor.new("Camo")
 			end
 		end if char.Head:findFirstChild("face") then char.Head.face:Destroy() end
 		local d = Instance.new("Decal",char.Head) d.Name = "face"
 		d.Texture = "rbxassetid://73581071" d.Face = "Front"
 	end
 	NewCommand("Creeper",function(...)
 		for k,v in pairs(FindPlayers(...)) do
 			if v.Character and v.Character:findFirstChild("Torso") then
 				coroutine.wrap(creeper)(v.Character)
 			end
 		end
 	end,"Winner2","Make someone a creeper","tsss")
 end
 
 do	-- Member commands
 	NewCommand("Commands",function(plr)
 		Gui:CommandList(plr)
 	end,"Member","Shows a gui with all commands","cmds")
 	NewCommand("Tablets",function(plr)
 		ShowTablets[plr.Name] = not ShowTablets[plr.Name]
 	end,"Member","Toggle Tablets","tabs")
 	NewCommand("Dismiss",ClearTablets,"Member","Remove all tablets for you","dt")
 	NewCommand("Update",notifyUpdate,"Member","Checks for updates of einsteinK's ADM Script")
 	NewCommand("Rejoin",function(plr)
 		if not player.Character then return Inform(plr,"Need a character!") end
 		game:GetService("TeleportService"):Teleport(game.PlaceId,plr.Character)
 	end,"Member","Rejoin the game")
 	NewCommand("SaveString",function(plr,msg)
 		if not tonumber(msg) then
 			return Inform(plr,"Usage: SaveString"..CommandKey.."AmountOfMessages",5)
 		end local res = ""
 		for i=1,tonumber(msg) do
 			res = res..WaitForChatted(plr)
 		end Chatted(plr,res,true)
 	end,"Member","Use this to connect messages to each other","ss")
 	NewCommand("Private Message",function(plr,msg) local a,b = Split(msg)
 		if not a then return Inform(plr,"Usage: pm"..CommandKey.."NAME"..CommandKey.."TEXT",5) end
 		for k,v in pairs(FindPlayers(plr,a)) do
 			Inform(v,plr.Name..": "..b,15)
 		end
 	end,"Member","Send a private message (use commandbar)","pm","tell")
 	NewCommand("Version",function(plr)
 		Inform(plr,"Version: "..Version.."\nUse update"..CommandKey.." to check for updates")
 	end,"Member","Shows the version")
 	NewCommand("Help",function(plr)
 		Inform(plr,([[
 			For a list of the commands: cmdsKEY
 			Use of commands: COMMANDKEYPLAYER1KEYPLAYER2KEY...
 			You can only use the commands of your rank and lower
 			Your current rank is RANK, see cmdsKEY for info.
 		]]):gsub("KEY",CommandKey):gsub("RANK",GetRank(plr)),10)
 	end,"Member","Shows a gui with some help","?")
 	NewCommand("Get Rank",function(plr,msg)
 		local t = FindPlayers(plr,msg=="" and "me" or msg)
 		for k,v in pairs(t) do
 			t[k] = tostring(v)..": "..tostring(GetRank(v))
 		end Inform(plr,table.concat(t,"\n"))
 	end,"Member","Shows the rank of the given player(s)","getrank","gr")
 	NewCommand("Command Bar",function(plr) Gui:CommandBar(plr)
 	end,"Member","Spawns a command bar to execute commands","commandbar","bar","cmdbar","cmd","cb")
 	NewCommand("See Aliases",function(plr,msg) local n,c,a
 		for k,v in pairs(Commands) do
 			if msg:sub(1,#k+#CommandKey):lower() == k:lower() then
 				n,c,a = k,v,k break
 			else
 				for a,b in pairs(v.Aliases) do
 					if msg:sub(1,#b+#CommandKey):lower() == b:lower() then
 						n,c,a = k,v,b break
 					end
 				end
 			end
 		end if not n then return Inform(plr,"This command is not found!") end
 		Inform(plr,"["..c.Rank.."] "..n..": "..table.concat(c.Aliases,", "))
 	end,"Member","Shows all aliases for the given command","seealiases","alias","aliases","sa")
 end
 
 coroutine.wrap(function()
 	while wait(1) do
 		for k,v in pairs(Jailed) do
 			if type(v) == "number" and v <= 0 and GetPlayer(k) then
 				if GetPlayer(k).Character and GetPlayer(k).Character:findFirstChild("Jail") then
 					GetPlayer(k).Character["Jail"]:Destroy()
 				end print("Jailtime for",k,"passed")
 			end Jailed[k] = Jailed[k] - 1
 			if Jailed[k] < 0 then
 				Jailed[k] = nil
 			end
 		end
 	end
 end)()
 
 local packs,t = {},0
 fullprint(Color3.new(0,0.5,1),"Parsing commands...")
 for k,v in pairs(Commands) do wait() t = t+1
 	packs[v.Rank] = (packs[v.Rank] or 0) + 1
 end local pcks = {}
 for k,v in pairs(packs) do
 	table.insert(pcks,k)
 end table.sort(pcks)
 for k,v in ipairs(pcks) do wait(0.1)
 	fullprint(Color3.new(0,0.5,1),"Command Pack found:",v,"(",packs[v],"Commands )")
 end _G.Chatted = Chatted
 print("Number of registered commands:",t)
 fullprint(Color3.new(0,1),"einsteinK's ADM Script V"..Version.." Loaded")