Changeset 21

Timestamp:

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

Author:

chronos

Message:

• Added: Debian packaging information.

Location:

trunk

Files:

• Images/2048.png (moved) (moved from trunk/Images/Logo 128x128.png )
• Install/deb (added)
• Install/deb/2048.desktop (added)
• Install/deb/build.sh (added)
• Install/deb/debian (added)
• Install/deb/debian/changelog (added)
• Install/deb/debian/compat (added)
• Install/deb/debian/control (added)
• Install/deb/debian/copyright (added)
• Install/deb/debian/rules (added)
• Install/deb/debian/source (added)
• Install/deb/debian/source/format (added)
• Languages/Game2048.cs.mo (modified) ( previous)
• Languages/Game2048.cs.po (modified) (3 diffs)
• Languages/Game2048.po (modified) (1 diff)
• UCore.pas (modified) (1 diff)
• UGame.pas (modified) (3 diffs)

trunk/Languages/Game2048.cs.po

@@ -23 +23 @@
 
 #: tcore.anew.caption
-#, fuzzy
 msgctxt "tcore.anew.caption"
 msgid "New..."
@@ -35 +34 @@
 #: tcore.aundo.caption
 msgid "Undo"
-msgstr ""
+msgstr "Vrátit zpět"
 
 #: tformabout.buttonclose.caption
@@ -152 +151 @@
 
 #: ugame.swinmessage
-msgid "You won! Do you want to continue to play?"
-msgstr "Vyhrál jsi! Chceš pokračovat ve hře?"
-
+msgid "You reached %d and won! You can continue to play to get higher score."
+msgstr "Dosáhl jsi %d a vyhrál! Můžeš pokračovat ve hře k dosažení vyššího skóre."

trunk/Languages/Game2048.po

@@ -141 +141 @@
 
 #: ugame.swinmessage
-msgid "You won! Do you want to continue to play?"
+msgid "You reached %d and won! You can continue to play to get higher score."
 msgstr ""
 

trunk/UCore.pas

@@ -54 +54 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  {$IFDEF Linux}
+  // If installed in Linux system then use installation directory for po files
+  if Application.ExeName = '/usr/bin/Game2048' then
+    Translator1.POFilesFolder := '/usr/share/Game2048/languages';
+  {$ENDIF}
+
   Randomize;
   Game := TGame.Create;

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;