Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local PANEL = {
- Init = function( self )
- self:SetSize( 1000 , 720)
- self:Center()
- self:SetVisible( true )
- local x, y = self:GetSize()
- surface.SetFont( "DermaLarge" )
- local titleX; titleY = surface.GetTextSize( "DarkRP F4Menu" )
- local title = vgui.Create( "DLabel", self )
- title:SetText( DarkRP F4Menu )
- title:SetSize( titleX, titleY )
- title:SetPos( 6, 6 )
- title:SetFont( "DermaLarge" )
- title:SetTextColor( Color(255, 255, 255 ) )
- local closebutton = vgui.Create( "DButton", self )
- closebutton:SetText( "Close" )
- closebutton:SetSize( 75, 25 )
- closebutton:SetPos( x-81, 6 )
- closebutton.Paint = function( self, w, h)
- surface.SetDrawColor(150, 150, 150, 50 )
- surface.DrawRect( 0, 0, w, h )
- surface.SetDrawColor(50, 50, 50, 150)
- surface.DrawOutlinedRect( 0, 0, w, h )
- end
- closebutton.DoClick = function()
- CSF4Menu:SetVisible( false )
- gui.EnableScreenClicker( false )
- end
- local removebutton = vgui.Create( "DButton", self )
- removebutton:SetText( "Remove" )
- removebutton:SetSize( 75, 25 )
- removebutton:SetPos( x-162, 6 )
- removebutton.Paint = function( self, w, h)
- surface.SetDrawColor(150, 150, 150, 50 )
- surface.DrawRect( 0, 0, w, h )
- surface.SetDrawColor(50, 50, 50, 150)
- surface.DrawOutlinedRect( 0, 0, w, h )
- end
- removebutton.DoClick = function()
- gui.EnableScreenClicker( false )
- CSF4Menu:Remove()
- CSF4Menu = vgui.Create( "cs_f4_menu" )
- CSF4Menu:SetVisible( false )
- end
- local pagesback = vgui.Create( "DPanel", self )
- pagesback:SetPos( 6, 37 )
- pagesback:SetSize( x-12, y-43 )
- pagesback:.Paint = function( self, w, h)
- surface.SetDrawColor(75, 75, 75, 50 )
- surface.DrawRect( 0, 0, w, h )
- end
- local pages = vgui.Create( "CSDColSheet", pagesback )
- pages:Dock( FILL )
- local jobarea = vgui.Create( "DPanel", pages )
- jobarea:Dock( FILL )
- jobarea:.Paint = function( self, w, h)
- surface.SetDrawColor(255, 0, 0, 75 )
- surface.DrawRect( 0, 0, w, h )
- end
- pages:AddSheet( "Jobs", jobarea, )
- local entityarea = vgui.Create( "DPanel", pages )
- entityarea:Dock( FILL )
- entityarea:.Paint = function( self, w, h)
- surface.SetDrawColor(0, 255, 0, 75 )
- surface.DrawRect( 0, 0, w, h )
- end
- pages:AddSheet( "Entities", entityarea, )
- local commandsarea = vgui.Create( "DPanel", pages )
- commandsarea:Dock( FILL )
- commandsarea:.Paint = function( self, w, h)
- surface.SetDrawColor(0, 0, 255, 75 )
- surface.DrawRect( 0, 0, w, h )
- end
- pages:AddSheet( "Commands", commandsarea, )
- end,
- Paint = function(self, w, h)
- surface.SetDrawColor(255, 255, 255, 150)
- surface.DrawRect( 0, 0, w, h )
- surface.DrawOutlinedRect( 2, 2, w-4, h-4 )
- end
- }
- vgui.Register( "cs_f4_menu", PANEL )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement