Advertisement
Guest User

Draggable FE Bar

a guest
Nov 21st, 2019
113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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("FE Bar by ScriptDetect")
  25.  
  26. local fecompat = [[
  27. if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
  28. local Player,Mouse,mouse,UserInputService,ContextActionService = owner
  29. local RealPlayer = Player
  30. 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]]
  31.  
  32. NS([[
  33. wait(1)
  34. local requestHandlers = {
  35. ["HttpGet"] = function(client, url, cache)
  36. return game:GetService"HttpService":GetAsync(url, cache or true)
  37. end,
  38. ["GetDataStore"] = function(client, ds, key)
  39. local ds = game:GetService"DataStoreService":GetDataStore(ds):GetAsync(key)
  40. end,
  41. ["SetDataStore"] = function(client, ds, key, newval)
  42. local ds = game:GetService"DataStoreService":GetDataStore(ds):SetAsync(key, newval)
  43. end
  44. }
  45.  
  46.  
  47. local generateRemote
  48. generateRemote = function()
  49. local remote = Instance.new("RemoteFunction")
  50. remote.Name = getfenv().owner.Name.." : Coms"
  51.  
  52. remote.OnServerInvoke = function(client, request, ...)
  53. if requestHandlers[request] then
  54. return requestHandlers[request](client, ...)
  55. end
  56. end
  57.  
  58. remote.Parent = workspace
  59.  
  60. remote.AncestryChanged:Connect(function()
  61. delay(0.03, function()
  62. if remote then
  63. remote:Destroy()
  64. end
  65. end)
  66. generateRemote()
  67. end)
  68. end
  69.  
  70.  
  71. generateRemote()
  72. ]], workspace)
  73.  
  74. local remote = workspace:FindFirstChild(plr.Name..": Coms") or workspace:WaitForChild(plr.Name.." : Coms")
  75.  
  76. -- Instances:
  77.  
  78. local FEBar = Instance.new("ScreenGui")
  79. local BG = Instance.new("Frame")
  80. local Exit = Instance.new("TextButton")
  81. local UrlBar = Instance.new("TextBox")
  82. local Bar = Instance.new("TextLabel")
  83. local Bar2 = Instance.new("TextLabel")
  84. local Note = Instance.new("TextLabel")
  85. local Title = Instance.new("TextLabel")
  86.  
  87. --Properties:
  88.  
  89. FEBar.Name = "FEBar"
  90. FEBar.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
  91. FEBar.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
  92.  
  93. BG.Name = "BG"
  94. BG.Parent = FEBar
  95. BG.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
  96. BG.BorderSizePixel = 0
  97. BG.Position = UDim2.new(0.264202863, 0, -0.00106909871, 0)
  98. BG.Size = UDim2.new(0, 325, 0, 74)
  99.  
  100. Exit.Name = "Exit"
  101. Exit.Parent = BG
  102. Exit.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
  103. Exit.BorderSizePixel = 0
  104. Exit.Position = UDim2.new(0.960000038, 0, 0.0188012123, 0)
  105. Exit.Size = UDim2.new(0, 12, 0, 13)
  106. Exit.Font = Enum.Font.SourceSans
  107. Exit.Text = "X"
  108. Exit.TextColor3 = Color3.new(1, 0, 0)
  109. Exit.TextSize = 14
  110. Exit.TextWrapped = true
  111.  
  112. UrlBar.Name = "UrlBar"
  113. UrlBar.Parent = BG
  114. UrlBar.BackgroundColor3 = Color3.new(0.0784314, 0.0784314, 0.0784314)
  115. UrlBar.BorderSizePixel = 0
  116. UrlBar.Position = UDim2.new(0.0399999991, 0, 0.412001252, 0)
  117. UrlBar.Size = UDim2.new(0, 299, 0, 37)
  118. UrlBar.Font = Enum.Font.SourceSans
  119. UrlBar.Text = ""
  120. UrlBar.TextColor3 = Color3.new(0, 0, 0)
  121. UrlBar.TextSize = 14
  122.  
  123. Bar.Name = "Bar"
  124. Bar.Parent = BG
  125. Bar.BackgroundColor3 = Color3.new(0, 0.737255, 0)
  126. Bar.BorderSizePixel = 0
  127. Bar.Position = UDim2.new(0, 0, 0.19447729, 0)
  128. Bar.Size = UDim2.new(0, 325, 0, 5)
  129. Bar.Font = Enum.Font.SourceSans
  130. Bar.Text = ""
  131. Bar.TextColor3 = Color3.new(0, 0, 0)
  132. Bar.TextSize = 14
  133.  
  134. Bar2.Name = "Bar2"
  135. Bar2.Parent = BG
  136. Bar2.BackgroundColor3 = Color3.new(0, 0.517647, 0)
  137. Bar2.BorderSizePixel = 0
  138. Bar2.Position = UDim2.new(0, 0, 0.262044877, 0)
  139. Bar2.Size = UDim2.new(0, 325, 0, 4)
  140. Bar2.Font = Enum.Font.SourceSans
  141. Bar2.Text = ""
  142. Bar2.TextColor3 = Color3.new(0, 0, 0)
  143. Bar2.TextSize = 14
  144.  
  145. Note.Name = "Note"
  146. Note.Parent = BG
  147. Note.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
  148. Note.BorderSizePixel = 0
  149. Note.Position = UDim2.new(0, 0, 1, 0)
  150. Note.Size = UDim2.new(0, 325, 0, 18)
  151. Note.Font = Enum.Font.SourceSans
  152. Note.Text = "Import NON-FE Scripts here"
  153. Note.TextColor3 = Color3.new(1, 1, 1)
  154. Note.TextScaled = true
  155. Note.TextSize = 14
  156. Note.TextWrapped = true
  157.  
  158. Title.Name = "Title"
  159. Title.Parent = BG
  160. Title.BackgroundColor3 = Color3.new(1, 1, 1)
  161. Title.BackgroundTransparency = 1
  162. Title.Position = UDim2.new(0.141538456, 0, 0.0188011993, 0)
  163. Title.Size = UDim2.new(0, 233, 0, 15)
  164. Title.Font = Enum.Font.GothamSemibold
  165. Title.Text = "Non FE Script Injector"
  166. Title.TextColor3 = Color3.new(1, 1, 1)
  167. Title.TextScaled = true
  168. Title.TextSize = 14
  169. Title.TextWrapped = true
  170.  
  171. -- Scripts:
  172.  
  173. local function BRAVCPW_fake_script() -- FEBar.Draggable (Read)
  174. local script = Instance.new('LocalScript', FEBar)
  175.  
  176. frame = script.Parent.BG --Name of the frame you wanna move
  177. frame.Draggable = true
  178. frame.Active = true
  179. frame.Selectable = true
  180. --Place IN the gui NOT in the Frame , Other wise the script will break
  181. --Thanks to TheManInCity (On youtube) by comenting on the video
  182. --Thanks to me for uploading (lol)
  183.  
  184. --Ps we know that Draggable got removed but this script somehow works :D
  185. end
  186. coroutine.wrap(BRAVCPW_fake_script)()
  187.  
  188. Exit.MouseButton1Click:Connect(function()
  189. FEBar:Destroy()
  190. script.Disabled = true
  191. end)
  192.  
  193. local curtext = ""
  194.  
  195. UrlBar.Changed:Connect(function()
  196. if not UrlBar.Text:match("#") then
  197. curtext = UrlBar.Text
  198. end
  199. end)
  200.  
  201. UrlBar.FocusLost:Connect(function(e)
  202. if e == true then
  203. if curtext:sub(1, 3) == "hl/" then
  204. UrlBar.Text = curtext:sub(3)
  205. end
  206. if curtext:sub(1, 2) == "h/" then
  207. UrlBar.Text = curtext:sub(2)
  208. end
  209. NS(fecompat.." "..remote:InvokeServer("HttpGet", curtext), workspace)
  210. print("Running "..curtext)
  211. end
  212. end)
  213.  
  214. FEBar.Parent = plr:FindFirstChildOfClass"PlayerGui"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement