SHARE
TWEET

Untitled

a guest Sep 21st, 2019 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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 )
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top