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