Changeset 62
- Timestamp:
- Jan 5, 2023, 10:14:31 PM (23 months ago)
- Location:
- trunk
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r59 r62 1 1 object FormMain: TFormMain 2 2 Left = 692 3 Height = 5363 Height = 617 4 4 Top = 479 5 Width = 6685 Width = 770 6 6 Caption = 'Tunneler' 7 ClientHeight = 5 068 ClientWidth = 6689 DesignTimePPI = 1 257 ClientHeight = 583 8 ClientWidth = 770 9 DesignTimePPI = 144 10 10 Menu = MainMenu1 11 11 OnClose = FormClose … … 19 19 object StatusBar1: TStatusBar 20 20 Left = 0 21 Height = 2 422 Top = 48223 Width = 66821 Height = 28 22 Top = 555 23 Width = 770 24 24 Panels = < 25 25 item 26 Width = 6426 Width = 74 27 27 end 28 28 item 29 Width = 6429 Width = 74 30 30 end 31 31 item 32 Width = 6432 Width = 74 33 33 end 34 34 item 35 Width = 6435 Width = 74 36 36 end 37 37 item 38 Width = 6438 Width = 74 39 39 end 40 40 item 41 Width = 6441 Width = 74 42 42 end 43 43 item 44 Width = 6444 Width = 74 45 45 end> 46 46 ParentFont = False … … 50 50 object Image1: TImage 51 51 Left = 0 52 Height = 48252 Height = 555 53 53 Top = 0 54 Width = 66854 Width = 770 55 55 Align = alClient 56 56 OnResize = Image1Resize … … 59 59 Interval = 50 60 60 OnTimer = TimerDrawTimer 61 Left = 1 2962 Top = 6661 Left = 149 62 Top = 76 63 63 end 64 64 object MainMenu1: TMainMenu 65 Left = 2 4066 Top = 2 165 Left = 276 66 Top = 24 67 67 object MenuItem1: TMenuItem 68 68 Caption = 'Game' … … 92 92 object TimerEngineTick: TTimer 93 93 Interval = 20 94 OnTimer = TimerEngineTickTimer 95 Left = 125 96 Top = 135 94 Left = 144 95 Top = 156 97 96 end 98 97 object ActionList1: TActionList 99 Left = 375100 Top = 4 298 Left = 432 99 Top = 48 101 100 object AFullScreen: TAction 102 101 Caption = 'Fullscreen mode' … … 132 131 RootName = 'CONFIG' 133 132 ReadOnly = False 134 Left = 1 29135 Top = 3 13133 Left = 149 134 Top = 361 136 135 end 137 136 object AboutDialog1: TAboutDialog … … 139 138 ThemeManager = Core.ThemeManager1 140 139 ApplicationInfo = Core.ApplicationInfo 141 Left = 267142 Top = 1 57140 Left = 308 141 Top = 181 143 142 end 144 143 end -
trunk/Forms/UFormMain.pas
r61 r62 51 51 procedure Image1Resize(Sender: TObject); 52 52 procedure TimerDrawTimer(Sender: TObject); 53 procedure TimerEngineTickTimer(Sender: TObject);54 53 private 55 54 StartTime: TDateTime; … … 58 57 procedure LoadConfig; 59 58 procedure SaveConfig; 59 procedure UpdateInterface; 60 60 public 61 61 PersistentForm: TPersistentForm; … … 110 110 end; 111 111 112 procedure TFormMain.TimerEngineTickTimer(Sender: TObject);113 begin114 //Engine.Tick;115 end;116 117 112 procedure TFormMain.LoadConfig; 118 113 begin … … 134 129 ForceDirectories(ExtractFileDir(XMLConfig1.Filename)); 135 130 XMLConfig1.Flush; 131 end; 132 133 procedure TFormMain.UpdateInterface; 134 begin 135 if FullScreenEnabled then Menu := nil 136 else Menu := MainMenu1; 137 {$IFDEF DEBUG} 138 StatusBar1.Visible := not FullScreenEnabled; 139 {$ENDIF} 136 140 end; 137 141 … … 169 173 procedure TFormMain.FormDestroy(Sender: TObject); 170 174 begin 175 TimerDraw.Enabled := False; 171 176 FreeAndNil(PersistentForm); 172 177 FreeAndNil(Engine); … … 177 182 FullScreenEnabled := not FullScreenEnabled; 178 183 PersistentForm.SetFullScreen(FullScreenEnabled); 184 UpdateInterface; 179 185 end; 180 186 … … 238 244 PersistentForm.Load(Self, False, True); 239 245 FullScreenEnabled := PersistentForm.FormFullScreen; 240 {$IFDEF DEBUG} 241 StatusBar1.Visible := True; 242 {$ENDIF} 246 UpdateInterface 243 247 end; 244 248 -
trunk/Languages/Tunneler.cs.po
r61 r62 161 161 msgstr "OvládánÃ" 162 162 163 #: uengine.sblue 164 msgid "Blue" 165 msgstr "Modrá" 166 167 #: uengine.scyan 168 msgid "Cyan" 169 msgstr "Tyrkysová" 170 163 171 #: uengine.sexit 164 172 msgctxt "uengine.sexit" … … 166 174 msgstr "OdejÃt" 167 175 176 #: uengine.sgray 177 msgid "Gray" 178 msgstr "Å edá" 179 180 #: uengine.sgreen 181 msgid "Green" 182 msgstr "Zelená" 183 168 184 #: uengine.sinformation 169 185 msgid "Information" … … 173 189 msgid "Instructions" 174 190 msgstr "Instrukce" 191 192 #: uengine.sorange 193 msgid "Orange" 194 msgstr "OranÅŸová" 195 196 #: uengine.spink 197 msgid "Pink" 198 msgstr "Růşová" 175 199 176 200 #: uengine.splayer … … 183 207 msgstr "Stiskni ESC pro pokraÄovánÃ" 184 208 209 #: uengine.sred 210 msgid "Red" 211 msgstr "Äervená" 212 185 213 #: uengine.sround 186 214 msgid "Round" … … 206 234 msgid "World ready" 207 235 msgstr "SvÄt pÅipraven" 236 237 #: uengine.syellow 238 msgid "Yellow" 239 msgstr "Åœlutá" 208 240 209 241 #: uformmain.sround -
trunk/Languages/Tunneler.pot
r61 r62 125 125 msgstr "" 126 126 127 #: uengine.sblue 128 msgid "Blue" 129 msgstr "" 130 131 #: uengine.scyan 132 msgid "Cyan" 133 msgstr "" 134 127 135 #: uengine.sexit 128 136 msgctxt "uengine.sexit" … … 130 138 msgstr "" 131 139 140 #: uengine.sgray 141 msgid "Gray" 142 msgstr "" 143 144 #: uengine.sgreen 145 msgid "Green" 146 msgstr "" 147 132 148 #: uengine.sinformation 133 149 msgid "Information" … … 138 154 msgstr "" 139 155 156 #: uengine.sorange 157 msgid "Orange" 158 msgstr "" 159 160 #: uengine.spink 161 msgid "Pink" 162 msgstr "" 163 140 164 #: uengine.splayer 141 165 msgid "Player" … … 146 170 msgstr "" 147 171 172 #: uengine.sred 173 msgid "Red" 174 msgstr "" 175 148 176 #: uengine.sround 149 177 msgid "Round" … … 168 196 #: uengine.sworldready 169 197 msgid "World ready" 198 msgstr "" 199 200 #: uengine.syellow 201 msgid "Yellow" 170 202 msgstr "" 171 203 -
trunk/UEngine.pas
r61 r62 276 276 SShotsFired = 'Shot fired'; 277 277 SWinnerIs = 'The winner is'; 278 SGreen = 'Green'; 279 SBlue = 'Blue'; 280 SRed = 'Red'; 281 SPink = 'Pink'; 282 SCyan = 'Cyan'; 283 SYellow = 'Yellow'; 284 SOrange = 'Orange'; 285 SGray = 'Gray'; 278 286 279 287 { TTanks } … … 1209 1217 Text := Name + ': ' + IntToStr(Score); 1210 1218 TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5 * 2 + Y, Text); 1211 Inc(Y, 50);1219 Inc(Y, 60); 1212 1220 end; 1213 1221 end; … … 1339 1347 PlayerPool.Clear; 1340 1348 with PlayerPool.AddNew do begin 1349 Name := SGreen; 1341 1350 Keys.Left := 65; 1342 1351 Keys.Down := 83; … … 1349 1358 end; 1350 1359 with PlayerPool.AddNew do begin 1360 Name := SBlue; 1351 1361 Keys.Left := 37; 1352 1362 Keys.Down := 40; … … 1359 1369 end; 1360 1370 with PlayerPool.AddNew do begin 1371 Name := SRed; 1361 1372 Keys.Left := 76; 1362 1373 Keys.Down := 147; … … 1368 1379 end; 1369 1380 with PlayerPool.AddNew do begin 1381 Name := SPink; 1370 1382 Keys.Left := 100; 1371 1383 Keys.Down := 98; … … 1377 1389 end; 1378 1390 with PlayerPool.AddNew do begin 1391 Name := SCyan; 1379 1392 Keys.Left := 0; 1380 1393 Keys.Down := 0; … … 1386 1399 end; 1387 1400 with PlayerPool.AddNew do begin 1401 Name := SYellow; 1388 1402 Keys.Left := 0; 1389 1403 Keys.Down := 0; … … 1395 1409 end; 1396 1410 with PlayerPool.AddNew do begin 1411 Name := SOrange; 1397 1412 Keys.Left := 0; 1398 1413 Keys.Down := 0; … … 1404 1419 end; 1405 1420 with PlayerPool.AddNew do begin 1421 Name := SGray; 1406 1422 Keys.Left := 0; 1407 1423 Keys.Down := 0; … … 1417 1433 Id := I; 1418 1434 InitTanks; 1419 Name := SPlayer + ' ' + IntToStr(I + 1);1420 1435 if I < 2 then Enabled := True; 1421 1436 end; … … 1559 1574 FBitmapLower.Count := OldCount; 1560 1575 1561 if FClearBackground then FBitmapLower.FillAll( clNavy);1576 if FClearBackground then FBitmapLower.FillAll(World.Matters[Integer(miBorder)].Color); 1562 1577 for I := 0 to Players.Count - 1 do 1563 1578 if Players[I].Enabled then begin -
trunk/UMatter.pas
r61 r62 11 11 12 12 TMatterIndex = (miSpace, miDirt1, miDirt2, miRock, miBullet1, miBullet2, miBorder, 13 14 15 16 17 18 19 20 13 miPlayer1Cannon, miPlayer1Home, miPlayer1TankBody, miPlayer1TankBody2, 14 miPlayer2Cannon, miPlayer2Home, miPlayer2TankBody, miPlayer2TankBody2, 15 miPlayer3Cannon, miPlayer3Home, miPlayer3TankBody, miPlayer3TankBody2, 16 miPlayer4Cannon, miPlayer4Home, miPlayer4TankBody, miPlayer4TankBody2, 17 miPlayer5Cannon, miPlayer5Home, miPlayer5TankBody, miPlayer5TankBody2, 18 miPlayer6Cannon, miPlayer6Home, miPlayer6TankBody, miPlayer6TankBody2, 19 miPlayer7Cannon, miPlayer7Home, miPlayer7TankBody, miPlayer7TankBody2, 20 miPlayer8Cannon, miPlayer8Home, miPlayer8TankBody, miPlayer8TankBody2); 21 21 22 22 { TMatter } -
trunk/UWorld.pas
r61 r62 89 89 with Matters.AddNew do begin 90 90 Kind := mkBorder; 91 Color := cl Navy;91 Color := clBlack; 92 92 Player := -1; 93 93 end; -
trunk/tunneler.lpi
r61 r62 203 203 <Linking> 204 204 <Debugging> 205 <DebugInfoType Value="dsDwarf2Set"/> 205 206 <UseHeaptrc Value="True"/> 206 207 <UseExternalDbgSyms Value="True"/>
Note:
See TracChangeset
for help on using the changeset viewer.