-- This script has been converted to FE by iPxter


if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,Mouse,mouse,UserInputService,ContextActionService = owner
do
	print("FE Compatibility code by Mokiros | Translated to FE by iPxter")
	script.Parent = Player.Character

	--RemoteEvent for communicating
	local Event = Instance.new("RemoteEvent")
	Event.Name = "UserInput_Event"

	--Fake event to make stuff like Mouse.KeyDown work
	local function fakeEvent()
		local t = {_fakeEvent=true,Connect=function(self,f)self.Function=f end}
		t.connect = t.Connect
		return t
	end

	--Creating fake input objects with fake variables
    local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent()}
	local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
	local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
		CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
	end}
	--Merged 2 functions into one by checking amount of arguments
	CAS.UnbindAction = CAS.BindAction

	--This function will trigger the events that have been :Connect()'ed
	local function te(self,ev,...)
		local t = m[ev]
		if t and t._fakeEvent and t.Function then
			t.Function(...)
		end
	end
	m.TrigEvent = te
	UIS.TrigEvent = te

	Event.OnServerEvent:Connect(function(plr,io)
	    if plr~=Player then return end
		if io.isMouse then
			m.Target = io.Target
			m.Hit = io.Hit
		else
			local b = io.UserInputState == Enum.UserInputState.Begin
			if io.UserInputType == Enum.UserInputType.MouseButton1 then
				return m:TrigEvent(b and "Button1Down" or "Button1Up")
			end
			for _,t in pairs(CAS.Actions) do
				for _,k in pairs(t.Keys) do
					if k==io.KeyCode then
						t.Function(t.Name,io.UserInputState,io)
					end
				end
			end
			m:TrigEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
			UIS:TrigEvent(b and "InputBegan" or "InputEnded",io,false)
	    end
	end)
	Event.Parent = NLS([==[
	local Player = game:GetService("Players").LocalPlayer
	local Event = script:WaitForChild("UserInput_Event")

	local UIS = game:GetService("UserInputService")
	local input = function(io,a)
		if a then return end
		--Since InputObject is a client-side instance, we create and pass table instead
		Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState})
	end
	UIS.InputBegan:Connect(input)
	UIS.InputEnded:Connect(input)

	local Mouse = Player:GetMouse()
	local h,t
	--Give the server mouse data 30 times every second, but only if the values changed
	--If player is not moving their mouse, client won't fire events
	while wait(1/30) do
		if h~=Mouse.Hit or t~=Mouse.Target then
			h,t=Mouse.Hit,Mouse.Target
			Event:FireServer({isMouse=true,Target=t,Hit=h})
		end
	end]==],Player.Character)
	Mouse,mouse,UserInputService,ContextActionService = m,m,UIS,CAS
end

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", owner.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")



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 = owner.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 = owner.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)