View difference between Paste ID: kc1D34Sq and pvq17Apc
SHOW: | | - or go back to the newest paste.
1
screengui = Instance.new("ScreenGui")
2
screengui.Parent = owner.PlayerGui
3
event = workspace.delete.delete
4-
frame.Parent = screengui
4+
window = Instance.new("Frame")
5-
frame.Position = UDim2.new(0.798, 0, 0, 20)
5+
window.Parent = screengui
6
window.Position = UDim2.new(0, 100, 0, 0)
7-
frame.BackgroundTransparency = 0.4
7+
window.Size = UDim2.new(0, 171, 0, 341)
8
window.BackgroundTransparency = 0.4
9
moveB = Instance.new("TextButton")
10
moveB.Parent = window
11
moveB.Size = UDim2.new(1,0,0,15)
12
moveB.Text = ""
13
moveB.BackgroundColor3 = Color3.new(0.337255, 0.337255, 0.337255)
14
15
--window2 = Instance.new("Frame")
16
--window2.Parent = screengui
17
--window2.Position = UDim2.new(0, 300, 0, 0)
18
--window2.Size = UDim2.new(0, 171, 0, 341)
19
--window2.BackgroundTransparency = 0.4
20
--moveB2 = Instance.new("TextButton")
21
--moveB2.Parent = window2
22
--moveB2.Size = UDim2.new(1,0,0,15)
23
--moveB2.Text = "Properties"
24
--moveB2.BackgroundColor3 = Color3.new(0.337255, 0.337255, 0.337255)
25
26
frame = Instance.new("UICorner")
27
frame.Parent = moveB
28
29
--frame = Instance.new("UICorner")
30
--frame.Parent = moveB2
31
32
frame = Instance.new("Frame")
33
frame.Parent = window
34
frame.Position = UDim2.new(0.2, 0, 0, 20)
35
frame.Size = UDim2.new(0, 121, 0, 321)
36
frame.BackgroundTransparency = 1
37
sframe = Instance.new("ScrollingFrame")
38
sframe.Parent = frame
39
sframe.Size = UDim2.new(1,0,1,0)
40
sframe.CanvasSize = UDim2.new(0,0,5,0)
41
sframe.BackgroundTransparency = 0.4
42
where = Instance.new("UIListLayout")
43
where.Parent = sframe
44
45
--sframe2 = Instance.new("ScrollingFrame")
46
--sframe2.Parent = window2
47
--sframe2.Size = UDim2.new(1,0,0,321)
48
--sframe2.CanvasSize = UDim2.new(0,0,5,0)
49
--sframe2.BackgroundTransparency = 0.4
50
--sframe2.Position = UDim2.new(0,0,0,20)
51
--where = Instance.new("UIListLayout")
52
--where.Parent = sframe2
53
--where.FillDirection = "Horizontal"
54
55
--grid1 = Instance.new("Frame")
56
--grid1.Parent = sframe2
57
--grid1.Size = UDim2.new(0.5,0,0.1,0)
58
--grid1.Transparency = 1
59
--grid2 = Instance.new("Frame")
60
--grid2.Parent = sframe2
61
--grid2.Size = UDim2.new(0.5,0,0.1,0)
62-
    if wherepart.Value ~= workspace then
62+
--grid2.Position = UDim2.new(0.5,0,0,0)
63
--grid2.Transparency = 1
64-
    else
64+
--where = Instance.new("UIListLayout")
65-
        highlight.Parent = frame    
65+
--where.Parent = grid1
66-
    end
66+
--where = Instance.new("UIListLayout")
67
--where.Parent = grid2
68
--grid1folder = Instance.new("Folder")
69-
	chil:Destroy()
69+
--grid1folder.Parent = grid1
70-
	chil = Instance.new("Folder")
70+
--grid2folder = Instance.new("Folder")
71-
	chil.Parent = sframe
71+
--grid2folder.Parent = grid2
72-
	if wherepart == game then
72+
73
where = Instance.new("TextLabel")
74
where.Parent = frame
75-
		CHILL.Text = "Players"
75+
76
where.Size = UDim2.new(0,99,0,19)
77-
		local ii = #wherechil+1 * 0.02
77+
78
where.BackgroundColor = BrickColor.new(0.3, 0.9, 1)
79
highlight = Instance.new("Highlight")
80-
		c.Value = game.Players
80+
81
highlight.Parent = frame
82
highlight.FillTransparency = 1
83
highlight.OutlineColor = Color3.new(0.0980392, 0.788235, 1)
84
back = Instance.new("TextButton")
85
back.Parent = frame
86
back.BackgroundTransparency = 0
87-
		local name = "ERROR"
87+
88-
		if pcall(function() local hi = wherechil[i].Name  return hi end) then
88+
89-
			_,name = pcall(function() return wherechil[i].Name end)
89+
90
back.Size = UDim2.new(0,20,0,20)
91-
		if type(name) ~= "string" then
91+
92-
			name = "ERROR"
92+
93
des.Parent = frame
94-
		CHILL.Text = name
94+
95
des.Text = "DESTROY"
96
des.TextColor = BrickColor.Red()
97
des.Position = UDim2.new(-.24,0,0.1,1)
98
des.Size = UDim2.new(0,20,0,20)
99
des.Name = "DESTROY"
100
wherepart = Instance.new("ObjectValue")
101
wherepart.Parent = frame
102
wherepart.Value = game.Workspace
103
chil = Instance.new("Folder")
104
chil.Parent = sframe
105-
	wherepart.Value = wherepart.Value.Parent
105+
106
wherechil = wherepart.Value:GetChildren()
107
for i= 1, #wherechil do
108
	print("hi")
109
	local CHILL = Instance.new("TextButton")
110-
	wherepart.Value:Destroy()
110+
111
	CHILL.Text = wherechil[i].Name
112
	CHILL.Size = UDim2.new(0,99,0,19)
113
	local ii = i * 0.02
114
	CHILL.Position = UDim2.new(-0.008,0,ii)
115
	c = Instance.new("ObjectValue")
116
	c.Value = wherechil[i]
117
	c.Parent = CHILL
118
	c.Name = "ob"
119
end
120
121
122
123
print("hi")
124
wherechil = wherepart.Value:GetChildren()
125
wherepart.Changed:Connect(function()
126
	highlight.Parent = wherepart.Value
127
	where.Text = wherepart.Value.Name
128
	wherechil = wherepart.Value:GetChildren()
129
	chil:ClearAllChildren()
130
	for i= 1, #wherechil do
131
		if wherechil[i] ~= highlight then
132
		local CHILL = Instance.new("TextButton")
133
		CHILL.Parent = chil
134
		CHILL.Text = wherechil[i].Name
135
		CHILL.Size = UDim2.new(0,99,0,19)
136
		local ii = i * 0.02
137
		CHILL.Position = UDim2.new(-0.008,0,ii)
138
		c = Instance.new("ObjectValue")
139
		c.Value = wherechil[i]
140
		c.Parent = CHILL
141
		c.Name = "ob"
142
		end
143
	end
144
end)
145
back.MouseButton1Down:Connect(function()
146
if not wherepart.Value or not wherepart.Value.Parent then 
147
wherepart.Value = workspace
148
end
149
wherepart.Value = wherepart.Value.Parent
150
end)
151
des.MouseButton1Down:Connect(function()
152
	local old = wherepart.Value.Parent
153
	highlight.Parent = frame
154
	event:FireServer(wherepart.Value)
155
	wherepart.Value = old
156
end)
157
highlight.Destroying:Connect(function()
158
	highlight = Instance.new("Highlight")
159
	highlight.Name = "selected"
160
	highlight.Parent = frame
161
	highlight.FillTransparency = 1
162
	highlight.OutlineColor = Color3.new(0.0980392, 0.788235, 1)
163
end)
164
165
--window script
166
mouse = owner:GetMouse()
167
mx,my = mouse.X,mouse.Y
168
sx,sy = 0,0
169
moveB.MouseButton1Down:Connect(function()
170
	sx,sy = mouse.X,mouse.Y
171
end)
172
moveB.MouseButton1Up:Connect(function()
173
	sx,sy = 0,0
174
end)
175
mouse.Button1Up:Connect(function()
176
	sx,sy = 0,0
177
end)
178
179
mouse.Move:Connect(function()
180
	if sx ~= 0 then
181
		mx,my = mouse.X,mouse.Y
182
		local dxy = window.Position
183
		local dx,dy = dxy.X.Offset,dxy.Y.Offset
184
		local nx,ny = dx+(mx-sx),dy+(my-sy)
185
		window.Position = UDim2.new(0,nx,0,ny)
186
		sx,sy = mouse.X,mouse.Y
187
	end	
188
end)
189
190
--window script2
191
--mouse = owner:GetMouse()
192
--mx,my = mouse.X,mouse.Y
193
--sx2,sy2 = 0,0
194
--moveB2.MouseButton1Down:Connect(function()
195
--	sx2,sy2 = mouse.X,mouse.Y
196
--end)
197
--moveB2.MouseButton1Up:Connect(function()
198
--	sx2,sy2 = 0,0
199
--end)
200
--mouse.Button1Up:Connect(function()
201
--	sx2,sy2 = 0,0
202
--end)
203
--
204
--mouse.Move:Connect(function()
205
--	if sx2 ~= 0 then
206
--		local size = workspace.CurrentCamera.ViewportSize
207
--		local ssx = size.X
208
--		local ssy = size.Y
209
--		mx,my = mouse.X,mouse.Y
210
--		local dxy = window2.Position
211
--		local dx,dy = dxy.X.Offset,dxy.Y.Offset
212
--		local nx,ny = dx+(mx-sx2),dy+(my-sy2)
213
--		window2.Position = UDim2.new(0,nx,0,ny)
214
--		sx2,sy2 = mouse.X,mouse.Y
215
--	end	
216
--end)
217
218
--while loop
219
while true do
220
	wait(0.01)
221
	cc = chil:GetChildren()
222
	ccc = #cc
223
	for iii = 1, ccc do
224
		cc[iii].MouseButton1Up:Connect(function()
225
			print("down")
226
			wherepart.Value = cc[iii].ob.Value
227
		end)
228
	end
229
end