All pastes #990874 Raw Edit

Anonymous

public text v1 · immutable
#990874 ·published 2008-04-20 15:01 UTC
rendered paste body
/*---------------------------------------------------------
   Name: gamemode:helpmenu
   Desc: The Melee Arena help menu
---------------------------------------------------------*/
      if CLIENT then

              function HelpMenuScreen( ply )
                      local DermaPanel = vgui.Create( "DFrame" )
                      DermaPanel:SetPos( 100,20 )
                      DermaPanel:SetSize( 512, 560 )
                      DermaPanel:SetTitle( "Help Menu" )
                      DermaPanel:MakePopup( )
                      
                      local DermaImage = vgui.Create( "DImage", DermaPanel )
                      DermaImage:SetPos( 0, 0 )
                      DermaImage:SetImage( "dojo/rules.vtf" )
                      DermaImage:SetSize( 512, 512 )
                      DermaImage.DoClick = function( )
                              print( "Click detected" )
                              DermaPanel:SetVisible( false )

                      local DermaButton = vgui.Create( "DButton", image )
                      DermaButton:SetText( "Participate" )
                      DermaButton:SetPos(DermaPanel:GetWide() - 60,DermaPanel:GetTall() -60)
                      DermaButton:SetSize( 50, 50 )
                      DermaButton.DoClick = function ()
                              RunConsoleCommand( "kill" )
                              end 
                      end
              end
       
              concommand.Add( "helpmenu", HelpMenuScreen )

      end

       

      if SERVER then
              function GM:ShowHelp( ply )
                      ply:ConCommand( "helpmenu" )
              end
      end