added "-debug" flag at run time and "CONSOLE" Define in switches.inc

also the default is to run with no debug info sent to the console

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@973 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 5 insertions, 1 deletions

diff --git a/Game/Code/Classes/UCommandLine.pas b/Game/Code/Classes/UCommandLine.pas
index 92163f89..e7398b50 100644
--- a/Game/Code/Classes/UCommandLine.pas
+++ b/Game/Code/Classes/UCommandLine.pas
@@ -55,6 +55,7 @@ var
   
 const
   cHelp            = 'help';
+  cDebug           = 'debug';
   cMediaInterfaces = 'showinterfaces';
   cUseLocalPaths   = 'localpaths';
 
@@ -72,7 +73,7 @@ uses SysUtils,
 Constructor TCMDParams.Create;
 begin
 
-  if FindCmdLineSwitch( cHelp ) then
+  if FindCmdLineSwitch( cHelp ) or FindCmdLineSwitch( 'h' ) then
     showhelp();
 
   ResetVariables;
@@ -97,6 +98,9 @@ begin
   writeln( '  ----------------------------------------------------------' );
   writeln( '  '+s( cMediaInterfaces ) + #9 + ' : Show in-use media interfaces' );
   writeln( '  '+s( cUseLocalPaths ) + #9 + ' : Use relative paths' );
+  writeln( '  '+s( cDebug ) + #9 + ' : Display Debugging info' );
+
+
 
   writeln( '' );