Changeset 31 for trunk/Forms/UFormComputer.pas

Timestamp:

Oct 12, 2019, 10:47:02 PM (5 years ago)

Author:

chronos

Message:

• Added: New form accessible from menu Tools - Moves history with game moves history.

File:

• trunk/Forms/UFormComputer.pas (modified) (3 diffs)

trunk/Forms/UFormComputer.pas

@@ -13 +13 @@
   TGameTry = class
     Game: TGame;
-    Moves: array of TDirection;
+    Moves: array of TMoveDirection;
     constructor Create;
     destructor Destroy; override;
@@ -58 +58 @@
 function TGameTry.GetFitness: Double;
 const
-  DirWeight: array[TDirection] of Double = (0.25, -10000, 0.5, 0.75);
+  DirWeight: array[TMoveDirection] of Double = (0, 0.25, -10000, 0.5, 0.75);
 var
   I: Integer;
@@ -221 +221 @@
 procedure TFormComputer.TryAllDirections(GameTries: TGameTries; GameTry: TGameTry);
 var
-  Direction: TDirection;
+  Direction: TMoveDirection;
   NewTry: TGameTry;
 begin
-  for Direction := Low(TDirection) to High(TDirection) do begin
+  for Direction := Low(TMoveDirection) to High(TMoveDirection) do begin
     if GameTry.Game.CanMoveDirection(Direction) then begin
       NewTry := TGameTry.Create;