Changeset 108 for trunk/Game.pas

Timestamp:

Dec 10, 2024, 12:06:43 AM (12 days ago)

Author:

chronos

Message:

• Added: Tools - Score menu action to show history of previously played games with score information.

File:

• trunk/Game.pas (modified) (14 diffs)

trunk/Game.pas

@@ -27 +27 @@
   TGame = class
   private
+    FMoves: Integer;
     FMoving: Boolean;
     FUnmergeableTilesCount: Integer;
@@ -41 +42 @@
     FSkin: TTileSkin;
     FDisabledTilesCount: Integer;
+    FUsedUndos: Integer;
     function GetTileColor(Value: Integer): TColor;
     procedure SetRecordHistory(AValue: Boolean);
@@ -72 +74 @@
     BackgroundColor: TColor;
     Value2Chance: Double;
+    StartTime: TDateTime;
     procedure Replay(History: THistory; Step: Integer);
     function CanUndo: Boolean;
@@ -87 +90 @@
     procedure MoveTile(SourceTile, TargetTile: TTile);
     function IsValidPos(Pos: TPoint): Boolean;
-    procedure SaveToRegistry(RegContext: TRegistryContext);
-    procedure LoadFromRegistry(RegContext: TRegistryContext);
+    procedure SaveToRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
+    procedure LoadFromRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
     function GetTileSkinValue(Value: Integer): string;
     function GetTileSkinScore(Value: Integer): Integer;
@@ -94 +97 @@
     destructor Destroy; override;
     property Score: Integer read FScore write SetScore;
+    property Moves: Integer read FMoves;
+    property UsedUndos: Integer read FUsedUndos;
     property Running: Boolean read FRunning write FRunning;
-    property OnChange: TNotifyEvent read FOnChange write FOnChange;
-    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
-    property OnWin: TNotifyEvent read FOnWin write FOnWin;
-    property OnGameOver: TNotifyEvent read FOnGameOver write FOnGameOver;
     property Moving: Boolean read FMoving;
     property RecordHistory: Boolean read FRecordHistory write SetRecordHistory;
@@ -105 +106 @@
     property DisabledTilesCount: Integer read FDisabledTilesCount write FDisabledTilesCount;
     property UnmergeableTilesCount: Integer read FUnmergeableTilesCount write FUnmergeableTilesCount;
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
+    property OnWin: TNotifyEvent read FOnWin write FOnWin;
+    property OnGameOver: TNotifyEvent read FOnGameOver write FOnGameOver;
   end;
 
@@ -317 +322 @@
   Difficulty = 0.7;
 begin
+  FUsedUndos := 0;
+  FMoves := 0;
   FCanUndo := False;
   Board.Clear;
@@ -359 +366 @@
   end;
   InitialBoard.Assign(Board);
+  StartTime := Now;
   AnimateTiles;
   DoChange;
@@ -368 +376 @@
   Reset;
   Board.Assign(InitialBoard);
+  StartTime := Now;
   AnimateTiles;
   DoChange;
@@ -531 +540 @@
   TileMoved: Boolean;
 begin
+  Inc(FMoves);
   if Animation then begin
     MoveAllAnimate(Direction);
@@ -664 +674 @@
     Board.Assign(FBoardUndo);
     FCanUndo := False;
+    Inc(FUsedUndos);
     FRunning := CanMove;
     if RecordHistory then History.Moves.Delete(History.Moves.Count - 1);
@@ -1033 +1044 @@
 end;
 
-procedure TGame.SaveToRegistry(RegContext: TRegistryContext);
-var
-  Reg: TRegistryEx;
-begin
-  Reg := TRegistryEx.Create;
-  with Reg do
-  try
+procedure TGame.SaveToRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
+begin
+  with Reg do begin
     CurrentContext := RegContext;
 
@@ -1053 +1060 @@
     WriteInteger('DisabledTilesCount', DisabledTilesCount);
     WriteInteger('UnmergeableTilesCount', UnmergeableTilesCount);
+    WriteInteger('Moves', FMoves);
+    WriteInteger('UsedUndos', FUsedUndos);
+    WriteDateTime('StartTime', StartTime);
     FBoardUndo.SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\BoardUndo'));
     Board.SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Board'));
     InitialBoard.SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\InitialBoard'));
     History.SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\History'));
-  finally
-    Free;
-  end;
-end;
-
-procedure TGame.LoadFromRegistry(RegContext: TRegistryContext);
-var
-  Reg: TRegistryEx;
-begin
-  Reg := TRegistryEx.Create;
-  with Reg do
-  try
+  end;
+end;
+
+procedure TGame.LoadFromRegistry(Reg: TRegistryEx; RegContext: TRegistryContext
+  );
+begin
+  with Reg do begin
     CurrentContext := RegContext;
     AnimationDuration := ReadIntegerWithDefault('AnimationDuration', 30);
@@ -1081 +1086 @@
     DisabledTilesCount := ReadIntegerWithDefault('DisabledTilesCount', DisabledTilesCount);
     UnmergeableTilesCount := ReadIntegerWithDefault('UnmergeableTilesCount', UnmergeableTilesCount);
+    FMoves := ReadIntegerWithDefault('Moves', FMoves);
+    FUsedUndos := ReadIntegerWithDefault('UsedUndos', FUsedUndos);
+    StartTime := ReadDateTimeWithDefault('StartTime', StartTime);
     FBoardUndo.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\BoardUndo'));
     Board.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Board'));
     InitialBoard.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\InitialBoard'));
     History.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\History'));
-  finally
-    Free;
   end;
   DoChange;