FE Bar

--[[
	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("FE Bar by ScriptDetect")

	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:Connect(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"),ContextActionService=v(CAS,"ContextActionService"),RunService=v({_btrs={},RenderStepped=r:GetService("RunService").Heartbeat,BindToRenderStep=function(self,h,m,i)self._btrs[h]=self.Heartbeat: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")

local FEBar = Instance.new("ScreenGui")
local BG = Instance.new("Frame")
local Exit = Instance.new("TextButton")
local UrlBar = Instance.new("TextBox")
local Bar = Instance.new("TextLabel")
local Bar2 = Instance.new("TextLabel")
local Note = Instance.new("TextLabel")
local Title = Instance.new("TextLabel")

--Properties:

FEBar.Name = "FEBar"
FEBar.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
FEBar.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

BG.Name = "BG"
BG.Parent = FEBar
BG.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
BG.BorderSizePixel = 0
BG.Position = UDim2.new(0.37242797, 0, 0.0985324979, 0)
BG.Size = UDim2.new(0, 325, 0, 74)

Exit.Name = "Exit"
Exit.Parent = BG
Exit.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
Exit.BorderSizePixel = 0
Exit.Position = UDim2.new(0.960000038, 0, 0.0188012123, 0)
Exit.Size = UDim2.new(0, 12, 0, 13)
Exit.Font = Enum.Font.SourceSans
Exit.Text = "X"
Exit.TextColor3 = Color3.new(1, 0, 0)
Exit.TextSize = 14
Exit.TextWrapped = true

UrlBar.Name = "UrlBar"
UrlBar.Parent = BG
UrlBar.BackgroundColor3 = Color3.new(0.0784314, 0.0784314, 0.0784314)
UrlBar.BorderSizePixel = 0
UrlBar.Position = UDim2.new(0.0399999991, 0, 0.412001252, 0)
UrlBar.Size = UDim2.new(0, 299, 0, 37)
UrlBar.Font = Enum.Font.SourceSans
UrlBar.Text = ""
UrlBar.TextColor3 = Color3.new(0, 0, 0)
UrlBar.TextSize = 14

Bar.Name = "Bar"
Bar.Parent = BG
Bar.BackgroundColor3 = Color3.new(0, 0.737255, 0)
Bar.BorderSizePixel = 0
Bar.Position = UDim2.new(0, 0, 0.19447729, 0)
Bar.Size = UDim2.new(0, 325, 0, 5)
Bar.Font = Enum.Font.SourceSans
Bar.Text = ""
Bar.TextColor3 = Color3.new(0, 0, 0)
Bar.TextSize = 14

Bar2.Name = "Bar2"
Bar2.Parent = BG
Bar2.BackgroundColor3 = Color3.new(0, 0.517647, 0)
Bar2.BorderSizePixel = 0
Bar2.Position = UDim2.new(0, 0, 0.262044877, 0)
Bar2.Size = UDim2.new(0, 325, 0, 4)
Bar2.Font = Enum.Font.SourceSans
Bar2.Text = ""
Bar2.TextColor3 = Color3.new(0, 0, 0)
Bar2.TextSize = 14

Note.Name = "Note"
Note.Parent = BG
Note.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
Note.BorderSizePixel = 0
Note.Position = UDim2.new(0, 0, 1, 0)
Note.Size = UDim2.new(0, 325, 0, 18)
Note.Font = Enum.Font.SourceSans
Note.Text = "Import NON-FE Scripts here"
Note.TextColor3 = Color3.new(1, 1, 1)
Note.TextScaled = true
Note.TextSize = 14
Note.TextWrapped = true

Title.Name = "Title"
Title.Parent = BG
Title.BackgroundColor3 = Color3.new(1, 1, 1)
Title.BackgroundTransparency = 1
Title.Position = UDim2.new(0.141538456, 0, 0.0188011993, 0)
Title.Size = UDim2.new(0, 233, 0, 15)
Title.Font = Enum.Font.GothamSemibold
Title.Text = "Non FE Script Injector"
Title.TextColor3 = Color3.new(1, 1, 1)
Title.TextScaled = true
Title.TextSize = 14
Title.TextWrapped = true

	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"