View difference between Paste ID: QQaex7iC and ZBWDSvjP
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-
local Player = game.Players.LocalPlayer
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")
25
	print("You can obtain a copy of his code for his FE compatability at https://github.com/Mokiros/roblox-FE-compatibility.\n")
26
	print("You may also obtain a copy of his licence at https://raw.githubusercontent.com/Mokiros/roblox-FE-compatibility/master/LICENSE.\n")
27
	print("All of the source code in exception to his compatability code is in the public domain, and was made by TheFlamingBlaster.")
28
	
29
	local fecompat = [[
30
	if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
31
	local Player,Mouse,mouse,UserInputService,ContextActionService = owner
32
	local RealPlayer = Player
33
	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]]
34
	
35
	NS([[
36
		wait(1)
37
		local requestHandlers = {
38
			["HttpGet"] = function(client, url, cache) 
39
				return game:GetService"HttpService":GetAsync(url, cache or true)
40
			end,
41
			["GetDataStore"] = function(client, ds, key)
42
				local ds = game:GetService"DataStoreService":GetDataStore(ds):GetAsync(key)
43
			end,
44
			["SetDataStore"] = function(client, ds, key, newval)
45
				local ds = game:GetService"DataStoreService":GetDataStore(ds):SetAsync(key, newval)
46
			end
47
		}
48
		
49
		
50
		local generateRemote
51
		generateRemote = function()
52
			local remote = Instance.new("RemoteFunction")
53
			remote.Name = getfenv().owner.Name.." : Coms"
54
			
55
			remote.OnServerInvoke = function(client, request, ...) 
56
				if requestHandlers[request] then
57
					return requestHandlers[request](client, ...)
58
				end
59
			end
60
			
61
			remote.Parent = workspace
62
			
63
			remote.AncestryChanged:Connect(function() 
64
				delay(0.03, function() 
65
					if remote then
66
						remote:Destroy()
67
					end
68
				end)
69
				generateRemote()
70
			end)
71
		end
72
		
73
		
74
		generateRemote()
75
	]], workspace)
76
	
77
	local remote = workspace:FindFirstChild(plr.Name..": Coms") or workspace:WaitForChild(plr.Name.." : Coms")
78
	
79
	-- Objects
80
	
81
	local FEBar = Instance.new("ScreenGui")
82
	local BG = Instance.new("Frame")
83
	local TextLabel = Instance.new("TextLabel")
84
	local Exit = Instance.new("TextButton")
85
	local UrlBar = Instance.new("TextBox")
86
	local TextLabel_2 = Instance.new("TextLabel")
87
88
	-- Properties
89
	
90
	FEBar.Name = "FEBar"
91
	
92
	BG.Name = "BG"
93
	BG.Parent = FEBar
94
	BG.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
95
	BG.BorderSizePixel = 0
96
	BG.Position = UDim2.new(0.720785916, 0, 0.897717714, 0)
97
	BG.Size = UDim2.new(0.279214054, 0, 0.10228233, 0)
98
	
99
	TextLabel.Parent = BG
100
	TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
101
	TextLabel.BackgroundTransparency = 1
102
	TextLabel.Size = UDim2.new(0.683333337, 0, 0.201834857, 0)
103
	TextLabel.Font = Enum.Font.SourceSansSemibold
104
	TextLabel.FontSize = Enum.FontSize.Size14
105
	TextLabel.Text = "FE Command Bar"
106
	TextLabel.TextColor3 = Color3.new(1, 1, 1)
107
	TextLabel.TextScaled = true
108
	TextLabel.TextWrapped = true
109
	TextLabel.TextXAlignment = Enum.TextXAlignment.Left
110
	
111
	Exit.Name = "Exit"
112
	Exit.Parent = BG
113
	Exit.BackgroundColor3 = Color3.new(1, 1, 1)
114
	Exit.BackgroundTransparency = 1
115
	Exit.Position = UDim2.new(0.899999976, 0, 0, 0)
116
	Exit.Size = UDim2.new(0.100000001, 0, 0.206422016, 0)
117
	Exit.Font = Enum.Font.SourceSans
118
	Exit.FontSize = Enum.FontSize.Size14
119
	Exit.Text = "X"
120
	Exit.TextColor3 = Color3.new(1, 0, 0)
121
	Exit.TextScaled = true
122
	Exit.TextWrapped = true
123
	
124
	UrlBar.Name = "UrlBar"
125
	UrlBar.Parent = BG
126
	UrlBar.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
127
	UrlBar.BorderSizePixel = 0
128
	UrlBar.Position = UDim2.new(0, 0, 0.247933879, 0)
129
	UrlBar.Size = UDim2.new(1, 0, 0.504132211, 0)
130
	UrlBar.Font = Enum.Font.SourceSans
131
	UrlBar.FontSize = Enum.FontSize.Size14
132
	UrlBar.Text = ""
133
	UrlBar.TextColor3 = Color3.new(0, 0, 0)
134
	UrlBar.TextScaled = true
135
	UrlBar.TextWrapped = true
136
	UrlBar.TextXAlignment = Enum.TextXAlignment.Left
137
	
138
	TextLabel_2.Parent = BG
139
	TextLabel_2.BackgroundColor3 = Color3.new(1, 0, 0)
140
	TextLabel_2.BackgroundTransparency = 1
141
	TextLabel_2.Position = UDim2.new(0, 0, 0.834710777, 0)
142
	TextLabel_2.Size = UDim2.new(1, 0, 0.165289253, 0)
143
	TextLabel_2.Font = Enum.Font.SourceSansSemibold
144
	TextLabel_2.FontSize = Enum.FontSize.Size14
145
	TextLabel_2.Text = "Click the  black box above, paste in your link and press \"Enter\" to run your script."
146
	TextLabel_2.TextColor3 = Color3.new(1, 0, 0)
147
	TextLabel_2.TextScaled = true
148
	TextLabel_2.TextWrapped = true
149
	TextLabel_2.TextXAlignment = Enum.TextXAlignment.Left
150
	
151
	Exit.MouseButton1Click:Connect(function()
152
		FEBar:Destroy()
153
		script.Disabled = true
154
	end)
155
	
156
	local curtext = ""
157
	
158
	UrlBar.Changed:Connect(function()
159
		if not UrlBar.Text:match("#") then
160
			curtext = UrlBar.Text
161
		end
162
	end)
163
	
164
	UrlBar.FocusLost:Connect(function(e)
165
		if e == true then
166
			if curtext:sub(1, 3) == "hl/" then
167
				UrlBar.Text = curtext:sub(3)
168
			end
169
			if curtext:sub(1, 2) == "h/" then
170
				UrlBar.Text = curtext:sub(2)
171
			end
172
			NS(fecompat.." "..remote:InvokeServer("HttpGet", curtext), workspace)
173
			print("Running "..curtext)
174
		end
175
	end)
176
	
177
	FEBar.Parent = plr:FindFirstChildOfClass"PlayerGui"
178
179
--ffghjkgh67
180
181
--Script Builder Radio!
182
183
local Player = game.Players.von12222222
184
local c = Player.Character
185
if not c or not c.Parent then
186
    c = Player.CharacterAdded:wait()
187
end
188
189
wait(1)
190
191
local radio = Instance.new("Part",c)
192
radio.Name = "Radio"
193
radio.CanCollide = false
194
radio.Anchored = true
195
radio.FormFactor = "Custom"
196
radio.Size = Vector3.new(3.2, 1.43, 0.8)
197
radio.CFrame = c.Torso.CFrame * CFrame.new(0,0,.8)
198
radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,3.15,0)
199
radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,0,-.7)
200
201
local mesh = Instance.new("SpecialMesh",radio)
202
mesh.MeshId = "http://www.roblox.com/asset/?id=151760030"
203
mesh.TextureId = "https://www.roblox.com/Sweg-item?id=156708131"
204
205
local weld = Instance.new("Weld",radio)
206
weld.Part0 = c.Torso
207
weld.Part1 = radio
208
weld.C0 = c.Torso.CFrame:inverse()
209
weld.C1 = radio.CFrame:inverse()
210
radio.Anchored = false
211
212
local sound = Instance.new("Sound",radio)
213
sound.Name = "Music"
214
sound.Looped = true
215
sound.Volume = 1
216
217
local gui = Instance.new("ScreenGui",Player.PlayerGui)
218
219
local frame = Instance.new("Frame",gui)
220
frame.BackgroundColor3 = Color3.new(58/255,58/255,58/255)
221
frame.BorderColor3 = Color3.new(0,0,0)
222
frame.BorderSizePixel = 2
223
frame.Size = UDim2.new(0,300,0,200)
224
frame.Position = UDim2.new(0,20,.5,-100)
225
226
local playb = Instance.new("TextButton",frame)
227
playb.BackgroundColor3 = Color3.new(0,85/255,0)
228
playb.BorderColor3 = Color3.new(0,0,0)
229
playb.BorderSizePixel = 2
230
playb.Size = UDim2.new(.3,0,.2,0)
231
playb.Position = UDim2.new(.1,0,.7,0)
232
playb.Text = "Play"
233
playb.TextColor3 = Color3.new(255,255,255)
234
playb.TextScaled = true
235
236
local stopb = Instance.new("TextButton",frame)
237
stopb.BackgroundColor3 = Color3.new(170/255,0,0)
238
stopb.BorderColor3 = Color3.new(0,0,0)
239
stopb.BorderSizePixel = 2
240
stopb.Size = UDim2.new(.3,0,.2,0)
241
stopb.Position = UDim2.new(.6,0,.7,0)
242
stopb.Text = "Stop"
243
stopb.TextColor3 = Color3.new(255,255,255)
244
stopb.TextScaled = true
245
246
local stipb = Instance.new("TextBox",frame)
247
stipb.BackgroundColor3 = Color3.new(0,0,127/255)
248
stipb.BorderColor3 = Color3.new(0,0,0)
249
stipb.BorderSizePixel = 2
250
stipb:TweenSize(UDim2.new(.5,0,.25,0),"Out","Quad",1,true)
251
stipb.Position = UDim2.new(.25,0,.3,0)
252
stipb.Text = "SoundId"
253
stipb.TextColor3 = Color3.new(255,255,255)
254
stipb.TextScaled = true
255
256
local label = Instance.new("TextLabel",frame)
257
label.Text = "Made By ChuckXZ!"
258
label.TextScaled = true
259
label:TweenSize(UDim2.new(1,0,.2,0))
260
label.TextColor3 = Color3.new(255,255,255)
261
label.BackgroundTransparency = 1
262
--stipb.Size = UDim2.new(1,0,.2,0)
263
264
local Playing = false
265
266
stipb.Changed:connect(function()
267
	sound.SoundId = "rbxassetid://" .. stipb.Text
268
end)
269
270
playb.MouseButton1Click:connect(function()
271
	sound:Play()
272
	Playing = true
273
end)
274
275
stopb.MouseButton1Click:connect(function()
276
	sound:Stop()
277
	Playing = false
278
end)
279
280
while true do
281
	if Playing then
282
		mesh.Scale = Vector3.new(1.1,1.1,1.1)
283
		wait(.2)
284
		mesh.Scale = Vector3.new(1,1,1)
285
	end
286
	wait(.2)
287
end