reduce number of messages on standard output

Author: striezel

engine/Data.pas

@@ -1,7 +1,7 @@
 { ***************************************************************************
 
     This file is part of Vespucci.
-    Copyright (C) 2008, 2009, 2010, 2011  Dirk Stolle
+    Copyright (C) 2008, 2009, 2010, 2011, 2015  Dirk Stolle
 
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
@@ -72,6 +72,8 @@ interface
                          (x: 50; y: 55)
                        );
 
+{PlaceDollarSignHereDEFINE DEBUG_CODE 1}
+
 type
   { record type which holds different parts of (player's) score }
   TScoreRecord = record
@@ -561,7 +563,7 @@   TData = class
 implementation
 
 uses
-  Terrain;
+  Terrain, DebugWriter;
 
 constructor TData.Create(const NumNation_Player: LongInt=cNationEngland);
 var i: Integer;
@@ -635,7 +637,9 @@ procedure TData.InitializeMap;
   begin
     if m_Map.LoadFromFile(GetPathBase+america_map_path) then
     begin
-      WriteLn('Map "'+GetPathBase+america_map_path+'" successfully loaded.');
+      {$IFDEF DEBUG_CODE}
+      WriteDebugLn('Map "'+GetPathBase+america_map_path+'" successfully loaded.');
+      {$ENDIF}
       InitTribes_America;
     end//if
     else begin
@@ -828,7 +832,9 @@ procedure TData.StartNewGame(const InAmerica: Boolean; const NumNation_Player: L
       SpawnEuropeanNation(j, cSpawnpointsAmerica[i].x, cSpawnpointsAmerica[i].y);
       bits:= bits or (1 shl i);
     end;//for
-    WriteLn('First ships created.');
+    {$IFDEF DEBUG_CODE}
+    WriteDebugLn('First ships created.');
+    {$ENDIF}
   end
   else begin
     //generate map
@@ -846,7 +852,9 @@ procedure TData.StartNewGame(const InAmerica: Boolean; const NumNation_Player: L
       SpawnEuropeanNation(j, cMap_X-1, cSpawnpointsAmerica[i].y);
       bits:= bits or (1 shl i);
     end;//for
-    WriteLn('First ships created.');
+    {$IFDEF DEBUG_CODE}
+    WriteDebugLn('First ships created.');
+    {$ENDIF}
   end;//else branch
   //TODO: complete this procedure
 end;//proc

engine/DebugWriter.pas

@@ -0,0 +1,45 @@
+{ ***************************************************************************
+
+    This file is part of Vespucci.
+    Copyright (C) 2015  Dirk Stolle
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+  ***************************************************************************
+}
+
+unit DebugWriter;
+
+interface
+
+  { writes the given message to standard output, but only if DEBUG_CODE is
+    defined.
+
+    parameters:
+        message - the debug message
+  }
+  procedure WriteDebugLn(message: string);
+
+{PlaceDollarSignHereDEFINE DEBUG_CODE 1}
+
+implementation
+
+procedure WriteDebugLn(message: string);
+begin
+  {$IFDEF DEBUG_CODE}
+  WriteLn(message);
+  {$ENDIF}
+end;
+
+end.