Changeset 60 for trunk/UEngine.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: More translated texts.

File:

• trunk/UEngine.pas (modified) (10 diffs)

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}