backgroundtrans
work.TextColor3 = fontcolor
work.BorderColor3 = bordercolor
work.BackgroundColor3 = backgroundcolor
work.Text = "Workspace"
work.MouseButton1Click:connect(function()
	current = Workspace
	Clear()
	GetList()
end)
work.MouseButton2Up:connect(function(x,y)
	local pos = UDim2.new(0,x,0,y)
	CreatePasteMenu(pos, Workspace)
end)

local light = Instance.new("TextButton", sg)
light.Position = UDim2.new(0.06,0,.2,0)
light.Size = UDim2.new(.05,0,.05,0)
light.BackgroundTransparency = backgroundtrans
light.TextColor3 = fontcolor
light.BorderColor3 = bordercolor
light.BackgroundColor3 = backgroundcolor
light.Text = "Lighting"
light.MouseButton1Click:connect(function()
	current = game.Lighting
	Clear()
	GetList()
end)
light.MouseButton2Up:connect(function(x,y)
	local pos = UDim2.new(0,x,0,y)
	CreatePasteMenu(pos, game.Lighting)
end)

local players = Instance.new("TextButton", sg)
players.Position = UDim2.new(0.12,0,.2,0)
players.Size = UDim2.new(.05,0,.05,0)
players.BackgroundTransparency = backgroundtrans
players.TextColor3 = fontcolor
players.BorderColor3 = bordercolor
players.BackgroundColor3 = backgroundcolor
players.Text = "Players"
players.MouseButton1Click:connect(function()
	current = game.Players
	Clear()
	GetList()
end)
players.MouseButton2Up:connect(function(x,y)
	local pos = UDim2.new(0,x,0,y)
	CreatePasteMenu(pos, game.Players)
end)

local starterp = Instance.new("TextButton", sg)
starterp.Position = UDim2.new(0.18,0,.2,0)
starterp.Size = UDim2.new(.05,0,.05,0)
starterp.BackgroundTransparency = backgroundtrans
starterp.TextColor3 = fontcolor
starterp.BorderColor3 = bordercolor
starterp.BackgroundColor3 = backgroundcolor
starterp.Text = "StarterPack"
starterp.MouseButton1Click:connect(function()
	current = game.StarterPack
	Clear()
	GetList()
end)
starterp.MouseButton2Up:connect(function(x,y)
	local pos = UDim2.new(0,x,0,y)
	CreatePasteMenu(pos, game.StarterPack)
end)

local starterg = Instance.new("TextButton", sg)
starterg.Position = UDim2.new(0.24,0,.2,0)
starterg.Size = UDim2.new(.05,0,.05,0)
starterg.BackgroundTransparency = backgroundtrans
starterg.TextColor3 = fontcolor
starterg.BorderColor3 = bordercolor
starterg.BackgroundColor3 = backgroundcolor
starterg.Text = "StarterGui"
starterg.MouseButton1Click:connect(function()
	current = game.StarterGui
	Clear()
	GetList()
end)
starterg.MouseButton2Up:connect(function(x,y)
	local pos = UDim2.new(0,x,0,y)
	CreatePasteMenu(pos, game.StarterGui)
end)

function CreateButtons(object, otr)
	local tb = Instance.new("TextButton", fr)
	tb.Size = UDim2.new(.9,0,.05,0)
	tb.Text = object.Name
	tb.Position = UDim2.new(0,0,cp + .05,0)
	tb.BackgroundTransparency = otr or backgroundtrans
	tb.TextColor3 = fontcolor
	tb.BorderColor3 = bordercolor
	tb.BackgroundColor3 = backgroundcolor
	tb.TextTransparency = otr or 0
	cp = cp + .05
	local ov = Instance.new("ObjectValue", tb)
	ov.Value = object
	local x = Instance.new("TextButton", tb)
	x.BackgroundTransparency = otr or backgroundtrans
	x.TextColor3 = fontcolor
	x.BorderColor3 = bordercolor
	x.BackgroundColor3 = backgroundcolor
	x.TextTransparency = otr or 0
	x.Size = UDim2.new(.1,0,1,0)
	x.Position = UDim2.new(1,0,0,0)
	x.FontSize = "Size12"
	x.Text = "+"
	tb.MouseButton1Click:connect(function()-- properties window open
		CreatePropertiesWindow(ov.Value)
	end)
	tb.MouseButton2Up:connect(function(x,y)
		CreateDropDownMenu(UDim2.new(0,x,0,y), ov.Value)
	end)
	x.MouseButton1Click:connect(function()
		current = ov.Value
		Clear()
		GetList()
	end)
end

function CreatePropertiesWindow(obj)
	if not obj then return end
	pcall(function() sg.P:Destroy() end)
	local push = 0
	local f = Instance.new("Frame", sg)
	f.Name = "P"
	f.Style = "RobloxRound"
	f.Size = UDim2.new(.4,0,.7,0)
	f.Position = UDim2.new(.6,0,.15,0)
	if pcall(function() _ = obj["Name"] end) then
		local pN = Instance.new("TextLabel", f)
		pN.Size = UDim2.new(.5,0,.05,0)
		pN.Position = UDim2.new(0,0, push,0)
		pN.Text = "Name"
		pN.BackgroundColor3 = backgroundcolor
		pN.BorderColor3 = bordercolor
		pN.TextColor3 = bordercolor
		pN.FontSize = "Size10"
			local pV = Instance.new("TextBox", f)
			pV.ClearTextOnFocus = false
			pV.Size = UDim2.new(.5,0,.05,0)
			pV.Position = UDim2.new(.5,0,push,0)
			push = push + .05
			pV.Text = obj.Name
			pV.BackgroundColor3 = backgroundcolor
			pV.BorderColor3 = bordercolor
			pV.TextColor3 = fontcolor
			pV.FontSize = "Size10"
			pV.Changed:connect(function()
				pcall(function()
					obj.Name = pV.Text
				end)
			end)
	end
	if pcall(function() _ = obj["ClassName"] end) then
		local pN = Instance.new("TextLabel", f)
		pN.Size = UDim2.new(.5,0,.05,0)
		pN.Position = UDim2.new(0,0, push,0)
		pN.Text = "ClassName"
		pN.BackgroundColor3 = backgroundcolor
		pN.BorderColor3 = bordercolor
		pN.TextColor3 = bordercolor
		pN.FontSize = "Size10"
			local pV = Instance.new("TextLabel", f)
			pV.Size = UDim2.new(.5,0,.05,0)
			pV.Position = UDim2.new(.5,0,push,0)
			push = push + .05
			pV.Text = obj.ClassName
			pV.BackgroundColor3 = backgroundcolor
			pV.BorderColor3 = bordercolor
			pV.TextColor3 = bordercolor
			pV.FontSize = "Size10"
	end
	if pcall(function() _ = obj["BrickColor"] end) then
		local pN = Instance.new("TextLabel", f)
		pN.Size = UDim2.new(.5,0,.05,0)
		pN.Position = UDim2.new(0,0, push,0)
		pN.Text = "BrickColor"
		pN.BackgroundColor3 = backgroundcolor
		pN.BorderColor3 = bordercolor
		pN.TextColor3 = bordercolor
		pN.FontSize = "Size10"
			local pV = Instance.new("TextBox", f)
			pV.Size = UDim2.new(.5,0,.05,0)
			pV.Position = UDim2.new(.5,0,push,0)
			push = push + .05
			pV.Text = tostring(obj.BrickColor)
			pV.BackgroundColor3 = backgroundcolor
			pV.BorderColor3 = bordercolor
			pV.TextColor3 = fontcolor
			pV.FontSize = "Size10"
			pV.Changed:connect(function()
				pcall(function()
					obj.BrickColor = BrickColor.new(pV.Text)
				end)
			end)
	end
	if pcall(function() _ = obj["Text"] end) then
		local pN = Instance.new("TextLabel", f)
		pN.Size = UDim2.new(.5,0,.05,0)
		pN.Position = UDim2.new(0,0, push,0)
		pN.Text = "Text"
		pN.BackgroundColor3 = backgroundcolor
		pN.BorderColor3 = bordercolor
		pN.TextColor3 = bordercolor
		pN.FontSize = "Size10"
			local pV = Instance.new("TextBox", f)
			pV.Size = UDim2.new(.5,0,.05,0)
			pV.Position = UDim2.new(.5,0,push,0)
			push = push + .05
			pV.Text = obj.Text
			pV.BackgroundColor3 = backgroundcolor
			pV.BorderColor3 = bordercolor
			pV.TextColor3 = fontcolor
			pV.FontSize = "Size10"
			pV.Changed:connect(function()
				pcall(function()
					obj.Text = pV.Text
				end)
			end)
	end
	if pcall(function() _ = obj["Value"] end) and (obj.ClassName == "StringValue" or obj.ClassName == "IntValue" or obj.ClassName == "NumberValue") then
		local pN = Instance.new("TextLabel", f)
		pN.Size = UDim2.new(.5,0,.05,0)
		pN.Position = UDim2.new(0,0, push,0)
		pN.Text = "Value"
		pN.BackgroundColor3 = backgroundcolor
		pN.BorderColor3 = bordercolor
		pN.TextColor3 = bordercolor
		pN.FontSize = "Size10"
			local pV = Instance.new("TextBox", f)
			pV.Size = UDim2.new(.5,0,.05,0)
			pV.Position = UDim2.new(.5,0,push,0)
			push = push + .05
			pV.Text = obj.Value
			pV.BackgroundColor3 = backgroundcolor
			pV.BorderColor3 = bordercolor
			pV.TextColor3 = fontcolor
			pV.FontSize = "Size10"
			pV.Changed:connect(function()
				pcall(function()
					if type(obj.Value) == "number" then
						obj.Value = tonumber(pV.Text) or 0
					else
						obj.Value = pV.Text
					end
				end)
			end)
	end
end

function CreateDropDownMenu(pos, obj)
	local f = Instance.new("Frame", sg)
	f.BackgroundColor3 = backgroundcolor
	f.BorderColor3 = bordercolor
	f.Size = UDim2.new(.1,0,.2,0)
	f.BackgroundTransparency = .3
	f.Position = pos
		local d = Instance.new("TextButton", f)
		d.BackgroundTransparency = 1
		d.Text = "Delete"
		d.FontSize = "Size10"
		d.TextColor3 = fontcolor
		d.Size = UDim2.new(1,0,.15,0)
		d.MouseButton1Click:connect(function()
			pcall(function()
				obj:Destroy()
			end)
			Clear()
			GetList()
			f:Destroy()
		end)
		local c = Instance.new("TextButton", f)
		c.BackgroundTransparency = 1
		c.Text = "Copy"
		c.FontSize = "Size10"
		c.TextColor3 = fontcolor
		c.Size = UDim2.new(1,0,.15,0)
		c.Position = UDim2.new(0,0,.15,0)
		c.MouseButton1Click:connect(function()
			pcall(function()
				copy = obj:Clone()
			end)
			f:Destroy()
		end)
		local p = Instance.new("TextButton", f)
		p.BackgroundTransparency = 1
		p.Text = "Paste into"
		p.FontSize = "Size10"
		p.TextColor3 = fontcolor
		p.Size = UDim2.new(1,0,.15,0)
		p.Position = UDim2.new(0,0,.3,0)
		p.MouseButton1Click:connect(function()
			pcall(function()
				copy.Parent = obj
			end)
			f:Destroy()
		end)
		local x = Instance.new("TextButton", f)
		x.BackgroundTransparency = 1
		x.Text = "Close"
		x.FontSize = "Size10"
		x.TextColor3 = fontcolor
		x.Size = UDim2.new(1,0,.15,0)
		x.Position = UDim2.new(0,0,.45,0)
		x.MouseButton1Click:connect(function()
			f:Destroy()
		end)
end

function CreatePasteMenu(pos, obj)
	local f = Instance.new("Frame", sg)
	f.BackgroundColor3 = backgroundcolor
	f.BorderColor3 = bordercolor
	f.Size = UDim2.new(.1,0,.2,0)
	f.BackgroundTransparency = .3
	f.Position = pos
		local p = Instance.new("TextButton", f)
		p.BackgroundTransparency = 1
		p.Text = "Paste into"
		p.FontSize = "Size10"
		p.TextColor3 = fontcolor
		p.Size = UDim2.new(1,0,.15,0)
		p.Position = UDim2.new(0,0,0,0)
		p.MouseButton1Click:connect(function()
			pcall(function()
				copy.Parent = obj
			end)
			f:Destroy()
		end)
		local x = Instance.new("TextButton", f)
		x.BackgroundTransparency = 1
		x.Text = "Close"
		x.FontSize = "Size10"
		x.TextColor3 = fontcolor
		x.Size = UDim2.new(1,0,.15,0)
		x.Position = UDim2.new(0,0,.45,0)
		x.MouseButton1Click:connect(function()
			f:Destroy()
		end)
end

function Clear()
	for i,v in pairs(fr:GetChildren()) do
		v:Destroy()
		cp = 0
	end
end

function GetList()
	local max = 100
	local it = 0
	for i,v in pairs(current:GetChildren()) do
		if cp < .9 then
			CreateButtons(v)
		else
			CreateButtons(v, 1)
		end
		it = it + 1
		if it == max then break end
	end
end

GetList()


--mediafire