test

function sandbox(var,func)
	local env = getfenv(func)
	local newenv = setmetatable({},{
		__index = function(self,k)
			if k=="script" then
				return var
			else
				return env[k]
			end
		end,
	})
	setfenv(func,newenv)
	return func
end
cors = {}
mas = Instance.new("Model",game:GetService("Lighting"))
ScreenGui0 = Instance.new("ScreenGui")
Frame1 = Instance.new("Frame")
Frame2 = Instance.new("Frame")
TextLabel3 = Instance.new("TextLabel")
Frame4 = Instance.new("Frame")
ImageButton5 = Instance.new("ImageButton")
Frame6 = Instance.new("Frame")
Frame7 = Instance.new("Frame")
Frame8 = Instance.new("Frame")
Frame9 = Instance.new("Frame")
Frame10 = Instance.new("Frame")
ImageButton11 = Instance.new("ImageButton")
Frame12 = Instance.new("Frame")
Frame13 = Instance.new("Frame")
Frame14 = Instance.new("Frame")
Frame15 = Instance.new("Frame")
Frame16 = Instance.new("Frame")
ImageButton17 = Instance.new("ImageButton")
ImageButton18 = Instance.new("ImageButton")
Frame19 = Instance.new("Frame")
Frame20 = Instance.new("Frame")
Frame21 = Instance.new("Frame")
Frame22 = Instance.new("Frame")
LocalScript23 = Instance.new("LocalScript")
Frame24 = Instance.new("Frame")
TextLabel25 = Instance.new("TextLabel")
Frame26 = Instance.new("Frame")
Frame27 = Instance.new("Frame")
TextLabel28 = Instance.new("TextLabel")
TextLabel29 = Instance.new("TextLabel")
Frame30 = Instance.new("Frame")
Frame31 = Instance.new("Frame")
TextLabel32 = Instance.new("TextLabel")
TextBox33 = Instance.new("TextBox")
ImageButton34 = Instance.new("ImageButton")
Frame35 = Instance.new("Frame")
LocalScript36 = Instance.new("LocalScript")
BindableEvent37 = Instance.new("BindableEvent")
BindableFunction38 = Instance.new("BindableFunction")
BindableFunction39 = Instance.new("BindableFunction")
BindableFunction40 = Instance.new("BindableFunction")
BindableFunction41 = Instance.new("BindableFunction")
TextLabel42 = Instance.new("TextLabel")
TextLabel43 = Instance.new("TextLabel")
Frame44 = Instance.new("Frame")
ScreenGui0.Parent = mas
Frame1.Name = "PropertiesPanel"
Frame1.Parent = ScreenGui0
Frame1.Transparency = 0.10000000149012
Frame1.Size = UDim2.new(0, 300, 0.5, -50)
Frame1.Position = UDim2.new(1, -615, 0, 200)
Frame1.Active = true
Frame1.BackgroundColor3 = Color3.new(1, 1, 1)
Frame1.BackgroundTransparency = 0.10000000149012
Frame1.BorderColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame1.Draggable = true
Frame2.Name = "List"
Frame2.Parent = Frame1
Frame2.Transparency = 1
Frame2.Size = UDim2.new(1, -16, 1, -18)
Frame2.Position = UDim2.new(0, 0, 0, 18)
Frame2.BackgroundTransparency = 1
Frame2.ClipsDescendants = true
TextLabel3.Name = "TextWidth"
TextLabel3.Parent = Frame1
TextLabel3.Size = UDim2.new(1, 0, 1, 0)
TextLabel3.Text = "TweenService"
TextLabel3.Visible = false
TextLabel3.Font = Enum.Font.SourceSans
TextLabel3.FontSize = Enum.FontSize.Size14
TextLabel3.TextXAlignment = Enum.TextXAlignment.Left
Frame4.Name = "ScrollFrame"
Frame4.Parent = Frame1
Frame4.Transparency = 1
Frame4.Size = UDim2.new(0, 16, 1, -18)
Frame4.Position = UDim2.new(1, -16, 0, 18)
Frame4.BackgroundTransparency = 1
ImageButton5.Name = "ScrollDown"
ImageButton5.Parent = Frame4
ImageButton5.Size = UDim2.new(0, 16, 0, 16)
ImageButton5.Position = UDim2.new(0, 0, 1, -16)
ImageButton5.BackgroundColor3 = Color3.new(0.866667, 0.866667, 0.866667)
ImageButton5.BorderColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame6.Name = "Arrow Graphic"
Frame6.Parent = ImageButton5
Frame6.Transparency = 1
Frame6.Size = UDim2.new(0, 8, 0, 8)
Frame6.Position = UDim2.new(0.5, -4, 0.5, -4)
Frame6.BackgroundTransparency = 1
Frame6.BorderSizePixel = 0
Frame7.Name = "Graphic"
Frame7.Parent = Frame6
Frame7.Size = UDim2.new(0.25, 0, 0.125, 0)
Frame7.Position = UDim2.new(0.375, 0, 0.625, 0)
Frame7.BackgroundColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame7.BorderSizePixel = 0
Frame8.Name = "Graphic"
Frame8.Parent = Frame6
Frame8.Size = UDim2.new(0.5, 0, 0.125, 0)
Frame8.Position = UDim2.new(0.25, 0, 0.5, 0)
Frame8.BackgroundColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame8.BorderSizePixel = 0
Frame9.Name = "Graphic"
Frame9.Parent = Frame6
Frame9.Size = UDim2.new(0.75, 0, 0.125, 0)
Frame9.Position = UDim2.new(0.125, 0, 0.375, 0)
Frame9.BackgroundColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame9.BorderSizePixel = 0
Frame10.Name = "Graphic"
Frame10.Parent = Frame6
Frame10.Size = UDim2.new(1, 0, 0.125, 0)
Frame10.Position = UDim2.new(0, 0, 0.25, 0)
Frame10.BackgroundColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame10.BorderSizePixel = 0
ImageButton11.Name = "ScrollUp"
ImageButton11.Parent = Frame4
ImageButton11.Size = UDim2.new(0, 16, 0, 16)
ImageButton11.Active = false
ImageButton11.BackgroundColor3 = Color3.new(0.866667, 0.866667, 0.866667)
ImageButton11.BorderColor3 = Color3.new(0.584314, 0.584314, 0.584314)
ImageButton11.AutoButtonColor = false
Frame12.Name = "Arrow Graphic"
Frame12.Parent = ImageButton11
Frame12.Transparency = 1
Frame12.Size = UDim2.new(0, 8, 0, 8)
Frame12.Position = UDim2.new(0.5, -4, 0.5, -4)
Frame12.BackgroundTransparency = 1
Frame12.BorderSizePixel = 0
Frame13.Name = "Graphic"
Frame13.Parent = Frame12
Frame13.Transparency = 0.69999998807907
Frame13.Size = UDim2.new(0.25, 0, 0.125, 0)
Frame13.Position = UDim2.new(0.375, 0, 0.25, 0)
Frame13.BackgroundColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame13.BackgroundTransparency = 0.69999998807907
Frame13.BorderSizePixel = 0
Frame14.Name = "Graphic"
Frame14.Parent = Frame12
Frame14.Transparency = 0.69999998807907
Frame14.Size = UDim2.new(0.5, 0, 0.125, 0)
Frame14.Position = UDim2.new(0.25, 0, 0.375, 0)
Frame14.BackgroundColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame14.BackgroundTransparency = 0.69999998807907
Frame14.BorderSizePixel = 0
Frame15.Name = "Graphic"
Frame15.Parent = Frame12
Frame15.Transparency = 0.69999998807907
Frame15.Size = UDim2.new(0.75, 0, 0.125, 0)
Frame15.Position = UDim2.new(0.125, 0, 0.5, 0)
Frame15.BackgroundColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame15.BackgroundTransparency = 0.69999998807907
Frame15.BorderSizePixel = 0
Frame16.Name = "Graphic"
Frame16.Parent = Frame12
Frame16.Transparency = 0.69999998807907
Frame16.Size = UDim2.new(1, 0, 0.125, 0)
Frame16.Position = UDim2.new(0, 0, 0.625, 0)
Frame16.BackgroundColor3 = Color3.new(0.584314, 0.584314, 0.584314)
Frame16.BackgroundTransparency = 0.69999998807907
Frame16.BorderSizePixel = 0
ImageButton17.Name = "ScrollBar"
ImageButton17.Parent = Frame4
ImageButton17.Size = UDim2.new(1, 0, 1, -32)
ImageButton17.Position = UDim2.new(0, 0, 0, 16)
ImageButton17.BackgroundColor3 = Color3.new(0.94902, 0.94902, 0.94902)
ImageButton17.BorderColor3 = Color3.new(0.584314, 0.584314, 0.584314)
ImageButton17.AutoButtonColor = false
ImageButton18.Name = "ScrollThumb"
ImageButton18.Parent = ImageButton17
ImageButton18.Size = UDim2.new(0, 16, 0, 75)
ImageButton18.BackgroundColor3 = Color3.new(0.866667, 0.866667, 0.866667)
ImageButton18.BorderColor3 = Color3.new(0.584314, 0.584314, 0.584314)
ImageButton18.Draggable = true
ImageButton18.AutoButtonColor = false
Frame19.Name = "Grip Graphic"
Frame19.Parent = ImageButton18
Frame19.Transparency = 1
Frame19.Size = UDim2.new(0, 6, 0, 6)
Frame19.Position = UDim2.new(0.5, -3, 0.5, -3)
Frame19.BackgroundTransparency = 1
Frame19.BorderSizePixel = 0
Frame20.Parent = Frame19
Frame20.Size = UDim2.new(1, 0, 0.166666672, 0)
Frame20.BorderSizePixel = 0
Frame21.Parent = Frame19
Frame21.Size = UDim2.new(1, 0, 0.166666672, 0)
Frame21.Position = UDim2.new(0, 0, 0.333333343, 0)
Frame21.BorderSizePixel = 0
Frame22.Parent = Frame19
Frame22.Size = UDim2.new(1, 0, 0.166666672, 0)
Frame22.Position = UDim2.new(0, 0, 0.666666687, 0)
Frame22.BorderSizePixel = 0
LocalScript23.Name = "Properties"
LocalScript23.Parent = Frame1
table.insert(cors,sandbox(LocalScript23,function()
local Explorer = script.Parent.Parent:WaitForChild("ExplorerPanel")
Explorer:WaitForChild("List")
Explorer:WaitForChild("SelectionChanged")
local Properties = script.Parent
local Studio = script.Parent.Parent

function Recursive(Parent,Do)
	for _,v in pairs(Parent:GetChildren())do
		Do(v)
		Recursive(v,Do)
	end
end

Recursive(Studio,function(child)
	if child:IsA("GuiObject") then
		child.ZIndex = 10
	end
end)
Studio.ChildAdded:connect(function(child)
	if child:IsA("GuiObject") then
		child.ZIndex = 10
	end
end)
Studio.DescendantAdded:connect(function(child) -- same as above? idk
	if child:IsA("GuiObject") then
		child.ZIndex = 10
	end
end)

wait(2)

local Alphabet = {"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"}

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

local LockedProperties = { -- cant be edited
	"ClassName",
	"Parent",
	"userId",
	"MembershipType",
	"CameraSubject",
	"FilteringEnabled",
}

local LockedItems = { -- cant be edited

}

function GetProperties(obj)
	assert(pcall(function() assert(game.IsA(obj,"Instance")) end),"Should be ROBLOX instance")
	local objProper = {}
	for i = 1,#Properties_TBL do
		local v = Properties_TBL[i]
		if pcall(function() return obj[v] end) and ( not obj:FindFirstChild(v)) then
			objProper[#objProper+1] = v
		end
	end
	return objProper
end

local Player = game:service"Players".LocalPlayer
local Mouse = Player:GetMouse()
local guis_enabled = {}
if game:service"StarterGui":GetCoreGuiEnabled(0) then
	guis_enabled[0] = true
end
if game:service"StarterGui":GetCoreGuiEnabled(1) then
	guis_enabled[1] = true
end
if game:service"StarterGui":GetCoreGuiEnabled(2) then
	guis_enabled[2] = true
end
if game:service"StarterGui":GetCoreGuiEnabled(3) then
	guis_enabled[3] = true
end
Mouse.KeyDown:connect(function(k)
	if string.byte(k) == 30 then
		Properties.Visible = not Properties.Visible
		Explorer.Visible = Properties.Visible
		Command.Visible = Properties.Visible
		Output.Visible = Properties.Visible
		if Properties.Visible then
			game:service"StarterGui":SetCoreGuiEnabled(4,false)
		else
			for _,v in pairs(guis_enabled) do
				game:service"StarterGui":SetCoreGuiEnabled(_,true)
			end
		end
	end
end)


-- generik scroll:
local scroll = Properties:WaitForChild("ScrollFrame")
scroll:WaitForChild("ScrollBar"):WaitForChild("ScrollThumb")
local down,up
scroll.ScrollBar.MouseButton1Click:connect(function()
	scroll.ScrollBar.ScrollThumb.Position = UDim2.new(0,0,0,scroll.ScrollBar.AbsolutePosition.Y-Mouse.Y)
end)
scroll.ScrollBar.ScrollThumb.Changed:connect(function()
	scroll.ScrollBar.ScrollThumb.Position = UDim2.new(0,0,0,scroll.ScrollBar.ScrollThumb.Position.Y.Offset)
	local p = scroll.ScrollBar.ScrollThumb.Position
	if p.Y.Offset < 0 then
		scroll.ScrollBar.ScrollThumb.Position = UDim2.new(0,0,0,0)
	end
	if p.Y.Offset > scroll.ScrollBar.AbsoluteSize.Y-scroll.ScrollBar.ScrollThumb.Size.Y.Offset then
		scroll.ScrollBar.ScrollThumb.Position = UDim2.new(0,0,0,scroll.ScrollBar.AbsoluteSize.Y-scroll.ScrollBar.ScrollThumb.Size.Y.Offset)
	end
	if p.Y.Offset > (23*#Properties.List:GetChildren())-(scroll.ScrollBar.ScrollThumb.Size.Y.Offset/2) then
		scroll.ScrollBar.ScrollThumb.Position = UDim2.new(0,0,0,(23*#Properties.List:GetChildren())-(scroll.ScrollBar.ScrollThumb.Size.Y.Offset/2))
	end
	for _,v in pairs(Properties.List:GetChildren())do
		v.Position = UDim2.new(0,0,0,v.BasePosition.Value)-UDim2.new(0,0,0,4*scroll.ScrollBar.ScrollThumb.Position.Y.Offset)
	end
end)
scroll.ScrollDown.MouseButton1Down:connect(function()
	down = true
	repeat wait(.001) for _,v in pairs(Properties.List:GetChildren())do v.Position = v.Position - UDim2.new(0,0,0,1) end until not down
end)
scroll.ScrollDown.MouseButton1Up:connect(function()
	down = false
end)
scroll.ScrollDown.MouseLeave:connect(function()
	down = false
end)
scroll.ScrollUp.MouseButton1Down:connect(function()
	up = true
	repeat wait(.001) for _,v in pairs(Properties.List:GetChildren())do v.Position = v.Position + UDim2.new(0,0,0,1) end until not up
end)
scroll.ScrollUp.MouseButton1Up:connect(function()
	up = false
end)
scroll.ScrollUp.MouseLeave:connect(function()
	up = false
end)

function findInTable(tbl,f)
	for _,v in pairs(tbl)do
		if v == f then
			return true
		end
	end
	return false
end

function GetPropertyType(prop,obj)
	local propv = obj[prop]
	if type(propv) == "userdata" then
		local type = "instance"
		pcall(function() -- Detect Vector3
			local x,y,z,lv = propv.X,propv.Y,propv.Z,propv.unit.Z
			if x and y and z and lv then
				type = "vector3"
			end
		end)
		pcall(function() -- Detect CFrame
			local x,y,z,lv,p = propv.X,propv.Y,propv.Z,propv.lookVector,propv.p
			if x and y and z and lv and p then
				type = "cframe"
			end
		end)
		pcall(function() -- Detect UDim2
			local x,y,o1,o2 = propv.X.Offset,propv.Y.Offset,propv.X.Scale,propv.Y.Scale
			if x and y and o1 and o2 then
				type = "udim2"
			end
		end)
		pcall(function() -- Detect BrickColor
			local r,g,b,n,c = propv.r,propv.g,propv.b,propv.Name,propv.Color
			if r and g and b and n and c then
				type = "brickcolor"
			end
		end)
		pcall(function() -- Detect Color3
			local r,g,b = propv.r,propv.g,propv.b
			if r and g and b and not type == "brickcolor" then
				type = "color3"
			end
		end)
		pcall(function() -- Detect enum
			if tostring(propv):sub(1,#"Enum.") == "Enum." then
				type = "enum"
			end
		end)
		return type
	elseif type(propv) == "number" then
		return "number"
	elseif type(propv) == "string" then
		return "string"
	elseif type(propv) == "boolean" then
		return "boolean"
	end
	return "string" -- hm...
end

local Object
local Events = {}
local color = Color3.new(237/255, 237/255, 238/255)
local ocolor = color
Explorer.SelectionChanged.Event:connect(function()
	Object = Explorer.GetSelection:Invoke()[1]

	for _,v in pairs(Events)do v:disconnect() end

	Properties.List:ClearAllChildren()

	if Object then
		local Properties_list = GetProperties(Object)
		for i=1,#Properties_list do
			local _ = Properties_list[i]
			if color ~= ocolor then
				color = ocolor
			else
				color = Color3.new(221/255, 221/255, 222/255)
			end
			local ui = Properties.property:Clone()
			ui.Visible = true
			ui.BackgroundColor3 = color
			ui.Parent = Properties.List
			ui.Position = UDim2.new(0,0,0,(22*(#Properties.List:GetChildren()-1))+(1*(#Properties.List:GetChildren()-1)))
			ui.name.locked.Text = _
			ui.name.unlocked.Text = _
			local bp = Instance.new("NumberValue",ui)
			bp.Name = "BasePosition"
			bp.Value = ui.Position.Y.Offset
			if findInTable(LockedProperties,_) then
				ui.name.locked.Visible = true
			else
				ui.name.unlocked.Visible = true
			end
			local type = GetPropertyType(_,Object)
			local propv = Object[_]
			local img_checked = "http://www.roblox.com/asset/?id=48138491"
			local img_unchecked = "http://www.roblox.com/asset/?id=48138474"
			if findInTable(LockedProperties,_) then
				ui.edit.locked.Visible = true
				ui.edit.locked.Text = tostring(propv)
			elseif type == "number" or type == "string" then
				ui.edit.box.Visible = true
				ui.edit.box.Text = tostring(propv)
				ui.edit.box.FocusLost:connect(function()
					if type == "number" then
						Object[_] = tonumber(ui.edit.box.Text)
					else
						Object[_] = ui.edit.box.Text
					end
				end)
			elseif type == "boolean" then
				ui.edit.check.Visible = true
				if propv then
					ui.edit.check.Image = img_checked
				else
					ui.edit.check.Image = img_unchecked
				end
				ui.edit.check.MouseButton1Click:connect(function()
					Object[_] = not Object[_]
					propv = Object[_]
					if propv then
						ui.edit.check.Image = img_checked
					else
						ui.edit.check.Image = img_unchecked
					end
				end)
			elseif type == "instance" then
				ui.edit.locked.Visible = true
				ui.edit.locked.Text = tostring(propv)
			elseif type == "vector3" then
				ui.edit.box.Visible = true
				ui.edit.box.Text = propv.X..", "..propv.Y..", "..propv.Z
				local origit = ui.edit.box.Text
				ui.edit.box.FocusLost:connect(function()
					local x,y,z
					local n = 1
					for match in ui.edit.box.Text:gsub(" ",""):gmatch("[^,]+") do
						if n == 1 then x = tonumber(match) end
						if n == 2 then y = tonumber(match) end
						if n == 3 then z = tonumber(match) end
						n = n + 1
					end
					x,y,z = tonumber(x),tonumber(y),tonumber(z)
					local origi = Object[_] if not pcall(function() Object[_] = Vector3.new(x,y,z) end) then Object[_] = origi ui.edit.box.Text = origit else origit = ui.edit.box.Text end
				end)
			elseif type == "cframe" then
				ui.edit.box.Visible = true
				ui.edit.box.Text = propv.p.X..", "..propv.p.Y..", "..propv.p.Z
				local origit = ui.edit.box.Text
				ui.edit.box.FocusLost:connect(function()
					local x,y,z
					local n = 1
					for match in ui.edit.box.Text:gsub(" ",""):gmatch("[^,]+") do
						if n == 1 then x = tonumber(match) end
						if n == 2 then y = tonumber(match) end
						if n == 3 then z = tonumber(match) end
						n = n + 1
					end
					x,y,z = tonumber(x),tonumber(y),tonumber(z)
					local origi = Object[_] if not pcall(function() Object[_] = CFrame.new(x,y,z) end) then Object[_] = origi ui.edit.box.Text = origit else origit = ui.edit.box.Text end
				end)
			elseif type == "udim2" then
				ui.edit.box.Visible = true
				ui.edit.box.Text = "{"..propv.X.Scale..", "..propv.X.Offset.."}, {"..propv.Y.Scale..", "..propv.Y.Offset.."}"
				local origit = ui.edit.box.Text
				ui.edit.box.FocusLost:connect(function()
					local xscale,xoffset,yscale,yoffset
					local n = 1
					for match in ui.edit.box.Text:gsub(" ",""):gsub("}",""):gsub("{",""):gmatch("[^,]+") do
						if n == 1 then xscale = tonumber(match) end
						if n == 2 then xoffset = tonumber(match) end
						if n == 3 then yscale = tonumber(match) end
						if n == 4 then yoffset = tonumber(match) end
						n = n + 1
					end
					xscale,xoffset,yscale,yoffset = tonumber(xscale),tonumber(xoffset),tonumber(yscale),tonumber(yoffset)
					local origi = Object[_] if not pcall(function() Object[_] = UDim2.new(xscale,xoffset,yscale,yoffset) end) then Object[_] = origi ui.edit.box.Text = origit else origit = ui.edit.box.Text end
				end)
			elseif type == "color3" then
				ui.edit.box.Visible = true
				ui.edit.box.Text = propv.r*255 ..", "..propv.g*255 ..", "..propv.b*255
				local origit = ui.edit.box.Text
				ui.edit.box.FocusLost:connect(function()
					local r,g,b
					local n = 1
					for match in ui.edit.box.Text:gsub(" ",""):gmatch("[^,]+") do
						if n == 1 then r = tonumber(match) end
						if n == 2 then g = tonumber(match) end
						if n == 3 then b = tonumber(match) end
						n = n + 1
					end
					r,g,b = tonumber(r)/255,tonumber(g)/255,tonumber(b)/255
					local origi = Object[_] if not pcall(function() Object[_] = Color3.new(r,g,b) end) then Object[_] = origi ui.edit.box.Text = origit else origit = ui.edit.box.Text end
				end)
			elseif type == "brickcolor" then
				ui.edit.box.Visible = true
				ui.edit.box.Text = tostring(propv)
				local origit = ui.edit.box.Text
				ui.edit.box.FocusLost:connect(function()
					local origi = Object[_] if not pcall(function() Object[_] = BrickColor.new(ui.edit.box.Text) end) then Object[_] = origi ui.edit.box.Text = origit else origit = ui.edit.box.Text end
				end)
			elseif type == "enum" then
				ui.edit.box.Visible = true
				ui.edit.box.Text = tostring(propv)
				local origit = ui.edit.box.Text
				ui.edit.box.FocusLost:connect(function()
					local origi = Object[_] if not pcall(function() Object[_] = loadstring("return "..ui.edit.box.Text)() end) then Object[_] = origi ui.edit.box.Text = origit else origit = ui.edit.box.Text end
				end)
			end
		end
	end
end)
end))
Frame24.Name = "Header"
Frame24.Parent = Frame1
Frame24.Size = UDim2.new(1, 0, 0, 18)
Frame24.BackgroundColor3 = Color3.new(0.913726, 0.913726, 0.913726)
Frame24.BorderColor3 = Color3.new(0.584314, 0.584314, 0.584314)
TextLabel25.Parent = Frame24
TextLabel25.Transparency = 1
TextLabel25.Size = UDim2.new(1, -4, 1, 0)
TextLabel25.Text = "Properties"
TextLabel25.Position = UDim2.new(0, 4, 0, 0)
TextLabel25.BackgroundTransparency = 1
TextLabel25.Font = Enum.Font.SourceSans
TextLabel25.FontSize = Enum.FontSize.Size14
TextLabel25.TextColor3 = Color3.new(0, 0, 0)
TextLabel25.TextXAlignment = Enum.TextXAlignment.Left
Frame26.Name = "property"
Frame26.Parent = Frame1
Frame26.Size = UDim2.new(1, 0, 0, 22)
Frame26.Position = UDim2.new(0, 0, 0, 1)
Frame26.Visible = false
Frame26.BackgroundColor3 = Color3.new(0.866667, 0.866667, 0.870588)
Frame26.BorderColor3 = Color3.new(0.686275, 0.686275, 0.686275)
Frame27.Name = "name"
Frame27.Parent = Frame26
Frame27.Transparency = 1
Frame27.Size = UDim2.new(0.5, 0, 1, -1)
Frame27.BackgroundColor3 = Color3.new(0.992157, 0.984314, 1)
Frame27.BackgroundTransparency = 1
TextLabel28.Name = "unlocked"
TextLabel28.Parent = Frame27
TextLabel28.Transparency = 1
TextLabel28.Size = UDim2.new(1, -10, 1, 0)
TextLabel28.Text = ""
TextLabel28.Position = UDim2.new(0, 5, 0, 0)
TextLabel28.Visible = false
TextLabel28.BackgroundTransparency = 1
TextLabel28.Font = Enum.Font.SourceSans
TextLabel28.FontSize = Enum.FontSize.Size14
TextLabel28.TextColor3 = Color3.new(0.0980392, 0.0980392, 0.0980392)
TextLabel28.TextWrapped = true
TextLabel28.TextXAlignment = Enum.TextXAlignment.Left
TextLabel29.Name = "locked"
TextLabel29.Parent = Frame27
TextLabel29.Transparency = 1
TextLabel29.Size = UDim2.new(1, -10, 1, 0)
TextLabel29.Text = ""
TextLabel29.Position = UDim2.new(0, 5, 0, 0)
TextLabel29.Visible = false
TextLabel29.BackgroundTransparency = 1
TextLabel29.Font = Enum.Font.SourceSans
TextLabel29.FontSize = Enum.FontSize.Size14
TextLabel29.TextColor3 = Color3.new(0.580392, 0.580392, 0.580392)
TextLabel29.TextWrapped = true
TextLabel29.TextXAlignment = Enum.TextXAlignment.Left
Frame30.Name = "border"
Frame30.Parent = Frame26
Frame30.Size = UDim2.new(0, 1, 1, 0)
Frame30.Position = UDim2.new(0.5, 0, 0, 0)
Frame30.BackgroundColor3 = Color3.new(0.686275, 0.686275, 0.686275)
Frame30.BorderColor3 = Color3.new(0.686275, 0.686275, 0.686275)
Frame30.BorderSizePixel = 0
Frame31.Name = "edit"
Frame31.Parent = Frame26
Frame31.Transparency = 1
Frame31.Size = UDim2.new(0.5, 0, 1, -1)
Frame31.Position = UDim2.new(0.5, 0, 0, 0)
Frame31.BackgroundColor3 = Color3.new(0.992157, 0.984314, 1)
Frame31.BackgroundTransparency = 1
TextLabel32.Name = "locked"
TextLabel32.Parent = Frame31
TextLabel32.Transparency = 1
TextLabel32.Size = UDim2.new(1, -10, 1, 0)
TextLabel32.Text = ""
TextLabel32.Position = UDim2.new(0, 5, 0, 0)
TextLabel32.Visible = false
TextLabel32.BackgroundTransparency = 1
TextLabel32.Font = Enum.Font.SourceSans
TextLabel32.FontSize = Enum.FontSize.Size14
TextLabel32.TextColor3 = Color3.new(0.580392, 0.580392, 0.580392)
TextLabel32.TextWrapped = true
TextLabel32.TextXAlignment = Enum.TextXAlignment.Left
TextBox33.Name = "box"
TextBox33.Parent = Frame31
TextBox33.Transparency = 1
TextBox33.Size = UDim2.new(1, -10, 1, 0)
TextBox33.Text = ""
TextBox33.Position = UDim2.new(0, 5, 0, 0)
TextBox33.Visible = false
TextBox33.BackgroundTransparency = 1
TextBox33.Font = Enum.Font.SourceSans
TextBox33.FontSize = Enum.FontSize.Size14
TextBox33.TextColor3 = Color3.new(0.0980392, 0.0980392, 0.0980392)
TextBox33.TextWrapped = true
TextBox33.TextXAlignment = Enum.TextXAlignment.Left
ImageButton34.Name = "check"
ImageButton34.Parent = Frame31
ImageButton34.Size = UDim2.new(0, 12, 0, 12)
ImageButton34.Position = UDim2.new(0, 5, 0, 5)
ImageButton34.Visible = false
ImageButton34.BackgroundColor3 = Color3.new(0.866667, 0.866667, 0.870588)
ImageButton34.BorderSizePixel = 0
Frame35.Name = "ExplorerPanel"
Frame35.Parent = ScreenGui0
Frame35.Transparency = 0.10000000149012
Frame35.Size = UDim2.new(0, 300, 1, -210)
Frame35.Position = UDim2.new(1, -308, 0, 190)
Frame35.BackgroundColor3 = Color3.new(1, 1, 1)
Frame35.BackgroundTransparency = 0.10000000149012
Frame35.BorderColor3 = Color3.new(0.74902, 0.74902, 0.74902)
Frame35.Draggable = true
LocalScript36.Parent = Frame35
table.insert(cors,sandbox(LocalScript36,function()
-- initial states
local Option = {
	-- can modify objects
	Modifiable = true;
	-- can select objects
	Selectable = true;
}

-- general size of GUI objects, in pixels
local GUI_SIZE = 16
-- padding between items within each entry
local ENTRY_PADDING = 1
-- padding between each entry
local ENTRY_MARGIN = 1

--[[

# Explorer Panel

A GUI panel that displays the game hierarchy.


## Selection Bindables

- `Function GetSelection ( )`

	Returns an array of objects representing the objects currently
	selected in the panel.

- `Function SetSelection ( Objects selection )`

	Sets the objects that are selected in the panel. `selection` is an array
	of objects.

- `Event SelectionChanged ( )`

	Fired after the selection changes.


## Option Bindables

- `Function GetOption ( string optionName )`

	If `optionName` is given, returns the value of that option. Otherwise,
	returns a table of options and their current values.

- `Function SetOption ( string optionName, bool value )`

	Sets `optionName` to `value`.

	Options:

	- Modifiable

		Whether objects can be modified by the panel.

		Note that modifying objects depends on being able to select them. If
		Selectable is false, then Actions will not be available. Reparenting
		is still possible, but only for the dragged object.

	- Selectable

		Whether objects can be selected.

		If Modifiable is false, then left-clicking will perform a drag
		selection.

## Updates

- 2013-09-18
	- Fixed explorer icons to match studio explorer.

- 2013-09-14
	- Added GetOption and SetOption bindables.
		- Option: Modifiable; sets whether objects can be modified by the panel.
		- Option: Selectable; sets whether objects can be selected.
	- Slight modification to left-click selection behavior.
	- Improved layout and scaling.

- 2013-09-13
	- Added drag to reparent objects.
		- Left-click to select/deselect object.
		- Left-click and drag unselected object to reparent single object.
		- Left-click and drag selected object to move reparent entire selection.
		- Right-click while dragging to cancel.

- 2013-09-11
	- Added explorer panel header with actions.
		- Added Cut action.
		- Added Copy action.
		- Added Paste action.
		- Added Delete action.
	- Added drag selection.
		- Left-click: Add to selection on drag.
		- Right-click: Add to or remove from selection on drag.
	- Ensured SelectionChanged fires only when the selection actually changes.
	- Added documentation and change log.
	- Fixed thread issue.

- 2013-09-09
	- Added basic multi-selection.
		- Left-click to set selection.
		- Right-click to add to or remove from selection.
	- Removed "Selection" ObjectValue.
		- Added GetSelection BindableFunction.
		- Added SetSelection BindableFunction.
		- Added SelectionChanged BindableEvent.
	- Changed font to SourceSans.

- 2013-08-31
	- Improved GUI sizing based off of `GUI_SIZE` constant.
	- Automatic font size detection.

- 2013-08-27
	- Initial explorer panel.


## Todo

- Sorting
	- by ExplorerOrder
	- by children
	- by name
- Drag objects to reparent

]]

local ENTRY_SIZE = GUI_SIZE + ENTRY_PADDING*2
local ENTRY_BOUND = ENTRY_SIZE + ENTRY_MARGIN
local HEADER_SIZE = ENTRY_SIZE

local FONT = 'SourceSans'
local FONT_SIZE do
	local size = {8,9,10,11,12,14,18,24,36,48}
	local s
	local n = math.huge
	for i = 1,#size do
		if size[i] <= GUI_SIZE then
			FONT_SIZE = i - 1
		end
	end
end

local GuiColor = {
	Background      = Color3.new(233/255, 233/255, 233/255);
	Border          = Color3.new(149/255, 149/255, 149/255);
	Selected        = Color3.new( 96/255, 140/255, 211/255);
	BorderSelected  = Color3.new( 86/255, 125/255, 188/255);
	Text            = Color3.new(  0/255,   0/255,   0/255);
	TextDisabled    = Color3.new(128/255, 128/255, 128/255);
	TextSelected    = Color3.new(255/255, 255/255, 255/255);
	Button          = Color3.new(221/255, 221/255, 221/255);
	ButtonBorder    = Color3.new(149/255, 149/255, 149/255);
	ButtonSelected  = Color3.new(255/255,   0/255,   0/255);
	Field           = Color3.new(255/255, 255/255, 255/255);
	FieldBorder     = Color3.new(191/255, 191/255, 191/255);
	TitleBackground = Color3.new(178/255, 178/255, 178/255);
}

----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
---- Icon map constants

local MAP_ID = 129293660

-- Indices based on implementation of Icon function.
local ACTION_CUT         = 160
local ACTION_COPY        = 161
local ACTION_PASTE       = 162
local ACTION_DELETE      = 163
local ACTION_SORT        = 164
local ACTION_CUT_OVER    = 174
local ACTION_COPY_OVER   = 175
local ACTION_PASTE_OVER  = 176
local ACTION_DELETE_OVER = 177
local ACTION_SORT_OVER   = 178

local NODE_COLLAPSED      = 165
local NODE_EXPANDED       = 166
local NODE_COLLAPSED_OVER = 179
local NODE_EXPANDED_OVER  = 180

local ExplorerIndex = {
	["Accoutrement"] = 32;
	["Animation"] = 60;
	["AnimationTrack"] = 60;
	["ArcHandles"] = 56;
	["Backpack"] = 20;
	["BillboardGui"] = 64;
	["BindableEvent"] = 67;
	["BindableFunction"] = 66;
	["BlockMesh"] = 8;
	["BodyAngularVelocity"] = 14;
	["BodyForce"] = 14;
	["BodyGyro"] = 14;
	["BodyPosition"] = 14;
	["BodyThrust"] = 14;
	["BodyVelocity"] = 14;
	["BoolValue"] = 4;
	["BrickColorValue"] = 4;
	["Camera"] = 5;
	["CFrameValue"] = 4;
	["CharacterMesh"] = 60;
	["ClickDetector"] = 41;
	["Color3Value"] = 4;
	["Configuration"] = 58;
	["CoreGui"] = 46;
	["CornerWedgePart"] = 1;
	["CustomEvent"] = 4;
	["CustomEventReceiver"] = 4;
	["CylinderMesh"] = 8;
	["Debris"] = 30;
	["Decal"] = 7;
	["Dialog"] = 62;
	["DialogChoice"] = 63;
	["DoubleConstrainedValue"] = 4;
	["Explosion"] = 36;
	["Fire"] = 61;
	["Flag"] = 38;
	["FlagStand"] = 39;
	["FloorWire"] = 4;
	["ForceField"] = 37;
	["Frame"] = 48;
	["GuiButton"] = 52;
	["GuiMain"] = 47;
	["Handles"] = 53;
	["Hat"] = 45;
	["Hint"] = 33;
	["HopperBin"] = 22;
	["Humanoid"] = 9;
	["ImageButton"] = 52;
	["ImageLabel"] = 49;
	["IntConstrainedValue"] = 4;
	["IntValue"] = 4;
	["JointInstance"] = 34;
	["Keyframe"] = 60;
	["Lighting"] = 13;
	["LocalScript"] = 18;
	["MarketplaceService"] = 46;
	["Message"] = 33;
	["Model"] = 2;
	["NetworkClient"] = 16;
	["NetworkReplicator"] = 29;
	["NetworkServer"] = 15;
	["NumberValue"] = 4;
	["ObjectValue"] = 4;
	["Pants"] = 44;
	["ParallelRampPart"] = 1;
	["Part"] = 1;
	["PartPairLasso"] = 57;
	["Platform"] = 35;
	["Player"] = 12;
	["PlayerGui"] = 46;
	["Players"] = 21;
	["PointLight"] = 13;
	["Pose"] = 60;
	["PrismPart"] = 1;
	["PyramidPart"] = 1;
	["RayValue"] = 4;
	["ReplicatedStorage"] = 0;
	["RightAngleRampPart"] = 1;
	["RocketPropulsion"] = 14;
	["ScreenGui"] = 47;
	["Script"] = 6;
	["Seat"] = 35;
	["SelectionBox"] = 54;
	["SelectionPartLasso"] = 57;
	["SelectionPointLasso"] = 57;
	["ServerScriptService"] = 0;
	["ServerStorage"] = 0;
	["Shirt"] = 43;
	["ShirtGraphic"] = 40;
	["SkateboardPlatform"] = 35;
	["Sky"] = 28;
	["Smoke"] = 59;
	["Sound"] = 11;
	["SoundService"] = 31;
	["Sparkles"] = 42;
	["SpawnLocation"] = 25;
	["SpecialMesh"] = 8;
	["SpotLight"] = 13;
	["StarterGear"] = 20;
	["StarterGui"] = 46;
	["StarterPack"] = 20;
	["Status"] = 2;
	["StringValue"] = 4;
	["SurfaceSelection"] = 55;
	["Team"] = 24;
	["Teams"] = 23;
	["Terrain"] = 65;
	["TestService"] = 68;
	["TextBox"] = 51;
	["TextButton"] = 51;
	["TextLabel"] = 50;
	["Texture"] = 10;
	["TextureTrail"] = 4;
	["Tool"] = 17;
	["TouchTransmitter"] = 37;
	["TrussPart"] = 1;
	["Vector3Value"] = 4;
	["VehicleSeat"] = 35;
	["WedgePart"] = 1;
	["Weld"] = 34;
	["Workspace"] = 19;
}

----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------

function Create(ty,data)
	local obj
	if type(ty) == 'string' then
		obj = Instance.new(ty)
	else
		obj = ty
	end
	for k, v in pairs(data) do
		if type(k) == 'number' then
			v.Parent = obj
		else
			obj[k] = v
		end
	end
	return obj
end

-- Connects a function to an event such that it fires asynchronously
function Connect(event,func)
	return event:connect(function(...)
		local a = {...}
		Spawn(function() func(unpack(a)) end)
	end)
end

-- returns the ascendant ScreenGui of an object
function GetScreen(screen)
	if screen == nil then return nil end
	while not screen:IsA("ScreenGui") do
		screen = screen.Parent
		if screen == nil then return nil end
	end
	return screen
end

do
	local ZIndexLock = {}
	-- Sets the ZIndex of an object and its descendants. Objects are locked so
	-- that SetZIndexOnChanged doesn't spawn multiple threads that set the
	-- ZIndex of the same object.
	function SetZIndex(object,z)
		if not ZIndexLock[object] then
			ZIndexLock[object] = true
			if object:IsA'GuiObject' then
				object.ZIndex = z
			end
			local children = object:GetChildren()
			for i = 1,#children do
				SetZIndex(children[i],z)
			end
			ZIndexLock[object] = nil
		end
	end

	function SetZIndexOnChanged(object)
		return object.Changed:connect(function(p)
			if p == "ZIndex" then
				SetZIndex(object,object.ZIndex)
			end
		end)
	end
end

---- IconMap ----
-- Image size: 256px x 256px
-- Icon size: 16px x 16px
-- Padding between each icon: 2px
-- Padding around image edge: 1px
-- Total icons: 14 x 14 (196)
local Icon do
	local iconMap = 'http://www.roblox.com/asset/?id=' .. MAP_ID
	Game:GetService('ContentProvider'):Preload(iconMap)
	local iconDehash do
		-- 14 x 14, 0-based input, 0-based output
		local f=math.floor
		function iconDehash(h)
			return f(h/14%14),f(h%14)
		end
	end

	function Icon(IconFrame,index)
		local row,col = iconDehash(index)
		local mapSize = Vector2.new(256,256)
		local pad,border = 2,1
		local iconSize = 16

		local class = 'Frame'
		if type(IconFrame) == 'string' then
			class = IconFrame
			IconFrame = nil
		end

		if not IconFrame then
			IconFrame = Create(class,{
				Name = "Icon";
				BackgroundTransparency = 1;
				ClipsDescendants = true;
				Create('ImageLabel',{
					Name = "IconMap";
					Active = false;
					BackgroundTransparency = 1;
					Image = iconMap;
					Size = UDim2.new(mapSize.x/iconSize,0,mapSize.y/iconSize,0);
				});
			})
		end

		IconFrame.IconMap.Position = UDim2.new(-col - (pad*(col+1) + border)/iconSize,0,-row - (pad*(row+1) + border)/iconSize,0)
		return IconFrame
	end
end

----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
---- ScrollBar
do
	-- AutoButtonColor doesn't always reset properly
	local function ResetButtonColor(button)
		local active = button.Active
		button.Active = not active
		button.Active = active
	end

	local function ArrowGraphic(size,dir,scaled,template)
		local Frame = Create('Frame',{
			Name = "Arrow Graphic";
			BorderSizePixel = 0;
			Size = UDim2.new(0,size,0,size);
			Transparency = 1;
		})
		if not template then
			template = Instance.new("Frame")
			template.BorderSizePixel = 0
		end

		local transform
		if dir == nil or dir == 'Up' then
			function transform(p,s) return p,s end
		elseif dir == 'Down' then
			function transform(p,s) return UDim2.new(0,p.X.Offset,0,size-p.Y.Offset-1),s end
		elseif dir == 'Left' then
			function transform(p,s) return UDim2.new(0,p.Y.Offset,0,p.X.Offset),UDim2.new(0,s.Y.Offset,0,s.X.Offset) end
		elseif dir == 'Right' then
			function transform(p,s) return UDim2.new(0,size-p.Y.Offset-1,0,p.X.Offset),UDim2.new(0,s.Y.Offset,0,s.X.Offset) end
		end

		local scale
		if scaled then
			function scale(p,s) return UDim2.new(p.X.Offset/size,0,p.Y.Offset/size,0),UDim2.new(s.X.Offset/size,0,s.Y.Offset/size,0) end
		else
			function scale(p,s) return p,s end
		end

		local o = math.floor(size/4)
		if size%2 == 0 then
			local n = size/2-1
			for i = 0,n do
				local t = template:Clone()
				local p,s = scale(transform(
					UDim2.new(0,n-i,0,o+i),
					UDim2.new(0,(i+1)*2,0,1)
				))
				t.Position = p
				t.Size = s
				t.Parent = Frame
			end
		else
			local n = (size-1)/2
			for i = 0,n do
				local t = template:Clone()
				local p,s = scale(transform(
					UDim2.new(0,n-i,0,o+i),
					UDim2.new(0,i*2+1,0,1)
				))
				t.Position = p
				t.Size = s
				t.Parent = Frame
			end
		end
		if size%4 > 1 then
			local t = template:Clone()
			local p,s = scale(transform(
				UDim2.new(0,0,0,size-o-1),
				UDim2.new(0,size,0,1)
			))
			t.Position = p
			t.Size = s
			t.Parent = Frame
		end
		return Frame
	end


	local function GripGraphic(size,dir,spacing,scaled,template)
		local Frame = Create('Frame',{
			Name = "Grip Graphic";
			BorderSizePixel = 0;
			Size = UDim2.new(0,size.x,0,size.y);
			Transparency = 1;
		})
		if not template then
			template = Instance.new("Frame")
			template.BorderSizePixel = 0
		end

		spacing = spacing or 2

		local scale
		if scaled then
			function scale(p) return UDim2.new(p.X.Offset/size.x,0,p.Y.Offset/size.y,0) end
		else
			function scale(p) return p end
		end

		if dir == 'Vertical' then
			for i=0,size.x-1,spacing do
				local t = template:Clone()
				t.Size = scale(UDim2.new(0,1,0,size.y))
				t.Position = scale(UDim2.new(0,i,0,0))
				t.Parent = Frame
			end
		elseif dir == nil or dir == 'Horizontal' then
			for i=0,size.y-1,spacing do
				local t = template:Clone()
				t.Size = scale(UDim2.new(0,size.x,0,1))
				t.Position = scale(UDim2.new(0,0,0,i))
				t.Parent = Frame
			end
		end

		return Frame
	end

	local mt = {
		__index = {
			GetScrollPercent = function(self)
				return self.ScrollIndex/(self.TotalSpace-self.VisibleSpace)
			end;
			CanScrollDown = function(self)
				return self.ScrollIndex + self.VisibleSpace < self.TotalSpace
			end;
			CanScrollUp = function(self)
				return self.ScrollIndex > 0
			end;
			ScrollDown = function(self)
				self.ScrollIndex = self.ScrollIndex + self.PageIncrement
				self:Update()
			end;
			ScrollUp = function(self)
				self.ScrollIndex = self.ScrollIndex - self.PageIncrement
				self:Update()
			end;
			ScrollTo = function(self,index)
				self.ScrollIndex = index
				self:Update()
			end;
			SetScrollPercent = function(self,percent)
				self.ScrollIndex = math.floor((self.TotalSpace - self.VisibleSpace)*percent + 0.5)
				self:Update()
			end;
		};
	}
	mt.__index.CanScrollRight = mt.__index.CanScrollDown
	mt.__index.CanScrollLeft = mt.__index.CanScrollUp
	mt.__index.ScrollLeft = mt.__index.ScrollUp
	mt.__index.ScrollRight = mt.__index.ScrollDown

	function ScrollBar(horizontal)
		-- create row scroll bar
		local ScrollFrame = Create('Frame',{
			Name = "ScrollFrame";
			Position = horizontal and UDim2.new(0,0,1,-GUI_SIZE) or UDim2.new(1,-GUI_SIZE,0,0);
			Size = horizontal and UDim2.new(1,0,0,GUI_SIZE) or UDim2.new(0,GUI_SIZE,1,0);
			BackgroundTransparency = 1;
			Create('ImageButton',{
				Name = "ScrollDown";
				Position = horizontal and UDim2.new(1,-GUI_SIZE,0,0) or UDim2.new(0,0,1,-GUI_SIZE);
				Size = UDim2.new(0, GUI_SIZE, 0, GUI_SIZE);
				BackgroundColor3 = GuiColor.Button;
				BorderColor3 = GuiColor.Border;
				--BorderSizePixel = 0;
			});
			Create('ImageButton',{
				Name = "ScrollUp";
				Size = UDim2.new(0, GUI_SIZE, 0, GUI_SIZE);
				BackgroundColor3 = GuiColor.Button;
				BorderColor3 = GuiColor.Border;
				--BorderSizePixel = 0;
			});
			Create('ImageButton',{
				Name = "ScrollBar";
				Size = horizontal and UDim2.new(1,-GUI_SIZE*2,1,0) or UDim2.new(1,0,1,-GUI_SIZE*2);
				Position = horizontal and UDim2.new(0,GUI_SIZE,0,0) or UDim2.new(0,0,0,GUI_SIZE);
				AutoButtonColor = false;
				BackgroundColor3 = Color3.new(0.94902, 0.94902, 0.94902);
				BorderColor3 = GuiColor.Border;
				--BorderSizePixel = 0;
				Create('ImageButton',{
					Name = "ScrollThumb";
					AutoButtonColor = false;
					Size = UDim2.new(0, GUI_SIZE, 0, GUI_SIZE);
					BackgroundColor3 = GuiColor.Button;
					BorderColor3 = GuiColor.Border;
					--BorderSizePixel = 0;
				});
			});
		})

		local graphicTemplate = Create('Frame',{
			Name="Graphic";
			BorderSizePixel = 0;
			BackgroundColor3 = GuiColor.Border;
		})
		local graphicSize = GUI_SIZE/2

		local ScrollDownFrame = ScrollFrame.ScrollDown
			local ScrollDownGraphic = ArrowGraphic(graphicSize,horizontal and 'Right' or 'Down',true,graphicTemplate)
			ScrollDownGraphic.Position = UDim2.new(0.5,-graphicSize/2,0.5,-graphicSize/2)
			ScrollDownGraphic.Parent = ScrollDownFrame
		local ScrollUpFrame = ScrollFrame.ScrollUp
			local ScrollUpGraphic = ArrowGraphic(graphicSize,horizontal and 'Left' or 'Up',true,graphicTemplate)
			ScrollUpGraphic.Position = UDim2.new(0.5,-graphicSize/2,0.5,-graphicSize/2)
			ScrollUpGraphic.Parent = ScrollUpFrame
		local ScrollBarFrame = ScrollFrame.ScrollBar
		local ScrollThumbFrame = ScrollBarFrame.ScrollThumb
		do
			local size = GUI_SIZE*3/8
			local Decal = GripGraphic(Vector2.new(size,size),horizontal and 'Vertical' or 'Horizontal',2,graphicTemplate)
			Decal.Position = UDim2.new(0.5,-size/2,0.5,-size/2)
			Decal.Parent = ScrollThumbFrame
		end

		local Class = setmetatable({
			GUI = ScrollFrame;
			ScrollIndex = 0;
			VisibleSpace = 0;
			TotalSpace = 0;
			PageIncrement = 1;
		},mt)

		local UpdateScrollThumb
		if horizontal then
			function UpdateScrollThumb()
				ScrollThumbFrame.Size = UDim2.new(Class.VisibleSpace/Class.TotalSpace,0,0,GUI_SIZE)
				if ScrollThumbFrame.AbsoluteSize.x < GUI_SIZE then
					ScrollThumbFrame.Size = UDim2.new(0,GUI_SIZE,0,GUI_SIZE)
				end
				local barSize = ScrollBarFrame.AbsoluteSize.x
				ScrollThumbFrame.Position = UDim2.new(Class:GetScrollPercent()*(barSize - ScrollThumbFrame.AbsoluteSize.x)/barSize,0,0,0)
			end
		else
			function UpdateScrollThumb()
				ScrollThumbFrame.Size = UDim2.new(0,GUI_SIZE,Class.VisibleSpace/Class.TotalSpace,0)
				if ScrollThumbFrame.AbsoluteSize.y < GUI_SIZE then
					ScrollThumbFrame.Size = UDim2.new(0,GUI_SIZE,0,GUI_SIZE)
				end
				local barSize = ScrollBarFrame.AbsoluteSize.y
				ScrollThumbFrame.Position = UDim2.new(0,0,Class:GetScrollPercent()*(barSize - ScrollThumbFrame.AbsoluteSize.y)/barSize,0)
			end
		end

		local lastDown
		local lastUp
		local scrollStyle = {BackgroundColor3=GuiColor.Border,BackgroundTransparency=0}
		local scrollStyle_ds = {BackgroundColor3=GuiColor.Border,BackgroundTransparency=0.7}

		local function Update()
			local t = Class.TotalSpace
			local v = Class.VisibleSpace
			local s = Class.ScrollIndex
			if v <= t then
				if s > 0 then
					if s + v > t then
						Class.ScrollIndex = t - v
					end
				else
					Class.ScrollIndex = 0
				end
			else
				Class.ScrollIndex = 0
			end

			if Class.UpdateCallback then
				if Class.UpdateCallback(Class) == false then
					return
				end
			end

			local down = Class:CanScrollDown()
			local up = Class:CanScrollUp()
			if down ~= lastDown then
				lastDown = down
				ScrollDownFrame.Active = down
				ScrollDownFrame.AutoButtonColor = down
				local children = ScrollDownGraphic:GetChildren()
				local style = down and scrollStyle or scrollStyle_ds
				for i = 1,#children do
					Create(children[i],style)
				end
			end
			if up ~= lastUp then
				lastUp = up
				ScrollUpFrame.Active = up
				ScrollUpFrame.AutoButtonColor = up
				local children = ScrollUpGraphic:GetChildren()
				local style = up and scrollStyle or scrollStyle_ds
				for i = 1,#children do
					Create(children[i],style)
				end
			end
			ScrollThumbFrame.Visible = down or up
			UpdateScrollThumb()
		end
		Class.Update = Update

		SetZIndexOnChanged(ScrollFrame)

		local MouseDrag = Create('ImageButton',{
			Name = "MouseDrag";
			Position = UDim2.new(-0.25,0,-0.25,0);
			Size = UDim2.new(1.5,0,1.5,0);
			Transparency = 1;
			AutoButtonColor = false;
			Active = true;
			ZIndex = 10;
		})

		local scrollEventID = 0
		ScrollDownFrame.MouseButton1Down:connect(function()
			scrollEventID = tick()
			local current = scrollEventID
			local up_con
			up_con = MouseDrag.MouseButton1Up:connect(function()
				scrollEventID = tick()
				MouseDrag.Parent = nil
				ResetButtonColor(ScrollDownFrame)
				up_con:disconnect(); drag = nil
			end)
			MouseDrag.Parent = GetScreen(ScrollFrame)
			Class:ScrollDown()
			wait(0.2) -- delay before auto scroll
			while scrollEventID == current do
				Class:ScrollDown()
				if not Class:CanScrollDown() then break end
				wait()
			end
		end)

		ScrollDownFrame.MouseButton1Up:connect(function()
			scrollEventID = tick()
		end)

		ScrollUpFrame.MouseButton1Down:connect(function()
			scrollEventID = tick()
			local current = scrollEventID
			local up_con
			up_con = MouseDrag.MouseButton1Up:connect(function()
				scrollEventID = tick()
				MouseDrag.Parent = nil
				ResetButtonColor(ScrollUpFrame)
				up_con:disconnect(); drag = nil
			end)
			MouseDrag.Parent = GetScreen(ScrollFrame)
			Class:ScrollUp()
			wait(0.2)
			while scrollEventID == current do
				Class:ScrollUp()
				if not Class:CanScrollUp() then break end
				wait()
			end
		end)

		ScrollUpFrame.MouseButton1Up:connect(function()
			scrollEventID = tick()
		end)

		if horizontal then
			ScrollBarFrame.MouseButton1Down:connect(function(x,y)
				scrollEventID = tick()
				local current = scrollEventID
				local up_con
				up_con = MouseDrag.MouseButton1Up:connect(function()
					scrollEventID = tick()
					MouseDrag.Parent = nil
					ResetButtonColor(ScrollUpFrame)
					up_con:disconnect(); drag = nil
				end)
				MouseDrag.Parent = GetScreen(ScrollFrame)
				if x > ScrollThumbFrame.AbsolutePosition.x then
					Class:ScrollTo(Class.ScrollIndex + Class.VisibleSpace)
					wait(0.2)
					while scrollEventID == current do
						if x < ScrollThumbFrame.AbsolutePosition.x + ScrollThumbFrame.AbsoluteSize.x then break end
						Class:ScrollTo(Class.ScrollIndex + Class.VisibleSpace)
						wait()
					end
				else
					Class:ScrollTo(Class.ScrollIndex - Class.VisibleSpace)
					wait(0.2)
					while scrollEventID == current do
						if x > ScrollThumbFrame.AbsolutePosition.x then break end
						Class:ScrollTo(Class.ScrollIndex - Class.VisibleSpace)
						wait()
					end
				end
			end)
		else
			ScrollBarFrame.MouseButton1Down:connect(function(x,y)
				scrollEventID = tick()
				local current = scrollEventID
				local up_con
				up_con = MouseDrag.MouseButton1Up:connect(function()
					scrollEventID = tick()
					MouseDrag.Parent = nil
					ResetButtonColor(ScrollUpFrame)
					up_con:disconnect(); drag = nil
				end)
				MouseDrag.Parent = GetScreen(ScrollFrame)
				if y > ScrollThumbFrame.AbsolutePosition.y then
					Class:ScrollTo(Class.ScrollIndex + Class.VisibleSpace)
					wait(0.2)
					while scrollEventID == current do
						if y < ScrollThumbFrame.AbsolutePosition.y + ScrollThumbFrame.AbsoluteSize.y then break end
						Class:ScrollTo(Class.ScrollIndex + Class.VisibleSpace)
						wait()
					end
				else
					Class:ScrollTo(Class.ScrollIndex - Class.VisibleSpace)
					wait(0.2)
					while scrollEventID == current do
						if y > ScrollThumbFrame.AbsolutePosition.y then break end
						Class:ScrollTo(Class.ScrollIndex - Class.VisibleSpace)
						wait()
					end
				end
			end)
		end

		if horizontal then
			ScrollThumbFrame.MouseButton1Down:connect(function(x,y)
				scrollEventID = tick()
				local mouse_offset = x - ScrollThumbFrame.AbsolutePosition.x
				local drag_con
				local up_con
				drag_con = MouseDrag.MouseMoved:connect(function(x,y)
					local bar_abs_pos = ScrollBarFrame.AbsolutePosition.x
					local bar_drag = ScrollBarFrame.AbsoluteSize.x - ScrollThumbFrame.AbsoluteSize.x
					local bar_abs_one = bar_abs_pos + bar_drag
					x = x - mouse_offset
					x = x < bar_abs_pos and bar_abs_pos or x > bar_abs_one and bar_abs_one or x
					x = x - bar_abs_pos
					Class:SetScrollPercent(x/(bar_drag))
				end)
				up_con = MouseDrag.MouseButton1Up:connect(function()
					scrollEventID = tick()
					MouseDrag.Parent = nil
					ResetButtonColor(ScrollThumbFrame)
					drag_con:disconnect(); drag_con = nil
					up_con:disconnect(); drag = nil
				end)
				MouseDrag.Parent = GetScreen(ScrollFrame)
			end)
		else
			ScrollThumbFrame.MouseButton1Down:connect(function(x,y)
				scrollEventID = tick()
				local mouse_offset = y - ScrollThumbFrame.AbsolutePosition.y
				local drag_con
				local up_con
				drag_con = MouseDrag.MouseMoved:connect(function(x,y)
					local bar_abs_pos = ScrollBarFrame.AbsolutePosition.y
					local bar_drag = ScrollBarFrame.AbsoluteSize.y - ScrollThumbFrame.AbsoluteSize.y
					local bar_abs_one = bar_abs_pos + bar_drag
					y = y - mouse_offset
					y = y < bar_abs_pos and bar_abs_pos or y > bar_abs_one and bar_abs_one or y
					y = y - bar_abs_pos
					Class:SetScrollPercent(y/(bar_drag))
				end)
				up_con = MouseDrag.MouseButton1Up:connect(function()
					scrollEventID = tick()
					MouseDrag.Parent = nil
					ResetButtonColor(ScrollThumbFrame)
					drag_con:disconnect(); drag_con = nil
					up_con:disconnect(); drag = nil
				end)
				MouseDrag.Parent = GetScreen(ScrollFrame)
			end)
		end

		function Class:Destroy()
			ScrollFrame:Destroy()
			MouseDrag:Destroy()
			for k in pairs(Class) do
				Class[k] = nil
			end
			setmetatable(Class,nil)
		end

		Update()

		return Class
	end
end

----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
---- Explorer panel

local explorerPanel = script.Parent
Create(explorerPanel,{
	BackgroundColor3 = GuiColor.Field;
	BorderColor3 = GuiColor.Border;
	Active = true;
})

local listFrame = Create('Frame',{
	Name = "List";
	BackgroundTransparency = 1;
	ClipsDescendants = true;
	Position = UDim2.new(0,0,0,HEADER_SIZE);
	Size = UDim2.new(1,-GUI_SIZE,1,-HEADER_SIZE);
	Parent = explorerPanel;
})

local scrollBar = ScrollBar(false)
scrollBar.PageIncrement = 1
Create(scrollBar.GUI,{
	Position = UDim2.new(1,-GUI_SIZE,0,HEADER_SIZE);
	Size = UDim2.new(0,GUI_SIZE,1,-HEADER_SIZE);
	Parent = explorerPanel;
})

local scrollBarH = ScrollBar(true)
scrollBarH.PageIncrement = GUI_SIZE
Create(scrollBarH.GUI,{
	Position = UDim2.new(0,0,1,-GUI_SIZE);
	Size = UDim2.new(1,-GUI_SIZE,0,GUI_SIZE);
	Visible = false;
	Parent = explorerPanel;
})

local headerFrame = Create('Frame',{
	Name = "Header";
	BackgroundColor3 = GuiColor.Background;
	BorderColor3 = GuiColor.Border;
	Position = UDim2.new(0,0,0,0);
	Size = UDim2.new(1,0,0,HEADER_SIZE);
	Parent = explorerPanel;
	Create('TextLabel',{
		Text = "Explorer";
		BackgroundTransparency = 1;
		TextColor3 = GuiColor.Text;
		TextXAlignment = 'Left';
		Font = FONT;
		FontSize = FONT_SIZE;
		Position = UDim2.new(0,4,0,0);
		Size = UDim2.new(1,-4,1,0);
	});
})

SetZIndexOnChanged(explorerPanel)

local getTextWidth do
	local text = Create('TextLabel',{
		Name = "TextWidth";
		TextXAlignment = 'Left';
		TextYAlignment = 'Center';
		Font = FONT;
		FontSize = FONT_SIZE;
		Text = "";
		Position = UDim2.new(0,0,0,0);
		Size = UDim2.new(1,0,1,0);
		Visible = false;
		Parent = explorerPanel;
	})
	function getTextWidth(s)
		text.Text = s
		return text.TextBounds.x
	end
end

-- Holds the game tree converted to a list.
local TreeList = {}
-- Matches objects to their tree node representation.
local NodeLookup = {}

local nodeWidth = 0

local updateList,rawUpdateList,updateScroll,rawUpdateSize do
	local function r(t)
		for i = 1,#t do
			TreeList[#TreeList+1] = t[i]

			local w = (t[i].Depth)*(2+ENTRY_PADDING+GUI_SIZE) + 2 + ENTRY_SIZE + 4 + getTextWidth(t[i].Object.Name) + 4
			if w > nodeWidth then
				nodeWidth = w
			end
			if t[i].Expanded then
				r(t[i])
			end
		end
	end

	function rawUpdateSize()
		scrollBarH.TotalSpace = nodeWidth
		scrollBarH.VisibleSpace = listFrame.AbsoluteSize.x
		scrollBarH:Update()
		local visible = scrollBarH:CanScrollDown() or scrollBarH:CanScrollUp()
		scrollBarH.GUI.Visible = visible

		listFrame.Size = UDim2.new(1,-GUI_SIZE,1,-GUI_SIZE*(visible and 1 or 0) - HEADER_SIZE)

		scrollBar.VisibleSpace = math.ceil(listFrame.AbsoluteSize.y/ENTRY_BOUND)
		scrollBar.GUI.Size = UDim2.new(0,GUI_SIZE,1,-GUI_SIZE*(visible and 1 or 0) - HEADER_SIZE)

		scrollBar.TotalSpace = #TreeList+1
		scrollBar:Update()
	end

	function rawUpdateList()
		-- Clear then repopulate the entire list. It appears to be fast enough.
		TreeList = {}
		nodeWidth = 0
		r(NodeLookup[Game])
		rawUpdateSize()
	end

	-- Adding or removing large models will cause many updates to occur. We
	-- can reduce the number of updates by creating a delay, then dropping any
	-- updates that occur during the delay.
	local updatingList = false
	function updateList()
		if updatingList then return end
		updatingList = true
		wait(0.25)
		updatingList = false
		rawUpdateList()
	end

	local updatingScroll = false
	function updateScroll()
		if updatingScroll then return end
		updatingScroll = true
		wait(0.25)
		updatingScroll = false
		scrollBar:Update()
	end
end

local Selection do
	local bindGetSelection = script.Parent:FindFirstChild("GetSelection")
	if not bindGetSelection then
		bindGetSelection = Create('BindableFunction',{Name = "GetSelection"})
		bindGetSelection.Parent = script.Parent
	end

	local bindSetSelection = script.Parent:FindFirstChild("SetSelection")
	if not bindSetSelection then
		bindSetSelection = Create('BindableFunction',{Name = "SetSelection"})
		bindSetSelection.Parent = script.Parent
	end

	local bindSelectionChanged = script.Parent:FindFirstChild("SelectionChanged")
	if not bindSelectionChanged then
		bindSelectionChanged = Create('BindableEvent',{Name = "SelectionChanged"})
		bindSelectionChanged.Parent = script.Parent
	end

	local SelectionList = {}
	local SelectionSet = {}
	Selection = {
		Selected = SelectionSet;
		List = SelectionList;
	}

	local function addObject(object)
		-- list update
		local lupdate = false
		-- scroll update
		local supdate = false

		if not SelectionSet[object] then
			local node = NodeLookup[object]
			if node then
				table.insert(SelectionList,object)
				SelectionSet[object] = true
				node.Selected = true

				-- expand all ancestors so that selected node becomes visible
				node = node.Parent
				while node do
					if not node.Expanded then
						node.Expanded = true
						lupdate = true
					end
					node = node.Parent
				end
				supdate = true
			end
		end
		return lupdate,supdate
	end

	function Selection:Set(objects)
		local lupdate = false
		local supdate = false

		if #SelectionList > 0 then
			for i = 1,#SelectionList do
				local object = SelectionList[i]
				local node = NodeLookup[object]
				if node then
					node.Selected = false
					SelectionSet[object] = nil
				end
			end

			SelectionList = {}
			Selection.List = SelectionList
			supdate = true
		end

		for i = 1,#objects do
			local l,s = addObject(objects[i])
			lupdate = l or lupdate
			supdate = s or supdate
		end

		if lupdate then
			rawUpdateList()
			supdate = true
		elseif supdate then
			scrollBar:Update()
		end

		if supdate then
			bindSelectionChanged:Fire()
		end
	end

	function Selection:Add(object)
		local l,s = addObject(object)
		if l then
			rawUpdateList()
			bindSelectionChanged:Fire()
		elseif s then
			scrollBar:Update()
			bindSelectionChanged:Fire()
		end
	end

	function Selection:Remove(object,noupdate)
		if SelectionSet[object] then
			local node = NodeLookup[object]
			if node then
				node.Selected = false
				SelectionSet[object] = nil
				for i = 1,#SelectionList do
					if SelectionList[i] == object then
						table.remove(SelectionList,i)
						break
					end
				end

				if not noupdate then
					scrollBar:Update()
				end
				bindSelectionChanged:Fire()
			end
		end
	end

	function Selection:Get()
		local list = {}
		for i = 1,#SelectionList do
			list[i] = SelectionList[i]
		end
		return list
	end

	bindSetSelection.OnInvoke = function(...)
		Selection:Set(...)
	end

	bindGetSelection.OnInvoke = function()
		return Selection:Get()
	end
end

local function cancelReparentDrag()end
local function cancelSelectDrag()end
do
	local listEntries = {}
	local nameConnLookup = {}

	local mouseDrag = Create('ImageButton',{
		Name = "MouseDrag";
		Position = UDim2.new(-0.25,0,-0.25,0);
		Size = UDim2.new(1.5,0,1.5,0);
		Transparency = 1;
		AutoButtonColor = false;
		Active = true;
		ZIndex = 10;
	})
	local function dragSelect(last,add,button)
		local connDrag
		local conUp

		conDrag = mouseDrag.MouseMoved:connect(function(x,y)
			local pos = Vector2.new(x,y) - listFrame.AbsolutePosition
			local size = listFrame.AbsoluteSize
			if pos.x < 0 or pos.x > size.x or pos.y < 0 or pos.y > size.y then return end

			local i = math.ceil(pos.y/ENTRY_BOUND) + scrollBar.ScrollIndex
			-- Mouse may have made a large step, so interpolate between the
			-- last index and the current.
			for n = i<last and i or last, i>last and i or last do
				local node = TreeList[n]
				if node then
					if add then
						Selection:Add(node.Object)
					else
						Selection:Remove(node.Object)
					end
				end
			end
			last = i
		end)

		function cancelSelectDrag()
			mouseDrag.Parent = nil
			conDrag:disconnect()
			conUp:disconnect()
			function cancelSelectDrag()end
		end

		conUp = mouseDrag[button]:connect(cancelSelectDrag)

		mouseDrag.Parent = GetScreen(listFrame)
	end

	local function dragReparent(object,dragGhost,clickPos,ghostOffset)
		local connDrag
		local conUp
		local conUp2

		local parentIndex = nil
		local dragged = false

		local parentHighlight = Create('Frame',{
			Transparency = 1;
			Visible = false;
			Create('Frame',{
				BorderSizePixel = 0;
				BackgroundColor3 = Color3.new(0,0,0);
				BackgroundTransparency = 0.1;
				Position = UDim2.new(0,0,0,0);
				Size = UDim2.new(1,0,0,1);
			});
			Create('Frame',{
				BorderSizePixel = 0;
				BackgroundColor3 = Color3.new(0,0,0);
				BackgroundTransparency = 0.1;
				Position = UDim2.new(1,0,0,0);
				Size = UDim2.new(0,1,1,0);
			});
			Create('Frame',{
				BorderSizePixel = 0;
				BackgroundColor3 = Color3.new(0,0,0);
				BackgroundTransparency = 0.1;
				Position = UDim2.new(0,0,1,0);
				Size = UDim2.new(1,0,0,1);
			});
			Create('Frame',{
				BorderSizePixel = 0;
				BackgroundColor3 = Color3.new(0,0,0);
				BackgroundTransparency = 0.1;
				Position = UDim2.new(0,0,0,0);
				Size = UDim2.new(0,1,1,0);
			});
		})
		SetZIndex(parentHighlight,9)

		conDrag = mouseDrag.MouseMoved:connect(function(x,y)
			local dragPos = Vector2.new(x,y)
			if dragged then
				local pos = dragPos - listFrame.AbsolutePosition
				local size = listFrame.AbsoluteSize

				parentIndex = nil
				parentHighlight.Visible = false
				if pos.x >= 0 and pos.x <= size.x and pos.y >= 0 and pos.y <= size.y then
					local i = math.ceil(pos.y/ENTRY_BOUND)
					local node = TreeList[i + scrollBar.ScrollIndex]
					if node and node.Object ~= object and not object:IsAncestorOf(node.Object) then
						parentIndex = i
						local entry = listEntries[i]
						if entry then
							parentHighlight.Visible = true
							parentHighlight.Position = UDim2.new(0,1,0,entry.AbsolutePosition.y-listFrame.AbsolutePosition.y)
							parentHighlight.Size = UDim2.new(0,size.x-4,0,entry.AbsoluteSize.y)
						end
					end
				end

				dragGhost.Position = UDim2.new(0,dragPos.x+ghostOffset.x,0,dragPos.y+ghostOffset.y)
			elseif (clickPos-dragPos).magnitude > 8 then
				dragged = true
				SetZIndex(dragGhost,9)
				dragGhost.IndentFrame.Transparency = 0.25
				dragGhost.IndentFrame.EntryText.TextColor3 = GuiColor.TextSelected
				dragGhost.Position = UDim2.new(0,dragPos.x+ghostOffset.x,0,dragPos.y+ghostOffset.y)
				dragGhost.Parent = GetScreen(listFrame)
				parentHighlight.Parent = listFrame
			end
		end)

		function cancelReparentDrag()
			mouseDrag.Parent = nil
			conDrag:disconnect()
			conUp:disconnect()
			conUp2:disconnect()
			dragGhost:Destroy()
			parentHighlight:Destroy()
			function cancelReparentDrag()end
		end

		local wasSelected = Selection.Selected[object]
		if not wasSelected and Option.Selectable then
			Selection:Set({object})
		end

		conUp = mouseDrag.MouseButton1Up:connect(function()
			cancelReparentDrag()
			if dragged then
				if parentIndex then
					local parentNode = TreeList[parentIndex + scrollBar.ScrollIndex]
					if parentNode then
						parentNode.Expanded = true

						local parentObj = parentNode.Object
						local function parent(a,b)
							a.Parent = b
						end
						if Option.Selectable then
							local list = Selection.List
							for i = 1,#list do
								pcall(parent,list[i],parentObj)
							end
						else
							pcall(parent,object,parentObj)
						end
					end
				end
			else
				-- do selection click
				if wasSelected and Option.Selectable then
					Selection:Set({})
				end
			end
		end)
		conUp2 = mouseDrag.MouseButton2Down:connect(function()
			cancelReparentDrag()
		end)

		mouseDrag.Parent = GetScreen(listFrame)
	end

	local entryTemplate = Create('ImageButton',{
		Name = "Entry";
		Transparency = 1;
		AutoButtonColor = false;
		Position = UDim2.new(0,0,0,0);
		Size = UDim2.new(1,0,0,ENTRY_SIZE);
		Create('Frame',{
			Name = "IndentFrame";
			BackgroundTransparency = 1;
			BackgroundColor3 = GuiColor.Selected;
			BorderColor3 = GuiColor.BorderSelected;
			Position = UDim2.new(0,0,0,0);
			Size = UDim2.new(1,0,1,0);
			Create(Icon('ImageButton',0),{
				Name = "Expand";
				AutoButtonColor = false;
				Position = UDim2.new(0,-GUI_SIZE,0.5,-GUI_SIZE/2);
				Size = UDim2.new(0,GUI_SIZE,0,GUI_SIZE);
			});
			Create(Icon(nil,0),{
				Name = "ExplorerIcon";
				Position = UDim2.new(0,2+ENTRY_PADDING,0.5,-GUI_SIZE/2);
				Size = UDim2.new(0,GUI_SIZE,0,GUI_SIZE);
			});
			Create('TextLabel',{
				Name = "EntryText";
				BackgroundTransparency = 1;
				TextColor3 = GuiColor.Text;
				TextXAlignment = 'Left';
				TextYAlignment = 'Center';
				Font = FONT;
				FontSize = FONT_SIZE;
				Text = "";
				Position = UDim2.new(0,2+ENTRY_SIZE+4,0,0);
				Size = UDim2.new(1,-2,1,0);
			});
		});
	})

	function scrollBar.UpdateCallback(self)
		for i = 1,self.VisibleSpace do
			local node = TreeList[i + self.ScrollIndex]
			if node then
				local entry = listEntries[i]
				if not entry then
					entry = Create(entryTemplate:Clone(),{
						Position = UDim2.new(0,2,0,ENTRY_BOUND*(i-1)+2);
						Size = UDim2.new(0,nodeWidth,0,ENTRY_SIZE);
						ZIndex = listFrame.ZIndex;
					})
					listEntries[i] = entry

					local expand = entry.IndentFrame.Expand
					expand.MouseEnter:connect(function()
						local node = TreeList[i + self.ScrollIndex]
						if #node > 0 then
							if node.Expanded then
								Icon(expand,NODE_EXPANDED_OVER)
							else
								Icon(expand,NODE_COLLAPSED_OVER)
							end
						end
					end)
					expand.MouseLeave:connect(function()
						local node = TreeList[i + self.ScrollIndex]
						if #node > 0 then
							if node.Expanded then
								Icon(expand,NODE_EXPANDED)
							else
								Icon(expand,NODE_COLLAPSED)
							end
						end
					end)
					expand.MouseButton1Down:connect(function()
						local node = TreeList[i + self.ScrollIndex]
						if #node > 0 then
							node.Expanded = not node.Expanded
							-- use raw update so the list updates instantly
							rawUpdateList()
						end
					end)

					entry.MouseButton1Down:connect(function(x,y)
						local node = TreeList[i + self.ScrollIndex]
						if Option.Modifiable then
							local pos = Vector2.new(x,y)
							dragReparent(node.Object,entry:Clone(),pos,entry.AbsolutePosition-pos)
						elseif Option.Selectable then
							if Selection.Selected[node.Object] then
								Selection:Set({})
							else
								Selection:Set({node.Object})
							end
							dragSelect(i+self.ScrollIndex,true,'MouseButton1Up')
						end
					end)

					entry.MouseButton2Down:connect(function()
						if not Option.Selectable then return end

						local node = TreeList[i + self.ScrollIndex]
						if Selection.Selected[node.Object] then
							Selection:Remove(node.Object)
							dragSelect(i+self.ScrollIndex,false,'MouseButton2Up')
						else
							Selection:Add(node.Object)
							dragSelect(i+self.ScrollIndex,true,'MouseButton2Up')
						end
					end)

					entry.Parent = listFrame
				end

				entry.Visible = true

				local object = node.Object

				-- update expand icon
				if #node == 0 then
					entry.IndentFrame.Expand.Visible = false
				elseif node.Expanded then
					Icon(entry.IndentFrame.Expand,NODE_EXPANDED)
					entry.IndentFrame.Expand.Visible = true
				else
					Icon(entry.IndentFrame.Expand,NODE_COLLAPSED)
					entry.IndentFrame.Expand.Visible = true
				end

				-- update explorer icon
				Icon(entry.IndentFrame.ExplorerIcon,ExplorerIndex[object.ClassName] or 0)

				-- update indentation
				local w = (node.Depth)*(2+ENTRY_PADDING+GUI_SIZE)
				entry.IndentFrame.Position = UDim2.new(0,w,0,0)
				entry.IndentFrame.Size = UDim2.new(1,-w,1,0)

				-- update name change detection
				if nameConnLookup[entry] then
					nameConnLookup[entry]:disconnect()
				end
				local text = entry.IndentFrame.EntryText
				text.Text = object.Name
				nameConnLookup[entry] = node.Object.Changed:connect(function(p)
					if p == 'Name' then
						text.Text = object.Name
					end
				end)

				-- update selection
				entry.IndentFrame.Transparency = node.Selected and 0 or 1
				text.TextColor3 = GuiColor[node.Selected and 'TextSelected' or 'Text']

				entry.Size = UDim2.new(0,nodeWidth,0,ENTRY_SIZE)
			elseif listEntries[i] then
				listEntries[i].Visible = false
			end
		end
		for i = self.VisibleSpace+1,self.TotalSpace do
			local entry = listEntries[i]
			if entry then
				listEntries[i] = nil
				entry:Destroy()
			end
		end
	end

	function scrollBarH.UpdateCallback(self)
		for i = 1,scrollBar.VisibleSpace do
			local node = TreeList[i + scrollBar.ScrollIndex]
			if node then
				local entry = listEntries[i]
				if entry then
					entry.Position = UDim2.new(0,2 - scrollBarH.ScrollIndex,0,ENTRY_BOUND*(i-1)+2)
				end
			end
		end
	end

	Connect(listFrame.Changed,function(p)
		if p == 'AbsoluteSize' then
			rawUpdateSize()
		end
	end)

	local wheelAmount = 6
	explorerPanel.MouseWheelForward:connect(function()
		if scrollBar.VisibleSpace - 1 > wheelAmount then
			scrollBar:ScrollTo(scrollBar.ScrollIndex - wheelAmount)
		else
			scrollBar:ScrollTo(scrollBar.ScrollIndex - scrollBar.VisibleSpace)
		end
	end)
	explorerPanel.MouseWheelBackward:connect(function()
		if scrollBar.VisibleSpace - 1 > wheelAmount then
			scrollBar:ScrollTo(scrollBar.ScrollIndex + wheelAmount)
		else
			scrollBar:ScrollTo(scrollBar.ScrollIndex + scrollBar.VisibleSpace)
		end
	end)
end

----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
---- Object detection

-- Inserts `v` into `t` at `i`. Also sets `Index` field in `v`.
local function insert(t,i,v)
	for n = #t,i,-1 do
		local v = t[n]
		v.Index = n+1
		t[n+1] = v
	end
	v.Index = i
	t[i] = v
end

-- Removes `i` from `t`. Also sets `Index` field in removed value.
local function remove(t,i)
	local v = t[i]
	for n = i+1,#t do
		local v = t[n]
		v.Index = n-1
		t[n-1] = v
	end
	t[#t] = nil
	v.Index = 0
	return v
end

-- Returns how deep `o` is in the tree.
local function depth(o)
	local d = -1
	while o do
		o = o.Parent
		d = d + 1
	end
	return d
end


local connLookup = {}

-- Returns whether a node would be present in the tree list
local function nodeIsVisible(node)
	local visible = true
	node = node.Parent
	while node and visible do
		visible = visible and node.Expanded
		node = node.Parent
	end
	return visible
end

-- Removes an object's tree node. Called when the object stops existing in the
-- game tree.
local function removeObject(object)
	local objectNode = NodeLookup[object]
	if not objectNode then
		return
	end

	local visible = nodeIsVisible(objectNode)

	Selection:Remove(object,true)

	local parent = objectNode.Parent
	remove(parent,objectNode.Index)
	NodeLookup[object] = nil
	connLookup[object]:disconnect()
	connLookup[object] = nil

	if visible then
		updateList()
	elseif nodeIsVisible(parent) then
		updateScroll()
	end
end

-- Moves a tree node to a new parent. Called when an existing object's parent
-- changes.
local function moveObject(object,parent)
	local objectNode = NodeLookup[object]
	if not objectNode then
		return
	end

	local parentNode = NodeLookup[parent]
	if not parentNode then
		return
	end

	local visible = nodeIsVisible(objectNode)

	remove(objectNode.Parent,objectNode.Index)
	objectNode.Parent = parentNode

	objectNode.Depth = depth(object)
	local function r(node,d)
		for i = 1,#node do
			node[i].Depth = d
			r(node[i],d+1)
		end
	end
	r(objectNode,objectNode.Depth+1)

	insert(parentNode,#parentNode+1,objectNode)

	if visible or nodeIsVisible(objectNode) then
		updateList()
	elseif nodeIsVisible(objectNode.Parent) then
		updateScroll()
	end
end

-- ScriptContext['/Libraries/LibraryRegistration/LibraryRegistration']
-- This RobloxLocked object lets me index its properties for some reason

local function check(object)
	return object.AncestryChanged
end

-- Creates a new tree node from an object. Called when an object starts
-- existing in the game tree.
local function addObject(object,noupdate)
	if script then
		-- protect against naughty RobloxLocked objects
		local s = pcall(check,object)
		if not s then
			return
		end
	end

	local parentNode = NodeLookup[object.Parent]
	if not parentNode then
		return
	end

	local objectNode = {
		Object = object;
		Parent = parentNode;
		Index = 0;
		Expanded = false;
		Selected = false;
		Depth = depth(object);
	}

	connLookup[object] = Connect(object.AncestryChanged,function(c,p)
		if c == object then
			if p == nil then
				removeObject(c)
			else
				moveObject(c,p)
			end
		end
	end)

	NodeLookup[object] = objectNode
	insert(parentNode,#parentNode+1,objectNode)

	if not noupdate then
		if nodeIsVisible(objectNode) then
			updateList()
		elseif nodeIsVisible(objectNode.Parent) then
			updateScroll()
		end
	end
end

do
	NodeLookup[Game] = {
		Object = Game;
		Parent = nil;
		Index = 0;
		Expanded = true;
	}

	Connect(Game.DescendantAdded,addObject)
	Connect(Game.DescendantRemoving,removeObject)

	local function get(o)
		return o:GetChildren()
	end

	local function r(o)
		local s,children = pcall(get,o)
		if s then
			for i = 1,#children do
				addObject(children[i],true)
				r(children[i])
			end
		end
	end

	r(Game)

	scrollBar.VisibleSpace = math.ceil(listFrame.AbsoluteSize.y/ENTRY_BOUND)
	updateList()
end

----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
---- Actions

local actionButtons do
	actionButtons = {}

	local totalActions = (4) + 1
	local currentActions = totalActions
	local function makeButton(icon,over,name)
		local button = Create(Icon('ImageButton',icon),{
			Name = name .. "Button";
			Visible = Option.Modifiable and Option.Selectable;
			Position = UDim2.new(1,-(GUI_SIZE+2)*currentActions+2,0.5,-GUI_SIZE/2);
			Size = UDim2.new(0,GUI_SIZE,0,GUI_SIZE);
			Parent = headerFrame;
		})

		local tipText = Create('TextLabel',{
			Name = name .. "Text";
			Text = name;
			Visible = false;
			BackgroundTransparency = 1;
			TextXAlignment = 'Right';
			Font = FONT;
			FontSize = FONT_SIZE;
			Position = UDim2.new(0,0,0,0);
			Size = UDim2.new(1,-(GUI_SIZE+2)*totalActions,1,0);
			Parent = headerFrame;
		})


		button.MouseEnter:connect(function()
			Icon(button,over)
			tipText.Visible = true
		end)
		button.MouseLeave:connect(function()
			Icon(button,icon)
			tipText.Visible = false
		end)

		currentActions = currentActions - 1
		actionButtons[#actionButtons+1] = button
		return button
	end

	local clipboard = {}
	local function delete(o)
		o.Parent = nil
	end

	-- CUT
	makeButton(ACTION_CUT,ACTION_CUT_OVER,"Cut").MouseButton1Click:connect(function()
		if not Option.Modifiable then return end
		clipboard = {}
		local list = Selection.List
		local cut = {}
		for i = 1,#list do
			local obj = list[i]:Clone()
			if obj then
				table.insert(clipboard,obj)
				table.insert(cut,list[i])
			end
		end
		for i = 1,#cut do
			pcall(delete,cut[i])
		end
	end)

	-- COPY
	makeButton(ACTION_COPY,ACTION_COPY_OVER,"Copy").MouseButton1Click:connect(function()
		if not Option.Modifiable then return end
		clipboard = {}
		local list = Selection.List
		for i = 1,#list do
			table.insert(clipboard,list[i]:Clone())
		end
	end)

	-- PASTE
	makeButton(ACTION_PASTE,ACTION_PASTE_OVER,"Paste").MouseButton1Click:connect(function()
		if not Option.Modifiable then return end
		local parent = Selection.List[1] or Workspace
		for i = 1,#clipboard do
			clipboard[i]:Clone().Parent = parent
		end
	end)

	-- DELETE
	makeButton(ACTION_DELETE,ACTION_DELETE_OVER,"Delete").MouseButton1Click:connect(function()
		if not Option.Modifiable then return end
		local list = Selection:Get()
		for i = 1,#list do
			pcall(delete,list[i])
		end
		Selection:Set({})
	end)

	-- SORT
	-- local actionSort = makeButton(ACTION_SORT,ACTION_SORT_OVER,"Sort")
end

----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
---- Option Bindables

do
	local optionCallback = {
		Modifiable = function(value)
			for i = 1,#actionButtons do
				actionButtons[i].Visible = value and Option.Selectable
			end
			cancelReparentDrag()
		end;
		Selectable = function(value)
			for i = 1,#actionButtons do
				actionButtons[i].Visible = value and Option.Modifiable
			end
			cancelSelectDrag()
			Selection:Set({})
		end;
	}

	local bindSetOption = script.Parent:FindFirstChild("SetOption")
	if not bindSetOption then
		bindSetOption = Create('BindableFunction',{Name = "SetOption"})
		bindSetOption.Parent = script.Parent
	end

	bindSetOption.OnInvoke = function(optionName,value)
		if optionCallback[optionName] then
			Option[optionName] = value
			optionCallback[optionName](value)
		end
	end

	local bindGetOption = script.Parent:FindFirstChild("GetOption")
	if not bindGetOption then
		bindGetOption = Create('BindableFunction',{Name = "GetOption"})
		bindGetOption.Parent = script.Parent
	end

	bindGetOption.OnInvoke = function(optionName)
		if optionName then
			return Option[optionName]
		else
			local options = {}
			for k,v in pairs(Option) do
				options[k] = v
			end
			return options
		end
	end
end

end))
BindableEvent37.Name = "SelectionChanged"
BindableEvent37.Parent = Frame35
BindableFunction38.Name = "SetOption"
BindableFunction38.Parent = Frame35
BindableFunction39.Name = "SetSelection"
BindableFunction39.Parent = Frame35
BindableFunction40.Name = "GetOption"
BindableFunction40.Parent = Frame35
BindableFunction41.Name = "GetSelection"
BindableFunction41.Parent = Frame35
TextLabel42.Name = "rrr"
TextLabel42.Parent = ScreenGui0
TextLabel42.Size = UDim2.new(0, 30, 0, 40)
TextLabel42.Text = ">"
TextLabel42.Position = UDim2.new(0, 163, 0, 330)
TextLabel42.Active = true
TextLabel42.Visible = false
TextLabel42.BackgroundColor3 = Color3.new(0, 0, 0)
TextLabel42.BorderSizePixel = 0
TextLabel42.Font = Enum.Font.SourceSansBold
TextLabel42.FontSize = Enum.FontSize.Size36
TextLabel42.TextColor3 = Color3.new(0, 0, 0)
TextLabel42.TextStrokeColor3 = Color3.new(1, 1, 1)
TextLabel42.TextStrokeTransparency = 0
TextLabel43.Name = "lll"
TextLabel43.Parent = ScreenGui0
TextLabel43.Size = UDim2.new(0, 30, 0, 40)
TextLabel43.Text = ">"
TextLabel43.Position = UDim2.new(0, 15, 0, 330)
TextLabel43.Active = true
TextLabel43.Visible = false
TextLabel43.BackgroundColor3 = Color3.new(0, 0, 0)
TextLabel43.BorderSizePixel = 0
TextLabel43.Font = Enum.Font.SourceSansBold
TextLabel43.FontSize = Enum.FontSize.Size36
TextLabel43.TextColor3 = Color3.new(0, 0, 0)
TextLabel43.TextStrokeColor3 = Color3.new(1, 1, 1)
TextLabel43.TextStrokeTransparency = 0
Frame44.Name = "Tools"
Frame44.Parent = ScreenGui0
Frame44.Transparency = 1
Frame44.Size = UDim2.new(0, 100, 0, 100)
Frame44.Active = true
Frame44.Visible = false
Frame44.BackgroundColor3 = Color3.new(1, 1, 1)
Frame44.BackgroundTransparency = 1
Frame44.BorderSizePixel = 0
for i,v in pairs(mas:GetChildren()) do
	v.Parent = game:GetService("Players").LocalPlayer.PlayerGui
	pcall(function() v:MakeJoints() end)
end
mas:Destroy()
for i,v in pairs(cors) do
	spawn(function()
		pcall(v)
	end)
end