WebSVN – spacemission – Diff – /ComLevelReader.pas


unit ComLevelReader;
 
interface
 
uses
  Classes;
 
 
 
 
type
  // If you add a new enemy or item, please edit
  // - ComLevelReader.pas : EnemyTypeHasLives()
  // - GamMain.pas : TMainForm.SceneMain
  // - LevMain.pas : * GUI
  //                 * TMainForm.SelectedEnemyType
  //                 * TEnemy.Create
  //                 * TMainForm.DXDrawMouseMove
  //                 * TMainForm.DXDrawMouseDown
  TEnemyType = (
    etUnknown,
    etEnemyAttacker,
    etEnemyAttacker2,
    etEnemyAttacker3,
    etEnemyMeteor,
    etEnemyUFO,
    etEnemyUFO2,
    etEnemyBoss,
    etItemMedikit
  );
 
  TEnemyAdvent = record
    enemyType: TEnemyType;
    x: integer;
    y: integer;
    lifes: integer;
  end;
 
  TLevelData = class(TPersistent)
  strict private
    procedure SortEnemies;
  strict protected
    procedure AssignTo(Dest: TPersistent); override;
  public
    RasterErzwingen: boolean;
    LevelEditorLength: integer;
    LevelName: string;
    LevelAuthor: string;
    EnemyAdventTable: array of TEnemyAdvent;
    function IndexOfEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer): integer;
    procedure AddEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer);
    procedure DeleteEnemy(i: integer); overload;
    procedure DeleteEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer); overload;
    function CountEnemies: integer;
    function HasBoss: boolean;
    procedure Clear;
    procedure LoadFromStrings(sl: TStrings); // version 0.3 - version 1.2 files
    procedure LoadFromFile(filename: string); // version 0.2 - version 1.2 files
    procedure SaveToStrings(sl: TStrings);
    procedure SaveToFile(filename: string);
    destructor Destroy; override;
  end;
 
  TGameMode = (gmUnknown, gmLevels, gmRandom, gmEditor);
 
  TSaveData = class(TPersistent)
  strict protected
    procedure AssignTo(Dest: TPersistent); override;
  public
    Score: integer;
    Life: integer;
    Level: integer;
    GameMode: TGameMode;
    LevelData: TLevelData;
    procedure Clear;
    procedure LoadFromStrings(sl: TStrings);
    procedure LoadFromFile(filename: string);
    procedure SaveToStrings(sl: TStrings);
    procedure SaveToFile(filename: string);
    destructor Destroy; override;
  end;
 
  TLevelFile = record
    levelNumber: integer;
    fileLocation: string;
    isUser: boolean;
    found: boolean;
  end;
 
function GetLevelFileName(lev: integer; forceuserdir: boolean): TLevelFile;
 
function EnemyTypeHasLives(et: TEnemyType): boolean;
 
implementation
 
uses
  SysUtils, StrUtils, Global, Windows, System.Types;
 
const
  // { iso(1) identified-organization(3) dod(6) internet(1) private(4) enterprise(1) 37476 products(2) spacemission(8) file-format(1) lev-sav-v12(1) }
  // https://hosted.oidplus.com/viathinksoft/?goto=oid%3A1.3.6.1.4.1.37476.2.8.1.1
  OID_LEVSAV_VER12 = '1.3.6.1.4.1.37476.2.8.1.1';
 
function GetLevelFileName(lev: integer; forceuserdir: boolean): TLevelFile;
 
  function _GetLevelVerzeichnisSystem: string;
  begin
    // Für die Auslieferungs-Levels
    result := OwnDirectory + 'Levels';
  end;
 
  function _GetLevelVerzeichnisUser: string;
  begin
    try
      result := GetKnownFolderPath(FOLDERID_SavedGames);
    except
      result := '';
    end;
    if result = '' then
    begin
      // Pre Vista
      result := OwnDirectory + 'Levels';
    end
    else
    begin
      result := IncludeTrailingPathDelimiter(result);
      result := result + 'SpaceMission';
    end;
    result := IncludeTrailingPathDelimiter(result);
    ForceDirectories(result);
  end;
 
  function _GetLevelFileNameUser(lev: integer): string;
  var
    old, new: string;
  begin
    new := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisUser)+'Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files
    old := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisUser)+'Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files
    if fileexists(new) then exit(new);
    if fileexists(old) then exit(old);
    exit(new);
  end;
 
  function _GetLevelFileNameSystem(lev: integer): string;
  var
    old, new: string;
  begin
    new := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisSystem)+'Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files
    old := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisSystem)+'Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files
    if fileexists(new) then exit(new);
    if fileexists(old) then exit(old);
    exit(new);
  end;
 
var
  usr, sys: string;
  bfound: boolean;
begin
  result.levelNumber := lev;
  usr := _GetLevelFileNameUser(lev);
  sys := _GetLevelFileNameSystem(lev);
  bfound := fileexists(usr);
  if bfound or forceuserdir then
  begin
    result.isUser := true;
    result.fileLocation := usr;
    result.found := bfound;
    exit;
  end;
  bfound := fileexists(sys);
  if bfound then
  begin
    result.isUser := false;
    result.fileLocation := sys;
    result.found := bfound;
    exit;
  end;
  result.isUser := true;
  result.fileLocation := usr;
  result.found := false;
end;
 
// this is just an example, there are many
// different ways you can implement this
// more efficiently, ie using a TStringBuilder,
// or even modifying the String in-place...
function CollapseSpaces(const S: string): string;
var
  P: PChar;
  AddSpace: Boolean;
begin
  Result := '';
  AddSpace := False;
  P := PChar(S);
  while P^ <> #0 do
  begin
    while CharInSet(P^, [#1..' ']) do Inc(P);
    if P^ = #0 then Exit;
    if AddSpace then
      Result := Result + ' '
    else
      AddSpace := True;
    repeat
      Result := Result + P^;
      Inc(P);
    until P^ <= ' ';
  end;
end;
 
{ TLevelData }
 
procedure TLevelData.AssignTo(Dest: TPersistent);
var
  DestLevelData: TLevelData;
  i: integer;
begin
  DestLevelData := Dest as TLevelData;
  if Assigned(DestLevelData) then
  begin
    DestLevelData.RasterErzwingen := Self.RasterErzwingen;
    DestLevelData.LevelEditorLength := Self.LevelEditorLength;
    DestLevelData.LevelName := Self.LevelName;
    DestLevelData.LevelAuthor := Self.LevelAuthor;
    SetLength(DestLevelData.EnemyAdventTable, Length(Self.EnemyAdventTable));
    for i := 0 to Length(Self.EnemyAdventTable)-1 do
    begin
      DestLevelData.EnemyAdventTable[i] := Self.EnemyAdventTable[i];
    end;
  end
  else
  begin
    inherited;
  end;
end;
 
procedure TLevelData.Clear;
begin
  SetLength(EnemyAdventTable, 0);
  LevelEditorLength := DefaultLevelLength;
  LevelName := '';
  LevelAuthor := '';
end;
 
function TLevelData.CountEnemies: integer;
begin
  result := Length(EnemyAdventTable);
end;
 
procedure TLevelData.DeleteEnemy(i: integer);
var
  j: integer;
begin
  for j := i+1 to CountEnemies-1 do
  begin
    EnemyAdventTable[j-1] := EnemyAdventTable[j];
  end;
  SetLength(EnemyAdventTable, Length(EnemyAdventTable)-1);
end;
 
procedure TLevelData.DeleteEnemy(x, y: integer; enemyType: TEnemyType;
  lifes: integer);
begin
  DeleteEnemy(IndexOfEnemy(x, y, enemyType, lifes));
end;
 
destructor TLevelData.Destroy;
begin
  Clear;
  inherited;
end;
 
function TLevelData.HasBoss: boolean;
var
  i: integer;
begin
  for i := 0 to Length(EnemyAdventTable) - 1 do
  begin
    if EnemyAdventTable[i].enemyType = etEnemyBoss then
    begin
      result := true;
      exit;
    end;
  end;
  result := false;
end;
 
procedure TLevelData.AddEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer);
begin
  SetLength(EnemyAdventTable, Length(EnemyAdventTable)+1);
 
  if enemyType = etEnemyMeteor then lifes := 0;
  if RasterErzwingen then
  begin
    if x mod RasterW <> 0 then raise Exception.CreateFmt('X-Koordinate muss ohne Rest durch %d teilbar sein', [RasterW]);
    if y mod RasterH <> 0 then raise Exception.CreateFmt('Y-Koordinate muss ohne Rest durch %d teilbar sein', [RasterH]);
  end;
  if lifes > MaxPossibleEnemyLives then lifes := MaxPossibleEnemyLives;
 
  EnemyAdventTable[Length(EnemyAdventTable)-1].x         := x;
  EnemyAdventTable[Length(EnemyAdventTable)-1].y         := y;
  EnemyAdventTable[Length(EnemyAdventTable)-1].enemyType := enemyType;
  EnemyAdventTable[Length(EnemyAdventTable)-1].lifes     := lifes;
end;
 
function TLevelData.IndexOfEnemy(x, y: integer; enemyType: TEnemyType;
  lifes: integer): integer;
var
  i: integer;
begin
  for i := 0 to Length(EnemyAdventTable) - 1 do
  begin
    if (EnemyAdventTable[i].x = x) and
       (EnemyAdventTable[i].y = y) and
       (EnemyAdventTable[i].enemyType = enemyType) and
       (EnemyAdventTable[i].lifes = lifes) then
    begin
      result := i;
      exit;
    end;
  end;
  result := -1;
end;
 
procedure TLevelData.LoadFromStrings(sl: TStrings);
var
  curline: integer;
  z, act: integer;
  sl2: TStringList;
  tmpX, tmpY, tmpLifes: integer;
  tmpEnemy: TEnemyType;
  ergebnis: string;
  ary: TStringDynArray;
  sLine: string;
begin
  Clear;
 
  LevelEditorLength := DefaultLevelLength;
  LevelName := '';
  LevelAuthor := '';
 
  if sl.Strings[0] = '; SpaceMission 0.3' then // do not localize
  begin
    {$REGION 'Backwards compatibility level format 0.3 (convert to 0.4)'}
    sl.Strings[0] := '; SpaceMission 0.4'; // do not localize
    sl.Insert(1, '; LEV-File'); // do not localize
    {$ENDREGION}
  end;
 
  if (sl.Strings[0] = '; SpaceMission 0.4') and // do not localize
     (sl.Strings[1] = '; LEV-File') then // do not localize
  begin
    {$REGION 'Backwards compatibility level format 0.4 (convert to 1.0)'}
    sl2 := TStringList.Create;
    try
      z := 0;
      act := 0;
      while z < sl.Count do
      begin
        inc(z);
        if z > 2 then inc(act);
        if act = 5 then act := 1;
        ergebnis := sl.Strings[z-1];
        if ergebnis = '; SpaceMission 0.4' then
          sl2.Add('; SpaceMission 1.0')
        else
        begin
          if (ergebnis = '30000') and (z = 3) then
            sl2.Add(IntTostr(DefaultLevelLength))
          else
          begin
            //if not (((ergebnis = '0') and (z = 4)) or ((ergebnis = '-624') and (z = 5)) or ((ergebnis = '222') and (z = 6)) or ((ergebnis = '3') and (z = 7))) then
            if (z < 4) or (z > 7) then
            begin
              if act = 4 then
                sl2.Add(inttostr(strtoint(ergebnis) + 32 - (5 * (strtoint(ergebnis) div 37))))
              else
                sl2.Add(Ergebnis);
            end;
          end;
        end;
      end;
      sl.Text := sl2.Text;
    finally
      FreeAndNil(sl2);
    end;
    {$ENDREGION}
  end;
 
  if (sl.Strings[0] = '; SpaceMission 1.0') and // do not localize
     (sl.Strings[1] = '; LEV-File') then // do not localize
  begin
    {$REGION 'Level format 1.0'}
    LevelEditorLength := StrToInt(sl.Strings[2]);
    curline := 3;
    while curline < sl.Count do
    begin
      tmpEnemy := TEnemyType(strtoint(sl.Strings[curline]));
      Inc(curline);
      tmpX := strtoint(sl.Strings[curline]);
      Inc(curline);
      tmpY := strtoint(sl.Strings[curline]);
      Inc(curline);
      tmpLifes := strtoint(sl.Strings[curline]);
      Inc(curline);
      AddEnemy(tmpX, tmpY, tmpEnemy, tmpLifes);
    end;
    {$ENDREGION}
  end
  else if (SameText(sl.Strings[0], '['+OID_LEVSAV_VER12+']')) then
  begin
    {$REGION 'Level format 1.2'}
    for curline := 1 to sl.Count-1 do
    begin
      sLine := sl.Strings[curline].Trim;
      if (sLine = '') or (Copy(sLine, 1, 1) = ';') then continue;
      ary := SplitString(CollapseSpaces(sLine), ' ');
      if SameText(ary[0], 'Width') then // do not localize
      begin
        LevelEditorLength := StrToInt(ary[1]);
        if (Length(ary) > 2) and (Copy(ary[2], 1, 1) <> ';') then
          raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);
      end
      else if SameText(ary[0], 'Name') then // do not localize
      begin
        LevelName := Trim(Copy(sLine, Length(ary[0])+2, Length(sLine)));
      end
      else if SameText(ary[0], 'Author') then // do not localize
      begin
        LevelAuthor := Trim(Copy(sLine, Length(ary[0])+2, Length(sLine)));
      end
      else if SameText(ary[0], 'Enemy') then // do not localize
      begin
        tmpEnemy := TEnemyType(strtoint(ary[1]));
        tmpX     := strtoint(ary[2]);
        tmpY     := strtoint(ary[3]);
        tmpLifes := strtoint(ary[4]);
        if (Length(ary) > 5) and (Copy(ary[5], 1, 1) <> ';') then
          raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);
        AddEnemy(tmpX, tmpY, tmpEnemy, tmpLifes);
      end;
    end;
    {$ENDREGION}
  end
  else
  begin
    raise Exception.Create('Level-Format nicht unterstützt oder Datei ist beschädigt');
  end;
 
  SortEnemies; // Sortierung nach X-Koordinate ist sehr wichtig für das Spiel!
end;
 
procedure TLevelData.LoadFromFile(filename: string);
var
  sl: TStringList;
  i, j: integer;
  temp: string;
  m: array[1..6] of tstrings;
begin
  sl := TStringList.Create;
  try
    if EndsText('A1.lev', filename) then // do not localize
    begin
      {$REGION 'Backwards compatibility level format 0.2 (split into 5-6 files; convert to 0.3)'}
      m[1] := TStringList.create;
      m[2] := TStringList.create;
      m[3] := TStringList.create;
      m[4] := TStringList.create;
      m[5] := TStringList.create;
      m[6] := TStringList.create;
      try
        for i := 1 to 6 do
        begin
          filename[Length(filename)-4] := IntToStr(i)[1]; // ...A2.sav, ...A3.sav, etc.
          if FileExists(filename) then
            m[i].loadfromfile(filename);
        end;
        m[1].strings[0] := '-624';
        if m[6].Text = '' then m[6].Text := '30000';
 
        sl.Add('; SpaceMission 0.3'); // do not localize
        sl.Add(temp);
        for j := 0 to m[1].count-2 do
        begin
          for i := 0 to m[1].count-2 do
          begin
            if strtoint(m[1].strings[i]) > strtoint(m[1].strings[i+1]) then
            begin
              m[1].exchange(i, i+1);
              m[2].exchange(i, i+1);
              m[3].exchange(i, i+1);
              m[4].exchange(i, i+1);
              m[5].exchange(i, i+1);
            end;
          end;
        end;
        for i := 0 to m[3].count-1 do
        begin
          for j := 1 to 4 do
          begin
            if j = 1 then sl.Add(m[3].strings[i]);
            if j = 2 then sl.Add(m[1].strings[i]);
            if j = 3 then sl.Add(m[2].strings[i]);
            if j = 4 then sl.Add(m[4].strings[i]);
          end;
        end;
      finally
        FreeAndNil(m[1]);
        FreeAndNil(m[2]);
        FreeAndNil(m[3]);
        FreeAndNil(m[4]);
        FreeAndNil(m[5]);
        FreeAndNil(m[6]);
      end;
      {$ENDREGION}
    end
    else
    begin
      sl.LoadFromFile(filename);
    end;
 
    LoadFromStrings(sl);
  finally
    FreeAndNil(sl);
  end;
end;
 
procedure TLevelData.SaveToStrings(sl: TStrings);
var
  i: integer;
begin
  sl.Clear;
  sl.Add('['+OID_LEVSAV_VER12+']');
  if LevelName   <> '' then sl.Add('Name   ' + LevelName); // do not localize
  if LevelAuthor <> '' then sl.Add('Author ' + LevelAuthor); // do not localize
  sl.Add('Width  ' + IntToStr(LevelEditorLength)); // do not localize
  SortEnemies;
  sl.Add(';      Type   XCoord YCoord Lives');
  for i := 0 to Length(EnemyAdventTable)-1 do
  begin
    sl.Add(Trim(
      'Enemy'.PadRight(6, ' ')+ // do not localize
      ' '+
      IntToStr(Ord(EnemyAdventTable[i].enemyType)).PadRight(6, ' ')+
      ' '+
      IntToStr(EnemyAdventTable[i].x).PadRight(6, ' ')+
      ' '+
      IntToStr(EnemyAdventTable[i].y).PadRight(6, ' ')+
      ' '+
      IntToStr(EnemyAdventTable[i].lifes).PadRight(6, ' ')+
      ' '
    ));
  end;
end;
 
procedure TLevelData.SaveToFile(filename: string);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    SaveToStrings(sl);
    sl.SaveToFile(filename);
  finally
    FreeAndNil(sl);
  end;
end;
 
procedure TLevelData.SortEnemies;
var
  i, n: integer;
  e: TEnemyAdvent;
begin
  // Bubble Sort Algorithmus
  for n := Length(EnemyAdventTable) downto 2 do
  begin
    for i := 0 to n - 2 do
    begin
      if
        // Sort by X-coord (important for the game!)
        (EnemyAdventTable[i].x > EnemyAdventTable[i+1].x)
        or
        // Sort by Y-coord (just cosmetics)
        ((EnemyAdventTable[i].x = EnemyAdventTable[i+1].x) and (EnemyAdventTable[i].y > EnemyAdventTable[i+1].y))
      then
      begin
        e := EnemyAdventTable[i];
        EnemyAdventTable[i] := EnemyAdventTable[i + 1];
        EnemyAdventTable[i + 1] := e;
      end;
    end;
  end;
end;
 
{ TSaveData }
 
procedure TSaveData.AssignTo(Dest: TPersistent);
var
  DestSaveData: TSaveData;
begin
  DestSaveData := Dest as TSaveData;
  if Assigned(DestSaveData) then
  begin
    DestSaveData.Score := Self.Score;
    DestSaveData.Life := Self.Life;
    DestSaveData.Level := Self.Level;
    DestSaveData.GameMode := Self.GameMode;
    if not Assigned(DestSaveData.LevelData) then DestSaveData.LevelData := TLevelData.Create;
    DestSaveData.LevelData.Assign(Self.LevelData);
  end
  else
  begin
    inherited;
  end;
end;
 
procedure TSaveData.Clear;
begin
  Score := 0;
  Life := 0;
  Level := 0;
  GameMode := gmUnknown;
  FreeAndNil(LevelData);
end;
 
destructor TSaveData.Destroy;
begin
  Clear;
  inherited;
end;
 
procedure TSaveData.SaveToStrings(sl: TStrings);
var
  sl2: TStringList;
begin
  sl2 := TStringList.Create;
  try
    sl.Add('['+OID_LEVSAV_VER12+']');
    sl.Add('Score  ' + IntToStr(Score)); // do not localize
    sl.Add('Lives  ' + IntToStr(Life)); // do not localize
    sl.Add('Level  ' + IntToStr(Level)); // do not localize
    sl.Add('Mode   ' + IntToStr(Ord(GameMode))); // do not localize
    LevelData.SaveToStrings(sl2);
    sl2.Delete(0); // Delete additional level signature
    sl.AddStrings(sl2);
  finally
    FreeAndNil(sl2);
  end;
end;
 
procedure TSaveData.LoadFromStrings(sl: TStrings);
var
  curline: Integer;
  ary: TStringDynArray;
  sLine: string;
begin
  if (sl.Strings[0] = '; SpaceMission 1.0') and // do not localize
     (sl.Strings[1] = '; SAV-File') then // do not localize
  begin
    Score    := StrToInt(sl.Strings[2]);
    Life     := StrToInt(sl.Strings[3]);
    Level    := StrToInt(sl.Strings[4]);
    GameMode := TGameMode(StrToInt(sl.Strings[5]));
    if Assigned(LevelData) then FreeAndNil(LevelData);
  end
  else if SameText(sl.Strings[0], '['+OID_LEVSAV_VER12+']') then
  begin
    Score    := 0;
    Life     := 0;
    Level    := 0;
    GameMode := gmUnknown;
    for curline := 1 to sl.Count-1 do
    begin
      sLine := sl.Strings[curline].Trim;
      if (sLine = '') or (Copy(sLine, 1, 1) = ';') then continue;
      ary := SplitString(CollapseSpaces(sLine), ' ');
      if SameText(ary[0], 'Score') then // do not localize
      begin
        Score := StrToInt(ary[1]);
        if (Length(ary) > 2) and (Copy(ary[2], 1, 1) <> ';') then
          raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);
      end
      else if SameText(ary[0], 'Lives') then // do not localize
      begin
        Life := StrToInt(ary[1]);
        if (Length(ary) > 2) and (Copy(ary[2], 1, 1) <> ';') then
          raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);
      end
      else if SameText(ary[0], 'Level') then // do not localize
      begin
        Level := StrToInt(ary[1]);
        if (Length(ary) > 2) and (Copy(ary[2], 1, 1) <> ';') then
          raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);
      end
      else if SameText(ary[0], 'Mode') then // do not localize
      begin
        GameMode := TGameMode(StrToInt(ary[1]));
        if (Length(ary) > 2) and (Copy(ary[2], 1, 1) <> ';') then
          raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);
      end;
    end;
    if Assigned(LevelData) then FreeAndNil(LevelData);
    LevelData := TLevelData.Create;
    LevelData.RasterErzwingen := false;
    LevelData.LoadFromStrings(sl);
  end
  else
  begin
    raise Exception.Create('Spielstand-Format nicht unterstützt oder Datei beschädigt');
  end;
end;
 
procedure TSaveData.LoadFromFile(filename: string);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(filename);
    LoadFromStrings(sl);
  finally
    FreeAndNil(sl);
  end;
end;
 
procedure TSaveData.SaveToFile(filename: string);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    SaveToStrings(sl);
    sl.SaveToFile(filename);
  finally
    FreeAndNil(sl);
  end;
end;
 
function EnemyTypeHasLives(et: TEnemyType): boolean;
begin
  result := (et <> etEnemyMeteor) and (et <> etItemMedikit);
end;
 
end.
 

Rev 66	Rev 72
1	unit ComLevelReader;	1	unit ComLevelReader;
2		2
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;
26	y: integer;	32	y: integer;
27	lifes: integer;	33	lifes: integer;
28	end;	34	end;
29		35
30	TLevelData = class(TPersistent)	36	TLevelData = class(TPersistent)
31	strict private	37	strict private
32	procedure SortEnemies;	38	procedure SortEnemies;
33	strict protected	39	strict protected
34	procedure AssignTo(Dest: TPersistent); override;	40	procedure AssignTo(Dest: TPersistent); override;
35	public	41	public
36	RasterErzwingen: boolean;	42	RasterErzwingen: boolean;
37	LevelEditorLength: integer;	43	LevelEditorLength: integer;
38	LevelName: string;	44	LevelName: string;
39	LevelAuthor: string;	45	LevelAuthor: string;
40	EnemyAdventTable: array of TEnemyAdvent;	46	EnemyAdventTable: array of TEnemyAdvent;
41	function IndexOfEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer): integer;	47	function IndexOfEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer): integer;
42	procedure AddEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer);	48	procedure AddEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer);
43	procedure DeleteEnemy(i: integer); overload;	49	procedure DeleteEnemy(i: integer); overload;
44	procedure DeleteEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer); overload;	50	procedure DeleteEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer); overload;
45	function CountEnemies: integer;	51	function CountEnemies: integer;
46	function HasBoss: boolean;	52	function HasBoss: boolean;
47	procedure Clear;	53	procedure Clear;
48	procedure LoadFromStrings(sl: TStrings); // version 0.3 - version 1.2 files	54	procedure LoadFromStrings(sl: TStrings); // version 0.3 - version 1.2 files
49	procedure LoadFromFile(filename: string); // version 0.2 - version 1.2 files	55	procedure LoadFromFile(filename: string); // version 0.2 - version 1.2 files
50	procedure SaveToStrings(sl: TStrings);	56	procedure SaveToStrings(sl: TStrings);
51	procedure SaveToFile(filename: string);	57	procedure SaveToFile(filename: string);
52	destructor Destroy; override;	58	destructor Destroy; override;
53	end;	59	end;
54		60
55	TGameMode = (gmUnknown, gmLevels, gmRandom, gmEditor);	61	TGameMode = (gmUnknown, gmLevels, gmRandom, gmEditor);
56		62
57	TSaveData = class(TPersistent)	63	TSaveData = class(TPersistent)
58	strict protected	64	strict protected
59	procedure AssignTo(Dest: TPersistent); override;	65	procedure AssignTo(Dest: TPersistent); override;
60	public	66	public
61	Score: integer;	67	Score: integer;
62	Life: integer;	68	Life: integer;
63	Level: integer;	69	Level: integer;
64	GameMode: TGameMode;	70	GameMode: TGameMode;
65	LevelData: TLevelData;	71	LevelData: TLevelData;
66	procedure Clear;	72	procedure Clear;
67	procedure LoadFromStrings(sl: TStrings);	73	procedure LoadFromStrings(sl: TStrings);
68	procedure LoadFromFile(filename: string);	74	procedure LoadFromFile(filename: string);
69	procedure SaveToStrings(sl: TStrings);	75	procedure SaveToStrings(sl: TStrings);
70	procedure SaveToFile(filename: string);	76	procedure SaveToFile(filename: string);
71	destructor Destroy; override;	77	destructor Destroy; override;
72	end;	78	end;
73		79
74	TLevelFile = record	80	TLevelFile = record
75	levelNumber: integer;	81	levelNumber: integer;
76	fileLocation: string;	82	fileLocation: string;
77	isUser: boolean;	83	isUser: boolean;
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
88	const	96	const
89	// { iso(1) identified-organization(3) dod(6) internet(1) private(4) enterprise(1) 37476 products(2) spacemission(8) file-format(1) lev-sav-v12(1) }	97	// { iso(1) identified-organization(3) dod(6) internet(1) private(4) enterprise(1) 37476 products(2) spacemission(8) file-format(1) lev-sav-v12(1) }
90	// https://hosted.oidplus.com/viathinksoft/?goto=oid%3A1.3.6.1.4.1.37476.2.8.1.1	98	// https://hosted.oidplus.com/viathinksoft/?goto=oid%3A1.3.6.1.4.1.37476.2.8.1.1
91	OID_LEVSAV_VER12 = '1.3.6.1.4.1.37476.2.8.1.1';	99	OID_LEVSAV_VER12 = '1.3.6.1.4.1.37476.2.8.1.1';
92		100
93	function GetLevelFileName(lev: integer; forceuserdir: boolean): TLevelFile;	101	function GetLevelFileName(lev: integer; forceuserdir: boolean): TLevelFile;
94		102
95	function _GetLevelVerzeichnisSystem: string;	103	function _GetLevelVerzeichnisSystem: string;
96	begin	104	begin
97	// Für die Auslieferungs-Levels	105	// Für die Auslieferungs-Levels
98	result := OwnDirectory + 'Levels';	106	result := OwnDirectory + 'Levels';
99	end;	107	end;
100		108
101	function _GetLevelVerzeichnisUser: string;	109	function _GetLevelVerzeichnisUser: string;
102	begin	110	begin
103	try	111	try
104	result := GetKnownFolderPath(FOLDERID_SavedGames);	112	result := GetKnownFolderPath(FOLDERID_SavedGames);
105	except	113	except
106	result := '';	114	result := '';
107	end;	115	end;
108	if result = '' then	116	if result = '' then
109	begin	117	begin
110	// Pre Vista	118	// Pre Vista
111	result := OwnDirectory + 'Levels';	119	result := OwnDirectory + 'Levels';
112	end	120	end
113	else	121	else
114	begin	122	begin
115	result := IncludeTrailingPathDelimiter(result);	123	result := IncludeTrailingPathDelimiter(result);
116	result := result + 'SpaceMission';	124	result := result + 'SpaceMission';
117	end;	125	end;
118	result := IncludeTrailingPathDelimiter(result);	126	result := IncludeTrailingPathDelimiter(result);
119	ForceDirectories(result);	127	ForceDirectories(result);
120	end;	128	end;
121		129
122	function _GetLevelFileNameUser(lev: integer): string;	130	function _GetLevelFileNameUser(lev: integer): string;
123	var	131	var
124	old, new: string;	132	old, new: string;
125	begin	133	begin
126	new := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisUser)+'Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files	134	new := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisUser)+'Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files
127	old := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisUser)+'Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files	135	old := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisUser)+'Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files
128	if fileexists(new) then exit(new);	136	if fileexists(new) then exit(new);
129	if fileexists(old) then exit(old);	137	if fileexists(old) then exit(old);
130	exit(new);	138	exit(new);
131	end;	139	end;
132		140
133	function _GetLevelFileNameSystem(lev: integer): string;	141	function _GetLevelFileNameSystem(lev: integer): string;
134	var	142	var
135	old, new: string;	143	old, new: string;
136	begin	144	begin
137	new := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisSystem)+'Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files	145	new := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisSystem)+'Level '+inttostr(lev)+'.lev'; // Version 0.3+ Level Files
138	old := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisSystem)+'Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files	146	old := IncludeTrailingPathDelimiter(_GetLevelVerzeichnisSystem)+'Lev'+inttostr(lev)+'A1.lev'; // Version 0.2 Level Files
139	if fileexists(new) then exit(new);	147	if fileexists(new) then exit(new);
140	if fileexists(old) then exit(old);	148	if fileexists(old) then exit(old);
141	exit(new);	149	exit(new);
142	end;	150	end;
143		151
144	var	152	var
145	usr, sys: string;	153	usr, sys: string;
146	bfound: boolean;	154	bfound: boolean;
147	begin	155	begin
148	result.levelNumber := lev;	156	result.levelNumber := lev;
149	usr := _GetLevelFileNameUser(lev);	157	usr := _GetLevelFileNameUser(lev);
150	sys := _GetLevelFileNameSystem(lev);	158	sys := _GetLevelFileNameSystem(lev);
151	bfound := fileexists(usr);	159	bfound := fileexists(usr);
152	if bfound or forceuserdir then	160	if bfound or forceuserdir then
153	begin	161	begin
154	result.isUser := true;	162	result.isUser := true;
155	result.fileLocation := usr;	163	result.fileLocation := usr;
156	result.found := bfound;	164	result.found := bfound;
157	exit;	165	exit;
158	end;	166	end;
159	bfound := fileexists(sys);	167	bfound := fileexists(sys);
160	if bfound then	168	if bfound then
161	begin	169	begin
162	result.isUser := false;	170	result.isUser := false;
163	result.fileLocation := sys;	171	result.fileLocation := sys;
164	result.found := bfound;	172	result.found := bfound;
165	exit;	173	exit;
166	end;	174	end;
167	result.isUser := true;	175	result.isUser := true;
168	result.fileLocation := usr;	176	result.fileLocation := usr;
169	result.found := false;	177	result.found := false;
170	end;	178	end;
171		179
172	// this is just an example, there are many	180	// this is just an example, there are many
173	// different ways you can implement this	181	// different ways you can implement this
174	// more efficiently, ie using a TStringBuilder,	182	// more efficiently, ie using a TStringBuilder,
175	// or even modifying the String in-place...	183	// or even modifying the String in-place...
176	function CollapseSpaces(const S: string): string;	184	function CollapseSpaces(const S: string): string;
177	var	185	var
178	P: PChar;	186	P: PChar;
179	AddSpace: Boolean;	187	AddSpace: Boolean;
180	begin	188	begin
181	Result := '';	189	Result := '';
182	AddSpace := False;	190	AddSpace := False;
183	P := PChar(S);	191	P := PChar(S);
184	while P^ <> #0 do	192	while P^ <> #0 do
185	begin	193	begin
186	while CharInSet(P^, [#1..' ']) do Inc(P);	194	while CharInSet(P^, [#1..' ']) do Inc(P);
187	if P^ = #0 then Exit;	195	if P^ = #0 then Exit;
188	if AddSpace then	196	if AddSpace then
189	Result := Result + ' '	197	Result := Result + ' '
190	else	198	else
191	AddSpace := True;	199	AddSpace := True;
192	repeat	200	repeat
193	Result := Result + P^;	201	Result := Result + P^;
194	Inc(P);	202	Inc(P);
195	until P^ <= ' ';	203	until P^ <= ' ';
196	end;	204	end;
197	end;	205	end;
198		206
199	{ TLevelData }	207	{ TLevelData }
200		208
201	procedure TLevelData.AssignTo(Dest: TPersistent);	209	procedure TLevelData.AssignTo(Dest: TPersistent);
202	var	210	var
203	DestLevelData: TLevelData;	211	DestLevelData: TLevelData;
204	i: integer;	212	i: integer;
205	begin	213	begin
206	DestLevelData := Dest as TLevelData;	214	DestLevelData := Dest as TLevelData;
207	if Assigned(DestLevelData) then	215	if Assigned(DestLevelData) then
208	begin	216	begin
209	DestLevelData.RasterErzwingen := Self.RasterErzwingen;	217	DestLevelData.RasterErzwingen := Self.RasterErzwingen;
210	DestLevelData.LevelEditorLength := Self.LevelEditorLength;	218	DestLevelData.LevelEditorLength := Self.LevelEditorLength;
211	DestLevelData.LevelName := Self.LevelName;	219	DestLevelData.LevelName := Self.LevelName;
212	DestLevelData.LevelAuthor := Self.LevelAuthor;	220	DestLevelData.LevelAuthor := Self.LevelAuthor;
213	SetLength(DestLevelData.EnemyAdventTable, Length(Self.EnemyAdventTable));	221	SetLength(DestLevelData.EnemyAdventTable, Length(Self.EnemyAdventTable));
214	for i := 0 to Length(Self.EnemyAdventTable)-1 do	222	for i := 0 to Length(Self.EnemyAdventTable)-1 do
215	begin	223	begin
216	DestLevelData.EnemyAdventTable[i] := Self.EnemyAdventTable[i];	224	DestLevelData.EnemyAdventTable[i] := Self.EnemyAdventTable[i];
217	end;	225	end;
218	end	226	end
219	else	227	else
220	begin	228	begin
221	inherited;	229	inherited;
222	end;	230	end;
223	end;	231	end;
224		232
225	procedure TLevelData.Clear;	233	procedure TLevelData.Clear;
226	begin	234	begin
227	SetLength(EnemyAdventTable, 0);	235	SetLength(EnemyAdventTable, 0);
228	LevelEditorLength := DefaultLevelLength;	236	LevelEditorLength := DefaultLevelLength;
229	LevelName := '';	237	LevelName := '';
230	LevelAuthor := '';	238	LevelAuthor := '';
231	end;	239	end;
232		240
233	function TLevelData.CountEnemies: integer;	241	function TLevelData.CountEnemies: integer;
234	begin	242	begin
235	result := Length(EnemyAdventTable);	243	result := Length(EnemyAdventTable);
236	end;	244	end;
237		245
238	procedure TLevelData.DeleteEnemy(i: integer);	246	procedure TLevelData.DeleteEnemy(i: integer);
239	var	247	var
240	j: integer;	248	j: integer;
241	begin	249	begin
242	for j := i+1 to CountEnemies-1 do	250	for j := i+1 to CountEnemies-1 do
243	begin	251	begin
244	EnemyAdventTable[j-1] := EnemyAdventTable[j];	252	EnemyAdventTable[j-1] := EnemyAdventTable[j];
245	end;	253	end;
246	SetLength(EnemyAdventTable, Length(EnemyAdventTable)-1);	254	SetLength(EnemyAdventTable, Length(EnemyAdventTable)-1);
247	end;	255	end;
248		256
249	procedure TLevelData.DeleteEnemy(x, y: integer; enemyType: TEnemyType;	257	procedure TLevelData.DeleteEnemy(x, y: integer; enemyType: TEnemyType;
250	lifes: integer);	258	lifes: integer);
251	begin	259	begin
252	DeleteEnemy(IndexOfEnemy(x, y, enemyType, lifes));	260	DeleteEnemy(IndexOfEnemy(x, y, enemyType, lifes));
253	end;	261	end;
254		262
255	destructor TLevelData.Destroy;	263	destructor TLevelData.Destroy;
256	begin	264	begin
257	Clear;	265	Clear;
258	inherited;	266	inherited;
259	end;	267	end;
260		268
261	function TLevelData.HasBoss: boolean;	269	function TLevelData.HasBoss: boolean;
262	var	270	var
263	i: integer;	271	i: integer;
264	begin	272	begin
265	for i := 0 to Length(EnemyAdventTable) - 1 do	273	for i := 0 to Length(EnemyAdventTable) - 1 do
266	begin	274	begin
267	if EnemyAdventTable[i].enemyType = etEnemyBoss then	275	if EnemyAdventTable[i].enemyType = etEnemyBoss then
268	begin	276	begin
269	result := true;	277	result := true;
270	exit;	278	exit;
271	end;	279	end;
272	end;	280	end;
273	result := false;	281	result := false;
274	end;	282	end;
275		283
276	procedure TLevelData.AddEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer);	284	procedure TLevelData.AddEnemy(x,y:integer;enemyType:TEnemyType;lifes:integer);
277	begin	285	begin
278	SetLength(EnemyAdventTable, Length(EnemyAdventTable)+1);	286	SetLength(EnemyAdventTable, Length(EnemyAdventTable)+1);
279		287
280	if enemyType = etEnemyMeteor then lifes := 0;	288	if enemyType = etEnemyMeteor then lifes := 0;
281	if RasterErzwingen then	289	if RasterErzwingen then
282	begin	290	begin
283	if x mod RasterW <> 0 then raise Exception.CreateFmt('X-Koordinate muss ohne Rest durch %d teilbar sein', [RasterW]);	291	if x mod RasterW <> 0 then raise Exception.CreateFmt('X-Koordinate muss ohne Rest durch %d teilbar sein', [RasterW]);
284	if y mod RasterH <> 0 then raise Exception.CreateFmt('Y-Koordinate muss ohne Rest durch %d teilbar sein', [RasterH]);	292	if y mod RasterH <> 0 then raise Exception.CreateFmt('Y-Koordinate muss ohne Rest durch %d teilbar sein', [RasterH]);
285	end;	293	end;
286	if lifes > MaxPossibleEnemyLives then lifes := MaxPossibleEnemyLives;	294	if lifes > MaxPossibleEnemyLives then lifes := MaxPossibleEnemyLives;
287		295
288	EnemyAdventTable[Length(EnemyAdventTable)-1].x := x;	296	EnemyAdventTable[Length(EnemyAdventTable)-1].x := x;
289	EnemyAdventTable[Length(EnemyAdventTable)-1].y := y;	297	EnemyAdventTable[Length(EnemyAdventTable)-1].y := y;
290	EnemyAdventTable[Length(EnemyAdventTable)-1].enemyType := enemyType;	298	EnemyAdventTable[Length(EnemyAdventTable)-1].enemyType := enemyType;
291	EnemyAdventTable[Length(EnemyAdventTable)-1].lifes := lifes;	299	EnemyAdventTable[Length(EnemyAdventTable)-1].lifes := lifes;
292	end;	300	end;
293		301
294	function TLevelData.IndexOfEnemy(x, y: integer; enemyType: TEnemyType;	302	function TLevelData.IndexOfEnemy(x, y: integer; enemyType: TEnemyType;
295	lifes: integer): integer;	303	lifes: integer): integer;
296	var	304	var
297	i: integer;	305	i: integer;
298	begin	306	begin
299	for i := 0 to Length(EnemyAdventTable) - 1 do	307	for i := 0 to Length(EnemyAdventTable) - 1 do
300	begin	308	begin
301	if (EnemyAdventTable[i].x = x) and	309	if (EnemyAdventTable[i].x = x) and
302	(EnemyAdventTable[i].y = y) and	310	(EnemyAdventTable[i].y = y) and
303	(EnemyAdventTable[i].enemyType = enemyType) and	311	(EnemyAdventTable[i].enemyType = enemyType) and
304	(EnemyAdventTable[i].lifes = lifes) then	312	(EnemyAdventTable[i].lifes = lifes) then
305	begin	313	begin
306	result := i;	314	result := i;
307	exit;	315	exit;
308	end;	316	end;
309	end;	317	end;
310	result := -1;	318	result := -1;
311	end;	319	end;
312		320
313	procedure TLevelData.LoadFromStrings(sl: TStrings);	321	procedure TLevelData.LoadFromStrings(sl: TStrings);
314	var	322	var
315	curline: integer;	323	curline: integer;
316	z, act: integer;	324	z, act: integer;
317	sl2: TStringList;	325	sl2: TStringList;
318	tmpX, tmpY, tmpLifes: integer;	326	tmpX, tmpY, tmpLifes: integer;
319	tmpEnemy: TEnemyType;	327	tmpEnemy: TEnemyType;
320	ergebnis: string;	328	ergebnis: string;
321	ary: TStringDynArray;	329	ary: TStringDynArray;
322	sLine: string;	330	sLine: string;
323	begin	331	begin
324	Clear;	332	Clear;
325		333
326	LevelEditorLength := DefaultLevelLength;	334	LevelEditorLength := DefaultLevelLength;
327	LevelName := '';	335	LevelName := '';
328	LevelAuthor := '';	336	LevelAuthor := '';
329		337
330	if sl.Strings[0] = '; SpaceMission 0.3' then // do not localize	338	if sl.Strings[0] = '; SpaceMission 0.3' then // do not localize
331	begin	339	begin
332	{$REGION 'Backwards compatibility level format 0.3 (convert to 0.4)'}	340	{$REGION 'Backwards compatibility level format 0.3 (convert to 0.4)'}
333	sl.Strings[0] := '; SpaceMission 0.4'; // do not localize	341	sl.Strings[0] := '; SpaceMission 0.4'; // do not localize
334	sl.Insert(1, '; LEV-File'); // do not localize	342	sl.Insert(1, '; LEV-File'); // do not localize
335	{$ENDREGION}	343	{$ENDREGION}
336	end;	344	end;
337		345
338	if (sl.Strings[0] = '; SpaceMission 0.4') and // do not localize	346	if (sl.Strings[0] = '; SpaceMission 0.4') and // do not localize
339	(sl.Strings[1] = '; LEV-File') then // do not localize	347	(sl.Strings[1] = '; LEV-File') then // do not localize
340	begin	348	begin
341	{$REGION 'Backwards compatibility level format 0.4 (convert to 1.0)'}	349	{$REGION 'Backwards compatibility level format 0.4 (convert to 1.0)'}
342	sl2 := TStringList.Create;	350	sl2 := TStringList.Create;
343	try	351	try
344	z := 0;	352	z := 0;
345	act := 0;	353	act := 0;
346	while z < sl.Count do	354	while z < sl.Count do
347	begin	355	begin
348	inc(z);	356	inc(z);
349	if z > 2 then inc(act);	357	if z > 2 then inc(act);
350	if act = 5 then act := 1;	358	if act = 5 then act := 1;
351	ergebnis := sl.Strings[z-1];	359	ergebnis := sl.Strings[z-1];
352	if ergebnis = '; SpaceMission 0.4' then	360	if ergebnis = '; SpaceMission 0.4' then
353	sl2.Add('; SpaceMission 1.0')	361	sl2.Add('; SpaceMission 1.0')
354	else	362	else
355	begin	363	begin
356	if (ergebnis = '30000') and (z = 3) then	364	if (ergebnis = '30000') and (z = 3) then
357	sl2.Add(IntTostr(DefaultLevelLength))	365	sl2.Add(IntTostr(DefaultLevelLength))
358	else	366	else
359	begin	367	begin
360	//if not (((ergebnis = '0') and (z = 4)) or ((ergebnis = '-624') and (z = 5)) or ((ergebnis = '222') and (z = 6)) or ((ergebnis = '3') and (z = 7))) then	368	//if not (((ergebnis = '0') and (z = 4)) or ((ergebnis = '-624') and (z = 5)) or ((ergebnis = '222') and (z = 6)) or ((ergebnis = '3') and (z = 7))) then
361	if (z < 4) or (z > 7) then	369	if (z < 4) or (z > 7) then
362	begin	370	begin
363	if act = 4 then	371	if act = 4 then
364	sl2.Add(inttostr(strtoint(ergebnis) + 32 - (5 * (strtoint(ergebnis) div 37))))	372	sl2.Add(inttostr(strtoint(ergebnis) + 32 - (5 * (strtoint(ergebnis) div 37))))
365	else	373	else
366	sl2.Add(Ergebnis);	374	sl2.Add(Ergebnis);
367	end;	375	end;
368	end;	376	end;
369	end;	377	end;
370	end;	378	end;
371	sl.Text := sl2.Text;	379	sl.Text := sl2.Text;
372	finally	380	finally
373	FreeAndNil(sl2);	381	FreeAndNil(sl2);
374	end;	382	end;
375	{$ENDREGION}	383	{$ENDREGION}
376	end;	384	end;
377		385
378	if (sl.Strings[0] = '; SpaceMission 1.0') and // do not localize	386	if (sl.Strings[0] = '; SpaceMission 1.0') and // do not localize
379	(sl.Strings[1] = '; LEV-File') then // do not localize	387	(sl.Strings[1] = '; LEV-File') then // do not localize
380	begin	388	begin
381	{$REGION 'Level format 1.0'}	389	{$REGION 'Level format 1.0'}
382	LevelEditorLength := StrToInt(sl.Strings[2]);	390	LevelEditorLength := StrToInt(sl.Strings[2]);
383	curline := 3;	391	curline := 3;
384	while curline < sl.Count do	392	while curline < sl.Count do
385	begin	393	begin
386	tmpEnemy := TEnemyType(strtoint(sl.Strings[curline]));	394	tmpEnemy := TEnemyType(strtoint(sl.Strings[curline]));
387	Inc(curline);	395	Inc(curline);
388	tmpX := strtoint(sl.Strings[curline]);	396	tmpX := strtoint(sl.Strings[curline]);
389	Inc(curline);	397	Inc(curline);
390	tmpY := strtoint(sl.Strings[curline]);	398	tmpY := strtoint(sl.Strings[curline]);
391	Inc(curline);	399	Inc(curline);
392	tmpLifes := strtoint(sl.Strings[curline]);	400	tmpLifes := strtoint(sl.Strings[curline]);
393	Inc(curline);	401	Inc(curline);
394	AddEnemy(tmpX, tmpY, tmpEnemy, tmpLifes);	402	AddEnemy(tmpX, tmpY, tmpEnemy, tmpLifes);
395	end;	403	end;
396	{$ENDREGION}	404	{$ENDREGION}
397	end	405	end
398	else if (SameText(sl.Strings[0], '['+OID_LEVSAV_VER12+']')) then	406	else if (SameText(sl.Strings[0], '['+OID_LEVSAV_VER12+']')) then
399	begin	407	begin
400	{$REGION 'Level format 1.2'}	408	{$REGION 'Level format 1.2'}
401	for curline := 1 to sl.Count-1 do	409	for curline := 1 to sl.Count-1 do
402	begin	410	begin
403	sLine := sl.Strings[curline].Trim;	411	sLine := sl.Strings[curline].Trim;
404	if (sLine = '') or (Copy(sLine, 1, 1) = ';') then continue;	412	if (sLine = '') or (Copy(sLine, 1, 1) = ';') then continue;
405	ary := SplitString(CollapseSpaces(sLine), ' ');	413	ary := SplitString(CollapseSpaces(sLine), ' ');
406	if SameText(ary[0], 'Width') then // do not localize	414	if SameText(ary[0], 'Width') then // do not localize
407	begin	415	begin
408	LevelEditorLength := StrToInt(ary[1]);	416	LevelEditorLength := StrToInt(ary[1]);
409	if (Length(ary) > 2) and (Copy(ary[2], 1, 1) <> ';') then	417	if (Length(ary) > 2) and (Copy(ary[2], 1, 1) <> ';') then
410	raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);	418	raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);
411	end	419	end
412	else if SameText(ary[0], 'Name') then // do not localize	420	else if SameText(ary[0], 'Name') then // do not localize
413	begin	421	begin
414	LevelName := Trim(Copy(sLine, Length(ary[0])+2, Length(sLine)));	422	LevelName := Trim(Copy(sLine, Length(ary[0])+2, Length(sLine)));
415	end	423	end
416	else if SameText(ary[0], 'Author') then // do not localize	424	else if SameText(ary[0], 'Author') then // do not localize
417	begin	425	begin
418	LevelAuthor := Trim(Copy(sLine, Length(ary[0])+2, Length(sLine)));	426	LevelAuthor := Trim(Copy(sLine, Length(ary[0])+2, Length(sLine)));
419	end	427	end
420	else if SameText(ary[0], 'Enemy') then // do not localize	428	else if SameText(ary[0], 'Enemy') then // do not localize
421	begin	429	begin
422	tmpEnemy := TEnemyType(strtoint(ary[1]));	430	tmpEnemy := TEnemyType(strtoint(ary[1]));
423	tmpX := strtoint(ary[2]);	431	tmpX := strtoint(ary[2]);
424	tmpY := strtoint(ary[3]);	432	tmpY := strtoint(ary[3]);
425	tmpLifes := strtoint(ary[4]);	433	tmpLifes := strtoint(ary[4]);
426	if (Length(ary) > 5) and (Copy(ary[5], 1, 1) <> ';') then	434	if (Length(ary) > 5) and (Copy(ary[5], 1, 1) <> ';') then
427	raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);	435	raise Exception.CreateFmt('Zeile %d ist ungültig (Zusatzinfo am Ende)', [curline+1]);
428	AddEnemy(tmpX, tmpY, tmpEnemy, tmpLifes);	436	AddEnemy(tmpX, tmpY, tmpEnemy, tmpLifes);
429	end;	437	end;
430	end;	438	end;
431	{$ENDREGION}	439	{$ENDREGION}
432	end	440	end
433	else	441	else
434	begin	442	begin
435	raise Exception.Create('Level-Format nicht unterstützt oder Datei ist beschädigt');	443	raise Exception.Create('Level-Format nicht unterstützt oder Datei ist beschädigt');
436	end;	444	end;
437		445
438	SortEnemies; // Sortierung nach X-Koordinate ist sehr wichtig für das Spiel!	446	SortEnemies; // Sortierung nach X-Koordinate ist sehr wichtig für das Spiel!
439	end;	447	end;
440		448
441	procedure TLevelData.LoadFromFile(filename: string);	449	procedure TLevelData.LoadFromFile(filename: string);
442	var	450	var
443	sl: TStringList;	451	sl: TStringList;
444	i, j: integer;	452	i, j: integer;
445	temp: string;	453	temp: string;
446	m: array[1..6] of tstrings;	454	m: array[1..6] of tstrings;
447	begin	455	begin
448	sl := TStringList.Create;	456	sl := TStringList.Create;
449	try	457	try
450	if EndsText('A1.lev', filename) then // do not localize	458	if EndsText('A1.lev', filename) then // do not localize
451	begin	459	begin
452	{$REGION 'Backwards compatibility level format 0.2 (split into 5-6 files; convert to 0.3)'}	460	{$REGION 'Backwards compatibility level format 0.2 (split into 5-6 files; convert to 0.3)'}
453	m[1] := TStringList.create;	461	m[1] := TStringList.create;
454	m[2] := TStringList.create;	462	m[2] := TStringList.create;
455	m[3] := TStringList.create;	463	m[3] := TStringList.create;
456	m[4] := TStringList.create;	464	m[4] := TStringList.create;
457	m[5] := TStringList.create;	465	m[5] := TStringList.create;
458	m[6] := TStringList.create;	466	m[6] := TStringList.create;
459	try	467	try
460	for i := 1 to 6 do	468	for i := 1 to 6 do
461	begin	469	begin
462	filename[Length(filename)-4] := IntToStr(i)[1]; // ...A2.sav, ...A3.sav, etc.	470	filename[Length(filename)-4] := IntToStr(i)[1]; // ...A2.sav, ...A3.sav, etc.
463	if FileExists(filename) then	471	if FileExists(filename) then
464	m[i].loadfromfile(filename);	472	m[i].loadfromfile(filename);
465	end;	473	end;
466	m[1].strings[0] := '-624';	474	m[1].strings[0] := '-624';
467	if m[6].Text = '' then m[6].Text := '30000';	475	if m[6].Text = '' then m[6].Text := '30000';
468		476
469	sl.Add('; SpaceMission 0.3'); // do not localize	477	sl.Add('; SpaceMission 0.3'); // do not localize
470	sl.Add(temp);	478	sl.Add(temp);
471	for j := 0 to m[1].count-2 do	479	for j := 0 to m[1].count-2 do
472	begin	480	begin
473	for i := 0 to m[1].count-2 do	481	for i := 0 to m[1].count-2 do
474	begin	482	begin
475	if strtoint(m[1].strings[i]) > strtoint(m[1].strings[i+1]) then	483	if strtoint(m[1].strings[i]) > strtoint(m[1].strings[i+1]) then
476	begin	484	begin
477	m[1].exchange(i, i+1);	485	m[1].exchange(i, i+1);
478	m[2].exchange(i, i+1);	486	m[2].exchange(i, i+1);
479	m[3].exchange(i, i+1);	487	m[3].exchange(i, i+1);
480	m[4].exchange(i, i+1);	488	m[4].exchange(i, i+1);
481	m[5].exchange(i, i+1);	489	m[5].exchange(i, i+1);
482	end;	490	end;
483	end;	491	end;
484	end;	492	end;
485	for i := 0 to m[3].count-1 do	493	for i := 0 to m[3].count-1 do
486	begin	494	begin
487	for j := 1 to 4 do	495	for j := 1 to 4 do
488	begin	496	begin
489	if j = 1 then sl.Add(m[3].strings[i]);	497	if j = 1 then sl.Add(m[3].strings[i]);

Subversion Repositories spacemission

spacemission/ComLevelReader.pas – Rev 66 → 72