View difference between Paste ID: D0WJBR8m and yaXWrMAf
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-
Frame.Position = UDim2.new(1 - 0.3,0,0,0)
7+
    local Count = 1 / 255
8-
Frame.Size = UDim2.new(0.3,0,1,0)
8+
    --Red Count
9
    local red = Count * RED
10
    --Green Count
11-
local ScrollingFrame = Instance.new("Frame",Frame)
11+
    local green = Count * GREEN
12
    --Blue Count
13-
ScrollingFrame.Size = UDim2.new(0.9,0,0.9,0)
13+
    local blue = Count * BLUE
14
    --Give Color3
15
    local FColor = Color3.new(red,green,blue)
16-
local ScrollBarFrame = Instance.new("Frame",Frame)
16+
    return FColor
17-
ScrollBarFrame.Position = UDim2.new(0.9,0,0.1,0)
17+
18-
ScrollBarFrame.Size = UDim2.new(0.1,0,0.9,0)
18+
19-
ScrollBarFrame.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
19+
20
Frame.Position = UDim2.new(1 - (0.3/2),0,0,0)
21-
local DownButton = Instance.new("TextButton",ScrollBarFrame)
21+
Frame.Size = UDim2.new(0.3/2,0,1.5/2,0)
22-
DownButton.Text = "V"
22+
23-
DownButton.Position = UDim2.new(0,0,0.5,0)
23+
Frame.Active = true
24-
DownButton.Size = UDim2.new(1,0,0.5,0)
24+
Frame.Selectable = true
25-
DownButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
25+
Frame.Draggable = true
26-
DownButton.MouseButton1Click:Connect(function()
26+
27-
	for i,tb in pairs(ScrollingFrame:GetChildren()) do
27+
local ScrollingFrame = Instance.new("ScrollingFrame",Frame)
28-
		tb.Position = tb.Position - UDim2.new(0,0,0.05,0)
28+
29
ScrollingFrame.Size = UDim2.new(1,0,0.9,0)
30-
end)
30+
31
ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
32-
local UpButton = Instance.new("TextButton",ScrollBarFrame)
32+
33-
UpButton.Text = "V"
33+
34-
UpButton.Position = UDim2.new(0,0,0,0)
34+
addedSize = 0.05
35-
UpButton.Size = UDim2.new(1,0,0.5,0)
35+
36-
UpButton.Rotation = 180
36+
	added = added + 1
37-
UpButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
37+
	ScrollingFrame.CanvasSize = UDim2.new(1,0,addedSize * added,0)
38-
UpButton.MouseButton1Click:Connect(function()
38+
39-
	for i,tb in pairs(ScrollingFrame:GetChildren()) do
39+
40-
		tb.Position = tb.Position + UDim2.new(0,0,0.05,0)
40+
41
	
42-
end)
42+
43
	TextButton.Text = ON
44
	TextButton.Position = UDim2.new(0,0,0,0)
45
	TextButton.Size = UDim2.new(1,0,0,0)
46
	
47
	TextButton.BackgroundColor3 = rgb(45, 160, 255)
48
	TextButton.MouseButton1Click:Connect(function()
49
		if OP:FindFirstChild(ON) then
50
			Open(Object)
51-
	TextButton.Position = UDim2.new(0,0,added,0)
51+
52-
	TextButton.Size = UDim2.new(1,0,0.05,0)
52+
53
	
54-
	TextButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
54+
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-
		TextButton2.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
66+
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
	
76
	local SizePerEach = ScrollingFrame.CanvasSize.Y.Scale / added
77
	local tbTable = ScrollingFrame:GetChildren()
78
	
79
	for i=1,added do
80-
		TextLabel2.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
80+
		local cTB = tbTable[i]
81
		cTB.Size = UDim2.new(1,0,SizePerEach / 2,0)
82
		cTB.Position = UDim2.new(0,0,(cTB.Size.Y.Scale * i) - cTB.Size.Y.Scale,0)
83-
	added = added + 0.05
83+
84
end
85
86
function Open(Object)
87
	added = 0
88
	ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
89
	for i,v in pairs(ScrollingFrame:GetChildren()) do
90
		v:Remove()
91
	end
92
	for i,v in pairs(Object:GetChildren()) do
93-
	Add(workspace,false)
93+
94-
	Add(game.Lighting,false)
94+
95
	if Object.Parent ~= game then
96
		Add(Object.Parent,false)
97
	end
98-
TextLabel.Text = "Vex Explorer V3"
98+
99
100-
TextLabel.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
100+
101
TextLabel.Text = "Vex Explorer V4"
102
TextLabel.Size = UDim2.new(1,0,0.1,0)
103-
local Frame2 = Instance.new("Frame",ScreenGui)
103+
TextLabel.BackgroundColor3 = rgb(0, 140, 255)
104-
Frame2.Position = UDim2.new(1-0.3,0,-0.05,0)
104+
105-
Frame2.Size = UDim2.new(0.3,0,0.05,0)
105+
106-
Frame2.BackgroundColor3 = Color3.new(0,0,0)
106+