Subversion Repositories spacemission

Rev

Rev 34 | Rev 47 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. unit Global;
  2.  
  3. interface
  4.  
  5. const
  6.   ProgramVersion = '1.2';
  7.   RasterW = 48;
  8.   RasterH = 32;
  9.   MaxPossibleEnemyLives = 999;
  10.   MaxPossibleLevels = 9999;
  11.  
  12. type
  13.   // DirectX\Music.dxm
  14.   TSpaceMissionMusicTrack = (
  15.     smmNone,
  16.     smmBoss,   // dxmusic.Midis[0]
  17.     smmGame,   // dxmusic.Midis[1]
  18.     smmScene,  // dxmusic.Midis[2]
  19.     smmTitle   // dxmusic.Midis[3]
  20.   );
  21.  
  22.   // DirectX\Graphics.dxg
  23.   TSpaceMissionGraphicSprite = (
  24.     smgNone,
  25.     smgEnemyDisk,         // ImageList.Items.Item[0]
  26.     smgEnemyAttacker,     // ImageList.Items.Item[1]
  27.     smgEnemyBoss,         // ImageList.Items.Item[2]
  28.     smgBounce,            // ImageList.Items.Item[3]
  29.     smgMachine,           // ImageList.Items.Item[4]
  30.     smgEnemyAttacker2,    // ImageList.Items.Item[5]
  31.     smgEnemyAttacker3,    // ImageList.Items.Item[6]
  32.     smgEnemyMeteor,       // ImageList.Items.Item[7]
  33.     smgBounce2,           // ImageList.Items.Item[8]
  34.     smgEnemyDisk2,        // ImageList.Items.Item[9]
  35.     smgLogo,              // ImageList.Items.Item[10]
  36.     smgExplosion,         // ImageList.Items.Item[11]
  37.     smgBackgroundPlanet1, // ImageList.Items.Item[12]
  38.     smgMatrix,            // ImageList.Items.Item[13]
  39.     smgStar1,             // ImageList.Items.Item[14]
  40.     smgStar2,             // ImageList.Items.Item[15]
  41.     smgStar3,             // ImageList.Items.Item[16]
  42.     smgBackgroundBlue,    // ImageList.Items.Item[17]
  43.     smgBackgroundRed,     // ImageList.Items.Item[18]
  44.     smgBackgroundYellow,  // ImageList.Items.Item[19]
  45.     smgHintergrundRot     // ImageList.Items.Item[20]
  46.   );
  47.  
  48.   // DirectX\Sound.dxw
  49.   TSpaceMissionSound = (
  50.     smsNone,
  51.     smsSceneMov,      // WaveList.Items.Item[0]
  52.     smsExplosion,     // WaveList.Items.Item[1]
  53.     smsHit,           // WaveList.Items.Item[2]
  54.     smsShoot,         // WaveList.Items.Item[3]
  55.     smsDanger,        // WaveList.Items.Item[4]
  56.     smsEnde,          // WaveList.Items.Item[5]
  57.     smsFrage,         // WaveList.Items.Item[6]
  58.     smsLevIntro       // WaveList.Items.Item[7]
  59.   );
  60.  
  61. function OwnDirectory: string;
  62.  
  63. implementation
  64.  
  65. uses
  66.   SysUtils;
  67.  
  68. function OwnDirectory: string;
  69. begin
  70.   result := extractfilepath(paramstr(0));
  71. end;
  72.  
  73. end.
  74.