Changeset 106 for trunk/History.pas

Timestamp:

Dec 9, 2024, 8:54:41 PM (5 weeks ago)

Author:

chronos

Message:

• Added: Optionally generated unmergeable movable tiles.

File:

• trunk/History.pas (modified) (4 diffs)

trunk/History.pas

@@ -29 +29 @@
     Pos: TPoint;
     Value: Integer;
+    Unmergable: Boolean;
   end;
 
@@ -36 +37 @@
     Moves: THistoryMoves;
     InitialTiles: array of TTilePosValue;
+    DisabledTiles: array of TPoint;
     procedure Clear;
     constructor Create;
@@ -148 +150 @@
       WriteInteger('Y' + IntToStr(I), InitialTiles[I].Pos.Y);
       WriteInteger('Value' + IntToStr(I), InitialTiles[I].Value);
-    end;
+      WriteBool('Unmergable' + IntToStr(I), InitialTiles[I].Unmergable);
+    end;
+
+    CurrentContext := TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\DisabledTilesPos');
+    for I := 0 to Length(DisabledTiles) - 1 do begin
+      WriteInteger('X' + IntToStr(I), DisabledTiles[I].X);
+      WriteInteger('Y' + IntToStr(I), DisabledTiles[I].Y);
+    end;
+
     Moves.SaveToRegistry(Reg, RegContext);
   end;
@@ -164 +174 @@
         ReadIntegerWithDefault('Y' + IntToStr(I), 0));
       InitialTiles[I].Value := ReadIntegerWithDefault('Value' + IntToStr(I), 0);
-    end;
-  end;
-  Moves.LoadFromRegistry(Reg, RegContext);
+      InitialTiles[I].Unmergable := ReadBoolWithDefault('Unmergable' + IntToStr(I), False);
+    end;
+
+    CurrentContext := TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\DisabledTilesPos');
+    SetLength(DisabledTiles, ReadIntegerWithDefault('Count', 0));
+    for I := 0 to Length(DisabledTiles) - 1 do begin
+      DisabledTiles[I] := Point(ReadIntegerWithDefault('X' + IntToStr(I), 0),
+        ReadIntegerWithDefault('Y' + IntToStr(I), 0));
+    end;
+
+    Moves.LoadFromRegistry(Reg, RegContext);
+  end;
 end;