Changeset 12 for trunk/UGame.pas

Timestamp:

Oct 5, 2019, 12:48:02 AM (5 years ago)

Author:

chronos

Message:

• Added: Show wing dialog message if player gets cell with value 2048.

File:

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

trunk/UGame.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Dialogs, fgl, Graphics, Types, Forms, Math, DateUtils;
+  Classes, SysUtils, Dialogs, fgl, Graphics, Types, Forms, Math, DateUtils,
+  Controls;
 
 type
@@ -45 +46 @@
     TopScore: Integer;
     AnimationDuration: Integer;
+    Won: Boolean;
     procedure GameOver;
+    procedure Win;
     function FillRandomCell: Integer;
     function CanMove: Boolean;
     function GetEmptyCellsCount: Integer;
+    function GetHighestCellValue: Integer;
     procedure Assign(Source: TGame);
     procedure New;
@@ -71 +75 @@
 
 resourcestring
-  SGameOver = 'Game over';
+  SGameOverCaption = 'Lost';
+  SGameOverMessage = 'Game over!';
+  SWinCaption = 'Win';
+  SWinMessage = 'You won! Do you want to continue to play?';
 
 
@@ -128 +135 @@
 procedure TGame.GameOver;
 begin
+  if Running then MessageDlg(SGameOverCaption, SGameOverMessage, mtInformation, [mbOK], 0);
   Running := False;
-  ShowMessage(SGameOver);
+end;
+
+procedure TGame.Win;
+begin
+  if not Won then begin
+    Won := True;
+    if MessageDlg(SWinCaption, SWinMessage, mtConfirmation,
+    mbYesNo, 0) = mrNo then begin
+      Running := False;
+    end;
+  end;
 end;
 
@@ -154 +172 @@
   try
     TempGame.Assign(Self);
+    TempGame.AnimationDuration := 0;
     Result := TempGame.MoveAll(drDown) > 0;
     if Result then Exit;
@@ -177 +196 @@
 end;
 
+function TGame.GetHighestCellValue: Integer;
+var
+  X, Y: Integer;
+begin
+  Result := 0;
+  for Y := 0 to Size.Y - 1 do
+    for X := 0 to Size.X - 1 do
+      if Result < Cells[Y, X].Value then Result := Cells[Y, X].Value;
+end;
+
 procedure TGame.Assign(Source: TGame);
 var
   X, Y: Integer;
 begin
+  FScore := Source.FScore;
+  TopScore := Source.TopScore;
+  AnimationDuration := Source.AnimationDuration;
+  Won := Source.Won;
   Size := Source.Size;
   for Y := 0 to Size.Y - 1 do
@@ -193 +226 @@
   Clear;
   Score := 0;
+  Won := False;
   Running := True;
   for I := 0 to 1 do FillRandomCell;
@@ -232 +266 @@
   Canvas.Font.Color := clWhite;
   Canvas.Font.Height := Trunc(TopBarHeight * 0.7);
-  Canvas.TextOut(ScaleY(106, 96), (TopBarHeight - Canvas.TextHeight(ValueStr)) div 2, ValueStr);
+  Canvas.TextOut(ScaleY(136, 96), (TopBarHeight - Canvas.TextHeight(ValueStr)) div 2, ValueStr);
 
   // Form.Canvas.Width and Form.Canvas.Height is not working correctly under Windows.
@@ -409 +443 @@
       Time := Now;
       Part := (Time - StartTime) / (EndTime - StartTime);
+      if Part > 1 then Part := 1;
       for Y := 0 to Size.Y - 1 do
         for X := 0 to Size.X - 1 do begin
@@ -417 +452 @@
       DoChange;
       Application.ProcessMessages;
-      Sleep(10);
+      Sleep(1);
     until Time > EndTime;
 
@@ -423 +458 @@
     for Y := 0 to Size.Y - 1 do
       for X := 0 to Size.X - 1 do begin
+        Cells[Y, X].Shift := Point(0, 0);
+        Cells[Y, X].Moving := False;
         Cells[Y, X].Value := Cells[Y, X].NewValue;
-        Cells[Y, X].Shift := Point(0, 0);
       end;
     DoChange;