Changeset 12 for trunk/Forms/UFormMain.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/Forms/UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -62 +62 @@
     if not Core.Game.CanMove and (Core.Game.GetEmptyCellsCount = 0) then
       Core.Game.GameOver;
+    if (not Core.Game.Won) and (Core.Game.GetHighestCellValue >= 2048) then
+      Core.Game.Win;
   end;
 end;