# HG changeset patch
# User unc0rr
# Date 1124723202 0
# Node ID 4eeab397c3c6f9e71873a82a61ab77baa2a92655
# Parent  30f2d1037d5da65660b237d1bd2e37ea6b39f7c8
 - Support for forts game mode option. Works for demos, frontend doesn't support it.
 - Updated copyright info for forts

diff -r 30f2d1037d5d -r 4eeab397c3c6 README.txt
--- a/README.txt	Mon Aug 22 13:35:41 2005 +0000
+++ b/README.txt	Mon Aug 22 15:06:42 2005 +0000
@@ -5,6 +5,7 @@
 images in Data/Graphics, 
 sounds in Data/Sounds,
 themes "avematan", "bubbles", "tibet"
+fort "Barrelhouse"
 (c) 2004, 2005 Andrey Korotaev <unC0Rr@gmail.com>
 
 Fonts  
diff -r 30f2d1037d5d -r 4eeab397c3c6 hedgewars/fIPC.pas
--- a/hedgewars/fIPC.pas	Mon Aug 22 13:35:41 2005 +0000
+++ b/hedgewars/fIPC.pas	Mon Aug 22 15:06:42 2005 +0000
@@ -90,6 +90,7 @@
 SendIPC(format('e$sound %d',[SendMessage(HSetSndCheck, BM_GETCHECK, 0, 0)]));
 case GameType of
     gtLocal: begin
+             SendIPC(format('e$gmflags %d',[0]));
              SendIPC('eaddteam');
              ExecCFG(Pathz[ptTeams] + 'unC0Rr.cfg');
              SendIPC('ecolor 65535');
diff -r 30f2d1037d5d -r 4eeab397c3c6 hedgewars/hw.dpr
--- a/hedgewars/hw.dpr	Mon Aug 22 13:35:41 2005 +0000
+++ b/hedgewars/hw.dpr	Mon Aug 22 15:06:42 2005 +0000
@@ -70,8 +70,8 @@
 begin
 case GameState of
    gsLandGen: begin
-              GenLandSurface;
-              //MakeFortsMap;
+              if (GameFlags and gfForts) = 0 then GenLandSurface
+                                             else MakeFortsMap;
               GameState:= gsStart;
               end;
      gsStart: begin
diff -r 30f2d1037d5d -r 4eeab397c3c6 hedgewars/uConsole.pas
--- a/hedgewars/uConsole.pas	Mon Aug 22 13:35:41 2005 +0000
+++ b/hedgewars/uConsole.pas	Mon Aug 22 15:06:42 2005 +0000
@@ -263,6 +263,7 @@
 RegisterVariable('rdriven' , vtCommand, @chTeamLocal    );
 //RegisterVariable('gravity' , vtReal   , @cGravity       ); гравитация не должна быть доступна вообще
 RegisterVariable('c_height', vtInteger, @cConsoleHeight );
+RegisterVariable('gmflags' , vtInteger, @GameFlags      );
 RegisterVariable('showfps' , vtBoolean, @cShowFPS       );
 RegisterVariable('sound'   , vtBoolean, @isSoundEnabled );
 RegisterVariable('name'    , vtCommand, @chName         );
diff -r 30f2d1037d5d -r 4eeab397c3c6 hedgewars/uConsts.pas
--- a/hedgewars/uConsts.pas	Mon Aug 22 13:35:41 2005 +0000
+++ b/hedgewars/uConsts.pas	Mon Aug 22 15:06:42 2005 +0000
@@ -101,6 +101,8 @@
 
       cInactDelay = 1500;
 
+      gfForts = $00000001;
+
       gstDrowning       = $00000001;
       gstHHDriven       = $00000002;
       gstMoving         = $00000004;
diff -r 30f2d1037d5d -r 4eeab397c3c6 hedgewars/uMisc.pas
--- a/hedgewars/uMisc.pas	Mon Aug 22 13:35:41 2005 +0000
+++ b/hedgewars/uMisc.pas	Mon Aug 22 15:06:42 2005 +0000
@@ -43,6 +43,7 @@
 
     GameState     : TGameState = gsLandGen;
     GameType      : TGameType = gmtLocal;
+    GameFlags     : Longword = 0;
     TurnTimeLeft  : Longword = 0;
     cHedgehogTurnTime: Longword = 30000;