Changeset 60 for trunk

Timestamp:

Dec 25, 2022, 2:44:14 PM (2 years ago)

Author:

chronos

Message:

• Modified: More translated texts.

Location:

trunk

Files:

• Languages/Tunneler.cs.po (modified) (4 diffs)
• Languages/Tunneler.pot (modified) (1 diff)
• UEngine.pas (modified) (10 diffs)

trunk/Languages/Tunneler.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: Chronos <robie@centrum.cz>\n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"Language: cs\n"
-"X-Generator: Poedit 3.0\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: tformdebug.caption
@@ -161 +161 @@
 msgstr "Ovládání"
 
+#: uengine.sexit
+msgid "exit"
+msgstr "odejít"
+
+#: uengine.sinformation
+msgid "information"
+msgstr "informace"
+
+#: uengine.sinstructions
+msgid "instructions"
+msgstr "instrukce"
+
 #: uengine.splayer
 msgctxt "uengine.splayer"
@@ -166 +178 @@
 msgstr "Hráč"
 
+#: uengine.spressesc
+msgid "Press ESC to continue"
+msgstr "Stiskni ESC pro pokračování"
+
+#: uengine.sround
+msgid "Round"
+msgstr "Kolo"
+
+#: uengine.sstartgame
+msgid "start game"
+msgstr "spustit hru"
+
+#: uengine.sworldready
+msgid "world ready"
+msgstr "svět připraven"
+
 #: uformmain.sround
-#, object-pascal-format, fuzzy
+#, object-pascal-format
 msgctxt "uformmain.sround"
 msgid "%0:s of %1:s"
 msgstr "%0:s z %1:s"
-

trunk/Languages/Tunneler.pot

@@ -124 +124 @@
 msgstr ""
 
+#: uengine.sexit
+msgid "exit"
+msgstr ""
+
+#: uengine.sinformation
+msgid "information"
+msgstr ""
+
+#: uengine.sinstructions
+msgid "instructions"
+msgstr ""
+
 #: uengine.splayer
 msgid "Player"
+msgstr ""
+
+#: uengine.spressesc
+msgid "Press ESC to continue"
+msgstr ""
+
+#: uengine.sround
+msgid "Round"
+msgstr ""
+
+#: uengine.sstartgame
+msgid "start game"
+msgstr ""
+
+#: uengine.sworldready
+msgid "world ready"
 msgstr ""
 

trunk/UEngine.pas

@@ -310 +310 @@
 resourcestring
   SPlayer = 'Player';
+  SRound = 'Round';
+  SPressEsc = 'Press ESC to continue';
+  SStartGame = 'start game';
+  SInstructions = 'instructions';
+  SInformation = 'information';
+  SWorldReady = 'world ready';
+  SExit = 'exit';
 
 function SwapBRComponent(Value: Cardinal): Cardinal; inline;
@@ -1001 +1008 @@
   Energy := 1;
   Shield := 1;
+  Direction := 0;
   PlaceHouse;
   ShowTank;
@@ -1357 +1365 @@
     Font.Color := clTuna;
     Font.Size := 30;
-    Text := 'Round ' + IntToStr(CurrentRound);
+    Text := SRound + ' ' + IntToStr(CurrentRound);
     TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5, Text);
 
@@ -1365 +1373 @@
       if Enabled then begin
         Font.Color := Color1;
-        Text := SPlayer + ' ' + Name + ': ' + IntToStr(Score);
+        Text := Name + ': ' + IntToStr(Score);
         TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5 * 2 + Y, Text);
         Inc(Y, 50);
@@ -1374 +1382 @@
 
 procedure TEngine.DrawMap;
+var
+  Text: string;
 begin
   Bitmap.EndUpdate;
@@ -1379 +1389 @@
 
   World.DrawToBitmap(Bitmap);
+
+  Bitmap.EndUpdate;
+  Bitmap.BeginUpdate(True);
+  with Bitmap.Canvas do begin
+    Brush.Style := bsClear;
+    Pen.Style := psSolid;
+    Font.Color := clGreen;
+    Font.Size := 30;
+    Text := SPressEsc;
+    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 9, Text);
+  end;
 end;
 
@@ -1626 +1647 @@
     Font.Size := 20;
     Text := 'by Chronosoft';
-    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 + 50, Text);
+    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 + 60, Text);
 
     Pen.Color := clPurple;
@@ -1635 +1656 @@
     Font.Color := clPurple;
     Font.Size := 20;
-    Text := '<F1>  start game';
+    Text := '<F1>  ' + SStartGame;
     TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4, Text);
-    Text := '<F2>  instructions';
+    Text := '<F2>  ' + SInstructions;
     TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 40, Text);
-    Text := '<F3>  information';
+    Text := '<F3>  ' + SInformation;
     TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 80, Text);
-    Text := '<F10>  exit';
+    Text := '<F10>  ' + SExit;
     TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 120, Text);
 
     Font.Color := clDarkGreen;
     Font.Size := 20;
-    Text := '(world ready)';
+    Text := '(' + SWorldReady + ')';
     TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 9, Text);
   end;
@@ -1831 +1852 @@
   KeyF3 = 114;
   KeyF4 = 115;
+  KeyF5 = 116;
   KeyEsc = 27;
 var
@@ -1867 +1889 @@
       end;
     end;
+  end else
+  if Key = KeyF5 then begin
+    State := gsMap;
   end;
   {$ENDIF}