Changeset 60


Ignore:
Timestamp:
Dec 25, 2022, 2:44:14 PM (2 years ago)
Author:
chronos
Message:
  • Modified: More translated texts.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Languages/Tunneler.cs.po

    r54 r60  
    11msgid ""
    22msgstr ""
    3 "Content-Type: text/plain; charset=UTF-8\n"
    43"Project-Id-Version: \n"
    54"POT-Creation-Date: \n"
     
    76"Last-Translator: Chronos <robie@centrum.cz>\n"
    87"Language-Team: \n"
     8"Language: cs\n"
    99"MIME-Version: 1.0\n"
     10"Content-Type: text/plain; charset=UTF-8\n"
    1011"Content-Transfer-Encoding: 8bit\n"
    11 "Language: cs\n"
    12 "X-Generator: Poedit 3.0\n"
     12"X-Generator: Poedit 3.0.1\n"
    1313
    1414#: tformdebug.caption
     
    161161msgstr "Ovládání"
    162162
     163#: uengine.sexit
     164msgid "exit"
     165msgstr "odejít"
     166
     167#: uengine.sinformation
     168msgid "information"
     169msgstr "informace"
     170
     171#: uengine.sinstructions
     172msgid "instructions"
     173msgstr "instrukce"
     174
    163175#: uengine.splayer
    164176msgctxt "uengine.splayer"
     
    166178msgstr "Hráč"
    167179
     180#: uengine.spressesc
     181msgid "Press ESC to continue"
     182msgstr "Stiskni ESC pro pokračování"
     183
     184#: uengine.sround
     185msgid "Round"
     186msgstr "Kolo"
     187
     188#: uengine.sstartgame
     189msgid "start game"
     190msgstr "spustit hru"
     191
     192#: uengine.sworldready
     193msgid "world ready"
     194msgstr "svět připraven"
     195
    168196#: uformmain.sround
    169 #, object-pascal-format, fuzzy
     197#, object-pascal-format
    170198msgctxt "uformmain.sround"
    171199msgid "%0:s of %1:s"
    172200msgstr "%0:s z %1:s"
    173 
  • trunk/Languages/Tunneler.pot

    r54 r60  
    124124msgstr ""
    125125
     126#: uengine.sexit
     127msgid "exit"
     128msgstr ""
     129
     130#: uengine.sinformation
     131msgid "information"
     132msgstr ""
     133
     134#: uengine.sinstructions
     135msgid "instructions"
     136msgstr ""
     137
    126138#: uengine.splayer
    127139msgid "Player"
     140msgstr ""
     141
     142#: uengine.spressesc
     143msgid "Press ESC to continue"
     144msgstr ""
     145
     146#: uengine.sround
     147msgid "Round"
     148msgstr ""
     149
     150#: uengine.sstartgame
     151msgid "start game"
     152msgstr ""
     153
     154#: uengine.sworldready
     155msgid "world ready"
    128156msgstr ""
    129157
  • trunk/UEngine.pas

    r59 r60  
    310310resourcestring
    311311  SPlayer = 'Player';
     312  SRound = 'Round';
     313  SPressEsc = 'Press ESC to continue';
     314  SStartGame = 'start game';
     315  SInstructions = 'instructions';
     316  SInformation = 'information';
     317  SWorldReady = 'world ready';
     318  SExit = 'exit';
    312319
    313320function SwapBRComponent(Value: Cardinal): Cardinal; inline;
     
    10011008  Energy := 1;
    10021009  Shield := 1;
     1010  Direction := 0;
    10031011  PlaceHouse;
    10041012  ShowTank;
     
    13571365    Font.Color := clTuna;
    13581366    Font.Size := 30;
    1359     Text := 'Round ' + IntToStr(CurrentRound);
     1367    Text := SRound + ' ' + IntToStr(CurrentRound);
    13601368    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5, Text);
    13611369
     
    13651373      if Enabled then begin
    13661374        Font.Color := Color1;
    1367         Text := SPlayer + ' ' + Name + ': ' + IntToStr(Score);
     1375        Text := Name + ': ' + IntToStr(Score);
    13681376        TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5 * 2 + Y, Text);
    13691377        Inc(Y, 50);
     
    13741382
    13751383procedure TEngine.DrawMap;
     1384var
     1385  Text: string;
    13761386begin
    13771387  Bitmap.EndUpdate;
     
    13791389
    13801390  World.DrawToBitmap(Bitmap);
     1391
     1392  Bitmap.EndUpdate;
     1393  Bitmap.BeginUpdate(True);
     1394  with Bitmap.Canvas do begin
     1395    Brush.Style := bsClear;
     1396    Pen.Style := psSolid;
     1397    Font.Color := clGreen;
     1398    Font.Size := 30;
     1399    Text := SPressEsc;
     1400    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 9, Text);
     1401  end;
    13811402end;
    13821403
     
    16261647    Font.Size := 20;
    16271648    Text := 'by Chronosoft';
    1628     TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 + 50, Text);
     1649    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 + 60, Text);
    16291650
    16301651    Pen.Color := clPurple;
     
    16351656    Font.Color := clPurple;
    16361657    Font.Size := 20;
    1637     Text := '<F1>  start game';
     1658    Text := '<F1>  ' + SStartGame;
    16381659    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4, Text);
    1639     Text := '<F2>  instructions';
     1660    Text := '<F2>  ' + SInstructions;
    16401661    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 40, Text);
    1641     Text := '<F3>  information';
     1662    Text := '<F3>  ' + SInformation;
    16421663    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 80, Text);
    1643     Text := '<F10>  exit';
     1664    Text := '<F10>  ' + SExit;
    16441665    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 120, Text);
    16451666
    16461667    Font.Color := clDarkGreen;
    16471668    Font.Size := 20;
    1648     Text := '(world ready)';
     1669    Text := '(' + SWorldReady + ')';
    16491670    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 9, Text);
    16501671  end;
     
    18311852  KeyF3 = 114;
    18321853  KeyF4 = 115;
     1854  KeyF5 = 116;
    18331855  KeyEsc = 27;
    18341856var
     
    18671889      end;
    18681890    end;
     1891  end else
     1892  if Key = KeyF5 then begin
     1893    State := gsMap;
    18691894  end;
    18701895  {$ENDIF}
Note: See TracChangeset for help on using the changeset viewer.