View difference between Paste ID: Vka4AsJp and X4c1P8d9
SHOW: | | - or go back to the newest paste.
1
--[[
2
	FilteringEnabled Script Bar
3
	
4
	Run non-fe compatable scripts under Mokorios's compability code.
5
	It should be compatible with most scripts, but if you encounter issues make sure to let Mokorios know.
6
	
7
	The FE Compatibility code can be found at:
8
	https://github.com/Mokiros/roblox-FE-compatibility.
9
--]]
10
	if not script:IsA("LocalScript") then
11
		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).<<")
12
	end
13
	
14
	if not NS then
15
		NS = function() end
16
	end
17
	
18
	services = setmetatable({}, {	
19
	__index = function(self, k, ...)
20
		return game:GetService(k)
21
	end})
22
	
23
	local plr = services.Players.LocalPlayer
24-
	print("Credit to Mokiros for his FE Compatibility script.\nThis project wouldn't be possible without him.\n")
24+
	print("execute the k00l kid stuf")
25-
	print("You can obtain a copy of his code for his FE compatability at https://github.com/Mokiros/roblox-FE-compatibility.\n")
25+
	print("this is fe btw")
26-
	print("You may also obtain a copy of his licence at https://raw.githubusercontent.com/Mokiros/roblox-FE-compatibility/master/LICENSE.\n")
26+
	print("Checking user.")
27-
	print("All of the source code in exception to his compatability code is in the public domain, and was made by TheFlamingBlaster.")
27+
        print("Checking user..")
28
        print("Checking user...")
29
	print("Checking user.")
30-
	if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
30+
        print("Checking user..")
31
        print("Checking user...")
32
	print("Checking user.")
33
        print("Checking user..")
34
        print("Checking user...")
35
	print("Checking user.")
36
        print("Checking user..")
37
        print("Checking user...")
38
wait(3)
39
	print("Welcome idislikehim2")
40
	print("You are a Member of the discord server!")
41
   
42
	local fecompat = [[
43
	if game:GetService("RunService"):IsClient() then error("WOAH WOAH WOAH U COMMMUNIST UR MENT TO DO H/ SIR") end
44
	local Player,Mouse,mouse,UserInputService,ContextActionService = owner
45
	local RealPlayer = Player
46
	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]]
47
	
48
	NS([[
49
		wait(1)
50
		local requestHandlers = {
51
			["HttpGet"] = function(client, url, cache) 
52
				return game:GetService"HttpService":GetAsync(url, cache or true)
53
			end,
54
			["GetDataStore"] = function(client, ds, key)
55
				local ds = game:GetService"DataStoreService":GetDataStore(ds):GetAsync(key)
56
			end,
57
			["SetDataStore"] = function(client, ds, key, newval)
58
				local ds = game:GetService"DataStoreService":GetDataStore(ds):SetAsync(key, newval)
59
			end
60
		}
61
		
62
		
63
		local generateRemote
64
		generateRemote = function()
65
			local remote = Instance.new("RemoteFunction")
66
			remote.Name = getfenv().owner.Name.." : Coms"
67
			
68
			remote.OnServerInvoke = function(client, request, ...) 
69
				if requestHandlers[request] then
70
					return requestHandlers[request](client, ...)
71
				end
72
			end
73
			
74
			remote.Parent = workspace
75
			
76
			remote.AncestryChanged:Connect(function() 
77
				delay(0.03, function() 
78
					if remote then
79
						remote:Destroy()
80
					end
81
				end)
82
				generateRemote()
83
			end)
84
		end
85
		
86
		
87
		generateRemote()
88
	]], workspace)
89
	
90
	local remote = workspace:FindFirstChild(plr.Name..": Coms") or workspace:WaitForChild(plr.Name.." : Coms")
91
	
92
	-- Objects
93
	
94
	local FEBar = Instance.new("ScreenGui")
95
	local BG = Instance.new("Frame")
96
	local TextLabel = Instance.new("TextLabel")
97
	local Exit = Instance.new("TextButton")
98
	local UrlBar = Instance.new("TextBox")
99
	local TextLabel_2 = Instance.new("TextLabel")
100
101
	-- Properties
102
	
103
	FEBar.Name = "FEBar"
104
	
105-
	TextLabel.Text = "FE Command Bar"
105+
106
	BG.Parent = FEBar
107
	BG.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
108
	BG.BorderSizePixel = 0
109
	BG.Position = UDim2.new(0.720785916, 0, 0.897717714, 0)
110
	BG.Size = UDim2.new(0.279214054, 0, 0.10228233, 0)
111
	
112
	TextLabel.Parent = BG
113
	TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
114
	TextLabel.BackgroundTransparency = 1
115
	TextLabel.Size = UDim2.new(0.683333337, 0, 0.201834857, 0)
116
	TextLabel.Font = Enum.Font.SourceSansSemibold
117
	TextLabel.FontSize = Enum.FontSize.Size14
118
	TextLabel.Text = "k00l Bacon™ Bar"
119-
	Exit.Text = "X"
119+
120
	TextLabel.TextScaled = true
121
	TextLabel.TextWrapped = true
122
	TextLabel.TextXAlignment = Enum.TextXAlignment.Left
123
	
124
	Exit.Name = "Exit"
125
	Exit.Parent = BG
126
	Exit.BackgroundColor3 = Color3.new(1, 1, 1)
127
	Exit.BackgroundTransparency = 1
128
	Exit.Position = UDim2.new(0.899999976, 0, 0, 0)
129
	Exit.Size = UDim2.new(0.100000001, 0, 0.206422016, 0)
130
	Exit.Font = Enum.Font.SourceSans
131
	Exit.FontSize = Enum.FontSize.Size14
132
	Exit.Text = "K"
133
	Exit.TextColor3 = Color3.new(1, 0, 0)
134
	Exit.TextScaled = true
135
	Exit.TextWrapped = true
136
	
137
	UrlBar.Name = "UrlBar"
138
	UrlBar.Parent = BG
139
	UrlBar.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
140
	UrlBar.BorderSizePixel = 0
141
	UrlBar.Position = UDim2.new(0, 0, 0.247933879, 0)
142
	UrlBar.Size = UDim2.new(1, 0, 0.504132211, 0)
143
	UrlBar.Font = Enum.Font.SourceSans
144
	UrlBar.FontSize = Enum.FontSize.Size14
145-
	TextLabel_2.Text = "Click the  black box above, paste in your link and press \"Enter\" to run your script."
145+
146
	UrlBar.TextColor3 = Color3.new(0, 0, 0)
147
	UrlBar.TextScaled = true
148
	UrlBar.TextWrapped = true
149
	UrlBar.TextXAlignment = Enum.TextXAlignment.Left
150
	
151
	TextLabel_2.Parent = BG
152
	TextLabel_2.BackgroundColor3 = Color3.new(1, 0, 0)
153
	TextLabel_2.BackgroundTransparency = 1
154
	TextLabel_2.Position = UDim2.new(0, 0, 0.834710777, 0)
155
	TextLabel_2.Size = UDim2.new(1, 0, 0.165289253, 0)
156
	TextLabel_2.Font = Enum.Font.SourceSansSemibold
157
	TextLabel_2.FontSize = Enum.FontSize.Size14
158
	TextLabel_2.Text = "u see the black box above this? paste ur link there  and press enter to execute ur script."
159
	TextLabel_2.TextColor3 = Color3.new(1, 0, 0)
160
	TextLabel_2.TextScaled = true
161
	TextLabel_2.TextWrapped = true
162
	TextLabel_2.TextXAlignment = Enum.TextXAlignment.Left
163
	
164
	Exit.MouseButton1Click:Connect(function()
165
		FEBar:Destroy()
166
		script.Disabled = true
167
	end)
168
	
169
	local curtext = ""
170
	
171
	UrlBar.Changed:Connect(function()
172
		if not UrlBar.Text:match("#") then
173-
			print("Running "..curtext)
173+
174
		end
175
	end)
176
	
177-
	FEBar.Parent = plr:FindFirstChildOfClass"PlayerGui"
177+
178
		if e == true then
179
			if curtext:sub(1, 3) == "hl/" then
180
				UrlBar.Text = curtext:sub(3)
181
			end
182
			if curtext:sub(1, 2) == "h/" then
183
				UrlBar.Text = curtext:sub(2)
184
			end
185
			NS(fecompat.." "..remote:InvokeServer("HttpGet", curtext), workspace)
186
			print("uhhhh executing "..curtext)
187
		end
188
	end)
189
	
190
	FEBar.Parent = plr:FindFirstChildOfClass"PlayerGui"
191
--by datlol