Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Player = owner.Name
- local ScreenGui = Instance.new("ScreenGui",game:GetService("Players")[Player].PlayerGui)
- ScreenGui.Name = "Explorer"
- function rgb(RED,GREEN,BLUE)
- local Count = 1 / 255
- --Red Count
- local red = Count * RED
- --Green Count
- local green = Count * GREEN
- --Blue Count
- local blue = Count * BLUE
- --Give Color3
- local FColor = Color3.new(red,green,blue)
- return FColor
- end
- local Frame = Instance.new("Frame",ScreenGui)
- Frame.Position = UDim2.new(1 - (0.3/2),0,0,0)
- Frame.Size = UDim2.new(0.3/2,0,1.5/2,0)
- Frame.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
- Frame.Active = true
- Frame.Selectable = true
- Frame.Draggable = true
- local ScrollingFrame = Instance.new("ScrollingFrame",Frame)
- ScrollingFrame.Position = UDim2.new(0,0,0.1,0)
- ScrollingFrame.Size = UDim2.new(1,0,0.9,0)
- ScrollingFrame.BackgroundColor3 = Color3.new(1,1,1)
- ScrollingFrame.ScrollBarThickness = 3
- ScrollingFrame.CanvasSize = UDim2.new(1,0,7500,0)
- added = 0
- addedSize = 0.05 / 7500
- function Add(Object,nr)
- added = added + 1
- local OP = Object.Parent
- local ON = Object.Name
- local TextButton = Instance.new("TextButton",ScrollingFrame)
- TextButton.Text = ON
- TextButton.Position = UDim2.new(0,0,(addedSize * added) - addedSize,0)
- TextButton.Size = UDim2.new(1,0,addedSize,0)
- TextButton.BackgroundColor3 = rgb(45, 160, 255)
- TextButton.MouseButton1Click:Connect(function()
- if OP:FindFirstChild(ON) then
- Open(Object)
- end
- end)
- if nr then
- local TextButton2 = Instance.new("TextButton",TextButton)
- TextButton2.Text = "Remove"
- TextButton2.Position = UDim2.new(1-0.3,0,0,0)
- TextButton2.Size = UDim2.new(0.3,0,1,0)
- TextButton2.BackgroundColor3 = rgb(45, 160, 255)
- TextButton2.MouseButton1Click:Connect(function()
- if OP:FindFirstChild(ON) then
- Object:Remove()
- Open(OP)
- else
- Open(OP)
- end
- end)
- local TextLabel2 = Instance.new("TextLabel",TextButton)
- TextLabel2.Text = Object.ClassName
- TextLabel2.Position = UDim2.new(0,0,0,0)
- TextLabel2.Size = UDim2.new(0.3,0,1,0)
- TextLabel2.BackgroundColor3 = rgb(45, 160, 255)
- end
- end
- function Open(Object)
- ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
- ScrollingFrame.CanvasSize = UDim2.new(1,0,7500,0)
- added = 0
- for i,v in pairs(ScrollingFrame:GetChildren()) do
- v:Remove()
- end
- for i,v in pairs(Object:GetChildren()) do
- Add(v,true)
- end
- if Object.Parent ~= game then
- Add(Object.Parent,false)
- end
- end
- local TextLabel = Instance.new("TextLabel",Frame)
- TextLabel.Text = "Vex Explorer V5"
- TextLabel.Size = UDim2.new(1,0,0.1,0)
- TextLabel.BackgroundColor3 = rgb(0, 140, 255)
- TextLabel.TextScaled = true
- Open(game.Players,false)
Add Comment
Please, Sign In to add comment