SebTDZ

Vex Explorer V5

Aug 1st, 2019
146
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.     local Count = 1 / 255
  8.     --Red Count
  9.     local red = Count * RED
  10.     --Green Count
  11.     local green = Count * GREEN
  12.     --Blue Count
  13.     local blue = Count * BLUE
  14.     --Give Color3
  15.     local FColor = Color3.new(red,green,blue)
  16.     return FColor
  17. end
  18.  
  19. local Frame = Instance.new("Frame",ScreenGui)
  20. Frame.Position = UDim2.new(1 - (0.3/2),0,0,0)
  21. Frame.Size = UDim2.new(0.3/2,0,1.5/2,0)
  22. Frame.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
  23. Frame.Active = true
  24. Frame.Selectable = true
  25. Frame.Draggable = true
  26.  
  27. local ScrollingFrame = Instance.new("ScrollingFrame",Frame)
  28. ScrollingFrame.Position = UDim2.new(0,0,0.1,0)
  29. ScrollingFrame.Size = UDim2.new(1,0,0.9,0)
  30. ScrollingFrame.BackgroundColor3 = Color3.new(1,1,1)
  31. ScrollingFrame.ScrollBarThickness = 3
  32. ScrollingFrame.CanvasSize = UDim2.new(1,0,7500,0)
  33.  
  34. added = 0
  35. addedSize = 0.05 / 7500
  36. function Add(Object,nr)
  37.     added = added + 1
  38.    
  39.     local OP = Object.Parent
  40.     local ON = Object.Name
  41.    
  42.     local TextButton = Instance.new("TextButton",ScrollingFrame)
  43.     TextButton.Text = ON
  44.     TextButton.Position = UDim2.new(0,0,(addedSize * added) - addedSize,0)
  45.     TextButton.Size = UDim2.new(1,0,addedSize,0)
  46.    
  47.     TextButton.BackgroundColor3 = rgb(45, 160, 255)
  48.     TextButton.MouseButton1Click:Connect(function()
  49.         if OP:FindFirstChild(ON) then
  50.             Open(Object)
  51.         end
  52.     end)
  53.    
  54.     if nr then
  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.             end
  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. end
  76.  
  77. function Open(Object)
  78.     ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
  79.     ScrollingFrame.CanvasSize = UDim2.new(1,0,7500,0)
  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.     if Object.Parent ~= game then
  88.         Add(Object.Parent,false)
  89.     end
  90. end
  91.  
  92. local TextLabel = Instance.new("TextLabel",Frame)
  93. TextLabel.Text = "Vex Explorer V5"
  94. TextLabel.Size = UDim2.new(1,0,0.1,0)
  95. TextLabel.BackgroundColor3 = rgb(0, 140, 255)
  96. TextLabel.TextScaled = true
  97.  
  98. Open(game.Players,false)
Add Comment
Please, Sign In to add comment