Subversion Repositories spacemission

Rev

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

Rev Author Line No. Line
2 daniel-mar 1 
unit Global;
2 
 
3 
interface
4 
 
5 
const
28 daniel-mar 6 
  ProgramVersion = '1.2';
31 daniel-mar 7 
  RasterW = 48;
8 
  RasterH = 32;
40 daniel-mar 9 
  MaxPossibleEnemyLives = 999;
10 
  MaxPossibleLevels = 9999;
2 daniel-mar 11 
 
31 daniel-mar 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 = (
34 daniel-mar 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]
31 daniel-mar 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 
 
2 daniel-mar 63 
implementation
64 
 
65 
uses
66 
  SysUtils;
67 
 
31 daniel-mar 68 
function OwnDirectory: string;
2 daniel-mar 69 
begin
70 
  result := extractfilepath(paramstr(0));
71 
end;
72 
 
73 
end.