Subversion Repositories spacemission

Rev

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