Changeset 32


Ignore:
Timestamp:
Sep 8, 2012, 10:28:50 PM (12 years ago)
Author:
chronos
Message:
  • Added: CoolAudio package.
  • Added: Experimental in-game sounds.
Location:
trunk
Files:
38 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        44tunneler.exe
        55heaptrclog.trc
         6tunneler.lps

  • trunk/Forms/UMainForm.pas

    r31 r32  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
     8  Registry, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    99  ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils, GraphType,
    1010  UPersistentForm, UApplicationInfo, UCoolTranslator;

  • trunk/UCore.pas

    r28 r32  
    88  Dialogs, Classes, SysUtils, Contnrs, Graphics, SpecializedMatrix, SpecializedList,
    99  IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math, URectangle,
    10   Syncobjs, UThreading, Forms, DateUtils;
     10  Syncobjs, UThreading, Forms, DateUtils, UAudioSystem, UAudioSystemMPlayer;
    1111
    1212const
    … …  
    213213    CurrentRound: Integer;
    214214    MaxRound: Integer;
     215    AudioShot: TMediaPlayer;
     216    AudioExplode: TMediaPlayer;
    215217    procedure CheckGameEnd;
    216218    constructor Create;
    … …  
    765767      //with Engine, World do
    766768      //if TMatter(Matter[Surface.Items[Position]]).Diggable ;
     769      Engine.AudioShot.Play;
    767770    end;
    768771end;
    … …  
    821824      Explosion(Position, ExplosionRange);
    822825      Exploded := True;
     826      Engine.AudioExplode.Play;
    823827    end;
    824828  end else begin
    … …  
    846850    Explosion(Position, ExplosionRange);
    847851    Exploded := True;
     852    Engine.AudioExplode.Play;
    848853  end;
    849854
    … …  
    15431548  World := TWorld.Create;
    15441549  World.Engine := Self;
     1550  DefaultAudioSystem := TAudioSystemMPlayer.Create(nil);
     1551  AudioShot := TMediaPlayer.Create(nil);
     1552  AudioShot.FileName := 'Audio/GE_KF7_Soviet.wav';
     1553  AudioShot.Open;
     1554  AudioExplode := TMediaPlayer.Create(nil);
     1555  AudioExplode.FileName := 'Audio/bomb.wav';
     1556  AudioExplode.Open;
    15451557  InitPlayerPool;
    15461558  DigMasks := TListObject.Create;
    … …  
    15531565begin
    15541566  Active := False;
    1555   DigMasks.Free;
    1556   FBitmapLower.Free;
    1557   FBitmapLock.Free;
    1558   IntfImage.Free;
    1559   PlayerPool.Free;
    1560   Players.Free;
    1561   Keyboard.Free;
    1562   World.Free;
    1563   Lock.Free;
     1567  FreeAndNil(DigMasks);
     1568  FreeAndNil(FBitmapLower);
     1569  FreeAndNil(FBitmapLock);
     1570  FreeAndNil(IntfImage);
     1571  FreeAndNil(PlayerPool);
     1572  FreeAndNil(Players);
     1573  FreeAndNil(Keyboard);
     1574  FreeAndNil(World);
     1575  FreeAndNil(Lock);
     1576  FreeAndNil(AudioShot);
     1577  FreeAndNil(AudioExplode);
    15641578  inherited Destroy;
    15651579end;

  • trunk/tunneler.lpi

    r31 r32  
    44    <Version Value="9"/>
    55    <General>
     6      <SessionStorage Value="InProjectDir"/>
    67      <MainUnit Value="0"/>
    78      <ResourceType Value="res"/>
    89      <UseXPManifest Value="True"/>
    910      <Icon Value="0"/>
    10       <ActiveWindowIndexAtStart Value="0"/>
    1111    </General>
    1212    <i18n>
    … …  
    1717      <StringTable ProductVersion=""/>
    1818    </VersionInfo>
    19     <BuildModes Count="2" Active="Debug">
     19    <BuildModes Count="2">
    2020      <Item1 Name="Debug" Default="True"/>
    2121      <Item2 Name="Release">
    … …  
    3030            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    3131          </SearchPaths>
     32          <Parsing>
     33            <SyntaxOptions>
     34              <SyntaxMode Value="Delphi"/>
     35              <CStyleOperator Value="False"/>
     36              <AllowLabel Value="False"/>
     37              <CPPInline Value="False"/>
     38            </SyntaxOptions>
     39          </Parsing>
    3240          <CodeGeneration>
    3341            <SmartLinkUnit Value="True"/>
    … …  
    3947            </Checks>
    4048            <VerifyObjMethodCallValidity Value="True"/>
     49            <Optimizations>
     50              <OptimizationLevel Value="3"/>
     51            </Optimizations>
    4152          </CodeGeneration>
    4253          <Linking>
    … …  
    7283      </local>
    7384    </RunParams>
    74     <RequiredPackages Count="4">
     85    <RequiredPackages Count="5">
    7586      <Item1>
     87        <PackageName Value="CoolAudio"/>
     88        <DefaultFilename Value="Components/CoolAudio/CoolAudio.lpk" Prefer="True"/>
     89      </Item1>
     90      <Item2>
    7691        <PackageName Value="Common"/>
    7792        <DefaultFilename Value="Components/Common/Common.lpk" Prefer="True"/>
    78       </Item1>
    79       <Item2>
     93      </Item2>
     94      <Item3>
    8095        <PackageName Value="CoolTranslator"/>
    8196        <DefaultFilename Value="Components/CoolTranslator/CoolTranslator.lpk" Prefer="True"/>
    82       </Item2>
    83       <Item3>
     97      </Item3>
     98      <Item4>
    8499        <PackageName Value="TemplateGenerics"/>
    85100        <DefaultFilename Value="Components/TemplateGenerics/TemplateGenerics.lpk" Prefer="True"/>
    86       </Item3>
    87       <Item4>
     101      </Item4>
     102      <Item5>
    88103        <PackageName Value="LCL"/>
    89       </Item4>
     104      </Item5>
    90105    </RequiredPackages>
    91     <Units Count="88">
     106    <Units Count="10">
    92107      <Unit0>
    93108        <Filename Value="tunneler.lpr"/>
    94109        <IsPartOfProject Value="True"/>
    95110        <UnitName Value="tunneler"/>
    96         <WindowIndex Value="0"/>
    97         <TopLine Value="1"/>
    98         <CursorPos X="27" Y="5"/>
    99         <UsageCount Value="140"/>
    100111      </Unit0>
    101112      <Unit1>
    102         <Filename Value="UMainForm.pas"/>
    103         <ComponentName Value="MainForm"/>
    104         <ResourceBaseClass Value="Form"/>
    105         <UnitName Value="UMainForm"/>
    106         <WindowIndex Value="0"/>
    107         <TopLine Value="203"/>
    108         <CursorPos X="68" Y="209"/>
    109         <UsageCount Value="89"/>
     113        <Filename Value="UCore.pas"/>
     114        <IsPartOfProject Value="True"/>
     115        <UnitName Value="UCore"/>
    110116      </Unit1>
    111117      <Unit2>
    112         <Filename Value="UCore.pas"/>
    113         <IsPartOfProject Value="True"/>
    114         <UnitName Value="UCore"/>
    115         <IsVisibleTab Value="True"/>
    116         <EditorIndex Value="0"/>
    117         <WindowIndex Value="0"/>
    118         <TopLine Value="204"/>
    119         <CursorPos X="38" Y="213"/>
    120         <UsageCount Value="140"/>
    121         <Loaded Value="True"/>
     118        <Filename Value="UPlatform.pas"/>
     119        <IsPartOfProject Value="True"/>
     120        <UnitName Value="UPlatform"/>
    122121      </Unit2>
    123122      <Unit3>
    124         <Filename Value="../../lazarus/trunk/lcl/graphics.pp"/>
    125         <UnitName Value="Graphics"/>
    126         <WindowIndex Value="0"/>
    127         <TopLine Value="35"/>
    128         <CursorPos X="20" Y="51"/>
    129         <UsageCount Value="3"/>
     123        <Filename Value="Common/URectangle.pas"/>
     124        <IsPartOfProject Value="True"/>
     125        <UnitName Value="URectangle"/>
    130126      </Unit3>
    131127      <Unit4>
    132         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    133         <UnitName Value="GraphType"/>
    134         <WindowIndex Value="0"/>
    135         <TopLine Value="52"/>
    136         <CursorPos X="18" Y="57"/>
    137         <UsageCount Value="2"/>
     128        <Filename Value="Common/UPersistentForm.pas"/>
     129        <IsPartOfProject Value="True"/>
     130        <UnitName Value="UPersistentForm"/>
    138131      </Unit4>
    139132      <Unit5>
    140         <Filename Value="UPixelMap.pas"/>
    141         <UnitName Value="UPixelMap"/>
    142         <WindowIndex Value="0"/>
    143         <TopLine Value="1"/>
    144         <CursorPos X="61" Y="11"/>
    145         <UsageCount Value="17"/>
     133        <Filename Value="Forms/UNewGameForm.pas"/>
     134        <IsPartOfProject Value="True"/>
     135        <ComponentName Value="NewGameForm"/>
     136        <HasResources Value="True"/>
     137        <ResourceBaseClass Value="Form"/>
     138        <UnitName Value="UNewGameForm"/>
    146139      </Unit5>
    147140      <Unit6>
    148         <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/classes/classesh.inc"/>
    149         <WindowIndex Value="0"/>
    150         <TopLine Value="19"/>
    151         <CursorPos X="4" Y="36"/>
    152         <UsageCount Value="9"/>
     141        <Filename Value="Forms/UMainForm.pas"/>
     142        <IsPartOfProject Value="True"/>
     143        <ComponentName Value="MainForm"/>
     144        <HasResources Value="True"/>
     145        <ResourceBaseClass Value="Form"/>
     146        <UnitName Value="UMainForm"/>
    153147      </Unit6>
    154148      <Unit7>
    155         <Filename Value="../../../lazarus/lcl/graphics.pp"/>
    156         <UnitName Value="Graphics"/>
    157         <WindowIndex Value="0"/>
    158         <TopLine Value="2417"/>
    159         <CursorPos X="3" Y="2459"/>
    160         <UsageCount Value="5"/>
     149        <Filename Value="Forms/UMapForm.pas"/>
     150        <IsPartOfProject Value="True"/>
     151        <ComponentName Value="MapForm"/>
     152        <HasResources Value="True"/>
     153        <ResourceBaseClass Value="Form"/>
     154        <UnitName Value="UMapForm"/>
    161155      </Unit7>
    162156      <Unit8>
    163         <Filename Value="../../../lazarus/lcl/include/rasterimage.inc"/>
    164         <WindowIndex Value="0"/>
    165         <TopLine Value="453"/>
    166         <CursorPos X="1" Y="470"/>
    167         <UsageCount Value="9"/>
     157        <Filename Value="Forms/UDebugForm.pas"/>
     158        <IsPartOfProject Value="True"/>
     159        <ComponentName Value="DebugForm"/>
     160        <ResourceBaseClass Value="Form"/>
     161        <UnitName Value="UDebugForm"/>
    168162      </Unit8>
    169163      <Unit9>
    170         <Filename Value="../../../lazarus/lcl/include/canvas.inc"/>
    171         <WindowIndex Value="0"/>
    172         <TopLine Value="34"/>
    173         <CursorPos X="1" Y="54"/>
    174         <UsageCount Value="1"/>
     164        <Filename Value="Forms/UGameResultForm.pas"/>
     165        <IsPartOfProject Value="True"/>
     166        <ComponentName Value="GameResultForm"/>
     167        <ResourceBaseClass Value="Form"/>
     168        <UnitName Value="UGameResultForm"/>
    175169      </Unit9>
    176       <Unit10>
    177         <Filename Value="../../FreePascalManager/trunk/Instance/1/Lazarus/lcl/graphics.pp"/>
    178         <UnitName Value="Graphics"/>
    179         <WindowIndex Value="0"/>
    180         <TopLine Value="1314"/>
    181         <CursorPos X="42" Y="1327"/>
    182         <UsageCount Value="5"/>
    183       </Unit10>
    184       <Unit11>
    185         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
    186         <WindowIndex Value="0"/>
    187         <TopLine Value="121"/>
    188         <CursorPos X="10" Y="129"/>
    189         <UsageCount Value="55"/>
    190       </Unit11>
    191       <Unit12>
    192         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedMatrix.pas"/>
    193         <UnitName Value="SpecializedMatrix"/>
    194         <WindowIndex Value="0"/>
    195         <TopLine Value="16"/>
    196         <CursorPos X="22" Y="33"/>
    197         <UsageCount Value="15"/>
    198       </Unit12>
    199       <Unit13>
    200         <Filename Value="../../FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/classes/classesh.inc"/>
    201         <WindowIndex Value="0"/>
    202         <TopLine Value="16"/>
    203         <CursorPos X="19" Y="32"/>
    204         <UsageCount Value="3"/>
    205       </Unit13>
    206       <Unit14>
    207         <Filename Value="../../FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/types.pp"/>
    208         <UnitName Value="types"/>
    209         <WindowIndex Value="0"/>
    210         <TopLine Value="54"/>
    211         <CursorPos X="3" Y="70"/>
    212         <UsageCount Value="6"/>
    213       </Unit14>
    214       <Unit15>
    215         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    216         <WindowIndex Value="0"/>
    217         <TopLine Value="115"/>
    218         <CursorPos X="1" Y="134"/>
    219         <UsageCount Value="26"/>
    220       </Unit15>
    221       <Unit16>
    222         <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/classes/lists.inc"/>
    223         <WindowIndex Value="0"/>
    224         <TopLine Value="783"/>
    225         <CursorPos X="3" Y="785"/>
    226         <UsageCount Value="10"/>
    227       </Unit16>
    228       <Unit17>
    229         <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/inc/systemh.inc"/>
    230         <WindowIndex Value="0"/>
    231         <TopLine Value="498"/>
    232         <CursorPos X="11" Y="515"/>
    233         <UsageCount Value="4"/>
    234       </Unit17>
    235       <Unit18>
    236         <Filename Value="../../../lazarus/lcl/extctrls.pp"/>
    237         <UnitName Value="ExtCtrls"/>
    238         <WindowIndex Value="0"/>
    239         <TopLine Value="665"/>
    240         <CursorPos X="27" Y="682"/>
    241         <UsageCount Value="2"/>
    242       </Unit18>
    243       <Unit19>
    244         <Filename Value="../../../lazarus/lcl/include/customimage.inc"/>
    245         <WindowIndex Value="0"/>
    246         <TopLine Value="112"/>
    247         <CursorPos X="10" Y="114"/>
    248         <UsageCount Value="2"/>
    249       </Unit19>
    250       <Unit20>
    251         <Filename Value="../../../lazarus/lcl/controls.pp"/>
    252         <UnitName Value="Controls"/>
    253         <WindowIndex Value="0"/>
    254         <TopLine Value="1035"/>
    255         <CursorPos X="15" Y="1052"/>
    256         <UsageCount Value="1"/>
    257       </Unit20>
    258       <Unit21>
    259         <Filename Value="../../../lazarus/lcl/include/control.inc"/>
    260         <WindowIndex Value="0"/>
    261         <TopLine Value="3003"/>
    262         <CursorPos X="3" Y="3010"/>
    263         <UsageCount Value="1"/>
    264       </Unit21>
    265       <Unit22>
    266         <Filename Value="../../../lazarus/lcl/include/picture.inc"/>
    267         <WindowIndex Value="0"/>
    268         <TopLine Value="392"/>
    269         <CursorPos X="1" Y="411"/>
    270         <UsageCount Value="1"/>
    271       </Unit22>
    272       <Unit23>
    273         <Filename Value="../../../lazarus/lcl/include/lclintfh.inc"/>
    274         <WindowIndex Value="0"/>
    275         <TopLine Value="85"/>
    276         <CursorPos X="10" Y="102"/>
    277         <UsageCount Value="3"/>
    278       </Unit23>
    279       <Unit24>
    280         <Filename Value="../../../lazarus/lcl/include/lclintf.inc"/>
    281         <WindowIndex Value="0"/>
    282         <TopLine Value="157"/>
    283         <CursorPos X="3" Y="159"/>
    284         <UsageCount Value="3"/>
    285       </Unit24>
    286       <Unit25>
    287         <Filename Value="../../../lazarus/lcl/interfaces/gtk2/gtk2winapi.inc"/>
    288         <WindowIndex Value="0"/>
    289         <TopLine Value="4360"/>
    290         <CursorPos X="19" Y="4365"/>
    291         <UsageCount Value="9"/>
    292       </Unit25>
    293       <Unit26>
    294         <Filename Value="../../../lazarus/lcl/interfaces/gtk2/gtk2widgetset.inc"/>
    295         <WindowIndex Value="0"/>
    296         <TopLine Value="4226"/>
    297         <CursorPos X="1" Y="4254"/>
    298         <UsageCount Value="1"/>
    299       </Unit26>
    300       <Unit27>
    301         <Filename Value="UMapForm.pas"/>
    302         <ComponentName Value="MapForm"/>
    303         <ResourceBaseClass Value="Form"/>
    304         <UnitName Value="UMapForm"/>
    305         <WindowIndex Value="0"/>
    306         <TopLine Value="15"/>
    307         <CursorPos X="39" Y="45"/>
    308         <UsageCount Value="68"/>
    309       </Unit27>
    310       <Unit28>
    311         <Filename Value="../../../lazarus/lcl/include/customform.inc"/>
    312         <WindowIndex Value="0"/>
    313         <TopLine Value="858"/>
    314         <CursorPos X="1" Y="875"/>
    315         <UsageCount Value="2"/>
    316       </Unit28>
    317       <Unit29>
    318         <Filename Value="../../../lazarus/lcl/include/application.inc"/>
    319         <WindowIndex Value="0"/>
    320         <TopLine Value="2102"/>
    321         <CursorPos X="1" Y="2119"/>
    322         <UsageCount Value="2"/>
    323       </Unit29>
    324       <Unit30>
    325         <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/inc/mathh.inc"/>
    326         <WindowIndex Value="0"/>
    327         <TopLine Value="58"/>
    328         <CursorPos X="14" Y="75"/>
    329         <UsageCount Value="11"/>
    330       </Unit30>
    331       <Unit31>
    332         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    333         <WindowIndex Value="0"/>
    334         <TopLine Value="1"/>
    335         <CursorPos X="34" Y="12"/>
    336         <UsageCount Value="7"/>
    337       </Unit31>
    338       <Unit32>
    339         <Filename Value="../../../lazarus/lcl/intfgraphics.pas"/>
    340         <UnitName Value="IntfGraphics"/>
    341         <WindowIndex Value="0"/>
    342         <TopLine Value="3131"/>
    343         <CursorPos X="42" Y="3148"/>
    344         <UsageCount Value="12"/>
    345       </Unit32>
    346       <Unit33>
    347         <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-image/src/fpimage.pp"/>
    348         <UnitName Value="FPimage"/>
    349         <WindowIndex Value="0"/>
    350         <TopLine Value="104"/>
    351         <CursorPos X="3" Y="91"/>
    352         <UsageCount Value="3"/>
    353       </Unit33>
    354       <Unit34>
    355         <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-image/src/fpimage.inc"/>
    356         <WindowIndex Value="0"/>
    357         <TopLine Value="325"/>
    358         <CursorPos X="3" Y="327"/>
    359         <UsageCount Value="3"/>
    360       </Unit34>
    361       <Unit35>
    362         <Filename Value="../../../lazarus/lcl/graphtype.pp"/>
    363         <UnitName Value="GraphType"/>
    364         <WindowIndex Value="0"/>
    365         <TopLine Value="173"/>
    366         <CursorPos X="5" Y="190"/>
    367         <UsageCount Value="4"/>
    368       </Unit35>
    369       <Unit36>
    370         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericBitmap.inc"/>
    371         <WindowIndex Value="0"/>
    372         <TopLine Value="11"/>
    373         <CursorPos X="17" Y="26"/>
    374         <UsageCount Value="38"/>
    375       </Unit36>
    376       <Unit37>
    377         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedBitmap.pas"/>
    378         <UnitName Value="SpecializedBitmap"/>
    379         <WindowIndex Value="0"/>
    380         <TopLine Value="7"/>
    381         <CursorPos X="22" Y="21"/>
    382         <UsageCount Value="27"/>
    383       </Unit37>
    384       <Unit38>
    385         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/>
    386         <UnitName Value="SpecializedList"/>
    387         <WindowIndex Value="0"/>
    388         <TopLine Value="91"/>
    389         <CursorPos X="19" Y="107"/>
    390         <UsageCount Value="5"/>
    391       </Unit38>
    392       <Unit39>
    393         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    394         <WindowIndex Value="0"/>
    395         <TopLine Value="1"/>
    396         <CursorPos X="1" Y="1"/>
    397         <UsageCount Value="4"/>
    398       </Unit39>
    399       <Unit40>
    400         <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/inc/objpash.inc"/>
    401         <WindowIndex Value="0"/>
    402         <TopLine Value="158"/>
    403         <CursorPos X="23" Y="175"/>
    404         <UsageCount Value="3"/>
    405       </Unit40>
    406       <Unit41>
    407         <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/UCDLayout.pas"/>
    408         <UnitName Value="UCDLayout"/>
    409         <WindowIndex Value="0"/>
    410         <TopLine Value="1"/>
    411         <CursorPos X="9" Y="69"/>
    412         <UsageCount Value="3"/>
    413       </Unit41>
    414       <Unit42>
    415         <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/CoolDocking.pas"/>
    416         <UnitName Value="CoolDocking"/>
    417         <WindowIndex Value="0"/>
    418         <TopLine Value="1"/>
    419         <CursorPos X="1" Y="1"/>
    420         <UsageCount Value="3"/>
    421       </Unit42>
    422       <Unit43>
    423         <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/Common/URectangle.pas"/>
    424         <UnitName Value="URectangle"/>
    425         <WindowIndex Value="0"/>
    426         <TopLine Value="1"/>
    427         <CursorPos X="14" Y="20"/>
    428         <UsageCount Value="3"/>
    429       </Unit43>
    430       <Unit44>
    431         <Filename Value="UPlatform.pas"/>
    432         <IsPartOfProject Value="True"/>
    433         <UnitName Value="UPlatform"/>
    434         <WindowIndex Value="0"/>
    435         <TopLine Value="1"/>
    436         <CursorPos X="28" Y="16"/>
    437         <UsageCount Value="99"/>
    438       </Unit44>
    439       <Unit45>
    440         <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/math.pp"/>
    441         <UnitName Value="math"/>
    442         <WindowIndex Value="0"/>
    443         <TopLine Value="929"/>
    444         <CursorPos X="5" Y="932"/>
    445         <UsageCount Value="8"/>
    446       </Unit45>
    447       <Unit46>
    448         <Filename Value="../../PascalClassLibrary/Generics/NativeGenerics/Units/GenericRange.pas"/>
    449         <UnitName Value="GenericRange"/>
    450         <WindowIndex Value="0"/>
    451         <TopLine Value="1"/>
    452         <CursorPos X="50" Y="5"/>
    453         <UsageCount Value="7"/>
    454       </Unit46>
    455       <Unit47>
    456         <Filename Value="../../PascalClassLibrary/Generics/NativeGenerics/NativeGenerics.pas"/>
    457         <UnitName Value="NativeGenerics"/>
    458         <WindowIndex Value="0"/>
    459         <TopLine Value="1"/>
    460         <CursorPos X="36" Y="15"/>
    461         <UsageCount Value="3"/>
    462       </Unit47>
    463       <Unit48>
    464         <Filename Value="../../../lazarus/lcl/include/custombitmap.inc"/>
    465         <WindowIndex Value="0"/>
    466         <TopLine Value="330"/>
    467         <CursorPos X="35" Y="338"/>
    468         <UsageCount Value="12"/>
    469       </Unit48>
    470       <Unit49>
    471         <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/types.pp"/>
    472         <UnitName Value="types"/>
    473         <WindowIndex Value="0"/>
    474         <TopLine Value="58"/>
    475         <CursorPos X="5" Y="75"/>
    476         <UsageCount Value="4"/>
    477       </Unit49>
    478       <Unit50>
    479         <Filename Value="Common/URectangle.pas"/>
    480         <IsPartOfProject Value="True"/>
    481         <UnitName Value="URectangle"/>
    482         <WindowIndex Value="0"/>
    483         <TopLine Value="29"/>
    484         <CursorPos X="3" Y="43"/>
    485         <UsageCount Value="84"/>
    486       </Unit50>
    487       <Unit51>
    488         <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/sysutils/sysstrh.inc"/>
    489         <WindowIndex Value="0"/>
    490         <TopLine Value="147"/>
    491         <CursorPos X="10" Y="84"/>
    492         <UsageCount Value="7"/>
    493       </Unit51>
    494       <Unit52>
    495         <Filename Value="../../FreePascalManager/trunk/Instance/1/Lazarus/lcl/graphtype.pp"/>
    496         <UnitName Value="GraphType"/>
    497         <WindowIndex Value="0"/>
    498         <TopLine Value="520"/>
    499         <CursorPos X="35" Y="531"/>
    500         <UsageCount Value="6"/>
    501       </Unit52>
    502       <Unit53>
    503         <Filename Value="Common/UPersistentForm.pas"/>
    504         <IsPartOfProject Value="True"/>
    505         <UnitName Value="UPersistentForm"/>
    506         <WindowIndex Value="0"/>
    507         <TopLine Value="69"/>
    508         <CursorPos X="3" Y="90"/>
    509         <UsageCount Value="77"/>
    510       </Unit53>
    511       <Unit54>
    512         <Filename Value="UApplicationInfo.pas"/>
    513         <UnitName Value="UApplicationInfo"/>
    514         <WindowIndex Value="0"/>
    515         <TopLine Value="37"/>
    516         <CursorPos X="16" Y="60"/>
    517         <UsageCount Value="76"/>
    518       </Unit54>
    519       <Unit55>
    520         <Filename Value="Common/URegistry.pas"/>
    521         <UnitName Value="URegistry"/>
    522         <UsageCount Value="75"/>
    523       </Unit55>
    524       <Unit56>
    525         <Filename Value="../../FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstrh.inc"/>
    526         <WindowIndex Value="0"/>
    527         <TopLine Value="71"/>
    528         <CursorPos X="10" Y="84"/>
    529         <UsageCount Value="5"/>
    530       </Unit56>
    531       <Unit57>
    532         <Filename Value="../../FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstr.inc"/>
    533         <WindowIndex Value="0"/>
    534         <TopLine Value="167"/>
    535         <CursorPos X="3" Y="169"/>
    536         <UsageCount Value="5"/>
    537       </Unit57>
    538       <Unit58>
    539         <Filename Value="../../FreePascalManager/trunk/Instance/1/Lazarus/lcl/include/rasterimage.inc"/>
    540         <WindowIndex Value="0"/>
    541         <TopLine Value="466"/>
    542         <CursorPos X="17" Y="470"/>
    543         <UsageCount Value="5"/>
    544       </Unit58>
    545       <Unit59>
    546         <Filename Value="Common/UThreading.pas"/>
    547         <UnitName Value="UThreading"/>
    548         <WindowIndex Value="0"/>
    549         <TopLine Value="61"/>
    550         <CursorPos X="84" Y="66"/>
    551         <UsageCount Value="67"/>
    552       </Unit59>
    553       <Unit60>
    554         <Filename Value="/usr/share/fpcsrc/2.4.2/packages/fcl-base/src/contnrs.pp"/>
    555         <UnitName Value="contnrs"/>
    556         <WindowIndex Value="0"/>
    557         <TopLine Value="55"/>
    558         <CursorPos X="3" Y="72"/>
    559         <UsageCount Value="19"/>
    560       </Unit60>
    561       <Unit61>
    562         <Filename Value="Forms/UNewGameForm.pas"/>
    563         <IsPartOfProject Value="True"/>
    564         <ComponentName Value="NewGameForm"/>
    565         <ResourceBaseClass Value="Form"/>
    566         <UnitName Value="UNewGameForm"/>
    567         <WindowIndex Value="0"/>
    568         <TopLine Value="44"/>
    569         <CursorPos X="23" Y="65"/>
    570         <UsageCount Value="68"/>
    571         <LoadedDesigner Value="True"/>
    572       </Unit61>
    573       <Unit62>
    574         <Filename Value="Forms/UMainForm.pas"/>
    575         <IsPartOfProject Value="True"/>
    576         <ComponentName Value="MainForm"/>
    577         <HasResources Value="True"/>
    578         <ResourceBaseClass Value="Form"/>
    579         <UnitName Value="UMainForm"/>
    580         <WindowIndex Value="0"/>
    581         <TopLine Value="98"/>
    582         <CursorPos X="42" Y="116"/>
    583         <UsageCount Value="68"/>
    584       </Unit62>
    585       <Unit63>
    586         <Filename Value="Forms/UMapForm.pas"/>
    587         <IsPartOfProject Value="True"/>
    588         <ComponentName Value="MapForm"/>
    589         <HasResources Value="True"/>
    590         <ResourceBaseClass Value="Form"/>
    591         <UnitName Value="UMapForm"/>
    592         <WindowIndex Value="0"/>
    593         <TopLine Value="14"/>
    594         <CursorPos X="19" Y="32"/>
    595         <UsageCount Value="68"/>
    596       </Unit63>
    597       <Unit64>
    598         <Filename Value="../../PascalClassLibrary/CoolTranslator/ULanguages.pas"/>
    599         <UnitName Value="ULanguages"/>
    600         <WindowIndex Value="0"/>
    601         <TopLine Value="3"/>
    602         <CursorPos X="14" Y="20"/>
    603         <UsageCount Value="19"/>
    604       </Unit64>
    605       <Unit65>
    606         <Filename Value="../../PascalClassLibrary/CoolTranslator/UCoolTranslator.pas"/>
    607         <UnitName Value="UCoolTranslator"/>
    608         <WindowIndex Value="0"/>
    609         <TopLine Value="31"/>
    610         <CursorPos X="39" Y="33"/>
    611         <UsageCount Value="19"/>
    612       </Unit65>
    613       <Unit66>
    614         <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
    615         <UnitName Value="ComCtrls"/>
    616         <WindowIndex Value="0"/>
    617         <TopLine Value="1206"/>
    618         <CursorPos X="3" Y="1223"/>
    619         <UsageCount Value="6"/>
    620       </Unit66>
    621       <Unit67>
    622         <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/objpas/classes/classesh.inc"/>
    623         <WindowIndex Value="0"/>
    624         <TopLine Value="1508"/>
    625         <CursorPos X="17" Y="1512"/>
    626         <UsageCount Value="9"/>
    627       </Unit67>
    628       <Unit68>
    629         <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/unix/tthread.inc"/>
    630         <WindowIndex Value="0"/>
    631         <TopLine Value="1"/>
    632         <CursorPos X="33" Y="15"/>
    633         <UsageCount Value="9"/>
    634       </Unit68>
    635       <Unit69>
    636         <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/inc/threadh.inc"/>
    637         <WindowIndex Value="0"/>
    638         <TopLine Value="50"/>
    639         <CursorPos X="5" Y="67"/>
    640         <UsageCount Value="9"/>
    641       </Unit69>
    642       <Unit70>
    643         <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/inc/thread.inc"/>
    644         <WindowIndex Value="0"/>
    645         <TopLine Value="164"/>
    646         <CursorPos X="27" Y="167"/>
    647         <UsageCount Value="9"/>
    648       </Unit70>
    649       <Unit71>
    650         <Filename Value="/usr/lib64/lazarus/lcl/graphics.pp"/>
    651         <UnitName Value="Graphics"/>
    652         <WindowIndex Value="0"/>
    653         <TopLine Value="38"/>
    654         <CursorPos X="17" Y="52"/>
    655         <UsageCount Value="11"/>
    656       </Unit71>
    657       <Unit72>
    658         <Filename Value="/usr/lib64/lazarus/lcl/graphtype.pp"/>
    659         <UnitName Value="GraphType"/>
    660         <WindowIndex Value="0"/>
    661         <TopLine Value="25"/>
    662         <CursorPos X="3" Y="39"/>
    663         <UsageCount Value="11"/>
    664       </Unit72>
    665       <Unit73>
    666         <Filename Value="Forms/ugameresultsform.pas"/>
    667         <ComponentName Value="GameResultsForm"/>
    668         <ResourceBaseClass Value="Form"/>
    669         <UnitName Value="UGameResultsForm"/>
    670         <WindowIndex Value="0"/>
    671         <TopLine Value="1"/>
    672         <CursorPos X="19" Y="1"/>
    673         <UsageCount Value="25"/>
    674       </Unit73>
    675       <Unit74>
    676         <Filename Value="/usr/lib64/lazarus/components/codetools/codetoolsstrconsts.pas"/>
    677         <UnitName Value="CodeToolsStrConsts"/>
    678         <WindowIndex Value="0"/>
    679         <TopLine Value="267"/>
    680         <CursorPos X="64" Y="292"/>
    681         <UsageCount Value="10"/>
    682       </Unit74>
    683       <Unit75>
    684         <Filename Value="/usr/lib64/lazarus/lcl/include/customform.inc"/>
    685         <WindowIndex Value="0"/>
    686         <TopLine Value="2095"/>
    687         <CursorPos X="11" Y="2110"/>
    688         <UsageCount Value="13"/>
    689       </Unit75>
    690       <Unit76>
    691         <Filename Value="/usr/share/fpcsrc/rtl/inc/systemh.inc"/>
    692         <WindowIndex Value="0"/>
    693         <TopLine Value="82"/>
    694         <CursorPos X="18" Y="95"/>
    695         <UsageCount Value="10"/>
    696       </Unit76>
    697       <Unit77>
    698         <Filename Value="/usr/lib64/lazarus/lcl/interfaces/gtk2/gtk2devicecontext.inc"/>
    699         <WindowIndex Value="0"/>
    700         <TopLine Value="1195"/>
    701         <CursorPos X="48" Y="1205"/>
    702         <UsageCount Value="9"/>
    703       </Unit77>
    704       <Unit78>
    705         <Filename Value="Forms/UDebugForm.pas"/>
    706         <IsPartOfProject Value="True"/>
    707         <ComponentName Value="DebugForm"/>
    708         <ResourceBaseClass Value="Form"/>
    709         <UnitName Value="UDebugForm"/>
    710         <WindowIndex Value="0"/>
    711         <TopLine Value="4"/>
    712         <CursorPos X="15" Y="18"/>
    713         <UsageCount Value="28"/>
    714         <LoadedDesigner Value="True"/>
    715       </Unit78>
    716       <Unit79>
    717         <Filename Value="Forms/UGameResultsForm.pas"/>
    718         <HasResources Value="True"/>
    719         <UnitName Value="UGameResultsForm"/>
    720         <WindowIndex Value="0"/>
    721         <TopLine Value="1"/>
    722         <CursorPos X="34" Y="11"/>
    723         <UsageCount Value="27"/>
    724       </Unit79>
    725       <Unit80>
    726         <Filename Value="/usr/share/fpcsrc/rtl/inc/objpash.inc"/>
    727         <WindowIndex Value="0"/>
    728         <TopLine Value="171"/>
    729         <CursorPos X="23" Y="185"/>
    730         <UsageCount Value="13"/>
    731       </Unit80>
    732       <Unit81>
    733         <Filename Value="/usr/share/fpcsrc/rtl/inc/objpas.inc"/>
    734         <WindowIndex Value="0"/>
    735         <TopLine Value="149"/>
    736         <CursorPos X="9" Y="154"/>
    737         <UsageCount Value="13"/>
    738       </Unit81>
    739       <Unit82>
    740         <Filename Value="/usr/lib64/lazarus/lcl/stringhashlist.pas"/>
    741         <UnitName Value="StringHashList"/>
    742         <WindowIndex Value="0"/>
    743         <TopLine Value="37"/>
    744         <CursorPos X="14" Y="51"/>
    745         <UsageCount Value="10"/>
    746       </Unit82>
    747       <Unit83>
    748         <Filename Value="Components/CoolTranslator/UCoolTranslator.pas"/>
    749         <UnitName Value="UCoolTranslator"/>
    750         <WindowIndex Value="0"/>
    751         <TopLine Value="116"/>
    752         <CursorPos X="100" Y="141"/>
    753         <UsageCount Value="10"/>
    754       </Unit83>
    755       <Unit84>
    756         <Filename Value="Forms/UDebugForm.pas"/>
    757         <ComponentName Value="DebugForm"/>
    758         <ResourceBaseClass Value="Form"/>
    759         <UnitName Value="UDebugForm"/>
    760         <WindowIndex Value="0"/>
    761         <TopLine Value="1"/>
    762         <CursorPos X="51" Y="22"/>
    763         <UsageCount Value="20"/>
    764       </Unit84>
    765       <Unit85>
    766         <Filename Value="Forms/UGameResultForm.pas"/>
    767         <IsPartOfProject Value="True"/>
    768         <ComponentName Value="GameResultForm"/>
    769         <ResourceBaseClass Value="Form"/>
    770         <UnitName Value="UGameResultForm"/>
    771         <WindowIndex Value="0"/>
    772         <TopLine Value="1"/>
    773         <CursorPos X="21" Y="26"/>
    774         <UsageCount Value="20"/>
    775       </Unit85>
    776       <Unit86>
    777         <Filename Value="Components/Common/Common.pas"/>
    778         <UnitName Value="Common"/>
    779         <WindowIndex Value="0"/>
    780         <TopLine Value="1"/>
    781         <CursorPos X="56" Y="9"/>
    782         <UsageCount Value="10"/>
    783       </Unit86>
    784       <Unit87>
    785         <Filename Value="Components/Common/UCommon.pas"/>
    786         <UnitName Value="UCommon"/>
    787         <WindowIndex Value="0"/>
    788         <TopLine Value="1"/>
    789         <CursorPos X="1" Y="1"/>
    790         <UsageCount Value="10"/>
    791       </Unit87>
    792170    </Units>
    793     <JumpHistory Count="18" HistoryIndex="17">
    794       <Position1>
    795         <Filename Value="UCore.pas"/>
    796         <Caret Line="1590" Column="31" TopLine="1579"/>
    797       </Position1>
    798       <Position2>
    799         <Filename Value="UCore.pas"/>
    800         <Caret Line="927" Column="35" TopLine="914"/>
    801       </Position2>
    802       <Position3>
    803         <Filename Value="UCore.pas"/>
    804         <Caret Line="948" Column="5" TopLine="925"/>
    805       </Position3>
    806       <Position4>
    807         <Filename Value="UCore.pas"/>
    808         <Caret Line="933" Column="90" TopLine="925"/>
    809       </Position4>
    810       <Position5>
    811         <Filename Value="UCore.pas"/>
    812         <Caret Line="926" Column="10" TopLine="911"/>
    813       </Position5>
    814       <Position6>
    815         <Filename Value="UCore.pas"/>
    816         <Caret Line="924" Column="1" TopLine="911"/>
    817       </Position6>
    818       <Position7>
    819         <Filename Value="UCore.pas"/>
    820         <Caret Line="1307" Column="15" TopLine="1294"/>
    821       </Position7>
    822       <Position8>
    823         <Filename Value="UCore.pas"/>
    824         <Caret Line="1599" Column="7" TopLine="1583"/>
    825       </Position8>
    826       <Position9>
    827         <Filename Value="UCore.pas"/>
    828         <Caret Line="1481" Column="13" TopLine="1454"/>
    829       </Position9>
    830       <Position10>
    831         <Filename Value="UCore.pas"/>
    832         <Caret Line="269" Column="13" TopLine="266"/>
    833       </Position10>
    834       <Position11>
    835         <Filename Value="UCore.pas"/>
    836         <Caret Line="1599" Column="5" TopLine="1583"/>
    837       </Position11>
    838       <Position12>
    839         <Filename Value="UCore.pas"/>
    840         <Caret Line="1593" Column="7" TopLine="1581"/>
    841       </Position12>
    842       <Position13>
    843         <Filename Value="UCore.pas"/>
    844         <Caret Line="1594" Column="32" TopLine="1581"/>
    845       </Position13>
    846       <Position14>
    847         <Filename Value="UCore.pas"/>
    848         <Caret Line="1591" Column="7" TopLine="1582"/>
    849       </Position14>
    850       <Position15>
    851         <Filename Value="UCore.pas"/>
    852         <Caret Line="1593" Column="9" TopLine="1582"/>
    853       </Position15>
    854       <Position16>
    855         <Filename Value="UCore.pas"/>
    856         <Caret Line="1536" Column="26" TopLine="1533"/>
    857       </Position16>
    858       <Position17>
    859         <Filename Value="UCore.pas"/>
    860         <Caret Line="1591" Column="9" TopLine="1582"/>
    861       </Position17>
    862       <Position18>
    863         <Filename Value="UCore.pas"/>
    864         <Caret Line="1480" Column="13" TopLine="1467"/>
    865       </Position18>
    866     </JumpHistory>
    867171  </ProjectOptions>
    868172  <CompilerOptions>
    … …  
    876180      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    877181    </SearchPaths>
     182    <Parsing>
     183      <SyntaxOptions>
     184        <SyntaxMode Value="Delphi"/>
     185        <CStyleOperator Value="False"/>
     186        <AllowLabel Value="False"/>
     187        <CPPInline Value="False"/>
     188      </SyntaxOptions>
     189    </Parsing>
    878190    <CodeGeneration>
    879       <SmartLinkUnit Value="True"/>
    880191      <Checks>
    881192        <IOChecks Value="True"/>
    … …  
    890201        <UseHeaptrc Value="True"/>
    891202      </Debugging>
    892       <LinkSmart Value="True"/>
    893203      <Options>
    894204        <Win32>
    … …  
    918228    </Exceptions>
    919229  </Debugging>
    920   <EditorMacros Count="0"/>
    921230</CONFIG>

  • trunk/tunneler.lpr

    r31 r32  
    3131  Application.CreateForm(TMapForm, MapForm);
    3232  Application.CreateForm(TNewGameForm, NewGameForm);
     33  Application.CreateForm(TDebugForm, DebugForm);
     34  Application.CreateForm(TGameResultForm, GameResultForm);
    3335  {$IFDEF DEBUG}
    34   Application.CreateForm(TDebugForm, DebugForm);
    3536  {$ENDIF}
    36   Application.CreateForm(TGameResultForm, GameResultForm);
    3737  Application.Run;
    3838end.
Note: See TracChangeset for help on using the changeset viewer.