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)