Changeset 28 for trunk/UGame.pas

Timestamp:

Oct 5, 2019, 11:29:11 PM (5 years ago)

Author:

chronos

Message:

• Added: Help windows with instructions how to play.
• Added: With 10% chance create new random tile with value 4 instead of 2.

File:

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

trunk/UGame.pas

@@ -64 +64 @@
     procedure GameOver;
     procedure Win;
-    function FillRandomTile: Integer;
+    function FillRandomTile(Value4Change: Double = 0.1): Integer;
   public
     Board: TBoard;
@@ -70 +70 @@
     AnimationDuration: Integer;
     WinScore: Integer;
+    UndoEnabled: Boolean;
     function CanUndo: Boolean;
     procedure Undo;
@@ -268 +269 @@
 end;
 
-function TGame.FillRandomTile: Integer;
+function TGame.FillRandomTile(Value4Change: Double = 0.1): Integer;
 var
   EmptyTiles: TTiles;
+  NewValue: Integer;
 begin
   Result := 0;
@@ -276 +278 @@
   Board.GetEmptyTiles(EmptyTiles);
   if EmptyTiles.Count > 0 then begin
-    EmptyTiles[Random(EmptyTiles.Count)].Value := 2;
+    if Random < Value4Change then NewValue := 4 else NewValue := 2;
+    EmptyTiles[Random(EmptyTiles.Count)].Value := NewValue;
     Result := 1;
   end;
@@ -304 +307 @@
   Score := 0;
   Running := True;
-  for I := 0 to 1 do FillRandomTile;
+  for I := 0 to 1 do FillRandomTile(0);
   DoChange;
 end;
@@ -399 +402 @@
 function TGame.CanUndo: Boolean;
 begin
-  Result := FCanUndo;
+  Result := UndoEnabled and FCanUndo;
 end;
 
 procedure TGame.Undo;
 begin
-  if CanUndo then begin
+  if UndoEnabled and CanUndo then begin
     Board.Assign(FBoardUndo);
     FCanUndo := False;
@@ -629 +632 @@
     WriteBool('GameRunning', FRunning);
     WriteBool('CanUndo', FCanUndo);
+    WriteBool('UndoEnabled', UndoEnabled);
   finally
     Free;
@@ -646 +650 @@
     FRunning := ReadBoolWithDefault('GameRunning', False);
     FCanUndo := ReadBoolWithDefault('CanUndo', False);
+    UndoEnabled := ReadBoolWithDefault('UndoEnabled', True);
   finally
     Free;