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 | + |