Changeset 36 for trunk/UGame.pas

Timestamp:

Oct 13, 2019, 5:14:50 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Missing UFormHistory files.
• Added: Allow to disable moves history recording.

File:

• trunk/UGame.pas (modified) (13 diffs)

trunk/UGame.pas

@@ -61 +61 @@
     InitialTilesPos: array of TPoint;
     procedure GetStep(GameStep: TGame; Step: Integer);
+    procedure Clear;
     constructor Create;
     destructor Destroy; override;
@@ -96 +97 @@
     FOnGameOver: TNotifyEvent;
     FOnWin: TNotifyEvent;
+    FRecordHistory: Boolean;
     FRunning: Boolean;
     FScore: Integer;
@@ -101 +103 @@
     FBoardUndo: TBoard;
     function GetTileColor(Value: Integer): TColor;
+    procedure SetRecordHistory(AValue: Boolean);
     procedure SetScore(AValue: Integer);
     procedure DoChange;
@@ -138 +141 @@
     property OnGameOver: TNotifyEvent read FOnGameOver write FOnGameOver;
     property Moving: Boolean read FMoving;
+    property RecordHistory: Boolean read FRecordHistory write SetRecordHistory;
   end;
 
@@ -173 +177 @@
 var
   I: Integer;
-  C: Integer;
-  HistoryMove: THistoryMove;
 begin
   with Reg do begin
     CurrentContext := RegContext;
-    C := ReadIntegerWithDefault('Count', 0);
-    for I := 0 to C - 1 do begin
-      HistoryMove := THistoryMove.Create;
-      Add(HistoryMove);
-      HistoryMove.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '/' + IntToStr(I)));
+    Count := ReadIntegerWithDefault('Count', 0);
+    for I := 0 to Count - 1 do begin
+      Items[I] := THistoryMove.Create;
+      THistoryMove(Items[I]).LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '/' + IntToStr(I)));
     end;
   end;
@@ -229 +230 @@
       else raise Exception.Create('Tile should be empty');
   end;
+end;
+
+procedure THistory.Clear;
+begin
+  Moves.Clear;
+  SetLength(InitialTilesPos, 0);
 end;
 
@@ -475 +482 @@
     Result := EmptyTiles[Random(EmptyTiles.Count)];
     Result.Value := NewValue;
+    if RecordHistory then begin
+      SetLength(History.InitialTilesPos, Length(History.InitialTilesPos) + 1);
+      History.InitialTilesPos[Length(History.InitialTilesPos) - 1] := Result.Index;
+    end;
   end;
   EmptyTiles.Free;
@@ -512 +523 @@
 var
   I: Integer;
-  NewTile: TTile;
 begin
   FCanUndo := False;
@@ -518 +528 @@
   Score := 0;
   Running := True;
-  with History do begin
-    Moves.Clear;
-
-    SetLength(InitialTilesPos, 0);
-    for I := 0 to 1 do begin
-      NewTile := FillRandomTile(0);
-      SetLength(InitialTilesPos, Length(InitialTilesPos) + 1);
-      InitialTilesPos[Length(InitialTilesPos) - 1] := NewTile.Index;
-    end;
-  end;
+  History.Clear;
+  for I := 0 to 1 do
+    FillRandomTile(0);
   DoChange;
 end;
@@ -860 +863 @@
 
     NewTile := FillRandomTile;
-    HistoryMove := THistoryMove.Create;
-    HistoryMove.Direction := Direction;
-    HistoryMove.NewItemPos := NewTile.Index;
-    HistoryMove.NewItemValue := NewTile.Value;
-    History.Moves.Add(HistoryMove);
+    if RecordHistory then begin
+      HistoryMove := THistoryMove.Create;
+      HistoryMove.Direction := Direction;
+      HistoryMove.NewItemPos := NewTile.Index;
+      HistoryMove.NewItemValue := NewTile.Value;
+      History.Moves.Add(HistoryMove);
+    end;
 
     if not CanMove and (Board.GetEmptyTilesCount = 0) then
@@ -902 +907 @@
     WriteBool('CanUndo', FCanUndo);
     WriteBool('UndoEnabled', UndoEnabled);
+    WriteBool('RecordHistory', RecordHistory);
     FBoardUndo.SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\BoardUndo'));
     Board.SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Board'));
@@ -924 +930 @@
     FCanUndo := ReadBoolWithDefault('CanUndo', False);
     UndoEnabled := ReadBoolWithDefault('UndoEnabled', True);
+    RecordHistory := ReadBoolWithDefault('RecordHistory', False);
     FBoardUndo.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\BoardUndo'));
     Board.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Board'));
@@ -970 +977 @@
 end;
 
+procedure TGame.SetRecordHistory(AValue: Boolean);
+begin
+  if FRecordHistory = AValue then Exit;
+  FRecordHistory := AValue;
+  if not FRecordHistory then History.Clear;
+end;
+
 procedure TGame.SetScore(AValue: Integer);
 begin