Changeset 274 for trunk/Forms/UFormNew.pas

Timestamp:

Feb 3, 2019, 8:32:20 PM (6 years ago)

Author:

chronos

Message:

• Added: Keep information about available unit moves during turn.
• Added: Allow to move units instantly during turn.
• Added: Game system parameter to play without possibility to merge/split units.

File:

• trunk/Forms/UFormNew.pas (modified) (4 diffs)

trunk/Forms/UFormNew.pas

@@ -32 +32 @@
     ButtonPlayerModify: TButton;
     ButtonPlayerRemove: TButton;
+    CheckBoxUnitsSplitMerge: TCheckBox;
     CheckBoxEmptyCellsNeutral: TCheckBox;
     CheckBoxBridges: TCheckBox;
@@ -38 +39 @@
     CheckBoxFogOfWar: TCheckBox;
     CheckBoxSymetricMap: TCheckBox;
+    CheckBoxUnitsMoveImmediately: TCheckBox;
     CheckBoxVoid: TCheckBox;
     ComboBoxGridType: TComboBox;
@@ -360 +362 @@
     SpinEditSpecialCells.Value := SpecialCaptureCellCount;
     CheckBoxEmptyCellsNeutral.Checked := GameSystem.EmptyCellsNeutral;
+    CheckBoxUnitsSplitMerge.Checked := GameSystem.UnitsSplitMerge;
+    CheckBoxUnitsMoveImmediately.Checked := GameSystem.UnitsMoveImmediately;
   end;
 end;
@@ -389 +393 @@
     SpecialCaptureCellCount := SpinEditSpecialCells.Value;
     GameSystem.EmptyCellsNeutral := CheckBoxEmptyCellsNeutral.Checked;
+    GameSystem.UnitsSplitMerge := CheckBoxUnitsSplitMerge.Checked;
+    GameSystem.UnitsMoveImmediately := CheckBoxUnitsMoveImmediately.Checked;
   end;
 end;