Changeset 198 for trunk/Forms/UFormNew.pas

Timestamp:

May 16, 2018, 1:38:11 PM (6 years ago)

Author:

chronos

Message:

• Added: Capture all special cells objective is now functional. Number of such cells can be specified. They are randomly spread across map and such cells are marked with "!" symbol after its number of units.

File:

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

trunk/Forms/UFormNew.pas

@@ -46 +46 @@
     Label12: TLabel;
     Label13: TLabel;
+    Label14: TLabel;
     Label2: TLabel;
     Label3: TLabel;
@@ -64 +65 @@
     OpenPictureDialog1: TOpenPictureDialog;
     PageControl1: TPageControl;
+    PageControl2: TPageControl;
     PanelButtons: TPanel;
     PanelChat: TPanel;
@@ -73 +75 @@
     RadioGroupGrowAmount: TRadioGroup;
     RadioGroupGrowCells: TRadioGroup;
-    SpinEditTurns: TSpinEdit;
     SpinEditMaxPower: TSpinEdit;
     SpinEditServerPort: TSpinEdit;
@@ -80 +81 @@
     SpinEditMapSizeY: TSpinEdit;
     SpinEditNeutralUnits: TSpinEdit;
+    SpinEditSpecialCells: TSpinEdit;
+    SpinEditTurns: TSpinEdit;
     SpinEditVoidPercent: TSpinEdit;
     Splitter1: TSplitter;
@@ -85 +88 @@
     TabSheet2: TTabSheet;
     TabSheet3: TTabSheet;
+    TabSheetStayAliveTurns: TTabSheet;
+    TabSheetCaptureCells: TTabSheet;
+    TabSheetDefeatEnemies: TTabSheet;
+    TabSheetCaptureCities: TTabSheet;
     TabSheetMode: TTabSheet;
     TrackBarSizeX: TTrackBar;
@@ -98 +105 @@
     procedure CheckBoxVoidChange(Sender: TObject);
     procedure ComboBoxMapShapeChange(Sender: TObject);
+    procedure ComboBoxWinObjectiveChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -151 +159 @@
   SWinObjectiveDefeatAllOponents = 'Defeat all oponents';
   SWinObjectiveDefeatAllCities = 'Defeat all oponents cities';
-  SWinObjectiveCapturePosition = 'Capture position';
+  SWinObjectiveCapturePosition = 'Capture all special cells';
   SWinObjectiveStayAliveForTurns = 'Stay alive for number of turns';
   SGrowNone = 'None';
@@ -371 +379 @@
 begin
   ReloadView;
+end;
+
+procedure TFormNew.ComboBoxWinObjectiveChange(Sender: TObject);
+begin
+  PageControl2.TabIndex := ComboBoxWinObjective.ItemIndex;
 end;
 
@@ -504 +517 @@
     SpinEditMaxPower.Value := Game.MaxPower;
     SpinEditTurns.Value := Game.StayAliveForDefinedTurns;
+    SpinEditSpecialCells.Value := Game.SpecialCaptureCellCount;
   end;
 end;
@@ -540 +554 @@
     Game.MaxPower := SpinEditMaxPower.Value;
     Game.StayAliveForDefinedTurns := SpinEditTurns.Value;
+    Game.SpecialCaptureCellCount := SpinEditSpecialCells.Value;
   end;
 end;