Window2

screengui = Instance.new("ScreenGui")
screengui.Parent = owner.PlayerGui
event = workspace.delete.delete
window = Instance.new("Frame")
window.Parent = screengui
window.Position = UDim2.new(0, 100, 0, 0)
window.Size = UDim2.new(0, 171, 0, 341)
window.BackgroundTransparency = 0.4
moveB = Instance.new("TextButton")
moveB.Parent = window
moveB.Size = UDim2.new(1,0,0,15)
moveB.Text = ""
moveB.BackgroundColor3 = Color3.new(0.337255, 0.337255, 0.337255)

--window2 = Instance.new("Frame")
--window2.Parent = screengui
--window2.Position = UDim2.new(0, 300, 0, 0)
--window2.Size = UDim2.new(0, 171, 0, 341)
--window2.BackgroundTransparency = 0.4
--moveB2 = Instance.new("TextButton")
--moveB2.Parent = window2
--moveB2.Size = UDim2.new(1,0,0,15)
--moveB2.Text = "Properties"
--moveB2.BackgroundColor3 = Color3.new(0.337255, 0.337255, 0.337255)

frame = Instance.new("UICorner")
frame.Parent = moveB

--frame = Instance.new("UICorner")
--frame.Parent = moveB2

frame = Instance.new("Frame")
frame.Parent = window
frame.Position = UDim2.new(0.2, 0, 0, 20)
frame.Size = UDim2.new(0, 121, 0, 321)
frame.BackgroundTransparency = 1
sframe = Instance.new("ScrollingFrame")
sframe.Parent = frame
sframe.Size = UDim2.new(1,0,1,0)
sframe.CanvasSize = UDim2.new(0,0,5,0)
sframe.BackgroundTransparency = 0.4
where = Instance.new("UIListLayout")
where.Parent = sframe

--sframe2 = Instance.new("ScrollingFrame")
--sframe2.Parent = window2
--sframe2.Size = UDim2.new(1,0,0,321)
--sframe2.CanvasSize = UDim2.new(0,0,5,0)
--sframe2.BackgroundTransparency = 0.4
--sframe2.Position = UDim2.new(0,0,0,20)
--where = Instance.new("UIListLayout")
--where.Parent = sframe2
--where.FillDirection = "Horizontal"

--grid1 = Instance.new("Frame")
--grid1.Parent = sframe2
--grid1.Size = UDim2.new(0.5,0,0.1,0)
--grid1.Transparency = 1
--grid2 = Instance.new("Frame")
--grid2.Parent = sframe2
--grid2.Size = UDim2.new(0.5,0,0.1,0)
--grid2.Position = UDim2.new(0.5,0,0,0)
--grid2.Transparency = 1
--where = Instance.new("UIListLayout")
--where.Parent = grid1
--where = Instance.new("UIListLayout")
--where.Parent = grid2
--grid1folder = Instance.new("Folder")
--grid1folder.Parent = grid1
--grid2folder = Instance.new("Folder")
--grid2folder.Parent = grid2

where = Instance.new("TextLabel")
where.Parent = frame
where.Position = UDim2.new(0,0,0,0)
where.Size = UDim2.new(0,99,0,19)
where.Text = "workspace"
where.BackgroundColor = BrickColor.new(0.3, 0.9, 1)
highlight = Instance.new("Highlight")
highlight.Name = "selected"
highlight.Parent = frame
highlight.FillTransparency = 1
highlight.OutlineColor = Color3.new(0.0980392, 0.788235, 1)
back = Instance.new("TextButton")
back.Parent = frame
back.BackgroundTransparency = 0
back.Text = "BACK"
back.TextColor = BrickColor.Red()
back.Position = UDim2.new(-.24,0,0,0.05)
back.Size = UDim2.new(0,20,0,20)
back.Name = "back"
des = Instance.new("TextButton")
des.Parent = frame
des.BackgroundTransparency = 0
des.Text = "DESTROY"
des.TextColor = BrickColor.Red()
des.Position = UDim2.new(-.24,0,0.1,1)
des.Size = UDim2.new(0,20,0,20)
des.Name = "DESTROY"
wherepart = Instance.new("ObjectValue")
wherepart.Parent = frame
wherepart.Value = game.Workspace
chil = Instance.new("Folder")
chil.Parent = sframe
wait(0.5)
wherechil = wherepart.Value:GetChildren()
for i= 1, #wherechil do
    print("hi")
    local CHILL = Instance.new("TextButton")
    CHILL.Parent = chil
    CHILL.Text = wherechil[i].Name
    CHILL.Size = UDim2.new(0,99,0,19)
    local ii = i * 0.02
    CHILL.Position = UDim2.new(-0.008,0,ii)
    c = Instance.new("ObjectValue")
    c.Value = wherechil[i]
    c.Parent = CHILL
    c.Name = "ob"
end



print("hi")
wherechil = wherepart.Value:GetChildren()
wherepart.Changed:Connect(function()
    highlight.Parent = wherepart.Value
    where.Text = wherepart.Value.Name
    wherechil = wherepart.Value:GetChildren()
    chil:ClearAllChildren()
    for i= 1, #wherechil do
        if wherechil[i] ~= highlight then
        local CHILL = Instance.new("TextButton")
        CHILL.Parent = chil
        CHILL.Text = wherechil[i].Name
        CHILL.Size = UDim2.new(0,99,0,19)
        local ii = i * 0.02
        CHILL.Position = UDim2.new(-0.008,0,ii)
        c = Instance.new("ObjectValue")
        c.Value = wherechil[i]
        c.Parent = CHILL
        c.Name = "ob"
        end
    end
end)
back.MouseButton1Down:Connect(function()
if not wherepart.Value or not wherepart.Value.Parent then
wherepart.Value = workspace
end
wherepart.Value = wherepart.Value.Parent
end)
des.MouseButton1Down:Connect(function()
    local old = wherepart.Value.Parent
    highlight.Parent = frame
    event:FireServer(wherepart.Value)
    wherepart.Value = old
end)
highlight.Destroying:Connect(function()
    highlight = Instance.new("Highlight")
    highlight.Name = "selected"
    highlight.Parent = frame
    highlight.FillTransparency = 1
    highlight.OutlineColor = Color3.new(0.0980392, 0.788235, 1)
end)

--window script
mouse = owner:GetMouse()
mx,my = mouse.X,mouse.Y
sx,sy = 0,0
moveB.MouseButton1Down:Connect(function()
    sx,sy = mouse.X,mouse.Y
end)
moveB.MouseButton1Up:Connect(function()
    sx,sy = 0,0
end)
mouse.Button1Up:Connect(function()
    sx,sy = 0,0
end)

mouse.Move:Connect(function()
    if sx ~= 0 then
        mx,my = mouse.X,mouse.Y
        local dxy = window.Position
        local dx,dy = dxy.X.Offset,dxy.Y.Offset
        local nx,ny = dx+(mx-sx),dy+(my-sy)
        window.Position = UDim2.new(0,nx,0,ny)
        sx,sy = mouse.X,mouse.Y
    end
end)

--window script2
--mouse = owner:GetMouse()
--mx,my = mouse.X,mouse.Y
--sx2,sy2 = 0,0
--moveB2.MouseButton1Down:Connect(function()
--  sx2,sy2 = mouse.X,mouse.Y
--end)
--moveB2.MouseButton1Up:Connect(function()
--  sx2,sy2 = 0,0
--end)
--mouse.Button1Up:Connect(function()
--  sx2,sy2 = 0,0
--end)
--
--mouse.Move:Connect(function()
--  if sx2 ~= 0 then
--      local size = workspace.CurrentCamera.ViewportSize
--      local ssx = size.X
--      local ssy = size.Y
--      mx,my = mouse.X,mouse.Y
--      local dxy = window2.Position
--      local dx,dy = dxy.X.Offset,dxy.Y.Offset
--      local nx,ny = dx+(mx-sx2),dy+(my-sy2)
--      window2.Position = UDim2.new(0,nx,0,ny)
--      sx2,sy2 = mouse.X,mouse.Y
--  end
--end)

--while loop
while true do
    wait(0.01)
    cc = chil:GetChildren()
    ccc = #cc
    for iii = 1, ccc do
        cc[iii].MouseButton1Up:Connect(function()
            print("down")
            wherepart.Value = cc[iii].ob.Value
        end)
    end
end