Changeset 21 for trunk/UGame.pas

Timestamp:

Oct 5, 2019, 2:23:25 PM (5 years ago)

Author:

chronos

Message:

• Added: Debian packaging information.

File:

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

trunk/UGame.pas

@@ -98 +98 @@
   SGameOverMessage = 'Game over!';
   SWinCaption = 'Win';
-  SWinMessage = 'You won! Do you want to continue to play?';
+  SWinMessage = 'You reached %d and won! You can continue to play to get higher score.';
   SScore = 'Score';
   STopScore = 'Top score';
@@ -265 +265 @@
 procedure TGame.Win;
 begin
-  if MessageDlg(SWinCaption, SWinMessage, mtConfirmation,
-  mbYesNo, 0) = mrNo then begin
-    Running := False;
-  end;
+  MessageDlg(SWinCaption, Format(SWinMessage, [WinScore]), mtInformation, [mbOk], 0);
 end;
 
@@ -658 +655 @@
   FBoardUndo.LoadFromRegistry(TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\BoardUndo'));
   Board.LoadFromRegistry(TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Board'));
+  DoChange;
 end;