--[[
	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: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")

	-- 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"