Advertisement
Guest User

Untitled

a guest
Sep 21st, 2019
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.74 KB | None | 0 0
  1. local PANEL = {
  2. Init = function( self )
  3. self:SetSize( 1000 , 720)
  4. self:Center()
  5. self:SetVisible( true )
  6.  
  7. local x, y = self:GetSize()
  8.  
  9. surface.SetFont( "DermaLarge" )
  10. local titleX; titleY = surface.GetTextSize( "DarkRP F4Menu" )
  11.  
  12. local title = vgui.Create( "DLabel", self )
  13. title:SetText( DarkRP F4Menu )
  14. title:SetSize( titleX, titleY )
  15. title:SetPos( 6, 6 )
  16. title:SetFont( "DermaLarge" )
  17. title:SetTextColor( Color(255, 255, 255 ) )
  18.  
  19. local closebutton = vgui.Create( "DButton", self )
  20. closebutton:SetText( "Close" )
  21. closebutton:SetSize( 75, 25 )
  22. closebutton:SetPos( x-81, 6 )
  23. closebutton.Paint = function( self, w, h)
  24. surface.SetDrawColor(150, 150, 150, 50 )
  25. surface.DrawRect( 0, 0, w, h )
  26. surface.SetDrawColor(50, 50, 50, 150)
  27. surface.DrawOutlinedRect( 0, 0, w, h )
  28. end
  29. closebutton.DoClick = function()
  30. CSF4Menu:SetVisible( false )
  31. gui.EnableScreenClicker( false )
  32. end
  33.  
  34. local removebutton = vgui.Create( "DButton", self )
  35. removebutton:SetText( "Remove" )
  36. removebutton:SetSize( 75, 25 )
  37. removebutton:SetPos( x-162, 6 )
  38. removebutton.Paint = function( self, w, h)
  39. surface.SetDrawColor(150, 150, 150, 50 )
  40. surface.DrawRect( 0, 0, w, h )
  41. surface.SetDrawColor(50, 50, 50, 150)
  42. surface.DrawOutlinedRect( 0, 0, w, h )
  43. end
  44. removebutton.DoClick = function()
  45. gui.EnableScreenClicker( false )
  46. CSF4Menu:Remove()
  47. CSF4Menu = vgui.Create( "cs_f4_menu" )
  48. CSF4Menu:SetVisible( false )
  49. end
  50.  
  51. local pagesback = vgui.Create( "DPanel", self )
  52. pagesback:SetPos( 6, 37 )
  53. pagesback:SetSize( x-12, y-43 )
  54. pagesback:.Paint = function( self, w, h)
  55. surface.SetDrawColor(75, 75, 75, 50 )
  56. surface.DrawRect( 0, 0, w, h )
  57. end
  58.  
  59. local pages = vgui.Create( "CSDColSheet", pagesback )
  60. pages:Dock( FILL )
  61.  
  62. local jobarea = vgui.Create( "DPanel", pages )
  63. jobarea:Dock( FILL )
  64. jobarea:.Paint = function( self, w, h)
  65. surface.SetDrawColor(255, 0, 0, 75 )
  66. surface.DrawRect( 0, 0, w, h )
  67. end
  68. pages:AddSheet( "Jobs", jobarea, )
  69.  
  70. local entityarea = vgui.Create( "DPanel", pages )
  71. entityarea:Dock( FILL )
  72. entityarea:.Paint = function( self, w, h)
  73. surface.SetDrawColor(0, 255, 0, 75 )
  74. surface.DrawRect( 0, 0, w, h )
  75. end
  76. pages:AddSheet( "Entities", entityarea, )
  77.  
  78. local commandsarea = vgui.Create( "DPanel", pages )
  79. commandsarea:Dock( FILL )
  80. commandsarea:.Paint = function( self, w, h)
  81. surface.SetDrawColor(0, 0, 255, 75 )
  82. surface.DrawRect( 0, 0, w, h )
  83. end
  84. pages:AddSheet( "Commands", commandsarea, )
  85.  
  86. end,
  87.  
  88. Paint = function(self, w, h)
  89. surface.SetDrawColor(255, 255, 255, 150)
  90. surface.DrawRect( 0, 0, w, h )
  91. surface.DrawOutlinedRect( 2, 2, w-4, h-4 )
  92. end
  93. }
  94. vgui.Register( "cs_f4_menu", PANEL )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement