Subversion Repositories spacemission

Rev

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

Rev 30 Rev 31
Line 51... Line 51...
51 
const
 51 
const
52 
  DefaultLevelLength = 1200;
 52 
  DefaultLevelLength = 1200;
53 
 
 53 
 
54 
function GetLevelFileName(lev: integer): string;
 54 
function GetLevelFileName(lev: integer): string;
55 
begin
 55 
begin
56 
  result := FDirectory+'Levels\Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files
 56 
  result := OwnDirectory+'Levels\Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files
57 
  if not FileExists(Result) then
 57 
  if not FileExists(Result) then
58 
    result := FDirectory+'Levels\Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files
 58 
    result := OwnDirectory+'Levels\Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files
59 
end;
 59 
end;
60 
 
 60 
 
61 
{ TLevelData }
 61 
{ TLevelData }
62 
 
 62 
 
63 
procedure TLevelData.Clear;
 63 
procedure TLevelData.Clear;
Line 106... Line 106...
106 
procedure TLevelData.AddEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer);
 106 
procedure TLevelData.AddEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer);
107 
begin
 107 
begin
108 
  SetLength(EnemyAdventTable, Length(EnemyAdventTable)+1);
 108 
  SetLength(EnemyAdventTable, Length(EnemyAdventTable)+1);
109 
 
 109 
 
110 
  if enemyType = etEnemyMeteor then lifes := 0;
 110 
  if enemyType = etEnemyMeteor then lifes := 0;
111 
  if x mod 48 <> 0 then raise Exception.Create('X-Koordinate muss ohne Rest durch 48 teilbar sein');
 111 
  if x mod RasterW <> 0 then raise Exception.CreateFmt('X-Koordinate muss ohne Rest durch %d teilbar sein', [RasterW]);
112 
  if y mod 32 <> 0 then raise Exception.Create('Y-Koordinate muss ohne Rest durch 32 teilbar sein');
 112 
  if y mod RasterH <> 0 then raise Exception.CreateFmt('Y-Koordinate muss ohne Rest durch %d teilbar sein', [RasterH]);
113 
 
 113 
 
114 
  EnemyAdventTable[Length(EnemyAdventTable)-1].x         := x;
 114 
  EnemyAdventTable[Length(EnemyAdventTable)-1].x         := x;
115 
  EnemyAdventTable[Length(EnemyAdventTable)-1].y         := y;
 115 
  EnemyAdventTable[Length(EnemyAdventTable)-1].y         := y;
116 
  EnemyAdventTable[Length(EnemyAdventTable)-1].enemyType := enemyType;
 116 
  EnemyAdventTable[Length(EnemyAdventTable)-1].enemyType := enemyType;
117 
  EnemyAdventTable[Length(EnemyAdventTable)-1].lifes     := lifes;
 117 
  EnemyAdventTable[Length(EnemyAdventTable)-1].lifes     := lifes;