Changeset 60
- Timestamp:
- Dec 25, 2022, 2:44:14 PM (2 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Languages/Tunneler.cs.po
r54 r60 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: Chronos <robie@centrum.cz>\n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 11 "Language: cs\n" 12 "X-Generator: Poedit 3.0\n" 12 "X-Generator: Poedit 3.0.1\n" 13 13 14 14 #: tformdebug.caption … … 161 161 msgstr "OvládánÃ" 162 162 163 #: uengine.sexit 164 msgid "exit" 165 msgstr "odejÃt" 166 167 #: uengine.sinformation 168 msgid "information" 169 msgstr "informace" 170 171 #: uengine.sinstructions 172 msgid "instructions" 173 msgstr "instrukce" 174 163 175 #: uengine.splayer 164 176 msgctxt "uengine.splayer" … … 166 178 msgstr "HráÄ" 167 179 180 #: uengine.spressesc 181 msgid "Press ESC to continue" 182 msgstr "Stiskni ESC pro pokraÄovánÃ" 183 184 #: uengine.sround 185 msgid "Round" 186 msgstr "Kolo" 187 188 #: uengine.sstartgame 189 msgid "start game" 190 msgstr "spustit hru" 191 192 #: uengine.sworldready 193 msgid "world ready" 194 msgstr "svÄt pÅipraven" 195 168 196 #: uformmain.sround 169 #, object-pascal-format , fuzzy197 #, object-pascal-format 170 198 msgctxt "uformmain.sround" 171 199 msgid "%0:s of %1:s" 172 200 msgstr "%0:s z %1:s" 173 -
trunk/Languages/Tunneler.pot
r54 r60 124 124 msgstr "" 125 125 126 #: uengine.sexit 127 msgid "exit" 128 msgstr "" 129 130 #: uengine.sinformation 131 msgid "information" 132 msgstr "" 133 134 #: uengine.sinstructions 135 msgid "instructions" 136 msgstr "" 137 126 138 #: uengine.splayer 127 139 msgid "Player" 140 msgstr "" 141 142 #: uengine.spressesc 143 msgid "Press ESC to continue" 144 msgstr "" 145 146 #: uengine.sround 147 msgid "Round" 148 msgstr "" 149 150 #: uengine.sstartgame 151 msgid "start game" 152 msgstr "" 153 154 #: uengine.sworldready 155 msgid "world ready" 128 156 msgstr "" 129 157 -
trunk/UEngine.pas
r59 r60 310 310 resourcestring 311 311 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'; 312 319 313 320 function SwapBRComponent(Value: Cardinal): Cardinal; inline; … … 1001 1008 Energy := 1; 1002 1009 Shield := 1; 1010 Direction := 0; 1003 1011 PlaceHouse; 1004 1012 ShowTank; … … 1357 1365 Font.Color := clTuna; 1358 1366 Font.Size := 30; 1359 Text := 'Round' + IntToStr(CurrentRound);1367 Text := SRound + ' ' + IntToStr(CurrentRound); 1360 1368 TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5, Text); 1361 1369 … … 1365 1373 if Enabled then begin 1366 1374 Font.Color := Color1; 1367 Text := SPlayer + ' ' +Name + ': ' + IntToStr(Score);1375 Text := Name + ': ' + IntToStr(Score); 1368 1376 TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5 * 2 + Y, Text); 1369 1377 Inc(Y, 50); … … 1374 1382 1375 1383 procedure TEngine.DrawMap; 1384 var 1385 Text: string; 1376 1386 begin 1377 1387 Bitmap.EndUpdate; … … 1379 1389 1380 1390 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; 1381 1402 end; 1382 1403 … … 1626 1647 Font.Size := 20; 1627 1648 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); 1629 1650 1630 1651 Pen.Color := clPurple; … … 1635 1656 Font.Color := clPurple; 1636 1657 Font.Size := 20; 1637 Text := '<F1> start game';1658 Text := '<F1> ' + SStartGame; 1638 1659 TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4, Text); 1639 Text := '<F2> instructions';1660 Text := '<F2> ' + SInstructions; 1640 1661 TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 40, Text); 1641 Text := '<F3> information';1662 Text := '<F3> ' + SInformation; 1642 1663 TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 80, Text); 1643 Text := '<F10> exit';1664 Text := '<F10> ' + SExit; 1644 1665 TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 120, Text); 1645 1666 1646 1667 Font.Color := clDarkGreen; 1647 1668 Font.Size := 20; 1648 Text := '( world ready)';1669 Text := '(' + SWorldReady + ')'; 1649 1670 TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 10 * 9, Text); 1650 1671 end; … … 1831 1852 KeyF3 = 114; 1832 1853 KeyF4 = 115; 1854 KeyF5 = 116; 1833 1855 KeyEsc = 27; 1834 1856 var … … 1867 1889 end; 1868 1890 end; 1891 end else 1892 if Key = KeyF5 then begin 1893 State := gsMap; 1869 1894 end; 1870 1895 {$ENDIF}
Note:
See TracChangeset
for help on using the changeset viewer.