Subversion Repositories spacemission

Rev

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