dfasfsf

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.Players.LocalPlayer.PlayerGui)
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.Players.LocalPlayer.PlayerGui:findFirstChild("Explorer") then
	game.Players.LocalPlayer.PlayerGui: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.Players.LocalPlayer.PlayerGui
	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.Players.LocalPlayer.PlayerGui
		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)