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