Alternative Explorer

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)