View difference between Paste ID: a9PBJR77 and kh3iGwrq
SHOW: | | - or go back to the newest paste.
1-
local name = "ProFiGames"
1+
local name = "bee1474"
2
3
4
5
6
7
repeat wait() until #Game.Players:GetChildren(
8
	) > 0
9
10
local char = Game.Players:FindFirstChild(name) or (Game.Players:GetChildren(
11
	)[1].Name:sub(1,6) == "Player" and Game.Players:GetChildren(
12
		)[1]
13
			)
14
if not char then return end
15
local current = Workspace
16
local cp = 0
17
local fontcolor = Color3.new(1,1,1)
18
local bordercolor = Color3.new(1,0,0)
19
local backgroundcolor = Color3.new(0,0,0)
20
local backgroundtrans = .35
21
local copy = nil
22
local sP = {
23
"Name";
24
"ClassName";
25
"BrickColor";
26
"Position"
27
}
28
29
local sg = Instance.new("ScreenGui")
30
sg.Parent = char.PlayerGui
31
32
local ok = Instance.new("TextButton", sg)
33
ok.Size = UDim2.new(.6,0,.05,0)
34
ok.Position = UDim2.new(.2,0,.6,0)
35
ok.FontSize = "Size18"
36
ok.Text = "Accept"
37
ok.TextColor3 = Color3.new(1,1,1)
38
ok.Style = "RobloxButton"
39
40
local fontS1 = Instance.new("Frame", sg)
41
fontS1.Size = UDim2.new(.2,0,.2,0)
42
fontS1.Style = "RobloxRound"
43
fontS1.Position = UDim2.new(.2,0,.4,0)
44
local tb1 = Instance.new("TextLabel", fontS1)
45
tb1.Text = "Font Color"
46
tb1.FontSize = "Size12"
47
tb1.BackgroundTransparency = 1
48
tb1.TextColor3 = Color3.new(1,1,1)
49
tb1.Size = UDim2.new(1,0,.25,0)
50
local r1 = Instance.new("TextBox", fontS1)
51
r1.Position = UDim2.new(0,0,.25,0)
52
r1.TextColor3 = Color3.new(1,1,1)
53
r1.BackgroundTransparency = 1
54
r1.Size = UDim2.new(.3,0,.25,0)
55
r1.Text = "0"
56
local g1 = Instance.new("TextBox", fontS1)
57
g1.Position = UDim2.new(.3,0,.25,0)
58
g1.TextColor3 = Color3.new(1,1,1)
59
g1.BackgroundTransparency = 1
60
g1.Size = UDim2.new(.3,0,.25,0)
61
g1.Text = "0"
62
local b1 = Instance.new("TextBox", fontS1)
63
b1.Position = UDim2.new(.6,0,.25,0)
64
b1.TextColor3 = Color3.new(1,1,1)
65
b1.BackgroundTransparency = 1
66
b1.Size = UDim2.new(.3,0,.25,0)
67
b1.Text = "0"
68
local prev1 = Instance.new("Frame", fontS1)
69
prev1.Size = UDim2.new(1,0,.5,0)
70
prev1.Position = UDim2.new(0,0,.5,0)
71
prev1.BackgroundColor3 = Color3.new(0,0,0)
72
prev1.BorderColor3 = Color3.new(0,0,0)
73
r1.Changed:connect(function()
74
	local color = tonumber(r1.Text) or 0
75
	prev1.BackgroundColor3 = Color3.new(color, tonumber(g1.Text) or 0, tonumber(b1.Text) or 0)
76
end)
77
g1.Changed:connect(function()
78
	local color = tonumber(g1.Text) or 0
79
	prev1.BackgroundColor3 = Color3.new(tonumber(r1.Text) or 0, color, tonumber(b1.Text) or 0)
80
end)
81
b1.Changed:connect(function()
82
	local color = tonumber(b1.Text) or 0
83
	prev1.BackgroundColor3 = Color3.new(tonumber(r1.Text) or 0, tonumber(g1.Text) or 0, color)
84
end)
85
86
local FontS2 = Instance.new("Frame", sg)
87
FontS2.Size = UDim2.new(.2,0,.2,0)
88
FontS2.Style = "RobloxRound"
89
FontS2.Position = UDim2.new(.4,0,.4,0)
90
local tb2 = Instance.new("TextLabel", FontS2)
91
tb2.Text = "Background Color"
92
tb2.FontSize = "Size12"
93
tb2.BackgroundTransparency = 1
94
tb2.TextColor3 = Color3.new(1,1,1)
95
tb2.Size = UDim2.new(1,0,.25,0)
96
local r2 = Instance.new("TextBox", FontS2)
97
r2.Position = UDim2.new(0,0,.25,0)
98
r2.TextColor3 = Color3.new(1,1,1)
99
r2.BackgroundTransparency = 1
100
r2.Size = UDim2.new(.3,0,.25,0)
101
r2.Text = "0"
102
local g2 = Instance.new("TextBox", FontS2)
103
g2.Position = UDim2.new(.3,0,.25,0)
104
g2.TextColor3 = Color3.new(1,1,1)
105
g2.BackgroundTransparency = 1
106
g2.Size = UDim2.new(.3,0,.25,0)
107
g2.Text = "0"
108
local b2 = Instance.new("TextBox", FontS2)
109
b2.Position = UDim2.new(.6,0,.25,0)
110
b2.TextColor3 = Color3.new(1,1,1)
111
b2.BackgroundTransparency = 1
112
b2.Size = UDim2.new(.3,0,.25,0)
113
b2.Text = "0"
114
local prev2 = Instance.new("Frame", FontS2)
115
prev2.Size = UDim2.new(1,0,.5,0)
116
prev2.Position = UDim2.new(0,0,.5,0)
117
prev2.BackgroundColor3 = Color3.new(0,0,0)
118
prev2.BorderColor3 = Color3.new(0,0,0)
119
r2.Changed:connect(function()
120
	local color = tonumber(r2.Text) or 0
121
	prev2.BackgroundColor3 = Color3.new(color, tonumber(g2.Text) or 0, tonumber(b2.Text) or 0)
122
end)
123
g2.Changed:connect(function()
124
	local color = tonumber(g2.Text) or 0
125
	prev2.BackgroundColor3 = Color3.new(tonumber(r2.Text) or 0, color, tonumber(b2.Text) or 0)
126
end)
127
b2.Changed:connect(function()
128
	local color = tonumber(b2.Text) or 0
129
	prev2.BackgroundColor3 = Color3.new(tonumber(r2.Text) or 0, tonumber(g2.Text) or 0, color)
130
end)
131
132
local fontS3 = Instance.new("Frame", sg)
133
fontS3.Size = UDim2.new(.2,0,.2,0)
134
fontS3.Style = "RobloxRound"
135
fontS3.Position = UDim2.new(.6,0,.4,0)
136
local tb3 = Instance.new("TextLabel", fontS3)
137
tb3.Text = "Border Color"
138
tb3.FontSize = "Size12"
139
tb3.BackgroundTransparency = 1
140
tb3.TextColor3 = Color3.new(1,1,1)
141
tb3.Size = UDim2.new(1,0,.25,0)
142
local r3 = Instance.new("TextBox", fontS3)
143
r3.Position = UDim2.new(0,0,.25,0)
144
r3.TextColor3 = Color3.new(1,1,1)
145
r3.BackgroundTransparency = 1
146
r3.Size = UDim2.new(.3,0,.25,0)
147
r3.Text = "0"
148
local g3 = Instance.new("TextBox", fontS3)
149
g3.Position = UDim2.new(.3,0,.25,0)
150
g3.TextColor3 = Color3.new(1,1,1)
151
g3.BackgroundTransparency = 1
152
g3.Size = UDim2.new(.3,0,.25,0)
153
g3.Text = "0"
154
local b3 = Instance.new("TextBox", fontS3)
155
b3.Position = UDim2.new(.6,0,.25,0)
156
b3.TextColor3 = Color3.new(1,1,1)
157
b3.BackgroundTransparency = 1
158
b3.Size = UDim2.new(.3,0,.25,0)
159
b3.Text = "0"
160
local prev3 = Instance.new("Frame", fontS3)
161
prev3.Size = UDim2.new(1,0,.5,0)
162
prev3.Position = UDim2.new(0,0,.5,0)
163
prev3.BackgroundColor3 = Color3.new(0,0,0)
164
prev3.BorderColor3 = Color3.new(0,0,0)
165
r3.Changed:connect(function()
166
	local color = tonumber(r3.Text) or 0
167
	prev3.BackgroundColor3 = Color3.new(color, tonumber(g3.Text) or 0, tonumber(b3.Text) or 0)
168
end)
169
g3.Changed:connect(function()
170
	local color = tonumber(g3.Text) or 0
171
	prev3.BackgroundColor3 = Color3.new(tonumber(r3.Text) or 0, color, tonumber(b3.Text) or 0)
172
end)
173
b3.Changed:connect(function()
174
	local color = tonumber(b3.Text) or 0
175
	prev3.BackgroundColor3 = Color3.new(tonumber(r3.Text) or 0, tonumber(g3.Text) or 0, color)
176
end)
177
178
ok.MouseButton1Click:wait()
179
180
local fontcolor = prev1.BackgroundColor3
181
local backgroundcolor = prev2.BackgroundColor3
182
local bordercolor = prev3.BackgroundColor3
183
fontS1:Destroy()
184
FontS2:Destroy()
185
fontS3:Destroy()
186
ok:Destroy()
187
188
local fr = Instance.new("Frame", sg)
189
fr.Style = "RobloxRound"
190
fr.Size = UDim2.new(.35,0,.5,0)
191
fr.Position = UDim2.new(0,0,.25,0)
192
193
local sb = Instance.new("TextButton", sg) -- Scrollbar
194
local issbDown = false
195
local sblasty = nil
196
sb.Size = UDim2.new(.035,0,.5,0)
197
sb.Position = UDim2.new(.35,0,.25,0)
198
sb.BackgroundTransparency = backgroundtrans
199
sb.TextColor3 = fontcolor
200
sb.BorderColor3 = bordercolor
201
sb.BackgroundColor3 = backgroundcolor
202
sb.Text = "="
203
sb.MouseButton1Down:connect(function()
204
	issbDown = true
205
end)
206
sb.MouseButton1Up:connect(function()
207
	issbDown = false
208
end)
209
sb.MouseLeave:connect(function()
210
	issbDown = false
211
end)
212
sb.MouseEnter:connect(function()
213
	issbDown = false
214
end)
215
sb.MouseMoved:connect(function(x,y)
216
	if issbDown then
217
		if not sblasty then sblasty = y end
218
		if sblasty - y < 0 then
219
			-- moving up
220
			for i,v in pairs(fr:GetChildren()) do
221
				v.Position = v.Position + UDim2.new(0,0,-.05,0)
222
				if v.Position.Y.Scale < .08 then
223
					v.BackgroundTransparency = 1
224
					v.TextButton.BackgroundTransparency = 1
225
					v.TextTransparency = 1
226
					v.TextButton.TextTransparency = 1
227
				elseif v.Position.Y.Scale >= .95 then
228
				else
229
					v.BackgroundTransparency = backgroundtrans
230
					v.TextButton.BackgroundTransparency = backgroundtrans
231
					v.TextTransparency = 0
232
					v.TextButton.TextTransparency = 0
233
				end
234
			end
235
		else
236
			-- moving down
237
			for i,v in pairs(fr:GetChildren()) do
238
				v.Position = v.Position + UDim2.new(0,0,.05,0)
239
				if v.Position.Y.Scale >= .95 then
240
					v.BackgroundTransparency = 1
241
					v.TextButton.BackgroundTransparency = 1
242
					v.TextTransparency = 1
243
					v.TextButton.TextTransparency = 1
244
				elseif v.Position.Y.Scale < .08 then
245
				else
246
					v.BackgroundTransparency = backgroundtrans
247
					v.TextButton.BackgroundTransparency = backgroundtrans
248
					v.TextTransparency = 0
249
					v.TextButton.TextTransparency = 0
250
				end
251
			end
252
		end
253
	end
254
	sblasty = y
255
end)
256
257
local work = Instance.new("TextButton", sg)
258
work.Position = UDim2.new(0,0,.2,0)
259
work.Size = UDim2.new(.05,0,.05,0)
260
work.BackgroundTransparency = backgroundtrans
261
work.TextColor3 = fontcolor
262
work.BorderColor3 = bordercolor
263
work.BackgroundColor3 = backgroundcolor
264
work.Text = "Workspace"
265
work.MouseButton1Click:connect(function()
266
	current = Workspace
267
	Clear()
268
	GetList()
269
end)
270
work.MouseButton2Up:connect(function(x,y)
271
	local pos = UDim2.new(0,x,0,y)
272
	CreatePasteMenu(pos, Workspace)
273
end)
274
275
local light = Instance.new("TextButton", sg)
276
light.Position = UDim2.new(0.06,0,.2,0)
277
light.Size = UDim2.new(.05,0,.05,0)
278
light.BackgroundTransparency = backgroundtrans
279
light.TextColor3 = fontcolor
280
light.BorderColor3 = bordercolor
281
light.BackgroundColor3 = backgroundcolor
282
light.Text = "Lighting"
283
light.MouseButton1Click:connect(function()
284
	current = game.Lighting
285
	Clear()
286
	GetList()
287
end)
288
light.MouseButton2Up:connect(function(x,y)
289
	local pos = UDim2.new(0,x,0,y)
290
	CreatePasteMenu(pos, game.Lighting)
291
end)
292
293
local players = Instance.new("TextButton", sg)
294
players.Position = UDim2.new(0.12,0,.2,0)
295
players.Size = UDim2.new(.05,0,.05,0)
296
players.BackgroundTransparency = backgroundtrans
297
players.TextColor3 = fontcolor
298
players.BorderColor3 = bordercolor
299
players.BackgroundColor3 = backgroundcolor
300
players.Text = "Players"
301
players.MouseButton1Click:connect(function()
302
	current = game.Players
303
	Clear()
304
	GetList()
305
end)
306
players.MouseButton2Up:connect(function(x,y)
307
	local pos = UDim2.new(0,x,0,y)
308
	CreatePasteMenu(pos, game.Players)
309
end)
310
311
local starterp = Instance.new("TextButton", sg)
312
starterp.Position = UDim2.new(0.18,0,.2,0)
313
starterp.Size = UDim2.new(.05,0,.05,0)
314
starterp.BackgroundTransparency = backgroundtrans
315
starterp.TextColor3 = fontcolor
316
starterp.BorderColor3 = bordercolor
317
starterp.BackgroundColor3 = backgroundcolor
318
starterp.Text = "StarterPack"
319
starterp.MouseButton1Click:connect(function()
320
	current = game.StarterPack
321
	Clear()
322
	GetList()
323
end)
324
starterp.MouseButton2Up:connect(function(x,y)
325
	local pos = UDim2.new(0,x,0,y)
326
	CreatePasteMenu(pos, game.StarterPack)
327
end)
328
329
local starterg = Instance.new("TextButton", sg)
330
starterg.Position = UDim2.new(0.24,0,.2,0)
331
starterg.Size = UDim2.new(.05,0,.05,0)
332
starterg.BackgroundTransparency = backgroundtrans
333
starterg.TextColor3 = fontcolor
334
starterg.BorderColor3 = bordercolor
335
starterg.BackgroundColor3 = backgroundcolor
336
starterg.Text = "StarterGui"
337
starterg.MouseButton1Click:connect(function()
338
	current = game.StarterGui
339
	Clear()
340
	GetList()
341
end)
342
starterg.MouseButton2Up:connect(function(x,y)
343
	local pos = UDim2.new(0,x,0,y)
344
	CreatePasteMenu(pos, game.StarterGui)
345
end)
346
347
function CreateButtons(object, otr)
348
	local tb = Instance.new("TextButton", fr)
349
	tb.Size = UDim2.new(.9,0,.05,0)
350
	tb.Text = object.Name
351
	tb.Position = UDim2.new(0,0,cp + .05,0)
352
	tb.BackgroundTransparency = otr or backgroundtrans
353
	tb.TextColor3 = fontcolor
354
	tb.BorderColor3 = bordercolor
355
	tb.BackgroundColor3 = backgroundcolor
356
	tb.TextTransparency = otr or 0
357
	cp = cp + .05
358
	local ov = Instance.new("ObjectValue", tb)
359
	ov.Value = object
360
	local x = Instance.new("TextButton", tb)
361
	x.BackgroundTransparency = otr or backgroundtrans
362
	x.TextColor3 = fontcolor
363
	x.BorderColor3 = bordercolor
364
	x.BackgroundColor3 = backgroundcolor
365
	x.TextTransparency = otr or 0
366
	x.Size = UDim2.new(.1,0,1,0)
367
	x.Position = UDim2.new(1,0,0,0)
368
	x.FontSize = "Size12"
369
	x.Text = "+"
370
	tb.MouseButton1Click:connect(function()-- properties window open
371
		CreatePropertiesWindow(ov.Value)
372
	end)
373
	tb.MouseButton2Up:connect(function(x,y)
374
		CreateDropDownMenu(UDim2.new(0,x,0,y), ov.Value)
375
	end)
376
	x.MouseButton1Click:connect(function()
377
		current = ov.Value
378
		Clear()
379
		GetList()
380
	end)
381
end
382
383
function CreatePropertiesWindow(obj)
384
	if not obj then return end
385
	pcall(function() sg.P:Destroy() end)
386
	local push = 0
387
	local f = Instance.new("Frame", sg)
388
	f.Name = "P"
389
	f.Style = "RobloxRound"
390
	f.Size = UDim2.new(.4,0,.7,0)
391
	f.Position = UDim2.new(.6,0,.15,0)
392
	if pcall(function() _ = obj["Name"] end) then
393
		local pN = Instance.new("TextLabel", f)
394
		pN.Size = UDim2.new(.5,0,.05,0)
395
		pN.Position = UDim2.new(0,0, push,0)
396
		pN.Text = "Name"
397
		pN.BackgroundColor3 = backgroundcolor
398
		pN.BorderColor3 = bordercolor
399
		pN.TextColor3 = bordercolor
400
		pN.FontSize = "Size10"
401
			local pV = Instance.new("TextBox", f)
402
			pV.ClearTextOnFocus = false
403
			pV.Size = UDim2.new(.5,0,.05,0)
404
			pV.Position = UDim2.new(.5,0,push,0)
405
			push = push + .05
406
			pV.Text = obj.Name
407
			pV.BackgroundColor3 = backgroundcolor
408
			pV.BorderColor3 = bordercolor
409
			pV.TextColor3 = fontcolor
410
			pV.FontSize = "Size10"
411
			pV.Changed:connect(function()
412
				pcall(function()
413
					obj.Name = pV.Text
414
				end)
415
			end)
416
	end
417
	if pcall(function() _ = obj["ClassName"] end) then
418
		local pN = Instance.new("TextLabel", f)
419
		pN.Size = UDim2.new(.5,0,.05,0)
420
		pN.Position = UDim2.new(0,0, push,0)
421
		pN.Text = "ClassName"
422
		pN.BackgroundColor3 = backgroundcolor
423
		pN.BorderColor3 = bordercolor
424
		pN.TextColor3 = bordercolor
425
		pN.FontSize = "Size10"
426
			local pV = Instance.new("TextLabel", f)
427
			pV.Size = UDim2.new(.5,0,.05,0)
428
			pV.Position = UDim2.new(.5,0,push,0)
429
			push = push + .05
430
			pV.Text = obj.ClassName
431
			pV.BackgroundColor3 = backgroundcolor
432
			pV.BorderColor3 = bordercolor
433
			pV.TextColor3 = bordercolor
434
			pV.FontSize = "Size10"
435
	end
436
	if pcall(function() _ = obj["BrickColor"] end) then
437
		local pN = Instance.new("TextLabel", f)
438
		pN.Size = UDim2.new(.5,0,.05,0)
439
		pN.Position = UDim2.new(0,0, push,0)
440
		pN.Text = "BrickColor"
441
		pN.BackgroundColor3 = backgroundcolor
442
		pN.BorderColor3 = bordercolor
443
		pN.TextColor3 = bordercolor
444
		pN.FontSize = "Size10"
445
			local pV = Instance.new("TextBox", f)
446
			pV.Size = UDim2.new(.5,0,.05,0)
447
			pV.Position = UDim2.new(.5,0,push,0)
448
			push = push + .05
449
			pV.Text = tostring(obj.BrickColor)
450
			pV.BackgroundColor3 = backgroundcolor
451
			pV.BorderColor3 = bordercolor
452
			pV.TextColor3 = fontcolor
453
			pV.FontSize = "Size10"
454
			pV.Changed:connect(function()
455
				pcall(function()
456
					obj.BrickColor = BrickColor.new(pV.Text)
457
				end)
458
			end)
459
	end
460
	if pcall(function() _ = obj["Text"] end) then
461
		local pN = Instance.new("TextLabel", f)
462
		pN.Size = UDim2.new(.5,0,.05,0)
463
		pN.Position = UDim2.new(0,0, push,0)
464
		pN.Text = "Text"
465
		pN.BackgroundColor3 = backgroundcolor
466
		pN.BorderColor3 = bordercolor
467
		pN.TextColor3 = bordercolor
468
		pN.FontSize = "Size10"
469
			local pV = Instance.new("TextBox", f)
470
			pV.Size = UDim2.new(.5,0,.05,0)
471
			pV.Position = UDim2.new(.5,0,push,0)
472
			push = push + .05
473
			pV.Text = obj.Text
474
			pV.BackgroundColor3 = backgroundcolor
475
			pV.BorderColor3 = bordercolor
476
			pV.TextColor3 = fontcolor
477
			pV.FontSize = "Size10"
478
			pV.Changed:connect(function()
479
				pcall(function()
480
					obj.Text = pV.Text
481
				end)
482
			end)
483
	end
484
	if pcall(function() _ = obj["Value"] end) and (obj.ClassName == "StringValue" or obj.ClassName == "IntValue" or obj.ClassName == "NumberValue") then
485
		local pN = Instance.new("TextLabel", f)
486
		pN.Size = UDim2.new(.5,0,.05,0)
487
		pN.Position = UDim2.new(0,0, push,0)
488
		pN.Text = "Value"
489
		pN.BackgroundColor3 = backgroundcolor
490
		pN.BorderColor3 = bordercolor
491
		pN.TextColor3 = bordercolor
492
		pN.FontSize = "Size10"
493
			local pV = Instance.new("TextBox", f)
494
			pV.Size = UDim2.new(.5,0,.05,0)
495
			pV.Position = UDim2.new(.5,0,push,0)
496
			push = push + .05
497
			pV.Text = obj.Value
498
			pV.BackgroundColor3 = backgroundcolor
499
			pV.BorderColor3 = bordercolor
500
			pV.TextColor3 = fontcolor
501
			pV.FontSize = "Size10"
502
			pV.Changed:connect(function()
503
				pcall(function()
504
					if type(obj.Value) == "number" then
505
						obj.Value = tonumber(pV.Text) or 0
506
					else
507
						obj.Value = pV.Text
508
					end
509
				end)
510
			end)
511
	end
512
end
513
514
function CreateDropDownMenu(pos, obj)
515
	local f = Instance.new("Frame", sg)
516
	f.BackgroundColor3 = backgroundcolor
517
	f.BorderColor3 = bordercolor
518
	f.Size = UDim2.new(.1,0,.2,0)
519
	f.BackgroundTransparency = .3
520
	f.Position = pos
521
		local d = Instance.new("TextButton", f)
522
		d.BackgroundTransparency = 1
523
		d.Text = "Delete"
524
		d.FontSize = "Size10"
525
		d.TextColor3 = fontcolor
526
		d.Size = UDim2.new(1,0,.15,0)
527
		d.MouseButton1Click:connect(function()
528
			pcall(function()
529
				obj:Destroy()
530
			end)
531
			Clear()
532
			GetList()
533
			f:Destroy()
534
		end)
535
		local c = Instance.new("TextButton", f)
536
		c.BackgroundTransparency = 1
537
		c.Text = "Copy"
538
		c.FontSize = "Size10"
539
		c.TextColor3 = fontcolor
540
		c.Size = UDim2.new(1,0,.15,0)
541
		c.Position = UDim2.new(0,0,.15,0)
542
		c.MouseButton1Click:connect(function()
543
			pcall(function()
544
				copy = obj:Clone()
545
			end)
546
			f:Destroy()
547
		end)
548
		local p = Instance.new("TextButton", f)
549
		p.BackgroundTransparency = 1
550
		p.Text = "Paste into"
551
		p.FontSize = "Size10"
552
		p.TextColor3 = fontcolor
553
		p.Size = UDim2.new(1,0,.15,0)
554
		p.Position = UDim2.new(0,0,.3,0)
555
		p.MouseButton1Click:connect(function()
556
			pcall(function()
557
				copy.Parent = obj
558
			end)
559
			f:Destroy()
560
		end)
561
		local x = Instance.new("TextButton", f)
562
		x.BackgroundTransparency = 1
563
		x.Text = "Close"
564
		x.FontSize = "Size10"
565
		x.TextColor3 = fontcolor
566
		x.Size = UDim2.new(1,0,.15,0)
567
		x.Position = UDim2.new(0,0,.45,0)
568
		x.MouseButton1Click:connect(function()
569
			f:Destroy()
570
		end)
571
end 
572
573
function CreatePasteMenu(pos, obj)
574
	local f = Instance.new("Frame", sg)
575
	f.BackgroundColor3 = backgroundcolor
576
	f.BorderColor3 = bordercolor
577
	f.Size = UDim2.new(.1,0,.2,0)
578
	f.BackgroundTransparency = .3
579
	f.Position = pos
580
		local p = Instance.new("TextButton", f)
581
		p.BackgroundTransparency = 1
582
		p.Text = "Paste into"
583
		p.FontSize = "Size10"
584
		p.TextColor3 = fontcolor
585
		p.Size = UDim2.new(1,0,.15,0)
586
		p.Position = UDim2.new(0,0,0,0)
587
		p.MouseButton1Click:connect(function()
588
			pcall(function()
589
				copy.Parent = obj
590
			end)
591
			f:Destroy()
592
		end)
593
		local x = Instance.new("TextButton", f)
594
		x.BackgroundTransparency = 1
595
		x.Text = "Close"
596
		x.FontSize = "Size10"
597
		x.TextColor3 = fontcolor
598
		x.Size = UDim2.new(1,0,.15,0)
599
		x.Position = UDim2.new(0,0,.45,0)
600
		x.MouseButton1Click:connect(function()
601
			f:Destroy()
602
		end)
603
end 
604
605
function Clear()
606
	for i,v in pairs(fr:GetChildren()) do
607
		v:Destroy()
608
		cp = 0
609
	end
610
end
611
612
function GetList()
613
	local max = 100
614
	local it = 0
615
	for i,v in pairs(current:GetChildren()) do
616
		if cp < .9 then
617
			CreateButtons(v)
618
		else
619
			CreateButtons(v, 1)
620
		end
621
		it = it + 1
622
		if it == max then break end
623
	end
624
end
625
626
GetList()