From bbf6784e26b5f94c87c9deedb75711948d937f46 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 26 Mar 2008 12:03:20 +0000
Subject: 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
---
 Game/Code/Classes/UCommandLine.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Game/Code/Classes/UCommandLine.pas')

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( '' );
 
-- 
cgit v1.2.3