Demonlord27

shadow

Jan 21st, 2018
144
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.43 KB | None | 0 0
  1. plr = game.Players.LocalPlayer
  2. mouse = plr:GetMouse()
  3. part = nil
  4. bp = nil
  5. particles = nil
  6. function clerp(a,b,c,d)
  7. for i = 0,d,.01 do
  8. a.CFrame = CFrame.new(b:lerp(c,i))
  9. wait()
  10. end
  11. end
  12. function slerp(a2,b2,c2,d2)
  13. for i2 = 0,d2,.01 do
  14. a2.CFrame = CFrame.new(b2:lerp(c2,i2))
  15. wait()
  16. end
  17. end
  18. mouse.KeyDown:connect(function(key)
  19. if key == "e" and plr.Character.Parent == workspace then
  20. plr.Character.Parent = workspace.Camera
  21. plr.Character.Archivable = true
  22. Instance.new("ForceField",plr.Character).Visible = false
  23. for y,t in pairs(plr.Character:GetChildren()) do
  24. if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then
  25. t.Transparency = 1
  26. if t.Name == "Head" and t:FindFirstChild("face") then
  27. t.face.Transparency = 1
  28. end
  29. elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then
  30. t.Handle.Transparency = 1
  31. end
  32. end
  33. elseif key == "z" and plr.Character.Parent == workspace.Camera and part == nil then
  34. 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)
  35. elseif key == "x" and plr.Character.Parent == workspace.Camera and part == nil then
  36. if plr.Character.Torso.Anchored == true then
  37. for y,t in pairs(plr.Character:GetChildren()) do
  38. if t:IsA("Part") then
  39. t.Anchored = false
  40. end
  41. end
  42. else
  43. for y,t in pairs(plr.Character:GetChildren()) do
  44. if t:IsA("Part") then
  45. t.Anchored = true
  46. end
  47. end
  48. end
  49. elseif key == "c" and plr.Character.Parent == workspace.Camera and part ~= nil then
  50. local clone = part:Clone()
  51. clone.Parent = workspace
  52. clone.Anchored = false
  53. clone:ClearAllChildren()
  54. clone.CanCollide = true
  55. bp.Parent = clone
  56. particles.Parent = clone
  57. if part.Parent:FindFirstChildOfClass("Humanoid") then
  58. part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false
  59. end
  60. part:Destroy()
  61. part = clone
  62. elseif key == "t" and plr.Character.Parent == workspace.Camera and part == nil then
  63. plr.Character.Parent = workspace
  64. plr.Character.Archivable = false
  65. plr.Character:FindFirstChildOfClass("ForceField"):Remove()
  66. for y,t in pairs(plr.Character:GetChildren()) do
  67. if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then
  68. t.Transparency = 0
  69. if t.Name == "Head" and t:FindFirstChild("face") then
  70. t.face.Transparency = 0
  71. end
  72. elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then
  73. t.Handle.Transparency = 0
  74. end
  75. end
  76. end
  77. end)
  78. mouse.Button1Down:connect(function()
  79. if plr.Character.Parent == workspace.Camera then
  80. if mouse ~= nil then
  81. if mouse.Target ~= nil then
  82. part = mouse.Target
  83. bp = Instance.new("BodyPosition",part)
  84. bp.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
  85. bp.Position = part.Position
  86. particles = Instance.new("ParticleEmitter",part)
  87. particles.Color = ColorSequence.new(Color3.new(0,0,0))
  88. particles.Size = NumberSequence.new(1)
  89. particles.Texture = "rbxassetid://292289455"
  90. particles.VelocitySpread = 360
  91. particles.Speed = NumberRange.new(0)
  92. particles.RotSpeed = NumberRange.new(0)
  93. particles.Rotation = NumberRange.new(0)
  94. particles.Rate = 250
  95. particles.Lifetime = NumberRange.new(.2,.4)
  96. particles.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0,1,0),NumberSequenceKeypoint.new(.12,.688,0),NumberSequenceKeypoint.new(.891,.887,0),NumberSequenceKeypoint.new(1,1,0)})
  97. dwn = true
  98. end
  99. end
  100. while dwn == true do
  101. wait()
  102. bp.Position = mouse.hit.p
  103. if part then
  104. if part.Parent:FindFirstChildOfClass("Humanoid") then
  105. part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = true
  106. end
  107. end
  108. end
  109. end
  110. end)
  111. mouse.Button1Up:connect(function()
  112. dwn = false
  113. if part then if part.Parent:FindFirstChildOfClass("Humanoid") then part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false end part = nil end
  114. if bp then bp:Destroy() end
  115. if particles then particles:Destroy() end
  116. end)
  117. base = Instance.new("ScreenGui",plr.PlayerGui)
  118. bbg = Instance.new("BillboardGui",plr.Character.Head)
  119. bbg.Size = UDim2.new(0,200,0,50)
  120. bbg.StudsOffset = Vector3.new(0,3,0)
  121. bbgTl = Instance.new("TextLabel",bbg)
  122. bbgTl.BackgroundTransparency = 1
  123. bbgTl.Size = UDim2.new(10,0,1,0)
  124. bbgTl.Position = UDim2.new(-4.5,0,0,0)
  125. bbgTl.Font = "Code"
  126. bbgTl.Text = " "
  127. bbgTl.TextSize = 25
  128. bbgTl.TextStrokeColor3 = Color3.new(1,1,1)
  129. bbgTl.TextColor3 = Color3.new(0,0,0)
  130. bbgTl.TextStrokeTransparency = 0
  131. bbgTl.TextWrapped = true
  132. plr.Chatted:connect(function(msg)
  133. bbgTl.Text = msg
  134. wait(5)
  135. if bbgTl.Text == msg then
  136. bbgTl.Text = " "
  137. end
  138. end)
  139. touchCounter = 0
  140. while wait() do
  141. if plr.Character.Parent == workspace.Camera then
  142. local c = plr.Character:Clone()
  143. c:MakeJoints()
  144. for y,t in pairs(c:GetChildren()) do
  145. if t:IsA("Part") then
  146. t.CanCollide = false
  147. t.Anchored = true
  148. t.Transparency = .5
  149. t.TopSurface = "Smooth"
  150. t.BottomSurface = "Smooth"
  151. t.RightSurface = "Smooth"
  152. t.LeftSurface = "Smooth"
  153. t.FrontSurface = "Smooth"
  154. t.BackSurface = "Smooth"
  155. t.BrickColor = BrickColor.new("Really black")
  156. if t.Name == "Head" and t:FindFirstChild("face") then
  157. t.face:Remove()
  158. elseif t.Name == "Torso" and t:FindFirstChild("roblox") then
  159. t.roblox:Remove()
  160. elseif t.Name == "HumanoidRootPart" then
  161. t:Remove()
  162. end
  163. else
  164. t:Remove()
  165. end
  166. end
  167. c.Parent = workspace
  168. game.Debris:AddItem(c,.05)
  169. end
  170. end
Add Comment
Please, Sign In to add comment