Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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)
- RAW Paste Data
- 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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement