Changeset 197 for trunk/UGame.pas

Timestamp:

May 16, 2018, 11:03:48 AM (6 years ago)

Author:

chronos

Message:

• Added: Evaluate win objection to stay alive for defined number of turns. Multiple players can win.

File:

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

trunk/UGame.pas

@@ -3206 +3206 @@
     SetValue(DOMString(Path + '/GrowCells'), Integer(GrowCells));
     SetValue(DOMString(Path + '/WinObjective'), Integer(WinObjective));
+    SetValue(DOMString(Path + '/StayAliveForDefinedTurns'), StayAliveForDefinedTurns);
     PlayersSetting.SaveConfig(Config, Path + '/Players');
   end;
@@ -3238 +3239 @@
     if (Value >= Integer(Low(TWinObjective))) and (Value <= Integer(High(TWinObjective))) then
       WinObjective := TWinObjective(Value) else WinObjective := Low(TWinObjective);
+    StayAliveForDefinedTurns := GetValue(DOMString(Path + '/StayAliveForDefinedTurns'), 20);
     PlayersSetting.LoadConfig(Config, Path + '/Players');
   end;
@@ -3431 +3433 @@
   end else
   if WinObjective = woStayAliveForDefinedTurns then begin
-    // TODO: Not only one can win but multiple human players can survive.
     if TurnCounter > StayAliveForDefinedTurns then
       EndGame(nil);
@@ -3522 +3523 @@
 begin
   Running := False;
-  if Assigned(OnWin) and Assigned(Winner) then OnWin(Winner);
+  if Assigned(OnWin) then OnWin(Winner);
 end;