View difference between Paste ID: eyWZizhS and TpaBg4MA
SHOW: | | - or go back to the newest paste.
1-
local ScreenGui = Instance.new("ScreenGui",owner.PlayerGui)
1+
Player = owner.Name
2
3
local ScreenGui = Instance.new("ScreenGui",game:GetService("Players")[Player].PlayerGui)
4
ScreenGui.Name = "Explorer"
5-
Frame.Size = UDim2.new(0.3,0,0.8,0)
5+
6
local Frame = Instance.new("Frame",ScreenGui)
7-
Frame.Active = true
7+
Frame.Position = UDim2.new(1 - 0.3,0,0,0)
8-
Frame.Selectable = true
8+
Frame.Size = UDim2.new(0.3,0,1,0)
9-
Frame.Draggable = true
9+
10
11
local ScrollingFrame = Instance.new("Frame",Frame)
12-
TextLabel.Text = "Explorer V1"
12+
13
ScrollingFrame.Size = UDim2.new(0.9,0,0.9,0)
14-
TextLabel.BackgroundTransparency = 1
14+
15
16
local ScrollBarFrame = Instance.new("Frame",Frame)
17-
local ScrollingFrame = Instance.new("ScrollingFrame",Frame)
17+
ScrollBarFrame.Position = UDim2.new(0.9,0,0.1,0)
18
ScrollBarFrame.Size = UDim2.new(0.1,0,0.9,0)
19-
ScrollingFrame.Size = UDim2.new(1,0,0.9,0)
19+
ScrollBarFrame.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
20-
ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
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-
	ScrollingFrame.CanvasSize = ScrollingFrame.CanvasSize + UDim2.new(0,0,0.05,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-
	ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
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
	end
76
77
	added = added + 0.05
78
end
79
function Open(Object)
80
	added = 0
81
	for i,v in pairs(ScrollingFrame:GetChildren()) do
82
		v:Remove()
83
	end
84
	for i,v in pairs(Object:GetChildren()) do
85
			Add(v,true)
86
	end
87
	Add(workspace,false)
88
end
89
90
local TextLabel = Instance.new("TextLabel",Frame)
91
TextLabel.Text = "Explorer V2"
92
TextLabel.Size = UDim2.new(1,0,0.1,0)
93
TextLabel.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
94
TextLabel.TextScaled = true
95
96
local Frame2 = Instance.new("Frame",ScreenGui)
97
Frame2.Position = UDim2.new(1-0.3,0,-0.05,0)
98
Frame2.Size = UDim2.new(0.3,0,0.05,0)
99
Frame2.BackgroundColor3 = Color3.new(0,0,0)
100
101
local COButton = Instance.new("TextButton",ScreenGui)
102
COButton.Text = "V"
103
COButton.Rotation = 90 * 3
104
COButton.Position = UDim2.new(1 - 0.425,0,1-0.225,0)
105
COButton.Size = UDim2.new(0.2,0,0.1,0)
106
COButton.BackgroundColor3 = Color3.new(1,1,1)
107
COButton.MouseButton1Click:Connect(function()
108
	if COButton.Rotation == 90 * 3 then
109
		COButton.Rotation = 90
110
		Frame.Position = UDim2.new(1,0,0,0)
111
		COButton.Position = UDim2.new(1 - 0.125,0,1-0.225,0)
112
	else
113
		COButton.Rotation = 90 * 3
114
		Frame.Position = UDim2.new(1 - 0.3,0,0,0)
115
		COButton.Position = UDim2.new(1 - 0.425,0,1-0.225,0)
116
	end
117
end)
118
119
Open(workspace,false)