Changeset 109 for trunk/Board.pas

Timestamp:

Dec 10, 2024, 10:38:11 AM (5 weeks ago)

Author:

chronos

Message:

• Modified: Added more score information.
• Fixed: Record only non-zero scores.

File:

• trunk/Board.pas (modified) (2 diffs)

trunk/Board.pas

@@ -20 +20 @@
     procedure Clear;
     procedure ClearMerged;
+    function GetBiggestTile: Integer;
     function GetValueSum: Integer;
     function GetHighestTileValue: Integer;
@@ -122 +123 @@
 end;
 
+function TBoard.GetBiggestTile: Integer;
+var
+  X, Y: Integer;
+begin
+  Result := 0;
+  for Y := 0 to Size.Y - 1 do
+    for X := 0 to Size.X - 1 do
+      if not Tiles[Y, X].Disabled and
+      not Tiles[Y, X].Unmergeable and
+      (Tiles[Y, X].Value > Result) then Result := Tiles[Y, X].Value;
+end;
+
 function TBoard.GetValueSum: Integer;
 var