Changeset 105 for trunk/Board.pas

Timestamp:

Dec 9, 2024, 4:40:34 PM (5 weeks ago)

Author:

chronos

Message:

• Added: Set number of randomly generated disabled tiles in new game form.

File:

• trunk/Board.pas (modified) (6 diffs)

trunk/Board.pas

@@ -69 +69 @@
   for Y := 0 to Size.Y - 1 do
     for X := 0 to Size.X - 1 do
-      if Tiles[Y, X].Value = 0 then
+      if (Tiles[Y, X].Value = 0) and not Tiles[Y, X].Disabled then
         EmptyTiles.Add(Tiles[Y, X]);
 end;
@@ -76 +76 @@
 var
   X, Y: Integer;
-  Value: string;
 begin
   with Reg do begin
@@ -83 +82 @@
     WriteInteger('SizeX', Size.X);
     WriteInteger('SizeY', Size.Y);
-    Value := '';
     for Y := 0 to Size.Y - 1 do begin
       for X := 0 to Size.X - 1 do begin
-        Value := Value + IntToStr(Tiles[Y, X].Value);
-        if X < Size.X - 1 then Value := Value + ',';
+        Tiles[Y, X].SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Tile' + IntToStr(X) + 'x' + IntToStr(Y)));
       end;
-      if Y < Size.Y - 1 then Value := Value + ';'
     end;
-    WriteString('TileValues', Value);
   end;
 end;
@@ -98 +93 @@
 var
   X, Y: Integer;
-  Items: TStringList;
-  Lines: TStringList;
-  Number: Integer;
 begin
   with Reg do begin
     CurrentContext := RegContext;
 
-    Size := Point(ReadIntegerWithDefault('SizeX', 4), ReadIntegerWithDefault('SizeY', 4));
-    Items := TStringList.Create;
-    Items.Delimiter := ',';
-    Lines := TStringList.Create;
-    Lines.Delimiter := ';';
-    Lines.DelimitedText := ReadStringWithDefault('TileValues', '');
-    for Y := 0 to Lines.Count - 1 do begin
-      Items.DelimitedText := Lines[Y];
-      for X := 0 to Items.Count - 1 do begin
-        if TryStrToInt(Items[X], Number) and (X < Size.X) and (Y < Size.Y) then
-          Tiles[Y, X].Value := Number;
+    Size := Point(ReadIntegerWithDefault('SizeX', 4),
+      ReadIntegerWithDefault('SizeY', 4));
+    for Y := 0 to Size.Y - 1 do begin
+      for X := 0 to Size.X - 1 do begin
+        Tiles[Y, X].LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Tile' + IntToStr(X) + 'x' + IntToStr(Y)));
       end;
     end;
-    Lines.Free;
-    Items.Free;
   end;
 end;
@@ -155 +139 @@
   for Y := 0 to Size.Y - 1 do
     for X := 0 to Size.X - 1 do
-      if Tiles[Y, X].Value = 0 then
+      if (Tiles[Y, X].Value = 0) and not Tiles[Y, X].Disabled then
         Inc(Result);
 end;
@@ -175 +159 @@
   for Y := 0 to Size.Y - 1 do
     for X := 0 to Size.X - 1 do
-      Tiles[Y, X].Value := 0;
+      Tiles[Y, X].Clear;
 end;