FE CMD BAR KOOL BACON ™

--[[
	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("execute the k00l kid stuf")
	print("this is fe btw")
	print("Checking user.")
        print("Checking user..")
        print("Checking user...")
	print("Checking user.")
        print("Checking user..")
        print("Checking user...")
	print("Checking user.")
        print("Checking user..")
        print("Checking user...")
	print("Checking user.")
        print("Checking user..")
        print("Checking user...")
wait(3)
	print("Welcome idislikehim2")
	print("You are a Member of the discord server!")

	local fecompat = [[
	if game:GetService("RunService"):IsClient() then error("WOAH WOAH WOAH U COMMMUNIST UR MENT TO DO H/ SIR") 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 = "k00l Bacon™ 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 = "K"
	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 = "u see the black box above this? paste ur link there  and press enter to execute ur 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("uhhhh executing "..curtext)
		end
	end)

	FEBar.Parent = plr:FindFirstChildOfClass"PlayerGui"
--by datlol