Subversion Repositories spacemission

Rev

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

Rev 20 Rev 24
Line 37... Line 37...
37 
uses
 37 
uses
38 
  SysUtils, StrUtils, Classes, Global;
 38 
  SysUtils, StrUtils, Classes, Global;
39 
 
 39 
 
40 
function GetLevelFileName(lev: integer): string;
 40 
function GetLevelFileName(lev: integer): string;
41 
begin
 41 
begin
42 
  result := FDirectory+'Levels\Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files
 - 
 
43 
  if not FileExists(Result) then
 - 
 
44 
    result := FDirectory+'Levels\Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files
 42 
  result := FDirectory+'Levels\Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files
- 
 
 43 
  if not FileExists(Result) then
- 
 
 44 
    result := FDirectory+'Levels\Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files
45 
end;
 45 
end;
46 
 
 46 
 
47 
{ TLevelData }
 47 
{ TLevelData }
48 
 
 48 
 
49 
procedure TLevelData.Clear;
 49 
procedure TLevelData.Clear;