Explorer V2

Player = owner.Name

local ScreenGui = Instance.new("ScreenGui",game:GetService("Players")[Player].PlayerGui)
ScreenGui.Name = "Explorer"

local Frame = Instance.new("Frame",ScreenGui)
Frame.Position = UDim2.new(1 - 0.3,0,0,0)
Frame.Size = UDim2.new(0.3,0,1,0)
Frame.BackgroundColor3 = Color3.new(0.5,0.5,0.5)

local ScrollingFrame = Instance.new("Frame",Frame)
ScrollingFrame.Position = UDim2.new(0,0,0.1,0)
ScrollingFrame.Size = UDim2.new(0.9,0,0.9,0)
ScrollingFrame.BackgroundColor3 = Color3.new(1,1,1)

local ScrollBarFrame = Instance.new("Frame",Frame)
ScrollBarFrame.Position = UDim2.new(0.9,0,0.1,0)
ScrollBarFrame.Size = UDim2.new(0.1,0,0.9,0)
ScrollBarFrame.BackgroundColor3 = Color3.new(0.9,0.9,0.9)

local DownButton = Instance.new("TextButton",ScrollBarFrame)
DownButton.Text = "V"
DownButton.Position = UDim2.new(0,0,0.5,0)
DownButton.Size = UDim2.new(1,0,0.5,0)
DownButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
DownButton.MouseButton1Click:Connect(function()
    for i,tb in pairs(ScrollingFrame:GetChildren()) do
        tb.Position = tb.Position - UDim2.new(0,0,0.05,0)
    end
end)

local UpButton = Instance.new("TextButton",ScrollBarFrame)
UpButton.Text = "V"
UpButton.Position = UDim2.new(0,0,0,0)
UpButton.Size = UDim2.new(1,0,0.5,0)
UpButton.Rotation = 180
UpButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
UpButton.MouseButton1Click:Connect(function()
    for i,tb in pairs(ScrollingFrame:GetChildren()) do
        tb.Position = tb.Position + UDim2.new(0,0,0.05,0)
    end
end)

added = 0
function Add(Object,nr)
    local OP = Object.Parent
    local ON = Object.Name

    local TextButton = Instance.new("TextButton",ScrollingFrame)
    TextButton.Text = ON
    TextButton.Position = UDim2.new(0,0,added,0)
    TextButton.Size = UDim2.new(1,0,0.05,0)

    TextButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
    TextButton.MouseButton1Click:Connect(function()
        if OP:FindFirstChild(ON) then
            Open(Object)
        end
    end)

    if nr then
        local TextButton2 = Instance.new("TextButton",TextButton)
        TextButton2.Text = "Remove"
        TextButton2.Position = UDim2.new(1-0.3,0,0,0)
        TextButton2.Size = UDim2.new(0.3,0,1,0)
        TextButton2.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
        TextButton2.MouseButton1Click:Connect(function()
            if OP:FindFirstChild(ON) then
                Object:Remove()
                Open(OP)
            else
                Open(OP)
            end
        end)
    end

    added = added + 0.05
end
function Open(Object)
    added = 0
    for i,v in pairs(ScrollingFrame:GetChildren()) do
        v:Remove()
    end
    for i,v in pairs(Object:GetChildren()) do
            Add(v,true)
    end
    Add(workspace,false)
end

local TextLabel = Instance.new("TextLabel",Frame)
TextLabel.Text = "Explorer V2"
TextLabel.Size = UDim2.new(1,0,0.1,0)
TextLabel.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
TextLabel.TextScaled = true

local Frame2 = Instance.new("Frame",ScreenGui)
Frame2.Position = UDim2.new(1-0.3,0,-0.05,0)
Frame2.Size = UDim2.new(0.3,0,0.05,0)
Frame2.BackgroundColor3 = Color3.new(0,0,0)

local COButton = Instance.new("TextButton",ScreenGui)
COButton.Text = "V"
COButton.Rotation = 90 * 3
COButton.Position = UDim2.new(1 - 0.425,0,1-0.225,0)
COButton.Size = UDim2.new(0.2,0,0.1,0)
COButton.BackgroundColor3 = Color3.new(1,1,1)
COButton.MouseButton1Click:Connect(function()
    if COButton.Rotation == 90 * 3 then
        COButton.Rotation = 90
        Frame.Position = UDim2.new(1,0,0,0)
        COButton.Position = UDim2.new(1 - 0.125,0,1-0.225,0)
    else
        COButton.Rotation = 90 * 3
        Frame.Position = UDim2.new(1 - 0.3,0,0,0)
        COButton.Position = UDim2.new(1 - 0.425,0,1-0.225,0)
    end
end)

Open(workspace,false)