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