TextProperties = {"ClassName", "Name", "Value", "Text", "Reflectance", "Transparency", "Heat", "TeamName", "WalkSpeed", "Health", "MaxHealth", "Size", "Position", "AccountAge", "RobloxLocked", "TeamColor", "userId", "Brightness", "Ambient", "TimeOfDay", "FieldOfView", "CameraType", "LinkedSource"}
BoolProperties = {"Anchored", "CanCollide", "Disabled", "Jump", "Sit", "Visible", "Enabled", "Locked", "FilteringEnabled", "StreamingEnabled", "GlobalShadows"}
BrickColorProperties = {"BrickColor", "Color", "TeamColor", "Texture", "Value"}
s = Instance.new("ScreenGui", game.CoreGui)
pgr = Instance.new("TextButton")
pgr.Parent = s
pgr.Size = UDim2.new(0,100,0,40)
pgr.Position = UDim2.new(0,30,0,440)
pgr.Text="Explorer"
pgr.BackgroundTransparency = 0.3
pgr.TextColor = BrickColor.new("White")
pgr.BackgroundColor = BrickColor.new("Really Black")
pgr.BorderColor = BrickColor.new("Black")
pgr.Font = "ArialBold"
pgr.FontSize = "Size14"
pgr.TextStrokeColor3 = Color3.new(0/0,0/0,0/0)
pgr.TextStrokeTransparency = 0.3
pgr.BorderSizePixel = 1
pgr.BorderColor = BrickColor.new("White")

if game.CoreGui:findFirstChild("Explorer") then 
   game.CoreGui:findFirstChild("Explorer"):Remove() 
end

local Cloned
local Deleted
local DeleteParent
local Player
local Search
local ScriptSearch
local Gui
local Cloned = nil
local Deleted = nil
local DeleteParent = nil
local Current = 0
local CurrentOption = 0

function Clear()
   if Gui then 
       Gui:Remove() 
   end
   Current = 0
   CurrentOption = 0
end

function AddButton(N, Function, Color, Copy)
   if not N then 
       error("RenderButton - No Name Specified")
   end
   if not Function then 
       error("RenderButton - No Function Specified") 
   end
   if not Color then 
       Color = Color3.new(1, 1, 1) 
   end
   if Copy == nil then 
       Copy = true 
   end
   P = Instance.new("TextButton")
   if Copy then
       P.Size = UDim2.new(0, 110, 0, 20)
   else
       P.Size = UDim2.new(0, 130, 0, 20)
   end
   P.Text = N.Name
   P.Name = N.Name
   P.Parent = Gui
   P.BackgroundColor3 = Color
   P.TextColor3 = Color3.new(0, 0, 0)
   P.BackgroundTransparency = 0.5
   P.Position = UDim2.new(0, ((math.modf(Current/30))*150)+300, 0, 50+(20*((Current%30)-1)))
   P.MouseButton1Click:connect(function() 
       Function(P) 
   end)
   D = Instance.new("TextButton")
   D.Size = UDim2.new(0, 20, 0, 20)
   D.Text = "X"
   D.Name = N.Name
   D.Parent = Gui
   D.BackgroundColor3 = Color3.new(1, 0, 0)
   D.TextColor3 = Color3.new(0, 0, 0)
   D.BackgroundTransparency = 0.5
   D.Position = UDim2.new(0, ((math.modf(Current/30))*150)+300+130, 0, 50+(20*((Current%30)-1)))
   D.MouseButton1Click:connect(function()
       Deleted = N
       DeleteParent = N.Parent
       N.Parent = nil
       Clear()
       Search(DeleteParent)
   end)
   if Copy then
       C = Instance.new("TextButton")
       C.Size = UDim2.new(0, 20, 0, 20)
       C.Text = "C"
       C.Name = N.Name
       C.Parent = Gui
       C.BackgroundColor3 = Color3.new(0, 1, 0.5)
       C.TextColor3 = Color3.new(0, 0, 0)
       C.BackgroundTransparency = 0.5
       C.Position = UDim2.new(0, ((math.modf(Current/30))*150)+300+110, 0, 50+(20*((Current%30)-1)))
       C.MouseButton1Click:connect(function()
           Cloned = N
           Clear()
           Search(N.Parent)
       end)
   end
   Current = Current + 1
   return P
end
   
function AddOption(N, Function, Color, Text)
   if not N then 
       error("RenderButton - No Name Specified") 
   end
   if not Color then 
       Color = Color3.new(1, 1, 1) 
   end
   if Text == nil then 
       Text = false 
   end
   if Text then
       P = Instance.new("TextBox")
   else
       P = Instance.new("TextButton")
   end
   P.Text = N
   P.Name = N
   P.Parent = Gui
   P.BackgroundColor3 = Color
   P.TextColor3 = Color3.new(0, 0, 0)
   P.BackgroundTransparency = 0.5
   P.Size = UDim2.new(0, 150, 0, 20)
   P.Position = UDim2.new(0, ((math.modf(CurrentOption/30))*150)+150, 0, 50+(20*((CurrentOption%30)-1)))
   if not Text and Function then
       P.MouseButton1Click:connect(function() Function(P) end)
   end
   CurrentOption = CurrentOption + 1
   return P
end

function AddTextOption(Obj, Prop)
   local Ob = Obj
   local Pro = Prop
   if type(Ob[Pro]) == "number" or type(Ob[Pro]) == "string" then
       CurrentOption = CurrentOption + 1
       local T = AddOption(Ob[Pro], nil, Color3.new(0.1, 0.4, 0.1), true)
       CurrentOption = CurrentOption - 2
       local O = AddOption("Change "..Pro..":", function() Ob[Pro] = T.Text end, Color3.new(0.1, 0.8, 0.1), false)
       CurrentOption = CurrentOption + 1
   end
end

function AddBrickColorOption(Obj, Prop)
   local Ob = Obj
   local Pro = Prop
   if BrickColor.new(tostring(Ob[Pro])) == Ob[Pro] then
       CurrentOption = CurrentOption + 1
       local T = AddOption(tostring(Ob[Pro]), nil, Color3.new(0.1, 0.4, 0.1), true)
       CurrentOption = CurrentOption - 2
       local O = AddOption("Change "..Pro..":", function() Ob[Pro] = BrickColor.new(T.Text) end, Color3.new(0.1, 0.8, 0.1), false)
       CurrentOption = CurrentOption + 1
   end
end

function AddBoolOption(Obj, Prop)
   local Ob = Obj
   local Pro = Prop
   if type(Ob[Pro]) == "boolean" then
       local O = AddOption(Pro..": "..tostring(Ob[Pro]), nil, Color3.new(0.1, 0.8, 0.1), false)
       O.MouseButton1Click:connect(function()
           if Ob[Pro] then
               Ob[Pro] = false
               O.Text = Pro..": false"
           else
               Ob[Pro] = true
               O.Text = Pro..": true"
           end
       end)
   end
end

function TestProperty(Obj, Property)
   Success = pcall(function() 
       if Obj[Property] then 
           return 
       end 
   end)
   return Success
end

function LoadOptions(Object)
   for Num, Prop in pairs(TextProperties) do
       if TestProperty(Object, Prop) then
           AddTextOption(Object, Prop)
       end
   end
   for Num, Prop in pairs(BoolProperties) do
       if TestProperty(Object, Prop) then
           AddBoolOption(Object, Prop)
       end
   end
   for Num, Prop in pairs(BrickColorProperties) do
       if TestProperty(Object, Prop) then
           AddBrickColorOption(Object, Prop)
       end
   end
end

function Search(Object)
   Gui = Instance.new("ScreenGui")
   Gui.Parent = game.CoreGui
   Gui.Name = "Explorer"
   if Object ~= game then
       AddOption("Back", function() 
           Clear(); 
           Search(Object.Parent) 
       end, Color3.new(0.5, 1, 1), false)
   end
   AddOption("Reload", function() Clear(); Search(Object); end, Color3.new(0.2, 1, 0.2), false)
   if Cloned then
       AddOption("Paste", function() Cloned:Clone().Parent = Object; Clear(); Search(Object); end, Color3.new(0.5, 1, 1), false)
   end
   if Deleted then
       AddOption("Undo", function() Deleted.Parent = DeleteParent; Deleted = nil; DeletedParent = nil; Clear(); Search(Object); end, Color3.new(1, 0.6, 0.1), false)
   end
   if Object:IsA("Player") then
       AddOption("Goto Character", function() Clear(); if Object.Character then Search(Object.Character); end end, Color3.new(1, 1, 1), false)
   end
   if Object:IsA("LocalScript") then
       AddOption("EditScript", function() Clear(); ScriptSearch(Object); end, Color3.new(1, 1, 1), false)
   end
   if Object:IsA("Terrain") then
       AddOption("Clear", function() Object:Clear(); end, Color3.new(1, 1, 1), false)
   end
   LoadOptions(Object)
   AddOption("Close", Clear, Color3.new(1, 0.2, 0), false)
   if not Object:IsA("Workspace") or not Object:IsA("Player") then
       for Num, Obj in pairs(Object:GetChildren()) do
           --if not Obj:IsA("BasePart") or not Object.Parent == game.Workspace then
           if true then
               if Obj:IsA("LocalScript") then
                   AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(1, 0, 0), true)
               elseif Obj:IsA("Script") or Obj:IsA("StarterScript") or Obj:IsA("CoreScript") then
                   AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(0.5, 0.5, 0.8), true)
               elseif Obj.Parent == game then
                   AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(1, 1, 1), false)
               else
                   AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(1, 1, 1), true)
               end
           end
       end
   end
   function MoveUp(Place, Amount)
       for i,v in pairs(Place:GetChildren()) do
           if v:IsA("TextLabel") or v:IsA("TextBox") then
               v.Position = v.Position + UDim2.new(0,0,0,-Amount)
           end
       end
   end
   function MoveDown(Place, Amount)
       for i,v in pairs(Place:GetChildren()) do
           if v:IsA("TextLabel") or v:IsA("TextBox") then
               v.Position = v.Position + UDim2.new(0,0,0,Amount)
           end
       end
   end
   i=0
   function ScriptSearch(S)
       Script2 = S
       Script = Script2.Source
       Table = {}
       Enabled = true
       Gui = Instance.new("ScreenGui")
       Gui.Parent = game.CoreGui
       Gui.Name = "Explorer"
       while Enabled do
           Start, End = string.find(Script, '\n')
           print(Start, End)
           if Start and End then
               table.insert(Table, string.sub(Script, 1, End))
               New = string.sub(Script, End+1, string.len(Script))
               Script = New
           else
               Enabled = false
               table.insert(Table, string.sub(Script, 1, End))
               print("Finished")
           end
       end
       P = Instance.new("TextLabel")
       P.Size = UDim2.new(0, 500, 0, 20)
       P.Text = Script2.Name
       P.Name = "Script Line"
       P.Parent = Gui
       P.BackgroundColor3 = Color3.new(1, 1, 1)
       P.TextColor3 = Color3.new(0, 0, 0)
       P.BackgroundTransparency = 0.5
       P.Position = UDim2.new(0.5, -250, 0, 150+(20*(i-1)))
       P.TextXAlignment = "Left"
       i=i+1
       New = {}
       for I,Val in pairs(Table) do
           print(Val)
           P = Instance.new("TextBox")
           P.ClearTextOnFocus = false
           P.Size = UDim2.new(0, 500, 0, 20)
           P.Text = Val
           P.Name = "Script Line"
           P.Parent = Gui
           P.BackgroundColor3 = Color3.new(1, 1, 1)
           P.TextColor3 = Color3.new(0, 0, 0)
           P.BackgroundTransparency = 0.5
           P.Position = UDim2.new(0.5, -250, 0, 150+(20*(i-1)))
           P.TextXAlignment = "Left"
           table.insert(New, P)
           i=i+1
       end
       i=1
       P = Instance.new("TextButton")
       P.Size = UDim2.new(0, 20, 0, 20)
       P.Text = "^"
       P.Name = "Scroll"
       P.Parent = Gui
       P.BackgroundColor3 = Color3.new(1, 1, 1)
       P.TextColor3 = Color3.new(0, 0, 0)
       P.BackgroundTransparency = 0.5
       P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
       P.MouseButton1Click:connect(function() 
           MoveUp(Gui, -20) 
       end)
       i=i+1
       P = Instance.new("TextButton")
       P.Size = UDim2.new(0, 20, 0, 20)
       P.Text = "v"
       P.Name = "Scroll"
       P.Parent = Gui
       P.BackgroundColor3 = Color3.new(1, 1, 1)
       P.TextColor3 = Color3.new(0, 0, 0)
       P.BackgroundTransparency = 0.5
       P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
       P.MouseButton1Click:connect(function() 
           MoveDown(Gui, -20) 
       end)
       i=i+1
       P = Instance.new("TextButton")
       P.Size = UDim2.new(0, 20, 0, 20)
       P.Text = "^^"
       P.Name = "Scroll"
       P.Parent = Gui
       P.BackgroundColor3 = Color3.new(1, 1, 1)
       P.TextColor3 = Color3.new(0, 0, 0)
       P.BackgroundTransparency = 0.5
       P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
       P.MouseButton1Click:connect(function() 
           MoveUp(Gui, -200) 
       end)
       i=i+1
       P = Instance.new("TextButton")
       P.Size = UDim2.new(0, 20, 0, 20)
       P.Text = "vv"
       P.Name = "Scroll"
       P.Parent = Gui
       P.BackgroundColor3 = Color3.new(1, 1, 1)
       P.TextColor3 = Color3.new(0, 0, 0)
       P.BackgroundTransparency = 0.5
       P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
       P.MouseButton1Click:connect(function() 
           MoveDown(Gui, -200) 
       end)
       i=i+1
       P = Instance.new("TextButton")
       P.Size = UDim2.new(0, 20, 0, 20)
       P.Text = "S"
       P.Name = "Save"
       P.Parent = Gui
       P.BackgroundColor3 = Color3.new(0, 1, 0)
       P.TextColor3 = Color3.new(0, 0, 0)
       P.BackgroundTransparency = 0.5
       P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
       P.MouseButton1Click:connect(function()
           StringS = ""
           for Num, Obj in pairs(New) do
               StringS = StringS..Obj.Text..'\n'
           end
           S.Source = StringS
           S.Disabled = true
           S.Disabled = false
       end)
       i=i+1
       P = Instance.new("TextButton")
       P.Size = UDim2.new(0, 20, 0, 20)
       P.Text = "x"
       P.Name = "Back"
       P.Parent = Gui
       P.BackgroundColor3 = Color3.new(1, 0.2, 0)
       P.TextColor3 = Color3.new(0, 0, 0)
       P.BackgroundTransparency = 0.5
       P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
       P.MouseButton1Click:connect(function()
           Clear()
           i=0
           Search(S)
       end)
       i=i+1
   end
end

pgr.MouseButton1Click:connect(function()
   Clear()
   Search(game)
end)