Changeset 44
- Timestamp:
- Apr 19, 2019, 12:02:27 PM (6 years ago)
- Location:
- trunk
- Files:
-
- 4 added
- 7 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UMainForm.lfm
r38 r44 1 1 object MainForm: TMainForm 2 2 Left = 486 3 Height = 5153 Height = 618 4 4 Top = 258 5 Width = 6425 Width = 770 6 6 Caption = 'Tunneler' 7 ClientHeight = 4908 ClientWidth = 6429 DesignTimePPI = 1 207 ClientHeight = 584 8 ClientWidth = 770 9 DesignTimePPI = 144 10 10 Menu = MainMenu1 11 11 OnClose = FormClose … … 20 20 Left = 0 21 21 Height = 28 22 Top = 46223 Width = 64222 Top = 556 23 Width = 770 24 24 Panels = < 25 25 item 26 Width = 6226 Width = 74 27 27 end 28 28 item 29 Width = 6229 Width = 74 30 30 end 31 31 item 32 Width = 6232 Width = 74 33 33 end 34 34 item 35 Width = 6235 Width = 74 36 36 end 37 37 item 38 Width = 6238 Width = 74 39 39 end 40 40 item 41 Width = 6241 Width = 74 42 42 end 43 43 item 44 Width = 6244 Width = 74 45 45 end> 46 46 ParentFont = False … … 49 49 object Image1: TImage 50 50 Left = 0 51 Height = 46251 Height = 556 52 52 Top = 0 53 Width = 64253 Width = 770 54 54 Align = alClient 55 55 OnMouseLeave = Image1MouseLeave … … 59 59 Interval = 50 60 60 OnTimer = TimerDrawTimer 61 left = 1 2462 top = 6361 left = 149 62 top = 76 63 63 end 64 64 object MainMenu1: TMainMenu 65 left = 2 3066 top = 2 065 left = 276 66 top = 24 67 67 object MenuItem1: TMenuItem 68 68 Caption = 'Game' … … 93 93 Interval = 20 94 94 OnTimer = TimerEngineTickTimer 95 left = 1 2096 top = 1 3095 left = 144 96 top = 156 97 97 end 98 98 object ActionList1: TActionList 99 left = 360100 top = 4 099 left = 432 100 top = 48 101 101 object AFullScreen: TAction 102 102 Caption = 'Fullscreen mode' … … 121 121 object AAbout: TAction 122 122 Caption = 'About' 123 OnExecute = AAboutExecute 123 124 end 124 125 object AShowRawImageDesc: TAction … … 127 128 end 128 129 end 129 object CoolTranslator1: TCoolTranslator130 POFilesFolder = 'Languages'131 left = 360132 top = 130133 end134 object ApplicationInfo1: TApplicationInfo135 Identification = 1136 VersionMajor = 1137 VersionMinor = 0138 VersionBugFix = 0139 VersionSuffix = 'alfa'140 CompanyName = 'Chronosoft'141 HomePage = 'https://app.zdechov.net/Tunneler/'142 AuthorsName = 'Chronos'143 EmailContact = 'robie@centrum.cz'144 AppName = 'Tunneler'145 ReleaseDate = 43573146 RegistryKey = '\Software\Chronosoft\Tunneler'147 RegistryRoot = rrKeyCurrentUser148 License = 'CC0'149 left = 124150 top = 220151 end152 130 object XMLConfig1: TXMLConfig 153 131 StartEmpty = False 154 132 RootName = 'CONFIG' 155 133 ReadOnly = False 156 left = 1 24157 top = 3 00134 left = 149 135 top = 360 158 136 end 159 137 end -
trunk/Forms/UMainForm.pas
r43 r44 7 7 uses 8 8 XMLConf, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, 9 Dialogs, ExtCtrls, ComCtrls, Menus, ActnList, U Core, UPlatform, Math,9 Dialogs, ExtCtrls, ComCtrls, Menus, ActnList, UEngine, UPlatform, Math, 10 10 DateUtils, GraphType, UPersistentForm, UApplicationInfo, UCoolTranslator, 11 11 LCLType, URegistry; … … 17 17 TMainForm = class(TForm) 18 18 AAbout: TAction; 19 ApplicationInfo1: TApplicationInfo;20 19 AShowRawImageDesc: TAction; 21 20 AShowMap: TAction; … … 24 23 AFullScreen: TAction; 25 24 ActionList1: TActionList; 26 CoolTranslator1: TCoolTranslator;27 25 Image1: TImage; 28 26 MainMenu1: TMainMenu; … … 39 37 TimerEngineTick: TTimer; 40 38 XMLConfig1: TXMLConfig; 39 procedure AAboutExecute(Sender: TObject); 41 40 procedure AExitExecute(Sender: TObject); 42 41 procedure AFullScreenExecute(Sender: TObject); … … 77 76 78 77 uses 79 U MapForm, UNewGameForm;78 UCore, UMapForm, UNewGameForm, UFormAbout; 80 79 81 80 resourcestring … … 136 135 137 136 PersistentForm := TPersistentForm.Create(nil); 138 PersistentForm.RegistryContext := TRegistryContext.Create( ApplicationInfo1.RegistryRoot,139 ApplicationInfo1.RegistryKey);137 PersistentForm.RegistryContext := TRegistryContext.Create(Core.ApplicationInfo.RegistryRoot, 138 Core.ApplicationInfo.RegistryKey); 140 139 141 140 Application.OnDeactivate := FormDeactivate; … … 144 143 Engine := TEngine.Create; 145 144 Engine.Bitmap := Image1.Picture.Bitmap; 146 Co olTranslator1.Language :=CoolTranslator1.Languages.SearchByCode('cs');145 Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode('cs'); 147 146 LoadConfig; 148 147 Engine.NewGame; … … 220 219 end; 221 220 221 procedure TMainForm.AAboutExecute(Sender: TObject); 222 begin 223 FormAbout := TFormAbout.Create(nil); 224 FormAbout.ShowModal; 225 FreeAndNil(FormAbout); 226 end; 227 222 228 procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; 223 229 Shift: TShiftState); -
trunk/Forms/UNewGameForm.pas
r43 r44 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, U Core;9 ComCtrls, UEngine; 10 10 11 11 type … … 81 81 82 82 uses 83 U MainForm;83 UCore; 84 84 85 85 { TNewGameForm } … … 275 275 procedure TNewGameForm.FormCreate(Sender: TObject); 276 276 begin 277 MainForm.CoolTranslator1.TranslateComponentRecursive(Self);277 Core.CoolTranslator1.TranslateComponentRecursive(Self); 278 278 Players := TPlayers.Create; 279 279 end; -
trunk/Languages/Tunneler.cs.po
r43 r44 17 17 msgstr "LadÄnÃ" 18 18 19 #: tformabout.buttonclose.caption 20 msgid "Close" 21 msgstr "ZavÅÃt" 22 23 #: tformabout.buttonhomepage.caption 24 msgid "Home page" 25 msgstr "Domovská stránka" 26 27 #: tformabout.caption 28 msgctxt "tformabout.caption" 29 msgid "About" 30 msgstr "O aplikaci" 31 32 #: tformabout.labelappname.caption 33 msgctxt "tformabout.labelappname.caption" 34 msgid "Tunneler" 35 msgstr "Tunneler" 36 37 #: tformabout.labelcontent.caption 38 msgid " " 39 msgstr " " 40 41 #: tformabout.labeldescription.caption 42 msgid "Real-time digging tank battle game. This is recreation of legend MS-DOS game written in Pascal." 43 msgstr "Kopacà tanková bojová ha v reálném Äase. Jedná se o znovu vytvoÅenà legendárnà MS-DOS hry napsané v Pascale." 44 19 45 #: tgameresultform.caption 20 46 msgid "Game result" … … 22 48 23 49 #: tmainform.aabout.caption 50 msgctxt "tmainform.aabout.caption" 24 51 msgid "About" 25 52 msgstr "O aplikaci" … … 47 74 48 75 #: tmainform.caption 76 msgctxt "tmainform.caption" 49 77 msgid "Tunneler" 50 78 msgstr "Tunneler" … … 127 155 msgstr "OvládánÃ" 128 156 129 #: u core.splayer130 msgctxt "u core.splayer"157 #: uengine.splayer 158 msgctxt "uengine.splayer" 131 159 msgid "Player" 132 160 msgstr "HráÄ" 161 162 #: uformabout.slicense 163 msgid "License" 164 msgstr "Licence" 165 166 #: uformabout.sreleasedate 167 msgid "Release date" 168 msgstr "Datum uvolnÄnÃ" 169 170 #: uformabout.sversion 171 msgid "Version" 172 msgstr "Verze" 133 173 134 174 #: umainform.sround -
trunk/Languages/Tunneler.po
r43 r44 6 6 msgstr "" 7 7 8 #: tformabout.buttonclose.caption 9 msgid "Close" 10 msgstr "" 11 12 #: tformabout.buttonhomepage.caption 13 msgid "Home page" 14 msgstr "" 15 16 #: tformabout.caption 17 msgctxt "tformabout.caption" 18 msgid "About" 19 msgstr "" 20 21 #: tformabout.labelappname.caption 22 msgctxt "tformabout.labelappname.caption" 23 msgid "Tunneler" 24 msgstr "" 25 26 #: tformabout.labelcontent.caption 27 msgid " " 28 msgstr "" 29 30 #: tformabout.labeldescription.caption 31 msgid "Real-time digging tank battle game. This is recreation of legend MS-DOS game written in Pascal." 32 msgstr "" 33 8 34 #: tgameresultform.caption 9 35 msgid "Game result" … … 11 37 12 38 #: tmainform.aabout.caption 39 msgctxt "tmainform.aabout.caption" 13 40 msgid "About" 14 41 msgstr "" … … 36 63 37 64 #: tmainform.caption 65 msgctxt "tmainform.caption" 38 66 msgid "Tunneler" 39 67 msgstr "" … … 116 144 msgstr "" 117 145 118 #: u core.splayer119 msgctxt "u core.splayer"146 #: uengine.splayer 147 msgctxt "uengine.splayer" 120 148 msgid "Player" 149 msgstr "" 150 151 #: uformabout.slicense 152 msgid "License" 153 msgstr "" 154 155 #: uformabout.sreleasedate 156 msgid "Release date" 157 msgstr "" 158 159 #: uformabout.sversion 160 msgid "Version" 121 161 msgstr "" 122 162 -
trunk/UEngine.pas
r43 r44 1 unit U Core;1 unit UEngine; 2 2 3 3 {$mode delphi}{$H+} … … 427 427 428 428 procedure TWorld.InitMatter; 429 var 430 I: Integer; 429 431 begin 430 432 // Space … … 474 476 end; 475 477 476 // Player 1 cannon 477 with Matters.AddNew do begin 478 Kind := mkTankBody; 479 Color := clYellow; 480 Player := 0; 481 Blocking := True; 482 end; 483 // Player 1 home 484 with Matters.AddNew do begin 485 Kind := mkHome; 486 Color := TColor($00ff00); 487 Player := 0; 488 Blocking := True; 489 end; 490 // Player 1 body1 491 with Matters.AddNew do begin 492 Kind := mkTankBody; 493 Color := TColor($00ff00); 494 Player := 0; 495 Blocking := True; 496 end; 497 // Player 1 body2 498 with Matters.AddNew do begin 499 Kind := mkTankBody; 500 Color := TColor($00a000); 501 Player := 0; 502 Blocking := True; 503 end; 504 505 // Player 2 cannon 506 with Matters.AddNew do begin 507 Kind := mkTankBody; 508 Color := clYellow; 509 Player := 1; 510 Blocking := True; 511 end; 512 // Player 2 home 513 with Matters.AddNew do begin 514 Kind := mkHome; 515 Color := TColor($ff2c2c); 516 Player := 1; 517 Blocking := True; 518 end; 519 // Player 2 body1 520 with Matters.AddNew do begin 521 Kind := mkTankBody; 522 Color := TColor($ff2c2c); 523 Player := 1; 524 Blocking := True; 525 end; 526 // Player 2 body2 527 with Matters.AddNew do begin 528 Kind := mkTankBody; 529 Color := TColor($b60000); 530 Player := 1; 531 Blocking := True; 532 end; 533 534 // Player 3 cannon 535 with Matters.AddNew do begin 536 Kind := mkTankBody; 537 Color := clYellow; 538 Player := 2; 539 Blocking := True; 540 end; 541 // Player 3 home 542 with Matters.AddNew do begin 543 Kind := mkHome; 544 Color := TColor($0000ff); 545 Player := 2; 546 Blocking := True; 547 end; 548 // Player 3 body1 549 with Matters.AddNew do begin 550 Kind := mkTankBody; 551 Color := TColor($0000ff); 552 Player := 2; 553 Blocking := True; 554 end; 555 // Player 3 body2 556 with Matters.AddNew do begin 557 Kind := mkTankBody; 558 Color := TColor($0000a0); 559 Player := 2; 560 Blocking := True; 561 end; 562 563 // Player 4 cannon 564 with Matters.AddNew do begin 565 Kind := mkTankBody; 566 Color := clYellow; 567 Player := 3; 568 Blocking := True; 569 end; 570 // Player 4 home 571 with Matters.AddNew do begin 572 Kind := mkHome; 573 Color := TColor($ff2cff); 574 Player := 3; 575 Blocking := True; 576 end; 577 // Player 4 body1 578 with Matters.AddNew do begin 579 Kind := mkTankBody; 580 Color := TColor($ff2cff); 581 Player := 3; 582 Blocking := True; 583 end; 584 // Player 4 body2 585 with Matters.AddNew do begin 586 Kind := mkTankBody; 587 Color := TColor($b600b6); 588 Player := 3; 589 Blocking := True; 590 end; 591 592 // Player 5 cannon 593 with Matters.AddNew do begin 594 Kind := mkTankBody; 595 Color := clYellow; 596 Player := 4; 597 Blocking := True; 598 end; 599 // Player 5 home 600 with Matters.AddNew do begin 601 Kind := mkHome; 602 Color := TColor($ffff2c); 603 Player := 4; 604 Blocking := True; 605 end; 606 // Player 5 body1 607 with Matters.AddNew do begin 608 Kind := mkTankBody; 609 Color := TColor($ffff2c); 610 Player := 4; 611 Blocking := True; 612 end; 613 // Player 5 body2 614 with Matters.AddNew do begin 615 Kind := mkTankBody; 616 Color := TColor($b6b600); 617 Player := 4; 618 Blocking := True; 619 end; 620 621 // Player 6 cannon 622 with Matters.AddNew do begin 623 Kind := mkTankBody; 624 Color := clYellow; 625 Player := 5; 626 Blocking := True; 627 end; 628 // Player 6 home 629 with Matters.AddNew do begin 630 Kind := mkHome; 631 Color := TColor($2cffff); 632 Player := 5; 633 Blocking := True; 634 end; 635 // Player 6 body1 636 with Matters.AddNew do begin 637 Kind := mkTankBody; 638 Color := TColor($2cffff); 639 Player := 5; 640 Blocking := True; 641 end; 642 // Player 6 body2 643 with Matters.AddNew do begin 644 Kind := mkTankBody; 645 Color := TColor($00b6b6); 646 Player := 5; 647 Blocking := True; 648 end; 649 650 // Player 7 cannon 651 with Matters.AddNew do begin 652 Kind := mkTankBody; 653 Color := clYellow; 654 Player := 6; 655 Blocking := True; 656 end; 657 // Player 7 home 658 with Matters.AddNew do begin 659 Kind := mkHome; 660 Color := TColor($008cff); 661 Player := 6; 662 Blocking := True; 663 end; 664 // Player 7 body1 665 with Matters.AddNew do begin 666 Kind := mkTankBody; 667 Color := TColor($008cff); 668 Player := 6; 669 Blocking := True; 670 end; 671 // Player 7 body2 672 with Matters.AddNew do begin 673 Kind := mkTankBody; 674 Color := TColor($002da0); 675 Player := 6; 676 Blocking := True; 677 end; 678 679 // Player 8 cannon 680 with Matters.AddNew do begin 681 Kind := mkTankBody; 682 Color := clYellow; 683 Player := 7; 684 Blocking := True; 685 end; 686 // Player 8 home 687 with Matters.AddNew do begin 688 Kind := mkHome; 689 Color := TColor($d0d0d0); 690 Player := 7; 691 Blocking := True; 692 end; 693 // Player 8 body1 694 with Matters.AddNew do begin 695 Kind := mkTankBody; 696 Color := TColor($d0d0d0); 697 Player := 7; 698 Blocking := True; 699 end; 700 // Player 8 body2 701 with Matters.AddNew do begin 702 Kind := mkTankBody; 703 Color := TColor($707070); 704 Player := 7; 705 Blocking := True; 478 for I := 0 to 7 do begin 479 // Player cannon 480 with Matters.AddNew do begin 481 Kind := mkTankBody; 482 Player := I; 483 Blocking := True; 484 end; 485 // Player home 486 with Matters.AddNew do begin 487 Kind := mkHome; 488 Player := I; 489 Blocking := True; 490 end; 491 // Player body1 492 with Matters.AddNew do begin 493 Kind := mkTankBody; 494 Player := I; 495 Blocking := True; 496 end; 497 // Player body2 498 with Matters.AddNew do begin 499 Kind := mkTankBody; 500 Player := I; 501 Blocking := True; 502 end; 706 503 end; 707 504 end; … … 1665 1462 Players.Add(NewPlayer); 1666 1463 Score := 0; 1464 World.Matters[Integer(miPlayer1Cannon) + I * 4].Color := clYellow; 1667 1465 World.Matters[Integer(miPlayer1Home) + I * 4].Color := Color1; 1668 1466 World.Matters[Integer(miPlayer1TankBody) + I * 4].Color := Color1; -
trunk/tunneler.lpi
r39 r44 78 78 </Modes> 79 79 </RunParams> 80 <RequiredPackages Count=" 5">80 <RequiredPackages Count="6"> 81 81 <Item1> 82 <PackageName Value="FCL"/> 83 </Item1> 84 <Item2> 82 85 <PackageName Value="CoolAudio"/> 83 86 <DefaultFilename Value="Components/CoolAudio/CoolAudio.lpk" Prefer="True"/> 84 </Item 1>85 <Item 2>87 </Item2> 88 <Item3> 86 89 <PackageName Value="Common"/> 87 90 <DefaultFilename Value="Components/Common/Common.lpk" Prefer="True"/> 88 </Item 2>89 <Item 3>91 </Item3> 92 <Item4> 90 93 <PackageName Value="CoolTranslator"/> 91 94 <DefaultFilename Value="Components/CoolTranslator/CoolTranslator.lpk" Prefer="True"/> 92 </Item 3>93 <Item 4>95 </Item4> 96 <Item5> 94 97 <PackageName Value="TemplateGenerics"/> 95 98 <DefaultFilename Value="Components/TemplateGenerics/TemplateGenerics.lpk" Prefer="True"/> 96 </Item 4>97 <Item 5>99 </Item5> 100 <Item6> 98 101 <PackageName Value="LCL"/> 99 </Item 5>102 </Item6> 100 103 </RequiredPackages> 101 <Units Count=" 9">104 <Units Count="11"> 102 105 <Unit0> 103 106 <Filename Value="tunneler.lpr"/> … … 105 108 </Unit0> 106 109 <Unit1> 107 <Filename Value="U Core.pas"/>110 <Filename Value="UEngine.pas"/> 108 111 <IsPartOfProject Value="True"/> 109 112 </Unit1> … … 151 154 <ResourceBaseClass Value="Form"/> 152 155 </Unit8> 156 <Unit9> 157 <Filename Value="Forms/UFormAbout.pas"/> 158 <IsPartOfProject Value="True"/> 159 <ComponentName Value="FormAbout"/> 160 <HasResources Value="True"/> 161 <ResourceBaseClass Value="Form"/> 162 </Unit9> 163 <Unit10> 164 <Filename Value="UCore.pas"/> 165 <IsPartOfProject Value="True"/> 166 <ComponentName Value="Core"/> 167 <HasResources Value="True"/> 168 <ResourceBaseClass Value="DataModule"/> 169 </Unit10> 153 170 </Units> 154 171 </ProjectOptions> -
trunk/tunneler.lpr
r41 r44 6 6 {$DEFINE UseCThreads} 7 7 {$IFDEF UNIX}{$IFDEF UseCThreads} 8 cthreads, 8 cthreads, clocale, 9 9 {$ENDIF}{$ENDIF} 10 10 Interfaces, // this includes the LCL widgetset 11 11 Forms, TemplateGenerics, CoolTranslator, UPlatform, FileUtil, SysUtils, 12 12 Common, 13 UNewGameForm, UMainForm, UMapForm, UGameResultForm 13 UNewGameForm, UMainForm, UMapForm, UGameResultForm, UCore 14 14 { you can add units after this }; 15 15 … … 30 30 Application.Scaled:=True; 31 31 Application.Initialize; 32 Application.CreateForm(TCore, Core); 32 33 Application.CreateForm(TMainForm, MainForm); 33 34 Application.CreateForm(TMapForm, MapForm);
Note:
See TracChangeset
for help on using the changeset viewer.