Subversion Repositories spacemission

Rev

Rev 66 | Rev 79 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 66 Rev 72
Line 3... Line 3...
3 
interface
 3 
interface
4 
 
 4 
 
5 
uses
 5 
uses
6 
  Classes;
 6 
  Classes;
7 
 
 7 
 
8 
const
 - 
 
9 
  NumEnemyTypes = 7;
 - 
 
10 
 
 - 
 
11 
type
 8 
type
- 
 
 9 
  // If you add a new enemy or item, please edit
- 
 
 10 
  // - ComLevelReader.pas : EnemyTypeHasLives()
- 
 
 11 
  // - GamMain.pas : TMainForm.SceneMain
- 
 
 12 
  // - LevMain.pas : * GUI
- 
 
 13 
  //                 * TMainForm.SelectedEnemyType
- 
 
 14 
  //                 * TEnemy.Create
- 
 
 15 
  //                 * TMainForm.DXDrawMouseMove
- 
 
 16 
  //                 * TMainForm.DXDrawMouseDown
12 
  TEnemyType = (
 17 
  TEnemyType = (
13 
    etUnknown,
 18 
    etUnknown,
14 
    etEnemyAttacker,
 19 
    etEnemyAttacker,
15 
    etEnemyAttacker2,
 20 
    etEnemyAttacker2,
16 
    etEnemyAttacker3,
 21 
    etEnemyAttacker3,
17 
    etEnemyMeteor,
 22 
    etEnemyMeteor,
18 
    etEnemyUFO,
 23 
    etEnemyUFO,
19 
    etEnemyUFO2,
 24 
    etEnemyUFO2,
20 
    etEnemyBoss
 25 
    etEnemyBoss,
- 
 
 26 
    etItemMedikit
21 
  );
 27 
  );
22 
 
 28 
 
23 
  TEnemyAdvent = record
 29 
  TEnemyAdvent = record
24 
    enemyType: TEnemyType;
 30 
    enemyType: TEnemyType;
25 
    x: integer;
 31 
    x: integer;
Line 78... Line 84...
78 
    found: boolean;
 84 
    found: boolean;
79 
  end;
 85 
  end;
80 
 
 86 
 
81 
function GetLevelFileName(lev: integer; forceuserdir: boolean): TLevelFile;
 87 
function GetLevelFileName(lev: integer; forceuserdir: boolean): TLevelFile;
82 
 
 88 
 
- 
 
 89 
function EnemyTypeHasLives(et: TEnemyType): boolean;
- 
 
 90 
 
83 
implementation
 91 
implementation
84 
 
 92 
 
85 
uses
 93 
uses
86 
  SysUtils, StrUtils, Global, Windows, System.Types;
 94 
  SysUtils, StrUtils, Global, Windows, System.Types;
87 
 
 95 
 
Line 722... Line 730...
722 
  finally
 730 
  finally
723 
    FreeAndNil(sl);
 731 
    FreeAndNil(sl);
724 
  end;
 732 
  end;
725 
end;
 733 
end;
726 
 
 734 
 
- 
 
 735 
function EnemyTypeHasLives(et: TEnemyType): boolean;
- 
 
 736 
begin
- 
 
 737 
  result := (et <> etEnemyMeteor) and (et <> etItemMedikit);
- 
 
 738 
end;
- 
 
 739 
 
727 
end.
 740 
end.