Scap_Explorer

if game.CoreGui:FindFirstChild("Scapters Explorer") then
    game.CoreGui["Scapters Explorer"]:Destroy()
end

local Gui = Instance.new("ScreenGui")
Gui.Name = "Scapters Explorer"
Gui.Parent = game.CoreGui

local Open = false

local Open_Close = Instance.new("TextButton")
Open_Close.TextColor3 = Color3.new(0/255, 0/255, 0/255)
Open_Close.Name = "Open_Close"
Open_Close.Position = UDim2.new(0, 0, 0.6, 0)
Open_Close.Text = "Explorer"
Open_Close.Size = UDim2.new(0, 200, 0, 50)
Open_Close.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
Open_Close.Font = "SciFi"
Open_Close.FontSize = "Size36"
Open_Close.Parent = Gui

local Explorer = Instance.new("ScrollingFrame")
Explorer.Name = "Explorer"
Explorer.BackgroundColor3 = Color3.new(0/255, 170/255, 255/255)
Explorer.Size =UDim2.new(0, 500, 0, 500)
Explorer.Position = UDim2.new(-1, -250, 0.5, -250)
Explorer.ScrollBarThickness = 8
Explorer.CanvasSize = UDim2.new(0, 0, 0, 0)
Explorer.Parent = Gui

local SearchBar = Instance.new("TextBox")
SearchBar.BackgroundColor3 = Color3.new(255/255, 255/255, 255/255)
SearchBar.TextColor3 = Color3.new(0/255, 0/255, 0/255)
SearchBar.Name = "SearchBar"
SearchBar.Position = Explorer.Position-UDim2.new(0, 0, 0, 50)
SearchBar.Text = "Search Here"
SearchBar.Size = UDim2.new(0, 500, 0, 50)
SearchBar.Font = "SciFi"
SearchBar.FontSize = "Size36"
SearchBar.Parent = Gui

local Back = Instance.new("TextButton")
Back.TextColor3 = Color3.new(255/255, 0/255, 0/255)
Back.Name = "Back"
Back.Text = "Back"
Back.Size = UDim2.new(1, 0, 0, 35)
Back.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
Back.Font = "SciFi"
Back.FontSize = "Size24"
Back.Parent = Explorer

local Properties = Instance.new("ScrollingFrame")
Properties.Name = "Prop"
Properties.BackgroundColor3 = Color3.new(0/255, 170/255, 255/255)
Properties.Size =UDim2.new(0, 350, 0, 500)
Properties.Position = UDim2.new(-1, -250, 0.5, -250)
Properties.ScrollBarThickness = 8
Properties.CanvasSize = UDim2.new(0, 0, 0, 0)
Properties.Parent = Gui

local Props = Instance.new("TextButton")
Props.TextColor3 = Color3.new(255/255, 0/255, 0/255)
Props.Name = "Properties"
Props.Text = "Properties"
Props.Size = UDim2.new(1, 0, 0, 35)
Props.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
Props.Font = "SciFi"
Props.FontSize = "Size24"
Props.Parent = Properties

Open_Close.MouseButton1Down:connect(function()
    if Open then
        Open = false
        Explorer:TweenPosition(UDim2.new(-1, -250, 0.5, -250), "Out", "Quart", 0.3, true)
        Properties:TweenPosition(UDim2.new(-1, -250, 0.5, -250), "Out", "Quart", 0.3, true)
        SearchBar:TweenPosition(UDim2.new(-1, -250, 0.5, -250), "Out", "Quart", 0.3, true)
    else
        Open = true
        Explorer:TweenPosition(UDim2.new(0.43, -250, 0.5, -250), "Out", "Quart", 0.3, true)
        Properties:TweenPosition(UDim2.new(0.691, -250, 0.5, -250), "Out", "Quart", 0.3, true)
        SearchBar:TweenPosition(UDim2.new(0.5, -250, 0.5, -300), "Out", "Quart", 0.3, true)
    end
end)

TextProperties = {"Parent", "ZOffset", "CharacterAppearance", "PrimaryPart", "SkyboxBk", "SkyboxDn", "WaterTransparency", "WaterWaveSpeed", "HipHeight","ChatHistory","ConversationDistance", "BlastPressure", "BlastRadius", "InitialPrompt", "CPU", "OSVer", "OsPlatformId", "CpuSpeed", "D", "P", "maxForce", "InstanceCount", "PlaceId", "workspace", "GarbageCollectionFrequency", "BinType", "Grip", "ActivationState", "GarbageCollectionLimit", "ShadowColor", "TargetPoint", "WalkDirection", "WalkToPart", "Image",  "Font", "ClearTextOnFocus", "TextTransparency", "WalkToPoint", "ColorShift_Bottom", "ColorShift_Top","MaxSpeed","CartoonFactor","Target","MaxThrust","MaxTorque","TargetOffset","ThrustD", "ThrustP", "TurnD", "TurnP", "profileName", "Resolution", "Shadow", "Bevels", "BatchSize", "AASamples", "Genre", "CreatorType", "CreatorId", "JobId", "SkyboxUp", "SkyboxFt", "SkyboxLf", "StarCount", "ReporterType", "Outfit1", "Outfit2", "Pants", "PlayCount", "Shirt",  "MinReportInterval", "VelocitySpread","Rate", "DataSendRate", "DataGCRate", "ClassName","NameDisplayerDistance", "MaxVelocity","PantsTemplate","ShirtTemplate","SoundId","Pitch","IsPlaying","IsPaused","Looped","PlayOnRemove","StudsPerTileU","StudsPerTileV", "Name", "DataCost", "Value", "MaxPlayers" , "PersonalServerRank" ,"NumPlayers" , "Text", "Reflectance","FogEnd", "FogStart","WaterTransparency", "Transparency", "Heat", "TeamName", "WalkSpeed", "Health", "MaxHealth", "Size", "Position", "AccountAge", "TeamColor", "userId", "Brightness", "Ambient", "OsPlatform", "SimulationRadius", "ChatMode", "AccountAgeReplicate", "Character", "Steer", "Style","NetworkOwnerV3", "CanCollide", "CFrame", "TimeOfDay", "FieldOfView", "CameraType", "LinkedSource", "MachineAddress", "Port"}
BoolProperties = {"BoolValue", "Archivable", "Anchored", "AllowInsertFreeModels","SuperSafeChatReplicate", "Player", "HangDetection", "FullScriptCode", "DataModelJobs", "DeviceLost", "SSAO", "SoundEnabled", "SoftwareSound", "TextFits", "TextWrap", "Draggable",  "BubbleChat" , "AutoRuns", "Guest", "LocalSaveEnabled", "PlatformStand", "AutoRotate", "CelestialBodiesShown","HasBuildTools" , "ClassicChat" , "DevEnableMouseLock" ,"Netural", "CanCollide", "Disabled", "Outlines" ,"Jump", "Sit", "Visible", "IsSmooth" , "Enabled", "Locked", "FilteringEnabled", "StreamingEnabled", "GlobalShadows", "RobloxLocked", "ScriptsDisabled"}
BrickColorProperties = {"BrickColor", "Color", "TeamColor", "AllowSweep", "WaterColor", "ParallelPhysics", "Is30FpsThrottleEnabled", "HeadsUpDisplay",  "Texture", "WaterColor", "SkinColor", "SparkleColor", "FogColor", "HeadColor", "LeftArmColor", "RightArmColor", "TorsoColor", "RightLegColor", "LeftLegColor","ShadowColor", "Ambient", "SecondaryColor"}

local Current = game

function CheckProperty(Object, Property)
    local Success = pcall(function()
        if Object[Property] then
            return
        end
    end)
    return Success
end

function CreateProperties(Parent)
    for _,p in pairs(Properties:GetChildren()) do
        if p.Name ~= "Properties" then
            p:Destroy()
        end
    end

    local PrevProp = Properties.Properties

    for _,v in pairs(TextProperties) do

        local Checker = CheckProperty(Parent, v)

        if Checker then
            local List = Instance.new("TextButton")
            List.TextColor3 = Color3.new(0/255, 0/255, 0/255)
            List.Name = tostring(v)
            List.Text = tostring(v)
            List.Size = UDim2.new(0.5, 0, 0, 35)
            List.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
            List.Font = "SciFi"
            List.FontSize = "Size24"
            List.Position = PrevProp.Position+UDim2.new(0, 0, 0, 36)
            List.Parent = Properties
            local List2 = Instance.new("TextBox")
            List2.TextColor3 = Color3.new(0/255, 0/255, 0/255)
            List2.Name = tostring(v).."Box"
            List2.Text = tostring(Parent[v])
            List2.BackgroundColor3 = Color3.new(255/255, 255/255, 255/255)
            List2.Size = UDim2.new(0.5, 0, 0, 35)
            List2.Font = "SciFi"
            List2.FontSize = "Size24"
            List2.Position = PrevProp.Position+UDim2.new(0.5, 0, 0, 36)
            List2.ClearTextOnFocus = false
            List2.Parent = Properties
            List2.FocusLost:connect(function()
                Parent[v] = List2.Text
            end)
            PrevProp = List
            Properties.CanvasSize = UDim2.new(0, 0, 0, List2.Position.Y.Offset+45)
        end
    end

    for _,c in pairs(BoolProperties) do
        local Checker = CheckProperty(Parent, c)
        if Checker then
            local List = Instance.new("TextButton")
            List.TextColor3 = Color3.new(0/255, 0/255, 0/255)
            List.Name = tostring(c)
            List.Text = tostring(c)
            List.Size = UDim2.new(0.5, 0, 0, 35)
            List.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
            List.Font = "SciFi"
            List.FontSize = "Size24"
            List.Position = PrevProp.Position+UDim2.new(0, 0, 0, 36)
            List.Parent = Properties
            local List2 = Instance.new("TextButton")
            List2.TextColor3 = Color3.new(0/255, 0/255, 0/255)
            List2.Name = tostring(c).."Box"
            List2.Text = tostring(Parent[c])
            List2.BackgroundColor3 = Color3.new(255/255, 255/255, 255/255)
            List2.Size = UDim2.new(0.5, 0, 0, 35)
            List2.Font = "SciFi"
            List2.FontSize = "Size24"
            List2.Position = PrevProp.Position+UDim2.new(0.5, 0, 0, 36)
            List2.Parent = Properties
            List2.MouseButton1Down:connect(function()
                Parent[c] = not Parent[c]
                List2.Text = tostring(Parent[c])
            end)
            PrevProp = List
            Properties.CanvasSize = UDim2.new(0, 0, 0, List2.Position.Y.Offset+45)
        end
    end

    for _,q in pairs(BrickColorProperties) do
        local Checker = CheckProperty(Parent, q)
        if Checker then
            local List = Instance.new("TextButton")
            List.TextColor3 = Color3.new(0/255, 0/255, 0/255)
            List.Name = tostring(q)
            List.Text = tostring(q)
            List.Size = UDim2.new(0.5, 0, 0, 35)
            List.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
            List.Font = "SciFi"
            List.FontSize = "Size24"
            List.Position = PrevProp.Position+UDim2.new(0, 0, 0, 36)
            List.Parent = Properties
            local List2 = Instance.new("TextBox")
            List2.TextColor3 = Color3.new(0/255, 0/255, 0/255)
            List2.Name = tostring(q).."Box"
            List2.Text = tostring(Parent[q])
            List2.BackgroundColor3 = Color3.new(255/255, 255/255, 255/255)
            List2.Size = UDim2.new(0.5, 0, 0, 35)
            List2.Font = "SciFi"
            List2.FontSize = "Size24"
            List2.Position = PrevProp.Position+UDim2.new(0.5, 0, 0, 36)
            List2.ClearTextOnFocus = false
            List2.Parent = Properties
            List2.FocusLost:connect(function()
                Parent[q] = List2.Text
            end)
            PrevProp = List
            Properties.CanvasSize = UDim2.new(0, 0, 0, List2.Position.Y.Offset+45)
        end
    end
end

function CheckExistance(Object)
    local Exists = pcall(function()
            if Object.Name then
                return
            end
        end)
        return Exists
end

function CreateSearchList(Parent)
    CreateProperties(Parent)
    Explorer.CanvasSize = UDim2.new(0, 0, 0, 0)
    for _,c in pairs(Explorer:GetChildren()) do
        if c.Name ~= "Back" then
            c:Destroy()
        end
    end
    local PrevButton = Explorer.Back
    for _,v in pairs(Parent:GetChildren()) do
        local Exists = CheckExistance(v)
        if Exists then
            if string.find(string.lower(v.Name), string.lower(SearchBar.Text)) or string.find(string.lower(v.ClassName), string.lower(SearchBar.Text)) or string.find(v.ClassName, "Value") and string.find(string.lower(v.Value), string.lower(SearchBar.Text)) then
                local List = Instance.new("TextButton")
                List.TextColor3 = Color3.new(0/255, 0/255, 0/255)
                pcall(function()
                    if v:IsA("ModuleScript") or v:IsA("LocalScript") or v:IsA("RemoteEvent") or v:IsA("RemoteFunction") or string.find(v.ClassName, "Value") then
                        List.TextColor3 = Color3.new(255/255, 0/255, 0/255)
                    end
                end)
                List.Name = tostring(v)
                List.Text = tostring(v).." ("..v.ClassName..")"
                List.Size = UDim2.new(1, 0, 0, 35)
                List.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
                List.Font = "SciFi"
                List.FontSize = "Size24"
                List.Position = PrevButton.Position+UDim2.new(0, 0, 0, 36)
                List.Parent = Explorer
                PrevButton = List
                Explorer.CanvasSize = UDim2.new(0, 0, 0, List.Position.Y.Offset+45)
                List.MouseButton1Down:connect(function()
                    Current = Parent[List.Name]
                    CreateList(Current)
                end)
            end
        end
    end
    Current.ChildAdded:connect(function(v)
        if Current:FindFirstChild(tostring(v)) then
            local List = Instance.new("TextButton")
            List.TextColor3 = Color3.new(0/255, 0/255, 0/255)
            pcall(function()
                if v:IsA("ModuleScript") or v:IsA("LocalScript") or v:IsA("RemoteEvent") or v:IsA("RemoteFunction") or string.find(v.ClassName, "Value") then
                    List.TextColor3 = Color3.new(255/255, 0/255, 0/255)
                end
            end)
            List.Name = tostring(v)
            List.Text = tostring(v).." ("..v.ClassName..")"
            List.Size = UDim2.new(1, 0, 0, 35)
            List.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
            List.Font = "SciFi"
            List.FontSize = "Size24"
            List.Position = PrevButton.Position+UDim2.new(0, 0, 0, 36)
            List.Parent = Explorer
            PrevButton = List
            Explorer.CanvasSize = UDim2.new(0, 0, 0, List.Position.Y.Offset+45)
            List.MouseButton1Down:connect(function()
                Current = Parent[List.Text]
                CreateList(Current)
            end)
        end
    end)
end

function CreateList(Parent)
    CreateProperties(Parent)
    Explorer.CanvasSize = UDim2.new(0, 0, 0, 0)
    for _,c in pairs(Explorer:GetChildren()) do
        if c.Name ~= "Back" then
            c:Destroy()
        end
    end
    local PrevButton = Explorer.Back
    for _,v in pairs(Parent:GetChildren()) do
        local Exists = CheckExistance(v)
        if Exists then
            local List = Instance.new("TextButton")
            List.TextColor3 = Color3.new(0/255, 0/255, 0/255)
            pcall(function()
                if v:IsA("ModuleScript") or v:IsA("LocalScript") or v:IsA("RemoteEvent") or v:IsA("RemoteFunction") or string.find(v.ClassName, "Value") then
                    List.TextColor3 = Color3.new(255/255, 0/255, 0/255)
                end
            end)
            List.Name = tostring(v)
            List.Text = tostring(v).." ("..v.ClassName..")"
            List.Size = UDim2.new(1, 0, 0, 35)
            List.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
            List.Font = "SciFi"
            List.FontSize = "Size24"
            List.Position = PrevButton.Position+UDim2.new(0, 0, 0, 36)
            List.Parent = Explorer
            PrevButton = List
            Explorer.CanvasSize = UDim2.new(0, 0, 0, List.Position.Y.Offset+45)
            List.MouseButton1Down:connect(function()
                Current = Parent[List.Name]
                CreateList(Current)
            end)
        end
    end
    Current.ChildAdded:connect(function(v)
        if Current:FindFirstChild(tostring(v)) then
            local List = Instance.new("TextButton")
            List.TextColor3 = Color3.new(0/255, 0/255, 0/255)
            pcall(function()
                if v:IsA("ModuleScript") or v:IsA("LocalScript") or v:IsA("RemoteEvent") or v:IsA("RemoteFunction") or string.find(v.ClassName, "Value") then
                    List.TextColor3 = Color3.new(255/255, 0/255, 0/255)
                end
            end)
            List.Name = tostring(v)
            List.Text = tostring(v).." ("..v.ClassName..")"
            List.Size = UDim2.new(1, 0, 0, 35)
            List.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
            List.Font = "SciFi"
            List.FontSize = "Size24"
            List.Position = PrevButton.Position+UDim2.new(0, 0, 0, 36)
            List.Parent = Explorer
            PrevButton = List
            Explorer.CanvasSize = UDim2.new(0, 0, 0, List.Position.Y.Offset+45)
            List.MouseButton1Down:connect(function()
                Current = Parent[List.Text]
                CreateList(Current)
            end)
        end
    end)
end

SearchBar.FocusLost:connect(function()
    CreateSearchList(Current)
end)

Explorer.Back.MouseButton1Down:connect(function()
    if Current.Parent ~= nil then
        Current = Current.Parent
        CreateList(Current)
    end
end)

CreateList(Current)