Changeset 90 for trunk/Forms/UFormPlayer.pas

Timestamp:

Nov 16, 2014, 5:12:25 PM (10 years ago)

Author:

chronos

Message:

• Added: Computer player settings to be low, medium or highly aggresive in attacking.
• Fixed: Mouse move insensitivity zone is now DPI aware.

File:

• trunk/Forms/UFormPlayer.pas (modified) (5 diffs)

trunk/Forms/UFormPlayer.pas

@@ -16 +16 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    CheckBoxDefensive: TCheckBox;
     ColorBox1: TColorBox;
     ComboBox1: TComboBox;
+    ComboBoxAgressivity: TComboBox;
     EditName: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
+    Label4: TLabel;
   private
     { private declarations }
@@ -40 +43 @@
   SHuman = 'Human';
   SComputer = 'Computer';
+  SAgroNotAttacking = 'Not attacking';
+  SAgroLow = 'Low';
+  SAgroMedium = 'Medium';
+  SAgroHigh = 'High';
 
 { TFormPlayer }
@@ -54 +61 @@
     ItemIndex := LastIndex;
   end;
+  with ComboBoxAgressivity do begin
+    LastIndex := ItemIndex;
+    Clear;
+    Items.Add(SAgroLow);
+    Items.Add(SAgroMedium);
+    Items.Add(SAgroHigh);
+    ItemIndex := LastIndex;
+  end;
 end;
 
@@ -61 +76 @@
   ComboBox1.ItemIndex := Integer(Player.Mode);
   ColorBox1.Selected := Player.Color;
+  Label4.Visible := Player.Mode = pmComputer;
+  ComboBoxAgressivity.Visible := Player.Mode = pmComputer;
+  ComboBoxAgressivity.ItemIndex := Integer(Player.Agressivity);
+  CheckBoxDefensive.Visible := Player.Mode = pmComputer;
+  CheckBoxDefensive.Checked := Player.Defensive;
 end;
 
@@ -68 +88 @@
   Player.Mode := TPlayerMode(ComboBox1.ItemIndex);
   Player.Color := ColorBox1.Selected;
+  Player.Agressivity := TComputerAgressivity(ComboBoxAgressivity.ItemIndex);
+  Player.Defensive := CheckBoxDefensive.Checked;
 end;