Changeset 105 for trunk/Game.pas

Timestamp:

Dec 9, 2024, 4:40:34 PM (13 days ago)

Author:

chronos

Message:

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

File:

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

trunk/Game.pas

@@ -39 +39 @@
     FColorPalette: TColorPalette;
     FSkin: TTileSkin;
+    FDisabledTilesCount: Integer;
     function GetTileColor(Value: Integer): TColor;
     procedure SetRecordHistory(AValue: Boolean);
@@ -52 +53 @@
     procedure Win;
     function FillRandomTile: TTile;
+    function DisableRandomTile: TTile;
     function GetMoveArea(Direction: TMoveDirection): TArea;
     procedure MoveAllAnimate(Direction: TMoveDirection);
@@ -96 +98 @@
     property Skin: TTileSkin read FSkin write SetSkin;
     property ColorPalette: TColorPalette read FColorPalette write SetColorPalette;
+    property DisabledTilesCount: Integer read FDisabledTilesCount write FDisabledTilesCount;
   end;
 
@@ -225 +228 @@
     Result.Value := NewValue;
     Result.Action := taAppear;
+  end;
+  EmptyTiles.Free;
+end;
+
+function TGame.DisableRandomTile: TTile;
+var
+  EmptyTiles: TTiles;
+begin
+  Result := nil;
+  EmptyTiles := TTiles.Create(False);
+  Board.GetEmptyTiles(EmptyTiles);
+  if EmptyTiles.Count > 0 then begin
+    Result := EmptyTiles[Random(EmptyTiles.Count)];
+    Result.Disabled := True;
   end;
   EmptyTiles.Free;
@@ -276 +293 @@
   Running := True;
   History.Clear;
+  for I := 0 to DisabledTilesCount - 1 do
+    DisableRandomTile;
+
   if RecordHistory then begin
     for I := 0 to InitialTileCount - 1 do begin
@@ -365 +385 @@
       if (Board.Tiles[Y, X].Action <> taNone) then MetaCanvas.Brush.Color := GetTileColor(0)
         else MetaCanvas.Brush.Color := GetTileColor(Board.Tiles[Y, X].Value);
-      MetaCanvas.Brush.Style := bsSolid;
+      if Board.Tiles[Y, X].Disabled then MetaCanvas.Brush.Style := bsClear
+        else MetaCanvas.Brush.Style := bsSolid;
       TileRect := Bounds(
         Frame.Left + X * TileSize.X + TileMargin,
@@ -459 +480 @@
       while P.X <> Area.P2.X + Area.Increment.X do begin
         PNew := P + DirectionDiff[Direction];
-        if IsValidPos(PNew) then begin
+        if IsValidPos(PNew) and not Board.Tiles[PNew.Y, PNew.X].Disabled then begin
           SrcTile := Board.Tiles[P.Y, P.X];
           DstTile := Board.Tiles[PNew.Y, PNew.X];
@@ -496 +517 @@
   TextSize: TSize;
 begin
+  if Canvas.Brush.Style = bsClear then Exit;
+
   Canvas.Pen.Style := psClear;
   Canvas.RoundRect(TileRect, ScaleX(TileRect.Width div 20, 96), ScaleY(TileRect.Height div 20, 96));
-  if WithText and (Tile.Value <> 0) then begin
+  if (WithText and (Tile.Value <> 0)) then begin
     ValueStr := GetTileSkinValue(Tile.Value);
     Canvas.Brush.Style := bsClear;
@@ -626 +649 @@
       if IsValidPos(PNew) then begin
         if (Board.Tiles[P.Y, P.X].Value <> 0) then begin
-          if (Board.Tiles[PNew.Y, PNew.X].Value = 0) or
-          CanMergeTile(Board.Tiles[PNew.Y, PNew.X].Value, Board.Tiles[P.Y, P.X].Value) then begin
+          if ((Board.Tiles[PNew.Y, PNew.X].Value = 0) or
+          CanMergeTile(Board.Tiles[PNew.Y, PNew.X].Value, Board.Tiles[P.Y, P.X].Value)) and
+          not Board.Tiles[PNew.Y, PNew.X].Disabled then begin
             Result := True;
             Break;
@@ -673 +697 @@
       while P.X <> Area.P2.X + Area.Increment.X do begin
         PNew := P + DirectionDiff[Direction];
-        if IsValidPos(PNew) then begin
+        if IsValidPos(PNew) and not Board.Tiles[PNew.Y, PNew.X].Disabled then begin
           if (Board.Tiles[P.Y, P.X].NewValue <> 0) then begin
             if (Board.Tiles[PNew.Y, PNew.X].NewValue = 0) then begin
@@ -934 +958 @@
     WriteInteger('Skin', Integer(Skin));
     WriteInteger('ColorPalette', Integer(ColorPalette));
+    WriteInteger('DisabledTilesCount', DisabledTilesCount);
     FBoardUndo.SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\BoardUndo'));
     Board.SaveToRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Board'));
@@ -959 +984 @@
     Skin := TTileSkin(ReadIntegerWithDefault('Skin', Integer(tsPowerOfTwo)));
     ColorPalette := TColorPalette(ReadIntegerWithDefault('ColorPalette', Integer(cpOrangeYellow)));
+    DisabledTilesCount := ReadIntegerWithDefault('DisabledTilesCount', DisabledTilesCount);
     FBoardUndo.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\BoardUndo'));
     Board.LoadFromRegistry(Reg, TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Board'));