Objects3D = {"Part", "TrussPart", "WedgePart", "Seat", "VehicleSeat"}

function ResetList()
	if script.Parent.Parent.SelectedObject.Value == nil then
		script.Parent.Parent.SelectedObject.Value = game
	end
	if script.Parent.Parent.SelectedObject.Value.Name == "Explorer/PropertiesGui" and script.Parent.Parent.SelectedObject.Value.className == "ScreenGui" then
		if script.Parent.Parent.SelectedObject.Value.Parent.className == "PlayerGui" or script.Parent.Parent.SelectedObject.Value.Parent == game.StarterGui then
			script.Parent.Parent.SelectedObject.Value = script.Parent.Parent.SelectedObject.Value.Parent
		end
	end
	local list = script.Parent:children()
	for i = 1, #list do
		local Val = list[i]:findFirstChild("Value")
		if Val ~= nil then
			if Val.Value == "Deleteable" then
				list[i]:remove()
			end
		end
	end
	if script.Parent.Show.Value == true then
		Selectable = nil
		for i = 1, #Objects3D do
			if script.Parent.Parent.SelectedObject.Value.className == Objects3D[i] then
				Selectable = script.Parent.Parent.SelectedObject.Value
			end
		end
		script.Parent.SelectionBox.Adornee = Selectable
		script.Parent.SelectionPartLasso.Part = Selectable
		script.Parent.SelectionPartLasso.Humanoid = script.Parent.Parent.Parent.Parent.Character:findFirstChild("Humanoid") or script.Parent.Parent.Parent.Parent.Character:findFirstChild("Zombie")
		local list2 = script.Parent.Parent.SelectedObject.Value:children()
		local new = Instance.new("TextButton")
		local new2 = Instance.new("StringValue")
		local new7 = Instance.new("ObjectValue")
		local new8 = script.ClickSelect:clone()
		local Num = #list2
		local Num2 = 100
		local Num3 = 1
		new.Parent = script.Parent
		new2.Parent = new
		new7.Parent = new
		new8.Parent = new
		new7.Name = "Object"
		new7.Value = script.Parent.Parent.SelectedObject.Value.Parent
		new.Text = script.Parent.Parent.SelectedObject.Value.Name
		new2.Value = "Deleteable"
		new.TextXAlignment = Enum.TextXAlignment.Left
		new.Position = UDim2.new(0,20,0,30)
		new.Size = UDim2.new(0,#script.Parent.Parent.SelectedObject.Value.Name*6,0,15)
		new.BackgroundTransparency = 1
		new.BorderSizePixel = 0
		if (#script.Parent.Parent.SelectedObject.Value.Name*6)+20 > Num2 then
			Num2 = (#script.Parent.Parent.SelectedObject.Value.Name*6)+20
		end
		for i = 1, Num do
			if list2[i] ~= nil then
				if script.Parent.Parent.SelectedObject.Value == game then
					if list2[i] == game.Workspace or list2[i] == game.Players or list2[i] == game.Lighting or list2[i] == game.StarterGui or list2[i] == game.StarterPack or list2[i] == game.Debris or list2[i] == game.SoundService then
						local new3 = Instance.new("TextButton")
						local new4 = Instance.new("StringValue")
						local new5 = Instance.new("ObjectValue")
						local new6 = script.ClickSelect:clone()
						new3.Parent = script.Parent
						new4.Parent = new3
						new5.Parent = new3
						new6.Parent = new3
						new3.Text = list2[i].Name
						new4.Value = "Deleteable"
						new5.Value = list2[i]
						new3.TextXAlignment = Enum.TextXAlignment.Left
						new3.Position = UDim2.new(0,40,0,30+(Num3*15))
						Num = Num3
						Num3 = Num3+1
						new3.Size = UDim2.new(0,#list2[i].Name*6,0,15)
						new3.BackgroundTransparency = 1
						new3.BorderSizePixel = 0
						new5.Name = "Object"
						if (#list2[i].Name*6)+40 > Num2 then
							Num2 = (#list2[i].Name*6)+40
						end
					end
				else
				local new3 = Instance.new("TextButton")
				local new4 = Instance.new("StringValue")
				local new5 = Instance.new("ObjectValue")
				local new6 = script.ClickSelect:clone()
				new3.Parent = script.Parent
				new4.Parent = new3
				new5.Parent = new3
				new6.Parent = new3
				new3.Text = list2[i].Name
				new4.Value = "Deleteable"
				new5.Value = list2[i]
				new3.TextXAlignment = Enum.TextXAlignment.Left
				new3.Position = UDim2.new(0,40,0,30+(i*15))
				new3.Size = UDim2.new(0,#list2[i].Name*6,0,15)
				new3.BackgroundTransparency = 1
				new3.BorderSizePixel = 0
				new5.Name = "Object"
					if (#list2[i].Name*6)+40 > Num2 then
						Num2 = (#list2[i].Name*6)+40
					end
				end
			end
		end
		script.Parent.Size = UDim2.new(0,Num2,0,50+(Num*15))
	end
end

script.Parent.Parent.SelectedObject.Changed:connect(ResetList)
script.Parent.Show.Changed:connect(ResetList)