Vex Explorer V6

Player = owner.Name

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

function rgb(RED,GREEN,BLUE)
    local Count = 1 / 255
    --Red Count
    local red = Count * RED
    --Green Count
    local green = Count * GREEN
    --Blue Count
    local blue = Count * BLUE
    --Give Color3
    local FColor = Color3.new(red,green,blue)
    return FColor
end

local Frame = Instance.new("Frame",ScreenGui)
Frame.Position = UDim2.new(1 - (0.3/2),0,0,0)
Frame.Size = UDim2.new(0.3/2,0,1.5/2,0)
Frame.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
Frame.Active = true
Frame.Selectable = true
Frame.Draggable = true

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

added = 0
addedSize = 0.05 / 7500
function Add(Object,nr)
    added = added + 1

    local OP = Object.Parent
    local ON = Object.Name

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

    TextButton.BackgroundColor3 = rgb(45, 160, 255)
    TextButton.MouseButton1Click:Connect(function()
        if OP:FindFirstChild(ON) then
            Open(Object)
        end
    end)

    if nr then
        local TextButton2 = Instance.new("TextButton",TextButton)
        TextButton2.Text = "Select"
        TextButton2.Position = UDim2.new(1-0.3,0,0,0)
        TextButton2.Size = UDim2.new(0.3,0,1,0)
        TextButton2.BackgroundColor3 = rgb(45, 160, 255)
        TextButton2.MouseButton1Click:Connect(function()
            if OP:FindFirstChild(ON) then
                SelectionC = Object
            end
        end)

        local TextLabel2 = Instance.new("TextLabel",TextButton)
        TextLabel2.Text = Object.ClassName
        TextLabel2.Position = UDim2.new(0,0,0,0)
        TextLabel2.Size = UDim2.new(0.3,0,1,0)
        TextLabel2.BackgroundColor3 = rgb(45, 160, 255)
    end
end

function Open(Object)
    ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
    ScrollingFrame.CanvasSize = UDim2.new(1,0,7500,0)
    SelectionC = nil
    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
    if Object.Parent ~= game then
        Add(Object.Parent,false)
        Add(Workspace,false)
    end
end

local TextLabel = Instance.new("TextLabel",Frame)
TextLabel.Text = "Vex Explorer V6"
TextLabel.Size = UDim2.new(1,0,0.1,0)
TextLabel.BackgroundColor3 = rgb(0, 140, 255)
TextLabel.TextScaled = true

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

local Frame2Button1 = Instance.new("TextButton",Frame2)
Frame2Button1.Text = "X"
Frame2Button1.Position = UDim2.new(0,0,0,0)
Frame2Button1.Size = UDim2.new(1,0,0.5,0)
Frame2Button1.BackgroundColor3 = rgb(255, 0, 0)
Frame2Button1.MouseButton1Click:Connect(function()
    if SelectionC ~= nil then
        local ParentSC = SelectionC.Parent
        SelectionC:Remove()
        Open(ParentSC)
    end
end)

local Frame2Button2 = Instance.new("TextButton",Frame2)
Frame2Button2.Text = "+"
Frame2Button2.Position = UDim2.new(0,0,0.5,0)
Frame2Button2.Size = UDim2.new(1,0,0.5,0)
Frame2Button2.BackgroundColor3 = rgb(0, 255, 0)
Frame2Button2.MouseButton1Click:Connect(function()
    if SelectionC ~= nil then
        local ParentSC = SelectionC.Parent
        local CloneSC = SelectionC:Clone()
        CloneSC.Parent = ParentSC
        Open(ParentSC)
        SelectionC = CloneSC
    end
end)

Open(workspace,false)