View difference between Paste ID: mSWUwFGg and pFkGpuny
SHOW: | | - or go back to the newest paste.
1
wait()
2-
local owner = game:GetService("Players").silver22352
2+
local owner = game:GetService("Players").lafur2
3
if owner.Character~=nil then
4
	local ch = owner.Character
5
	if ch:FindFirstChild'HumanoidRootPart'then
6
		local p1 = Instance.new("Part",ch)
7
		p1.CFrame = ch.HumanoidRootPart.CFrame * CFrame.new(0,0,7.5)
8
		p1.Massless = true
9
		p1.Transparency = 1
10
		p1.Name = '∞Pos'
11
		p1.CanCollide = false
12
		local w = Instance.new("WeldConstraint",p1)
13
		w.Part0 = p1
14
		w.Part1 = ch.HumanoidRootPart
15
	end
16
end
17
workspace.ChildAdded:Connect(function(ch)
18
	if game:GetService("Players"):GetPlayerFromCharacter(ch)and ch==owner.Character then
19
		wait(.1)
20
		local p1 = Instance.new("Part",ch)
21
		p1.CFrame = ch.HumanoidRootPart.CFrame * CFrame.new(0,0,7.5)
22
		p1.Massless = true
23
		p1.Transparency = 1
24
		p1.Name = '∞Pos'
25
		p1.CanCollide = false
26
		local w = Instance.new("WeldConstraint",p1)
27
		w.Part0 = p1
28
		w.Part1 = ch.HumanoidRootPart
29
	end
30
end)
31
32
33
local gui = Instance.new("ScreenGui",owner:FindFirstChildWhichIsA'PlayerGui')
34
gui.ResetOnSpawn = false
35
	
36
local frame = Instance.new("Frame",gui)
37
frame.Active = true
38
frame.BackgroundColor3 = Color3.new(0,0,0)
39
frame.BackgroundTransparency = .5
40
frame.Draggable = true
41
frame.Position = UDim2.new(.375,0,.25,0)
42
frame.Size = UDim2.new(.25,0,.5,0)
43
frame.ClipsDescendants = true
44
frame.Selectable = true
45
	
46
local TBTar = Instance.new("TextLabel",frame)
47
TBTar.BackgroundColor3 = frame.BackgroundColor3
48
TBTar.Size = UDim2.new(1,0,.25,0)
49
TBTar.Font = Enum.Font.Code
50
TBTar.Text = ' '
51
TBTar.TextColor3 = Color3.new(255, 255, 255)
52
TBTar.TextScaled = true
53
54
local GetTarget = Instance.new("TextButton",frame)
55
GetTarget.BackgroundColor3 = frame.BackgroundColor3
56
GetTarget.Position = UDim2.new(0,0,.25,0)
57
GetTarget.Size = TBTar.Size
58
GetTarget.Font = TBTar.Font
59
GetTarget.Text = 'Get Target'
60
GetTarget.TextColor3 = TBTar.TextColor3
61
GetTarget.TextScaled = true
62
63
local GetPos = Instance.new("TextButton",frame)
64
GetPos.BackgroundColor3 = Color3.new(255,0,0)
65
GetPos.Position = UDim2.new(0,0,.5,0)
66
GetPos.Size = TBTar.Size
67
GetPos.Font = TBTar.Font
68
GetPos.Text = 'Route to Owner'
69
GetPos.TextColor3 = TBTar.TextColor3
70
GetPos.TextScaled = true
71
72
local sv = Instance.new("StringValue",frame)
73
sv.Value = ''
74
75
owner.Chatted:Connect(function(msg)
76
	if msg:sub(1,5):lower()=='/e c 'then
77
		TBTar.Text = msg:sub(6,msg:len())
78
	end
79
end)
80
	
81
local function weldi(p0,p1)
82
	local w = Instance.new("WeldConstraint",p0)
83
	w.Part0 = p0
84
	w.Part1 = p1
85
end
86
local function GetPlayerFromKeyWord(kw)
87
	for _,v in pairs(game:GetService'Players':GetPlayers())do
88
		if string.find(
89
			string.reverse(string.lower(v.Name)),
90
			string.reverse(string.lower(kw)),
91
			string.len(v.Name)-kw:len()
92
		)~=nil then
93
			return v
94
		end
95
	end
96
	return nil
97
end
98
local function Eyes(tplayer)
99
	if tplayer~=nil then
100
		local tchar = tplayer.Character
101
		if tchar~=nil then
102
			local thead = tchar:FindFirstChild'Head'
103
			local thum = tchar:FindFirstChildWhichIsA'Humanoid'
104
			if thead and thum then
105
				local e1 = Instance.new("Part",tchar)
106
				e1.CFrame = thead.CFrame*CFrame.new(-0.1, 0.25, -0.6)
107
				weldi(thead,e1)
108
				e1.Size = Vector3.new(0.15, 0.2, 0.1)
109
				e1.CanCollide = false
110
				e1.Massless = true
111
				e1.Material = Enum.Material.Neon
112
				e1.Name = '∞eye1'
113
				
114
				local sm1 = Instance.new("SpecialMesh",e1)
115
				sm1.MeshType = Enum.MeshType.Sphere
116
				
117
				local e2 = Instance.new("Part",tchar)
118
				e2.CFrame = thead.CFrame*CFrame.new(.1, 0.25, -0.6)
119
				weldi(thead,e2)
120
				e2.Size = Vector3.new(0.15, 0.2, 0.1)
121
				e2.CanCollide = false
122
				e2.Massless = true
123
				e2.Material = Enum.Material.Neon
124
				e2.Name = '∞eye2'
125
				
126
				local sm2 = Instance.new("SpecialMesh",e2)
127
				sm2.MeshType = Enum.MeshType.Sphere
128
				
129
				return {e1,e2}
130
			else
131
				print('No head or humanoid')
132
			end
133
		else
134
			print('no character')
135
		end
136
	else
137
		print('no player')
138
	end
139
end
140
141
GetTarget.MouseButton1Click:Connect(function()
142
	local targ = GetPlayerFromKeyWord(TBTar.Text)
143
	for _,v in pairs(game:GetService'Players':GetPlayers())do
144
		v.DevTouchMovementMode = Enum.DevTouchMovementMode.UserChoice
145
		v.DevComputerMovementMode = Enum.DevComputerMovementMode.UserChoice
146
	end
147
	if targ then
148
		local eye1 = workspace:FindFirstChild('∞eye1',true)
149
		local eye2 = workspace:FindFirstChild('∞eye2',true)
150
		if eye1 then
151
			eye1:Destroy()
152
		end
153
		if eye2 then
154
			eye2:Destroy()
155
		end
156
		Eyes(targ)
157
		TBTar.Text = targ.Name
158
		sv.Value = targ.Name
159
	else
160
161
		
162
		local eye1 = workspace:FindFirstChild('∞eye1',true)
163
		local eye2 = workspace:FindFirstChild('∞eye2',true)
164
		if eye1 and eye2 then
165
			eye1:Destroy()
166
			eye2:Destroy()
167
		end
168
	end
169
end)
170
171
local gpbool = false
172
GetPos.MouseButton1Click:Connect(function()
173
	if gpbool==false then
174
		local target = GetPlayerFromKeyWord(sv.Value)
175
		print(target)
176
		if target then
177
			local tchar = target.Character
178
			local eye1 = tchar:FindFirstChild'∞eye1'
179
			local eye2 = tchar:FindFirstChild'∞eye2'
180
			local thum = tchar:FindFirstChildWhichIsA'Humanoid'
181
			if tchar and eye1 and eye2 and thum and tchar.Name==TBTar.Text then
182
				eye1.BrickColor = BrickColor.new("Dark blue")
183
				eye2.BrickColor = BrickColor.new("Dark blue")
184
				target.DevComputerMovementMode = Enum.DevComputerMovementMode.Scriptable
185
				target.DevTouchMovementMode = Enum.DevTouchMovementMode.Scriptable
186
				local p1 = owner.Character:FindFirstChild'∞Pos'
187
				local rs = game:GetService("RunService")
188
				workspace.ChildAdded:Connect(function(ch)
189
					if ch==target.Character then
190
						tchar = target.Character
191
						eye1 = tchar:FindFirstChild'∞eye1'
192
						eye2 = tchar:FindFirstChild'∞eye2'
193
						thum = tchar:FindFirstChildWhichIsA'Humanoid'
194
					end
195
				end)
196
				
197
				rs.Stepped:Connect(function()
198
					if gpbool==true and thum and eye1 and eye2 and tchar and thum.Parent.Name==sv.Value then
199
						if p1 then
200
							thum:MoveTo(p1.Position)
201
						elseif owner.Character:FindFirstChild'Head'then
202
							thum:MoveTo(owner.Character:FindFirstChild'Head'.Position)
203
						else
204
							thum:MoveTo(Vector3.new(0,0,0))
205
						end
206
					end
207
				end)
208
				
209
				GetPos.BackgroundColor3 = Color3.new(0,255,0)
210
				gpbool = true
211
			end
212
		end
213
	else
214
		local eye1 = workspace:FindFirstChild('∞eye1',true)
215
		local eye2 = workspace:FindFirstChild('∞eye2',true)
216
		if eye1 and eye2 then
217
			eye1.BrickColor = BrickColor.new('Medium stone grey')
218
			eye2.BrickColor = BrickColor.new('Medium stone grey')
219
			local tpl = game:GetService("Players"):GetPlayerFromCharacter(eye1.Parent)
220
			if tpl then
221
				tpl.DevComputerMovementMode = Enum.DevComputerMovementMode.UserChoice
222
				tpl.DevTouchMovementMode = Enum.DevTouchMovementMode.UserChoice
223
			end
224
		end
225
		GetPos.BackgroundColor3 = Color3.new(255,0,0)
226
		gpbool = false
227
	end
228
end)
229
workspace.ChildAdded:Connect(function(ch)
230
	local pch = game:GetService("Players"):GetPlayerFromCharacter(ch)
231
	if pch then
232
		if pch.Name==TBTar.Text then
233
			Eyes(pch)
234
			if gpbool then
235
				local eye1 = ch:FindFirstChild'∞eye1'
236
				local eye2 = ch:FindFirstChild'∞eye2'
237
				eye1.BrickColor = BrickColor.new("Dark blue")
238
				eye2.BrickColor = BrickColor.new("Dark blue")
239
240
				local thum = ch:FindFirstChildWhichIsA'Humanoi'
241
				local p1 = owner.Character:FindFirstChild'∞Pos'
242
				local rs = game:GetService("RunService")
243
				rs.Stepped:Connect(function()
244
					if gpbool==true and thum and eye1 and eye2 and tchar and thum.Parent.Name==sv.Value then
245
						if p1 then
246
							thum:MoveTo(p1.Position)
247
						elseif owner.Character:FindFirstChild'Head'then
248
							thum:MoveTo(owner.Character:FindFirstChild'Head'.Position)
249
						else
250
							thum:MoveTo(Vector3.new(0,0,0))
251
						end
252
					end
253
				end)
254
			end
255
		end
256
	end
257
end)