Changeset 197 for trunk/Forms/UFormNew.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/Forms/UFormNew.pas (modified) (4 diffs)

trunk/Forms/UFormNew.pas

@@ -45 +45 @@
     Label11: TLabel;
     Label12: TLabel;
+    Label13: TLabel;
     Label2: TLabel;
     Label3: TLabel;
@@ -72 +73 @@
     RadioGroupGrowAmount: TRadioGroup;
     RadioGroupGrowCells: TRadioGroup;
+    SpinEditTurns: TSpinEdit;
     SpinEditMaxPower: TSpinEdit;
     SpinEditServerPort: TSpinEdit;
@@ -501 +503 @@
     SpinEditServerPort.Value := LocalNetworkPort;
     SpinEditMaxPower.Value := Game.MaxPower;
+    SpinEditTurns.Value := Game.StayAliveForDefinedTurns;
   end;
 end;
@@ -536 +539 @@
     Game.BridgeEnabled := CheckBoxBridges.Checked;
     Game.MaxPower := SpinEditMaxPower.Value;
+    Game.StayAliveForDefinedTurns := SpinEditTurns.Value;
   end;
 end;