View difference between Paste ID: yaXWrMAf and eyWZizhS
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
local Frame = Instance.new("Frame",ScreenGui)
7
Frame.Position = UDim2.new(1 - 0.3,0,0,0)
8
Frame.Size = UDim2.new(0.3,0,1,0)
9
Frame.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
10
11
local ScrollingFrame = Instance.new("Frame",Frame)
12
ScrollingFrame.Position = UDim2.new(0,0,0.1,0)
13
ScrollingFrame.Size = UDim2.new(0.9,0,0.9,0)
14
ScrollingFrame.BackgroundColor3 = Color3.new(1,1,1)
15
16
local ScrollBarFrame = Instance.new("Frame",Frame)
17
ScrollBarFrame.Position = UDim2.new(0.9,0,0.1,0)
18
ScrollBarFrame.Size = UDim2.new(0.1,0,0.9,0)
19
ScrollBarFrame.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
20
21
local DownButton = Instance.new("TextButton",ScrollBarFrame)
22
DownButton.Text = "V"
23
DownButton.Position = UDim2.new(0,0,0.5,0)
24
DownButton.Size = UDim2.new(1,0,0.5,0)
25
DownButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
26
DownButton.MouseButton1Click:Connect(function()
27
	for i,tb in pairs(ScrollingFrame:GetChildren()) do
28
		tb.Position = tb.Position - UDim2.new(0,0,0.05,0)
29
	end
30
end)
31
32
local UpButton = Instance.new("TextButton",ScrollBarFrame)
33
UpButton.Text = "V"
34
UpButton.Position = UDim2.new(0,0,0,0)
35
UpButton.Size = UDim2.new(1,0,0.5,0)
36
UpButton.Rotation = 180
37
UpButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
38
UpButton.MouseButton1Click:Connect(function()
39
	for i,tb in pairs(ScrollingFrame:GetChildren()) do
40
		tb.Position = tb.Position + UDim2.new(0,0,0.05,0)
41
	end
42
end)
43
44
added = 0
45
function Add(Object,nr)
46
	local OP = Object.Parent
47
	local ON = Object.Name
48
	
49
	local TextButton = Instance.new("TextButton",ScrollingFrame)
50
	TextButton.Text = ON
51
	TextButton.Position = UDim2.new(0,0,added,0)
52
	TextButton.Size = UDim2.new(1,0,0.05,0)
53
	
54
	TextButton.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
55
	TextButton.MouseButton1Click:Connect(function()
56
		if OP:FindFirstChild(ON) then
57
			Open(Object)
58
		end
59
	end)
60
	
61
	if nr then
62
		local TextButton2 = Instance.new("TextButton",TextButton)
63
		TextButton2.Text = "Remove"
64
		TextButton2.Position = UDim2.new(1-0.3,0,0,0)
65
		TextButton2.Size = UDim2.new(0.3,0,1,0)
66
		TextButton2.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
67
		TextButton2.MouseButton1Click:Connect(function()
68
			if OP:FindFirstChild(ON) then
69
				Object:Remove()
70
				Open(OP)
71
			else
72
				Open(OP)
73
			end
74
		end)
75
76
		local TextLabel2 = Instance.new("TextLabel",TextButton)
77
		TextLabel2.Text = Object.ClassName
78
		TextLabel2.Position = UDim2.new(0,0,0,0)
79
		TextLabel2.Size = UDim2.new(0.3,0,1,0)
80
		TextLabel2.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
81
	end
82
83
	added = added + 0.05
84
end
85
function Open(Object)
86
	added = 0
87
	for i,v in pairs(ScrollingFrame:GetChildren()) do
88
		v:Remove()
89
	end
90
	for i,v in pairs(Object:GetChildren()) do
91-
TextLabel.Text = "Explorer V2"
91+
92
	end
93
	Add(workspace,false)
94
	Add(game.Lighting,false)
95
end
96
97
local TextLabel = Instance.new("TextLabel",Frame)
98
TextLabel.Text = "Vex Explorer V3"
99
TextLabel.Size = UDim2.new(1,0,0.1,0)
100
TextLabel.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
101
TextLabel.TextScaled = true
102
103
local Frame2 = Instance.new("Frame",ScreenGui)
104
Frame2.Position = UDim2.new(1-0.3,0,-0.05,0)
105
Frame2.Size = UDim2.new(0.3,0,0.05,0)
106
Frame2.BackgroundColor3 = Color3.new(0,0,0)
107
108
local COButton = Instance.new("TextButton",ScreenGui)
109
COButton.Text = "V"
110
COButton.Rotation = 90 * 3
111
COButton.Position = UDim2.new(1 - 0.425,0,1-0.225,0)
112
COButton.Size = UDim2.new(0.2,0,0.1,0)
113
COButton.BackgroundColor3 = Color3.new(1,1,1)
114
COButton.MouseButton1Click:Connect(function()
115
	if COButton.Rotation == 90 * 3 then
116
		COButton.Rotation = 90
117
		Frame.Position = UDim2.new(1,0,0,0)
118
		COButton.Position = UDim2.new(1 - 0.125,0,1-0.225,0)
119
	else
120
		COButton.Rotation = 90 * 3
121
		Frame.Position = UDim2.new(1 - 0.3,0,0,0)
122
		COButton.Position = UDim2.new(1 - 0.425,0,1-0.225,0)
123
	end
124
end)
125
126
Open(workspace,false)