--[[

FilteringEnabled Script Bar

Run non-fe compatable scripts under Mokorios's compability code.

It should be compatible with most scripts, but if you encounter issues make
sure to let Mokorios know.

The FE Compatibility code can be found at:

https://github.com/Mokiros/roblox-FE-compatibility.
--]]
if not script:IsA("LocalScript") then
error(">> This script is being run as a server-sided script (or
modulescript?) instead of a localscript.\nYou'll need to run it as a localscript,
with hl/(url).<<")
end

if not NS then
NS = function() end
end

services = setmetatable({}, {
__index = function(self, k, ...)
return game:GetService(k)
end})

local plr = services.Players.LocalPlayer

print("Credit to Mokiros for his FE Compatibility script.\nThis project
wouldn't be possible without him.\n")
print("You can obtain a copy of his code for his FE compatability at
https://github.com/Mokiros/roblox-FE-compatibility.\n")
print("You may also obtain a copy of his licence at
https://raw.githubusercontent.com/Mokiros/roblox-FE-compatibility/master/LICENSE.\
n")
print("All of the source code in exception to his compatability code is in
the public domain, and was made by TheFlamingBlaster.")

local fecompat = [[
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
local RealPlayer = Player
do local a=RealPlayer;script.Parent=a.Character;local
b=Instance.new("RemoteEvent")b.Name="UserInput_Event"local function c()local
d={_fakeEvent=true,Functions={},Connect=function(self,e)table.insert(self.Functions
,e)end}d.connect=d.Connect;return d end;local
f={Target=nil,Hit=CFrame.new(),KeyUp=c(),KeyDown=c(),Button1Up=c(),Button1Down=c(),
Button2Up=c(),Button2Down=c()}local g={InputBegan=c(),InputEnded=c()}local
CAS={Actions={},BindAction=function(self,h,i,j,...)CAS.Actions[h]=i
and{Name=h,Function=i,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local
function k(self,l,...)local d=f[l]if d and d._fakeEvent then for m,e in
pairs(d.Functions)do e(...)end end
end;f.TrigEvent=k;g.TrigEvent=k;b.OnServerEvent:Connect(function(n,o)if n~=a then
return end;f.Target=o.Target;f.Hit=o.Hit;if not o.isMouse then local
p=o.UserInputState==Enum.UserInputState.Begin;if
o.UserInputType==Enum.UserInputType.MouseButton1 then return f:TrigEvent(p
and"Button1Down"or"Button1Up")end;if
o.UserInputType==Enum.UserInputType.MouseButton2 then return f:TrigEvent(p
and"Button2Down"or"Button2Up")end;for m,d in pairs(CAS.Actions)do for m,q in
pairs(d.Keys)do if q==o.KeyCode then d.Function(d.Name,o.UserInputState,o)end end
end;f:TrigEvent(p and"KeyDown"or"KeyUp",o.KeyCode.Name:lower())g:TrigEvent(p
and"InputBegan"or"InputEnded",o,false)end end)b.Parent=NLS([==[local
a=game:GetService("Players").LocalPlayer;local
b=script:WaitForChild("UserInput_Event")local c=a:GetMouse()local
d=game:GetService("UserInputService")local e=function(f,g)if g then return
end;b:FireServer({KeyCode=f.KeyCode,UserInputType=f.UserInputType,UserInputState=f.
UserInputState,Hit=c.Hit,Target=c.Target})end;d.InputBegan:Connect(e)d.InputEnded:C
onnect(e)local h,i;while wait(1/30)do if h~=c.Hit or i~=c.Target then
h,i=c.Hit,c.Target;b:FireServer({isMouse=true,Target=i,Hit=h})end
end]==],Player.Character)local r=game;local s={__index=function(self,q)local
t=rawget(self,"_RealService")if t then return typeof(t[q])=="function"and
function(m,...)return t[q](t,...)end or t[q]end
end,__newindex=function(self,q,u)local t=rawget(self,"_RealService")if t then
t[q]=u end end}local function v(d,w)d._RealService=typeof(w)=="string"and
r:GetService(w)or w;return setmetatable(d,s)end;local
x={GetService=function(self,t)return rawget(self,t)or
r:GetService(t)end,Players=v({LocalPlayer=v({GetMouse=function(self)return f
end},Player)},"Players"),UserInputService=v(g,"UserInputService"),ContextActionServ
ice=v(CAS,"ContextActionService"),RunService=v({_btrs={},RenderStepped=r:GetService
("RunService").Heartbeat,BindToRenderStep=function(self,h,m,i)self._btrs[h]=self.He
artbeat:Connect(i)end,UnbindFromRenderStep=function(self,h)self._btrs[h]:Disconnect
()end},"RunService")}rawset(x.Players,"localPlayer",x.Players.LocalPlayer)x.service
=x.GetService;v(x,game)game,owner=x,x.Players.LocalPlayer end]]

NS([[
wait(1)
local requestHandlers = {
["HttpGet"] = function(client, url, cache)
return game:GetService"HttpService":GetAsync(url, cache or
true)
end,
["GetDataStore"] = function(client, ds, key)
local ds =
game:GetService"DataStoreService":GetDataStore(ds):GetAsync(key)
end,
["SetDataStore"] = function(client, ds, key, newval)
local ds =
game:GetService"DataStoreService":GetDataStore(ds):SetAsync(key, newval)
end
}

local generateRemote
generateRemote = function()
local remote = Instance.new("RemoteFunction")
remote.Name = getfenv().owner.Name.." : Coms"

remote.OnServerInvoke = function(client, request, ...)

if requestHandlers[request] then
return requestHandlers[request](client, ...)
end
end

remote.Parent = workspace

remote.AncestryChanged:Connect(function()
delay(0.03, function()
if remote then
remote:Destroy()
 end
end)
generateRemote()
end)
end

generateRemote()
]], workspace)

local remote = workspace:FindFirstChild(plr.Name..": Coms") or

workspace:WaitForChild(plr.Name.." : Coms")

-- Objects

local FEBar = Instance.new("ScreenGui")

local BG = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local Exit = Instance.new("TextButton")
local UrlBar = Instance.new("TextBox")
local TextLabel_2 = Instance.new("TextLabel")

-- Properties

FEBar.Name = "FEBar"

BG.Name = "BG"
BG.Parent = FEBar
BG.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
BG.BorderSizePixel = 0
BG.Position = UDim2.new(0.720785916, 0, 0.897717714, 0)
BG.Size = UDim2.new(0.279214054, 0, 0.10228233, 0)

TextLabel.Parent = BG
TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel.BackgroundTransparency = 1
TextLabel.Size = UDim2.new(0.683333337, 0, 0.201834857, 0)
TextLabel.Font = Enum.Font.SourceSansSemibold
TextLabel.FontSize = Enum.FontSize.Size14
TextLabel.Text = "FE Command Bar"
TextLabel.TextColor3 = Color3.new(1, 1, 1)
TextLabel.TextScaled = true
TextLabel.TextWrapped = true
TextLabel.TextXAlignment = Enum.TextXAlignment.Left

Exit.Name = "Exit"
Exit.Parent = BG
Exit.BackgroundColor3 = Color3.new(1, 1, 1)
Exit.BackgroundTransparency = 1
Exit.Position = UDim2.new(0.899999976, 0, 0, 0)
Exit.Size = UDim2.new(0.100000001, 0, 0.206422016, 0)
Exit.Font = Enum.Font.SourceSans
Exit.FontSize = Enum.FontSize.Size14
Exit.Text = "X"
Exit.TextColor3 = Color3.new(1, 0, 0)
Exit.TextScaled = true
Exit.TextWrapped = true

UrlBar.Name = "UrlBar"
 UrlBar.Parent = BG
UrlBar.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
UrlBar.BorderSizePixel = 0
UrlBar.Position = UDim2.new(0, 0, 0.247933879, 0)
UrlBar.Size = UDim2.new(1, 0, 0.504132211, 0)
UrlBar.Font = Enum.Font.SourceSans
UrlBar.FontSize = Enum.FontSize.Size14
UrlBar.Text = ""
UrlBar.TextColor3 = Color3.new(0, 0, 0)
UrlBar.TextScaled = true
UrlBar.TextWrapped = true
UrlBar.TextXAlignment = Enum.TextXAlignment.Left

TextLabel_2.Parent = BG
TextLabel_2.BackgroundColor3 = Color3.new(1, 0, 0)
TextLabel_2.BackgroundTransparency = 1
TextLabel_2.Position = UDim2.new(0, 0, 0.834710777, 0)
TextLabel_2.Size = UDim2.new(1, 0, 0.165289253, 0)
TextLabel_2.Font = Enum.Font.SourceSansSemibold
TextLabel_2.FontSize = Enum.FontSize.Size14
TextLabel_2.Text = "Click the black box above, paste in your link and
press \"Enter\" to run your script."
TextLabel_2.TextColor3 = Color3.new(1, 0, 0)
TextLabel_2.TextScaled = true
TextLabel_2.TextWrapped = true
TextLabel_2.TextXAlignment = Enum.TextXAlignment.Left

Exit.MouseButton1Click:Connect(function()
FEBar:Destroy()
script.Disabled = true
end)

local curtext = ""

UrlBar.Changed:Connect(function()
if not UrlBar.Text:match("#") then
curtext = UrlBar.Text
end
end)

UrlBar.FocusLost:Connect(function(e)
if e == true then
if curtext:sub(1, 3) == "hl/" then
UrlBar.Text = curtext:sub(3)
end
if curtext:sub(1, 2) == "h/" then
UrlBar.Text = curtext:sub(2)
end
NS(fecompat.." "..remote:InvokeServer("HttpGet", curtext),
workspace)
print("Running "..curtext)
end
end)

FEBar.Parent = plr:FindFirstChildOfClass"PlayerGui"