Advertisement
Guest User

khols admin gui

a guest
Aug 21st, 2019
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.89 KB | None | 0 0
  1. ScreenGui = Instance.new("ScreenGui")
  2. ScrollingFrame = Instance.new("ScrollingFrame")
  3. but = Instance.new("TextButton")
  4. ScreenGui.Parent = game.CoreGui
  5. ScreenGui.ResetOnSpawn = false
  6. ScrollingFrame.Parent = ScreenGui
  7. ScrollingFrame.BackgroundColor3 = Color3.new(1, 1, 1)
  8. ScrollingFrame.BackgroundTransparency = 0.69999998807907
  9. ScrollingFrame.Position = UDim2.new(0.135553837, 0, 0.158125922, 0)
  10. ScrollingFrame.Size = UDim2.new(0, 268, 0, 406)
  11. ScrollingFrame.Draggable = true
  12. ScrollingFrame.Active = true
  13. but.Name = "but"
  14. but.Parent = ScreenGui
  15. but.BackgroundColor3 = Color3.new(1, 1, 1)
  16. but.Position = UDim2.new(10, 0, 10, 0)
  17. but.Size = UDim2.new(0, 200, 0, 50)
  18. but.Font = Enum.Font.SourceSans
  19. but.FontSize = Enum.FontSize.Size14
  20. but.TextColor3 = Color3.new(0, 0, 0)
  21. but.TextSize = 14
  22. local located
  23. function list(location)
  24. ScrollingFrame:ClearAllChildren()
  25. b = but:Clone()
  26. b.Position = UDim2.new(0, 0, 0, 0)
  27. b.Text = "Back"
  28. b.MouseButton1Down:connect(function()
  29. spawn(function()list(location.Parent)located = location.Parent end)
  30. end)
  31. bb = but:Clone()
  32. bb.Position = UDim2.new(0, 0, 0, 50)
  33. bb.Text = "Delete Object"
  34. bb.MouseButton1Down:connect(function()
  35. pcall(function()location.Locked = false end)
  36. spawn(function()list(location.Parent)located = location.Parent end)
  37. game.Players.LocalPlayer.Backpack.Delete.delete:FireServer(location)
  38. end)
  39. bbb= but:Clone()
  40. bbb.Position = UDim2.new(0, 0, 0, 100)
  41. bbb.Text = "Close"
  42. bbb.MouseButton1Down:connect(function()
  43. ScreenGui:Destroy()
  44. end)
  45. b.Parent = ScrollingFrame
  46. bb.Parent = ScrollingFrame
  47. bbb.Parent = ScrollingFrame
  48. for i,v in pairs (location:GetChildren()) do
  49. loc = but:Clone()
  50. loc.Parent = nil
  51. loc.Position = UDim2.new(0, 0, 0, i * 50 + 100)
  52. loc.Text = v.Name
  53. loc.Name = v.Name
  54. loc.MouseButton1Down:connect(function()
  55. list(v)
  56. end)
  57. loc.Parent = ScrollingFrame
  58. end
  59. end
  60. list(game)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement