View difference between Paste ID: RqS9NGhd and VaXTmLjh

 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)