View difference between Paste ID: G3kSwgHK and x7QsGAb7
SHOW: | | - or go back to the newest paste.
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(255,255,0)
129+
bbgTl.TextColor3 = Color3.new(0,0,255)
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("Toothpaste")
155+
				t.BrickColor = BrickColor.new("Crimson")
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