Changeset 109 for trunk/Score.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/Score.pas (modified) (4 diffs)

trunk/Score.pas

@@ -17 +17 @@
     UsedUndos: Integer;
     BoardSize: string;
+    DisabledTiles: Integer;
+    UnmergeableTiles: Integer;
+    BiggestTile: Integer;
     procedure SaveToRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
     procedure LoadFromRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
@@ -30 +33 @@
   end;
 
+
 implementation
 
@@ -39 +43 @@
     CurrentContext := RegContext;
     WriteDateTime('StartTime', StartTime);
+    WriteDateTime('Duration', Duration);
     WriteInteger('Score', Score);
     WriteInteger('Moves', Moves);
     WriteInteger('UsedUndos', UsedUndos);
     WriteString('BoardSize', BoardSize);
+    WriteInteger('DisabledTiles', DisabledTiles);
+    WriteInteger('UnmergeableTiles', UnmergeableTiles);
+    WriteInteger('BiggestTile', BiggestTile);
   end;
 end;
@@ -52 +60 @@
     CurrentContext := RegContext;
     StartTime := ReadDateTimeWithDefault('StartTime', StartTime);
+    Duration := ReadDateTimeWithDefault('Duration', Duration);
     Score := ReadIntegerWithDefault('Score', Score);
     Moves := ReadIntegerWithDefault('Moves', Moves);
     UsedUndos := ReadIntegerWithDefault('UsedUndos', UsedUndos);
     BoardSize := ReadStringWithDefault('BoardSize', BoardSize);
+    DisabledTiles := ReadIntegerWithDefault('DisabledTiles', DisabledTiles);
+    UnmergeableTiles := ReadIntegerWithDefault('UnmergeableTiles', UnmergeableTiles);
+    BiggestTile := ReadIntegerWithDefault('BiggestTile', BiggestTile);
   end;
 end;