Changeset 401 for tags/1.4.0/Player.pas

Timestamp:

Jan 6, 2025, 11:12:12 AM (3 days ago)

Author:

chronos

Message:

Merged revision(s) 396-400 from trunk:

• Fixed: Charts form chart was not drawn on the initial show.
• Fixed: Run Randomize only once at startup.
• Fixed: Store current state of RandSeed to game save.
• Fixed: Load/store RandSeed as its Cardinal type instead of Integer.
• Modified: Maximum number of player set to 12.
• Fixed: Standard yellow color is too bright and not readable with white text. Used darker yellow instead.
• Fixed: Integrity checks for id references loaded from game file.
• Fixed: Wrong players and units id recalculation during game save causing bad references.
• Modified: Set new created players as computer.
• Fixed: Scale charts line width.
• Fixed: Item form made bigger to avoid showing scrollbars.
• Fixed: Item form string control made shorter.

Location:

tags/1.4.0

Files:

• . (modified) (1 prop)
• Player.pas (modified) (2 diffs)

tags/1.4.0/Player.pas

@@ -209 +209 @@
 
 const
-  PlayerColors: array[0..11] of TColor = (clBlue, clRed, clGreen, clYellow,
+  clDarkYellow = $00C0C0;
+  PlayerColors: array[0..11] of TColor = (clBlue, clRed, clGreen, clDarkYellow,
     clFuchsia, clAqua, clOlive, clMaroon, clNavy, clPurple, clTeal, clGray);
 
@@ -557 +558 @@
   Result := inherited;
   Result.Game := Game;
+  Result.Mode := pmComputer;
+  Result.Agressivity := caMedium;
   Result.Color := GetUnusedColor;
 end;