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

-- Instances:

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")
local Minimize = Instance.new("TextButton")

--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.517770529, 0, 0.106500626, 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.ClearTextOnFocus = false
UrlBar.Font = Enum.Font.SourceSans
UrlBar.Text = ""
UrlBar.TextColor3 = Color3.new(1, 1, 1)
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

Minimize.Name = "Minimize"
Minimize.Parent = BG
Minimize.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
Minimize.BorderSizePixel = 0
Minimize.Position = UDim2.new(0.895384669, 0, -0.00822581537, 0)
Minimize.Size = UDim2.new(0, 12, 0, 13)
Minimize.Font = Enum.Font.SourceSans
Minimize.Text = "-"
Minimize.TextColor3 = Color3.new(1, 0, 0)
Minimize.TextSize = 14
Minimize.TextWrapped = true

-- Scripts:

local function ARJXSLL_fake_script() -- Admin.Script
	local script = Instance.new('Script', Admin)

	local bar = script.Parent.Parent.Parent.UrlBar
	local button = script.Parent

	script.Parent.MouseButton1Click:Connect(function()
		script.Parent.Parent.Parent.UrlBar.Text = {"https://pastebin.com/raw/VKkafduK"}
	end)
end
coroutine.wrap(ARJXSLL_fake_script)()
local function OQJD_fake_script() -- Sword.Script
	local script = Instance.new('Script', Sword)

	local bar = script.Parent.Parent.Parent.UrlBar
	local button = script.Parent

	script.Parent.MouseButton1Click:Connect(function()
		script.Parent.Parent.Parent.UrlBar.Text = {"https://pastebin.com/raw/c7bVpDhQ"}
	end)
end
coroutine.wrap(OQJD_fake_script)()
local function URFYNG_fake_script() -- DanceIfdoesntwork.Script
	local script = Instance.new('Script', DanceIfdoesntwork)

	local bar = script.Parent.Parent.Parent.UrlBar
	local button = script.Parent

	script.Parent.MouseButton1Click:Connect(function()
		script.Parent.Parent.Parent.UrlBar.Text = {"https://pastebin.com/raw/me9stNjD"}
	end)
end
coroutine.wrap(URFYNG_fake_script)()
local function BETOXTS_fake_script() -- FEBar.Draggable (Read)
	local script = Instance.new('LocalScript', FEBar)

	frame = script.Parent.BG --Name of the frame you wanna move
	frame.Draggable = true
	frame.Active = true
	frame.Selectable = true
	--Place IN the gui NOT in the Frame , Other wise the script will break
	--Thanks to TheManInCity (On youtube) by comenting on the video
	--Thanks to me for uploading (lol)

	--Ps we know that Draggable got removed but this script somehow works :D
end
coroutine.wrap(BETOXTS_fake_script)()

Minimize.MouseButton1Click:Connect(function()
		BG.Visible = true
		script.Disabled = false

	Minimize_2.MouseButton1Click:Connect(function()
		Minimized.Visible = false
		script.Disabled = false
	end)
end)

	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"