Changeset 106 for trunk/Tile.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Optionally generated unmergeable movable tiles.

File:

• trunk/Tile.pas (modified) (5 diffs)

trunk/Tile.pas

@@ -12 +12 @@
 
   TTile = class
+  public
     Index: TPoint;
     Value: Integer;
     NewValue: Integer;
+    NewUnmergeable: Boolean;
     Merged: Boolean;
     Action: TTileAction;
     Shift: TPoint;
     Disabled: Boolean;
+    Unmergeable: Boolean;
     procedure Clear;
     procedure Assign(Source: TTile);
@@ -36 +39 @@
 begin
   Value := 0;
-  Action := taNone;;
+  Action := taNone;
   Disabled := False;
+  Unmergeable := False;
 end;
 
@@ -46 +50 @@
   Merged := Source.Merged;
   Disabled := Source.Disabled;
+  Unmergeable := Source.Unmergeable;
 end;
 
@@ -55 +60 @@
     WriteInteger('Value', Value);
     WriteBool('Disabled', Disabled);
+    WriteBool('Unmergeable', Unmergeable);
   end;
 end;
@@ -66 +72 @@
     Value := ReadIntegerWithDefault('Value', Value);
     Disabled := ReadBoolWithDefault('Disabled', Disabled);
+    Unmergeable := ReadBoolWithDefault('Unmergeable', Unmergeable);
   end;
 end;