memberhero

Test2

Oct 5th, 2020
134
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- Farewell Infortality.
  2. -- Version: 2.82
  3. -- Instances:
  4. --FE Converter By basstracker1970
  5. --Made With Gui To Lua Plugin
  6. if game:GetService("RunService"):IsClient() then
  7. error("Script must be server-side in order to work; use h/ and not hl/")
  8. end
  9. local Player, game, owner = owner, game
  10. local RealPlayer = Player
  11. do
  12. print("FE Compatibility code V2 by Mokiros")
  13. local RealPlayer = RealPlayer;
  14. script.Parent = RealPlayer.Character;
  15. local a = function(b)
  16. b[1].f[b[2]] = nil
  17. end;
  18. local c = {
  19. __index = {
  20. disconnect = a,
  21. Disconnect = a
  22. }
  23. }
  24. local d = {
  25. __index = {
  26. Connect = function(b, e)
  27. local f = tostring(math.random(0, 10000))
  28. while b.f[f] do
  29. f = tostring(math.random(0, 10000))
  30. end;
  31. b.f[f] = e;
  32. return setmetatable({
  33. b,
  34. f
  35. }, c)
  36. end
  37. }
  38. }
  39. d.__index.connect = d.__index.Connect;
  40. local function g()
  41. return setmetatable({
  42. f = {}
  43. }, d)
  44. end;
  45. local h = {
  46. Hit = CFrame.new(),
  47. KeyUp = g(),
  48. KeyDown = g(),
  49. Button1Up = g(),
  50. Button1Down = g(),
  51. Button2Up = g(),
  52. Button2Down = g()
  53. }
  54. h.keyUp = h.KeyUp;
  55. h.keyDown = h.KeyDown;
  56. local i = {
  57. InputBegan = g(),
  58. InputEnded = g()
  59. }
  60. local CAS = {
  61. Actions = {},
  62. BindAction = function(self, j, k, l, ...)
  63. CAS.Actions[j] = k and {
  64. Name = j,
  65. Function = k,
  66. Keys = {
  67. ...
  68. }
  69. } or nil
  70. end
  71. }
  72. CAS.UnbindAction = CAS.BindAction;
  73. local function m(self, n, ...)
  74. for o, e in pairs(self[n].f) do
  75. e(...)
  76. end
  77. end;
  78. h.T = m;
  79. i.T = m;
  80. local p = Instance.new("RemoteEvent")
  81. p.Name = "UserInput_Event"
  82. p.OnServerEvent:Connect(function(q, r)
  83. if q ~= RealPlayer then
  84. return
  85. end;
  86. h.Target = r.e;
  87. h.Hit = r.d;
  88. if not r.f then
  89. local s = r.c == Enum.UserInputState.Begin;
  90. if r.b == Enum.UserInputType.MouseButton1 then
  91. return h:T(s and "Button1Down" or "Button1Up")
  92. end;
  93. if r.b == Enum.UserInputType.MouseButton2 then
  94. return h:T(s and "Button2Down" or "Button2Up")
  95. end;
  96. for o, t in pairs(CAS.Actions) do
  97. for o, u in pairs(t.Keys) do
  98. if u == r.a then
  99. t.Function(t.Name, r.c, r)
  100. end
  101. end
  102. end;
  103. h:T(s and "KeyDown" or "KeyUp", r.a.Name:lower())
  104. i:T(s and "InputBegan" or "InputEnded", r, false)
  105. end
  106. end)
  107. p.Parent = NLS([==[local a=script:WaitForChild("UserInput_Event")local b=owner:GetMouse()local c=game:GetService("UserInputService")local d=function(e,f)if f then return end;a:FireServer({a=e.KeyCode,b=e.UserInputType,c=e.UserInputState,d=b.Hit,e=b.Target})end;c.InputBegan:Connect(d)c.InputEnded:Connect(d)local g,h;local i=game:GetService("RunService").Heartbeat;while true do if g~=b.Hit or h~=b.Target then g,h=b.Hit,b.Target;a:FireServer({f=1,Target=h,d=g})end;for j=1,2 do i:Wait()end end]==], script)
  108. local v = game;
  109. local w = {
  110. __index = function(self, u)
  111. local x = rawget(self, "_RealService")
  112. if x then
  113. return typeof(x[u]) == "function" and function(o, ...)
  114. return x[u](x, ...)
  115. end or x[u]
  116. end
  117. end,
  118. __newindex = function(self, u, y)
  119. local x = rawget(self, "_RealService")
  120. if x then
  121. x[u] = y
  122. end
  123. end
  124. }
  125. local function z(t, A)
  126. t._RealService = typeof(A) == "string" and v:GetService(A) or A;
  127. return setmetatable(t, w)
  128. end;
  129. local B = {
  130. GetService = function(self, x)
  131. return rawget(self, x) or v:GetService(x)
  132. end,
  133. Players = z({
  134. LocalPlayer = z({
  135. GetMouse = function(self)
  136. return h
  137. end
  138. }, Player)
  139. }, "Players"),
  140. UserInputService = z(i, "UserInputService"),
  141. ContextActionService = z(CAS, "ContextActionService"),
  142. RunService = z({
  143. _btrs = {},
  144. RenderStepped = v:GetService("RunService").Heartbeat,
  145. BindToRenderStep = function(self, j, o, k)
  146. self._btrs[j] = self.Heartbeat:Connect(k)
  147. end,
  148. UnbindFromRenderStep = function(self, j)
  149. self._btrs[j]:Disconnect()
  150. end
  151. }, "RunService")
  152. }
  153. rawset(B.Players, "localPlayer", B.Players.LocalPlayer)
  154. B.service = B.GetService;
  155. z(B, game)
  156. game, owner = B, B.Players.LocalPlayer
  157. end
  158. wait(0.2)
  159. local plr = owner
  160. local ScreenGui = Instance.new("ScreenGui")
  161. local TextBox = Instance.new("TextBox")
  162. local TextLabel = Instance.new("TextLabel")
  163. --Properties:
  164. ScreenGui.Parent = plr:WaitForChild("PlayerGui")
  165. ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
  166.  
  167. TextBox.Parent = ScreenGui
  168. TextBox.BackgroundColor3 = Color3.new(0, 0.333333, 1)
  169. TextBox.BorderColor3 = Color3.new(0, 0.333333, 1)
  170. TextBox.BorderSizePixel = 0
  171. TextBox.Position = UDim2.new(0.742599726, 0, 0.83808744, 0)
  172. TextBox.Size = UDim2.new(0, 200, 0, 50)
  173. TextBox.Font = Enum.Font.SourceSans
  174. TextBox.Text = ""
  175. TextBox.TextColor3 = Color3.new(0, 0, 0)
  176. TextBox.TextSize = 14
  177.  
  178. TextLabel.Parent = ScreenGui
  179. TextLabel.BackgroundColor3 = Color3.new(0, 0.333333, 1)
  180. TextLabel.BorderSizePixel = 0
  181. TextLabel.Position = UDim2.new(0.742599726, 0, 0.758901358, 0)
  182. TextLabel.Size = UDim2.new(0, 200, 0, 50)
  183. TextLabel.Font = Enum.Font.SourceSans
  184. TextLabel.Text = "FE Script Converter By basstracker1970"
  185. TextLabel.TextColor3 = Color3.new(0, 0, 0)
  186. TextLabel.TextScaled = true
  187. TextLabel.TextSize = 14
  188. TextLabel.TextWrapped = true
  189. -- Scripts:
  190. function SCRIPT_AHJG82_FAKESCRIPT() -- TextBox.Script
  191. local script = Instance.new('Script')
  192. script.Parent = TextBox
  193. link = script.Parent.Text
  194. script.Parent.FocusLost:Connect(function()
  195. local ScriptLink = ""..link
  196.  
  197. --//Do not touch anything below this line, you may break it.
  198. local FeSource = nil;pcall(function()FeSource = game:GetService("HttpService"):GetAsync("https://pastebin.com/raw/V5gzxd1Z")end);
  199. local ScriptSource = nil;pcall(function()ScriptSource = game:GetService("HttpService"):GetAsync(ScriptLink)end);
  200. if not FeSource then error("Failed to grab update! Try again later.",0)end;if not ScriptSource then error("Failed to get link!",0)end;
  201. local FeConversion = loadstring(FeSource);local FeSucc,FeErr = pcall(FeConversion);if not FeSucc then warn(FeErr)error("Failed to initiate! Try again later.",0) end;
  202. local Script = loadstring(ScriptSource);local Succ,Err = pcall(Script);if not Succ then warn(Err)error("Error loading script.",0) end;
  203. end)
  204.  
  205. end
  206. coroutine.resume(coroutine.create(SCRIPT_AHJG82_FAKESCRIPT))
Add Comment
Please, Sign In to add comment