View difference between Paste ID: C60CngDR and D0WJBR8m
SHOW: | | - or go back to the newest paste.
1
Player = owner.Name
2
3
local ScreenGui = Instance.new("ScreenGui",game:GetService("Players")[Player].PlayerGui)
4
ScreenGui.Name = "Explorer"
5
6
function rgb(RED,GREEN,BLUE)
7
    local Count = 1 / 255
8
    --Red Count
9
    local red = Count * RED
10
    --Green Count
11
    local green = Count * GREEN
12
    --Blue Count
13
    local blue = Count * BLUE
14
    --Give Color3
15
    local FColor = Color3.new(red,green,blue)
16
    return FColor
17
end
18
19
local Frame = Instance.new("Frame",ScreenGui)
20
Frame.Position = UDim2.new(1 - (0.3/2),0,0,0)
21
Frame.Size = UDim2.new(0.3/2,0,1.5/2,0)
22
Frame.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
23
Frame.Active = true
24
Frame.Selectable = true
25
Frame.Draggable = true
26
27
local ScrollingFrame = Instance.new("ScrollingFrame",Frame)
28
ScrollingFrame.Position = UDim2.new(0,0,0.1,0)
29
ScrollingFrame.Size = UDim2.new(1,0,0.9,0)
30
ScrollingFrame.BackgroundColor3 = Color3.new(1,1,1)
31-
ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
31+
ScrollingFrame.ScrollBarThickness = 3
32
ScrollingFrame.CanvasSize = UDim2.new(1,0,7500,0)
33
34-
addedSize = 0.05
34+
35
addedSize = 0.05 / 7500
36
function Add(Object,nr)
37-
	ScrollingFrame.CanvasSize = UDim2.new(1,0,addedSize * added,0)
37+
38
	
39
	local OP = Object.Parent
40
	local ON = Object.Name
41
	
42
	local TextButton = Instance.new("TextButton",ScrollingFrame)
43
	TextButton.Text = ON
44-
	TextButton.Position = UDim2.new(0,0,0,0)
44+
	TextButton.Position = UDim2.new(0,0,(addedSize * added) - addedSize,0)
45-
	TextButton.Size = UDim2.new(1,0,0,0)
45+
	TextButton.Size = UDim2.new(1,0,addedSize,0)
46
	
47
	TextButton.BackgroundColor3 = rgb(45, 160, 255)
48
	TextButton.MouseButton1Click:Connect(function()
49
		if OP:FindFirstChild(ON) then
50
			Open(Object)
51
		end
52
	end)
53
	
54
	if nr then
55
		local TextButton2 = Instance.new("TextButton",TextButton)
56
		TextButton2.Text = "Remove"
57
		TextButton2.Position = UDim2.new(1-0.3,0,0,0)
58
		TextButton2.Size = UDim2.new(0.3,0,1,0)
59
		TextButton2.BackgroundColor3 = rgb(45, 160, 255)
60
		TextButton2.MouseButton1Click:Connect(function()
61
			if OP:FindFirstChild(ON) then
62
				Object:Remove()
63
				Open(OP)
64
			else
65
				Open(OP)
66
			end
67
		end)
68
69
		local TextLabel2 = Instance.new("TextLabel",TextButton)
70
		TextLabel2.Text = Object.ClassName
71
		TextLabel2.Position = UDim2.new(0,0,0,0)
72
		TextLabel2.Size = UDim2.new(0.3,0,1,0)
73
		TextLabel2.BackgroundColor3 = rgb(45, 160, 255)
74
	end
75
end
76-
	local SizePerEach = ScrollingFrame.CanvasSize.Y.Scale / added
76+
77-
	local tbTable = ScrollingFrame:GetChildren()
77+
78
	ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
79-
	for i=1,added do
79+
	ScrollingFrame.CanvasSize = UDim2.new(1,0,7500,0)
80-
		local cTB = tbTable[i]
80+
81-
		cTB.Size = UDim2.new(1,0,SizePerEach / 2,0)
81+
82-
		cTB.Position = UDim2.new(0,0,(cTB.Size.Y.Scale * i) - cTB.Size.Y.Scale,0)
82+
83
	end
84
	for i,v in pairs(Object:GetChildren()) do
85
			Add(v,true)
86
	end
87
	if Object.Parent ~= game then
88
		Add(Object.Parent,false)
89
	end
90
end
91
92
local TextLabel = Instance.new("TextLabel",Frame)
93
TextLabel.Text = "Vex Explorer V5"
94
TextLabel.Size = UDim2.new(1,0,0.1,0)
95
TextLabel.BackgroundColor3 = rgb(0, 140, 255)
96
TextLabel.TextScaled = true
97
98
Open(game.Players,false)