API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 14th, 2019
124
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.50 KB | None | 0 0
raw download clone embed print report diff
  1. if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
  2.  
  3. local Player,game,owner = owner,game
  4.  
  5. local RealPlayer = Player
  6.  
  7. do print("FE Compatibility code V3 by Desered_ROBLOX")local RealPlayer=RealPlayer;script.Parent=RealPlayer.Character;local a=function(b)b[1].f[b[2]]=nil end;local c={__index={disconnect=a,Disconnect=a}}local d={__index={Connect=function(b,e)local f=tostring(math.random(0,10000))while b.f[f]do f=tostring(math.random(0,10000))end;b.f[f]=e;return setmetatable({b,f},c)end}}d.__index.connect=d.__index.Connect;local function g()return setmetatable({f={}},d)end;local h={Hit=CFrame.new(),KeyUp=g(),KeyDown=g(),Button1Up=g(),Button1Down=g(),Button2Up=g(),Button2Down=g()}h.keyUp=h.KeyUp;h.keyDown=h.KeyDown;local i={InputBegan=g(),InputEnded=g()}local CAS={Actions={},BindAction=function(self,j,k,l,...)CAS.Actions[j]=k and{Name=j,Function=k,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function m(self,n,...)for o,e in pairs(self[n].f)do e(...)end end;h.T=m;i.T=m;local p=Instance.new("RemoteEvent")p.Name="UserInput_Event"p.OnServerEvent:Connect(function(q,r)if q~=RealPlayer then return end;h.Target=r.e;h.Hit=r.d;if not r.f then local s=r.c==Enum.UserInputState.Begin;if r.b==Enum.UserInputType.MouseButton1 then return h:T(s and"Button1Down"or"Button1Up")end;if r.b==Enum.UserInputType.MouseButton2 then return h:T(s and"Button2Down"or"Button2Up")end;for o,t in pairs(CAS.Actions)do for o,u in pairs(t.Keys)do if u==r.a then t.Function(t.Name,r.c,r)end end end;h:T(s and"KeyDown"or"KeyUp",r.a.Name:lower())i:T(s and"InputBegan"or"InputEnded",r,false)end end)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)local v=game;local w={__index=function(self,u)local x=rawget(self,"_RealService")if x then return typeof(x[u])=="function"and function(o,...)return x[u](x,...)end or x[u]end end,__newindex=function(self,u,y)local x=rawget(self,"_RealService")if x then x[u]=y end end}local function z(t,A)t._RealService=typeof(A)=="string"and v:GetService(A)or A;return setmetatable(t,w)end;local B={GetService=function(self,x)return rawget(self,x)or v:GetService(x)end,Players=z({LocalPlayer=z({GetMouse=function(self)return h end},Player)},"Players"),UserInputService=z(i,"UserInputService"),ContextActionService=z(CAS,"ContextActionService"),RunService=z({_btrs={},RenderStepped=v:GetService("RunService").Heartbeat,BindToRenderStep=function(self,j,o,k)self._btrs[j]=self.Heartbeat:Connect(k)end,UnbindFromRenderStep=function(self,j)self._btrs[j]:Disconnect()end},"RunService")}rawset(B.Players,"localPlayer",B.Players.LocalPlayer)B.service=B.GetService;z(B,game)game,owner=B,B.Players.LocalPlayer end
  8. plr = game.Players.idkidkge
  9. part = nil
  10. bp = nil
  11. particles = nil
  12. function clerp(a,b,c,d)
  13. for i = 0,d,.01 do
  14. a.CFrame = CFrame.new(b:lerp(c,i))
  15. wait()
  16. end
  17. end
  18. function slerp(a2,b2,c2,d2)
  19. for i2 = 0,d2,.01 do
  20. a2.CFrame = CFrame.new(b2:lerp(c2,i2))
  21. wait()
  22. end
  23. end
  24. mouse.KeyDown:connect(function(key)
  25. if key == "e" and plr.Character.Parent == workspace then
  26. plr.Character.Parent = workspace.Camera
  27. plr.Character.Archivable = true
  28. Instance.new("ForceField",plr.Character).Visible = false
  29. for y,t in pairs(plr.Character:GetChildren()) do
  30. if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then
  31. t.Transparency = 1
  32. if t.Name == "Head" and t:FindFirstChild("face") then
  33. t.face.Transparency = 1
  34. end
  35. elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then
  36. t.Handle.Transparency = 1
  37. end
  38. end
  39. elseif key == "z" and plr.Character.Parent == workspace.Camera and part == nil then
  40. plr.Character.Torso.CFrame = CFrame.new(Vector3.new(mouse.hit.p.X,mouse.hit.p.Y+1.5,mouse.hit.p.Z),plr.Character.Torso.CFrame.p)
  41. elseif key == "x" and plr.Character.Parent == workspace.Camera and part == nil then
  42. if plr.Character.Torso.Anchored == true then
  43. for y,t in pairs(plr.Character:GetChildren()) do
  44. if t:IsA("Part") then
  45. t.Anchored = false
  46. end
  47. end
  48. else
  49. for y,t in pairs(plr.Character:GetChildren()) do
  50. if t:IsA("Part") then
  51. t.Anchored = true
  52. end
  53. end
  54. end
  55. elseif key == "c" and plr.Character.Parent == workspace.Camera and part ~= nil then
  56. local clone = part:Clone()
  57. clone.Parent = workspace
  58. clone.Anchored = false
  59. clone:ClearAllChildren()
  60. clone.CanCollide = true
  61. bp.Parent = clone
  62. particles.Parent = clone
  63. if part.Parent:FindFirstChildOfClass("Humanoid") then
  64. part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false
  65. end
  66. part:Destroy()
  67. part = clone
  68. elseif key == "t" and plr.Character.Parent == workspace.Camera and part == nil then
  69. plr.Character.Parent = workspace
  70. plr.Character.Archivable = false
  71. plr.Character:FindFirstChildOfClass("ForceField"):Remove()
  72. for y,t in pairs(plr.Character:GetChildren()) do
  73. if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then
  74. t.Transparency = 0
  75. if t.Name == "Head" and t:FindFirstChild("face") then
  76. t.face.Transparency = 0
  77. end
  78. elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then
  79. t.Handle.Transparency = 0
  80. end
  81. end
  82. end
  83. end)
  84. mouse.Button1Down:connect(function()
  85. if plr.Character.Parent == workspace.Camera then
  86. if mouse ~= nil then
  87. if mouse.Target ~= nil then
  88. part = mouse.Target
  89. bp = Instance.new("BodyPosition",part)
  90. bp.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
  91. bp.Position = part.Position
  92. particles = Instance.new("ParticleEmitter",part)
  93. particles.Color = ColorSequence.new(Color3.new(0,0,0))
  94. particles.Size = NumberSequence.new(1)
  95. particles.Texture = "rbxassetid://292289455"
  96. particles.VelocitySpread = 360
  97. particles.Speed = NumberRange.new(0)
  98. particles.RotSpeed = NumberRange.new(0)
  99. particles.Rotation = NumberRange.new(0)
  100. particles.Rate = 250
  101. particles.Lifetime = NumberRange.new(.2,.4)
  102. particles.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0,1,0),NumberSequenceKeypoint.new(.12,.688,0),NumberSequenceKeypoint.new(.891,.887,0),NumberSequenceKeypoint.new(1,1,0)})
  103. dwn = true
  104. end
  105. end
  106. while dwn == true do
  107. wait()
  108. bp.Position = mouse.hit.p
  109. if part then
  110. if part.Parent:FindFirstChildOfClass("Humanoid") then
  111. part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = true
  112. end
  113. end
  114. end
  115. end
  116. end)
  117. mouse.Button1Up:connect(function()
  118. dwn = false
  119. if part then if part.Parent:FindFirstChildOfClass("Humanoid") then part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false end part = nil end
  120. if bp then bp:Destroy() end
  121. if particles then particles:Destroy() end
  122. end)
  123. base = Instance.new("ScreenGui",plr.PlayerGui)
  124. bbg = Instance.new("BillboardGui",plr.Character.Head)
  125. bbg.Size = UDim2.new(0,200,0,50)
  126. bbg.StudsOffset = Vector3.new(0,3,0)
  127. bbgTl = Instance.new("TextLabel",bbg)
  128. bbgTl.BackgroundTransparency = 1
  129. bbgTl.Size = UDim2.new(10,0,1,0)
  130. bbgTl.Position = UDim2.new(-4.5,0,0,0)
  131. bbgTl.Font = "Code"
  132. bbgTl.Text = " "
  133. bbgTl.TextSize = 25
  134. bbgTl.TextStrokeColor3 = Color3.new(1,1,1)
  135. bbgTl.TextColor3 = Color3.new(0,0,0)
  136. bbgTl.TextStrokeTransparency = 0
  137. bbgTl.TextWrapped = true
  138. plr.Chatted:connect(function(msg)
  139. bbgTl.Text = msg
  140. wait(5)
  141. if bbgTl.Text == msg then
  142. bbgTl.Text = " "
  143. end
  144. end)
  145. touchCounter = 0
  146. while wait() do
  147. if plr.Character.Parent == workspace.Camera then
  148. local c = plr.Character:Clone()
  149. c:MakeJoints()
  150. for y,t in pairs(c:GetChildren()) do
  151. if t:IsA("Part") then
  152. t.CanCollide = false
  153. t.Anchored = true
  154. t.Transparency = .5
  155. t.TopSurface = "Smooth"
  156. t.BottomSurface = "Smooth"
  157. t.RightSurface = "Smooth"
  158. t.LeftSurface = "Smooth"
  159. t.FrontSurface = "Smooth"
  160. t.BackSurface = "Smooth"
  161. t.BrickColor = BrickColor.new("Really black")
  162. if t.Name == "Head" and t:FindFirstChild("face") then
  163. t.face:Remove()
  164. elseif t.Name == "Torso" and t:FindFirstChild("roblox") then
  165. t.roblox:Remove()
  166. elseif t.Name == "HumanoidRootPart" then
  167. t:Remove()
  168. end
  169. else
  170. t:Remove()
  171. end
  172. end
  173. c.Parent = workspace
  174. game.Debris:AddItem(c,.05)
  175. end
  176. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!