Changeset 262 for trunk/UGame.pas

Timestamp:

Sep 24, 2018, 11:46:31 PM (6 years ago)

Author:

chronos

Message:

• Added: New game option to set cells without player units as neutral.

File:

• trunk/UGame.pas (modified) (7 diffs)

trunk/UGame.pas

@@ -77 +77 @@
     BridgeEnabled: Boolean;
     MaxPower: Integer;
+    EmptyCellsNeutral: Boolean;
     procedure PostConfig;
     procedure Assign(Source: TGame);
@@ -427 +428 @@
   BridgeEnabled := Source.BridgeEnabled;
   MaxPower := Source.MaxPower;
+  EmptyCellsNeutral := Source.EmptyCellsNeutral;
 end;
 
@@ -450 +452 @@
     SetValue(DOMString(Path + '/StayAliveForDefinedTurns'), StayAliveForDefinedTurns);
     SetValue(DOMString(Path + '/SpecialCaptureCellCount'), SpecialCaptureCellCount);
+    SetValue(DOMString(Path + '/EmptyCellsNeutral'), EmptyCellsNeutral);
     Players.SaveConfig(Config, Path + '/Players');
   end;
@@ -485 +488 @@
     StayAliveForDefinedTurns := GetValue(DOMString(Path + '/StayAliveForDefinedTurns'), 20);
     SpecialCaptureCellCount := GetValue(DOMString(Path + '/SpecialCaptureCellCount'), 1);
+    EmptyCellsNeutral := GetValue(DOMString(Path + '/EmptyCellsNeutral'), False);
     Players.LoadConfig(Config, Path + '/Players');
   end;
@@ -519 +523 @@
       TurnCounter := ReadInteger(RootNode, 'TurnCounter', 0);
       WinObjective := TWinObjective(ReadInteger(RootNode, 'WinObjective', Integer(woDefeatAllOponents)));
-      ReadInteger(RootNode, 'StayAliveForDefinedTurns', StayAliveForDefinedTurns);
+      StayAliveForDefinedTurns := ReadInteger(RootNode, 'StayAliveForDefinedTurns', 10);
+      EmptyCellsNeutral := ReadBoolean(RootNode, 'EmptyCellsNeutral', False);
 
       NewNode := FindNode('Map');
@@ -573 +578 @@
       WriteInteger(RootNode, 'WinObjective', Integer(WinObjective));
       WriteInteger(RootNode, 'StayAliveForDefinedTurns', StayAliveForDefinedTurns);
+      WriteBoolean(RootNode, 'EmptyCellsNeutral', EmptyCellsNeutral);
       WriteBoolean(RootNode, 'Running', Running);
 
@@ -641 +647 @@
   CurrentPlayer.MoveAll;
   CurrentPlayer.Grow;
+  CurrentPlayer.UpdateEmptyCellsNeutral;
   CurrentPlayer.UpdateRepeatMoves;
   ComputePlayerStats;