Changeset 38 for trunk/Forms/UFormNew.pas

Timestamp:

Mar 8, 2014, 10:34:55 PM (11 years ago)

Author:

chronos

Message:

• Added: Support for cities. Cities can be used as only growing cells.
• Added: Allow to set grow rate as square root of cell power.

File:

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

trunk/Forms/UFormNew.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, Spin, UGame;
+  ComCtrls, Spin, ExtCtrls, UGame;
 
 type
@@ -20 +20 @@
     ButtonPlayerModify: TButton;
     CheckBoxVoid: TCheckBox;
+    CheckBoxCity: TCheckBox;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
+    Label4: TLabel;
     ListView1: TListView;
+    RadioGroupGrowCells: TRadioGroup;
+    RadioGroupGrowAmount: TRadioGroup;
     SpinEditVoidPercent: TSpinEdit;
     SpinEditMapSizeX: TSpinEdit;
     SpinEditMapSizeY: TSpinEdit;
+    SpinEditCityPercent: TSpinEdit;
     TrackBarSizeX: TTrackBar;
     TrackBarSizeY: TTrackBar;
@@ -33 +38 @@
     procedure ButtonPlayerModifyClick(Sender: TObject);
     procedure ButtonPlayerRemoveClick(Sender: TObject);
+    procedure CheckBoxCityChange(Sender: TObject);
     procedure CheckBoxVoidChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -128 +134 @@
 end;
 
+procedure TFormNew.CheckBoxCityChange(Sender: TObject);
+begin
+  SpinEditCityPercent.Enabled := CheckBoxCity.Checked;
+end;
+
 procedure TFormNew.CheckBoxVoidChange(Sender: TObject);
 begin
@@ -177 +188 @@
     TPlayer(Players[I]).Assign(TPlayer(Game.Players[I]));
   end;
+  CheckBoxCity.Checked := Game.CityEnabled;
+  SpinEditCityPercent.Value := Game.CityPercentage;
   SpinEditMapSizeX.Value := Game.Map.Size.X;
   SpinEditMapSizeY.Value := Game.Map.Size.Y;
+  RadioGroupGrowAmount.ItemIndex := Integer(Game.GrowAmount);
+  RadioGroupGrowCells.ItemIndex := Integer(Game.GrowCells);
 end;
 
@@ -195 +210 @@
   Game.VoidEnabled := CheckBoxVoid.Checked;
   Game.VoidPercentage := SpinEditVoidPercent.Value;
+  Game.CityEnabled := CheckBoxCity.Checked;
+  Game.CityPercentage := SpinEditCityPercent.Value;
   Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value);
+  Game.GrowAmount := TGrowAmount(RadioGroupGrowAmount.ItemIndex);
+  Game.GrowCells := TGrowCells(RadioGroupGrowCells.ItemIndex);
 end;