WebSVN – spacemission – Path Comparison – / – /LevSpeicherung.pas Rev HEAD and /LevSpeicherung.pas Rev 1

Ignore whitespace Rev HEAD → Rev 1

 /LevSpeicherung.pas
 ,7 → 4,7
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ExtCtrls, Spin, ComCtrls{$IF CompilerVersion >= 23.0}, System.UITypes{$IFEND};
+  StdCtrls, ExtCtrls, Spin, ComCtrls;
 type
   TSpeicherungForm = class(TForm)
 ,10 → 25,10
     li2b: TLabel;
     li2a: TLabel;
     li3b: TLabel;
-    li4: TLabel;
     liu: TLabel;
     liw: TLabel;
-    LevelNumber: TSpinEdit;
+    SpinEditEdt: TEdit;
+    SpinEdit: TUpDown;
     procedure LoeschenBtnClick(Sender: TObject);
     procedure LadenBtnClick(Sender: TObject);
     procedure SpeichernBtnClick(Sender: TObject);
 ,33 → 38,35
     procedure DsFancyButton2Click(Sender: TObject);
     procedure AbbrechenBtnClick(Sender: TObject);
     procedure LevelNameChange(Sender: TObject);
+    procedure LevelListBoxDblClick(Sender: TObject);
     procedure FormHide(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
-  private
-    function GetListBoxSelectedLevelNumber: integer;
+    procedure SpinEditClick(Sender: TObject; Button: TUDBtnType);
+    procedure SpinEditEdtKeyPress(Sender: TObject; var Key: Char);
+    procedure SpinEditEdtChange(Sender: TObject);
   public
     procedure SearchLevels;
+    function RightStr(str: string; count: integer): string;
+    function Filter(n: integer; s: string): string;
   end;
 var
   SpeicherungForm: TSpeicherungForm;
+const
+  FCompVersion = '1.0';
 implementation
 uses
-  Global, LevMain, ComLevelReader;
+  LevMain;
 {$R *.DFM}
-resourcestring
-  SLevelListBox = 'Level %d';
-  SSelbsterstellt = 'Selbsterstellt';
-  SLevelFileNotFound = 'Leveldatei nicht gefunden';
 procedure TSpeicherungForm.SearchLevels;
 var
+  {sr: TSearchRec;
+  res: integer;}
   i: integer;
-  fil: TLevelFile;
 begin
   //SpinEdit.Value := 1;
   LevelListBox.items.clear;
 ,34 → 76,40
   li1b.visible := false;
   li2b.visible := false;
   li3b.visible := false;
-  li4.visible := false;
-  liu.Visible := false;
   liw.visible := true;
   LadenBtn.enabled := false;
   LoeschenBtn.enabled := false;
-  for i := 1 to MaxPossibleLevels do
-  begin
-    fil := GetLevelFileName(i, false);
-    if fil.found then
+  {res := FindFirst(mainform.fdirectory+'Levels\*.lev', 0, sr);
+  try
+    while (res = 0) do
     begin
-      if fil.isUser then
-        LevelListBox.items.Add(Format(SLevelListBox, [i])+' ('+SSelbsterstellt+')')
-      else
-        LevelListBox.items.Add(Format(SLevelListBox, [i]));
+      if (sr.name <> '.') and (sr.name <> '..') then
+        LevelListBox.items.Add(copy(sr.Name, 0, length(sr.name)-4));
+      res := FindNext(sr);
     end;
+  finally
+    FindClose(sr);
+  end;}
+  for i := 1 to 9999 do
+  begin
+    if fileexists(mainform.fdirectory+'Levels\Level '+inttostr(i)+'.lev') then
+      LevelListBox.items.Add('Level ' + inttostr(i));
   end;
 end;
 procedure TSpeicherungForm.LoeschenBtnClick(Sender: TObject);
-resourcestring
-  SReallyDeleteLevel = 'Dieses Level wirklich löschen?';
 var
-  fil: TLevelFile;
+  Markiert: boolean;
+  i: integer;
 begin
-  if LevelListBox.ItemIndex = -1 then exit;
-  if MessageDlg(SReallyDeleteLevel, mtConfirmation, mbYesNoCancel, 0) = mrYes then
+  Markiert := false;
+  for i := 0 to LevelListBox.items.Count-1 do
   begin
+    if LevelListBox.Selected[i] then Markiert := true;
+  end;
+  if not Markiert then exit;
+  if MessageDlg('Dieses Level wirklich löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
+  begin
     li1a.visible := false;
     li2a.visible := false;
     li3a.visible := false;
 ,59 → 116,154
     li1b.visible := false;
     li2b.visible := false;
     li3b.visible := false;
-    li4.visible := false;
     liu.visible := false;
     liw.visible := true;
     LadenBtn.enabled := false;
     LoeschenBtn.enabled := false;
-    fil := GetLevelFileName(GetListBoxSelectedLevelNumber,false);
-    if not fil.found then raise Exception.Create(SLevelFileNotFound);
-    deletefile(fil.fileLocation);
+    deletefile(mainform.FDirectory+'Levels\'+
+      LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
     SearchLevels;
   end;
 end;
 procedure TSpeicherungForm.LadenBtnClick(Sender: TObject);
-resourcestring
-  SLoadNewLevelAndDiscardChanges = 'Neues Level laden und Änderungen verwerfen?';
 var
-  fil: TLevelFile;
+  Markiert: boolean;
+  i, TempArtMain, TempLiveMain: integer;
+  SavGame: textfile;
+  Ergebnis: array[1..5] of string;
 begin
-  if LevelListBox.ItemIndex = -1 then exit;
-  if MainForm.LevChanged and (MainForm.LevData.CountEnemies>0) then
+  Markiert := false;
+  for i := 0 to LevelListBox.items.Count-1 do
   begin
-    if MessageDlg(SLoadNewLevelAndDiscardChanges, mtConfirmation, mbYesNoCancel, 0) <> mrYes then exit;
+    if LevelListBox.Selected[i] then Markiert := true;
   end;
+  if not Markiert then exit;
+  if LevelListBox.items.count = 0 then
+  begin
+    li1a.visible := false;
+    li2a.visible := false;
+    li3a.visible := false;
+    li1b.visible := false;
+    li2b.visible := false;
+    li3b.visible := false;
+    liw.visible := true;
+    LadenBtn.enabled := false;
+    LoeschenBtn.enabled := false;
+  end;
   // Da Button bei ungültigen Level deaktiviert wird, ist das nicht mehr nötig.
   {if liu.visible or (LevelListBox.items.count=0) then
     exit;}
+  // Vorbereiten
   MainForm.DestroyLevel;
-  MainForm.LevData.RasterErzwingen := true;
-  fil := GetLevelFileName(GetListBoxSelectedLevelNumber,false);
-  if not fil.found then raise Exception.Create(SLevelFileNotFound);
-  MainForm.LevData.LoadFromFile(fil.fileLocation);
-  MainForm.RefreshFromLevData;
   MainForm.LevChanged := false;
+  // Öffnen
+  AssignFile(SavGame, mainform.FDirectory+'Levels\'+
+    LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
+  Reset(SavGame);
+  // Laden
+  ReadLN(SavGame); // --> Copyrightinfo
+  ReadLN(SavGame); // --> Copyrightinfo
+  ReadLN(SavGame, Ergebnis[5]); // --> Länge der Karte
+  MainForm.ScrollBar.Max := strtoint(Ergebnis[5]);
+  MainForm.Enemys.Clear;
+  TempArtMain := MainForm.ArtChecked;
+  TempLiveMain := MainForm.LiveEdit;
+  while not seekEoF(SavGame) do
+  begin
+    ReadLN(SavGame, Ergebnis[3]);
+    ReadLN(SavGame, Ergebnis[1]);
+    ReadLN(SavGame, Ergebnis[2]);
+    ReadLN(SavGame, Ergebnis[4]);
+    MainForm.EnemyAdd(strtoint(Ergebnis[1]), strtoint(Ergebnis[2]), strtoint(Ergebnis[3]), strtoint(Ergebnis[4]));
+    MainForm.ArtChecked := strtoint(Ergebnis[3]);
+    MainForm.LiveEdit := strtoint(Ergebnis[4]);
+    MainForm.EnemyCreate(strtoint(Ergebnis[1]), strtoint(Ergebnis[2]));
+    inc(MainForm.NumEnemys);
+    if Ergebnis[3] = '7' then MainForm.Boss := true;
+  end;
+  MainForm.LiveEdit := TempLiveMain;
+  MainForm.ArtChecked := TempArtMain;
+  // Schließen
+  CloseFile(SavGame);
+  // Nacharbeiten
   MainForm.AnzeigeAct;
   close;
 end;
+function TSpeicherungForm.RightStr(str: string; count: integer): string;
+begin
+  result := copy(str, length(str)-(count-1), count);
+end;
+function TSpeicherungForm.Filter(n: integer; s: string): string;
+var
+  i, last: integer;
+  start, start2: boolean;
+  temp: string;
+begin
+  last := 0;
+  start := false;
+  start2 := false;
+  temp := '';
+  if n = 1 then
+  begin
+    for i := 1 to length(s)+1 do
+    begin
+      if copy(s, i, 1) = '-' then
+      begin
+        last := i;
+        break;
+      end;
+    end;
+    temp := copy(s, 1, last-1);
+  end;
+  if n = 2 then
+  begin
+    for i := 1 to length(s)+1 do
+    begin
+      if start2 then start := true;
+      if copy(s, i, 1) = '-' then start2 := true;
+      if (copy(s, i, 1) = ':') and start then break;
+      if start then temp := temp + copy(s, i, 1)
+    end;
+  end;
+  if n = 3 then
+  begin
+    for i := 1 to length(s)+1 do
+    begin
+      if start2 then start := true;
+      if copy(s, i, 1) = ':' then start2 := true;
+      if (copy(s, i, 1) = '(') and start then break;
+      if start then temp := temp + copy(s, i, 1)
+    end;
+  end;
+  if n = 4 then
+  begin
+    for i := 1 to length(s)+1 do
+    begin
+      if start2 then start := true;
+      if copy(s, i, 1) = '(' then start2 := true;
+      if (copy(s, i, 1) = ')') and start then break;
+      if start then temp := temp + copy(s, i, 1)
+    end;
+  end;
+  result := temp;
+end;
 procedure TSpeicherungForm.SpeichernBtnClick(Sender: TObject);
-resourcestring
-  SLevelIsEmpty = 'Das Level ist leer!';
-  SLevelAlreadyExists = 'Level ist bereits vorhanden. Ersetzen?';
-  SNoValidLevelName = 'Dies ist kein gültiger Levelname!';
+var
+  SavGame: textfile;
+  i, j: integer;
+  puffer: string;
 begin
-  if MainForm.LevData.CountEnemies = 0 then
+  if mainform.Enemys.count = 0 then
   begin
-    MessageDlg(SLevelIsEmpty, mtError, [mbOK], 0);
-    LevelNumber.SetFocus;
+    MessageDlg('Das Level ist leer!', mtError, [mbOK], 0);
+    SpinEdit.SetFocus;
     exit;
   end;
-  {for i := 1 to length(LevelName.text) do
+  {for i := 0 to length(LevelName.text) do
   begin
     if (copy(LevelName.text, i, 1) = '\') or
       (copy(LevelName.text, i, 1) = '/') or
 ,22 → 275,45
       (copy(LevelName.text, i, 1) = '>') or
       (copy(LevelName.text, i, 1) = '|') then
     begin
-      MessageDlg(SNoValidLevelName, mtError, [mbOK], 0);
+      MessageDlg('Dies ist kein gültiger Levelname!', mtError, [mbOK], 0);
       LevelName.SetFocus;
       exit;
     end;
   end;}
-  if (LevelListBox.items.IndexOf(Format(SLevelListBox, [LevelNumber.Value])) > -1) or
-     (LevelListBox.items.IndexOf(Format(SLevelListBox, [LevelNumber.Value])+' ('+SSelbsterstellt+')') > -1) then
+  if LevelListBox.items.IndexOf('Level ' + inttostr(SpinEdit.Position)) > -1 then
   begin
-    if MessageDlg(SLevelAlreadyExists, mtConfirmation, mbYesNoCancel, 0) <> mrYes then
+    if MessageDlg('Level ist bereits vorhanden. Ersetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
       exit;
   end;
+  // Öffnen oder erstellen
+  AssignFile(SavGame, mainform.FDirectory+'Levels\Level '+inttostr(SpinEdit.Position)+'.lev');
+  Rewrite(SavGame);
+  // Sortierung
+  for j := 0 to mainform.enemys.Count - 2 do
+  begin
+    for i := 0 to mainform.enemys.Count - 2 do
+    begin
+      if strtoint(filter(1, mainform.enemys.Strings[i])) > strtoint(filter(1, mainform.enemys.Strings[i + 1])) then
+      begin
+        puffer := mainform.enemys.Strings[i];
+        mainform.enemys.Strings[i] := mainform.enemys.Strings[i + 1];
+        mainform.enemys.Strings[i + 1] := puffer;
+      end;
+    end;
+  end;
   // Speichern
-  MainForm.LevData.LevelEditorLength := MainForm.ScrollBar.Max;
-  MainForm.LevData.SaveToFile(GetLevelFileName(LevelNumber.Value,true).fileLocation);
+  WriteLN(SavGame, '; SpaceMission ' + FCompVersion);
+  WriteLN(SavGame, '; LEV-File');
+  WriteLN(SavGame, inttostr(MainForm.ScrollBar.Max)); // --> Länge der Karte
+  for i := 0 to mainform.enemys.count-1 do
+  begin
+    WriteLN(SavGame, filter(3, mainform.enemys.Strings[i]));
+    WriteLN(SavGame, filter(1, mainform.enemys.Strings[i]));
+    WriteLN(SavGame, filter(2, mainform.enemys.Strings[i]));
+    WriteLN(SavGame, filter(4, mainform.enemys.Strings[i]));
+  end;
+  // Schließen
+  CloseFile(SavGame);
   // Nacharbeiten
   MainForm.LevChanged := false;
   MainForm.AnzeigeAct;
 ,17 → 321,10
 end;
 procedure TSpeicherungForm.LevelListBoxClick(Sender: TObject);
-resourcestring
-  SYes = 'Ja';
-  SNo = 'Nein';
-  SFields = '%d Felder';
-  SXbyY = '%s von %s';
 var
-  LevelData: TLevelData;
-  boss: boolean;
-  i: Integer;
-  anzahlEinheiten: integer;
-  fil: TLevelFile;
+  Ergebnis, boss, l, temp: string;
+  SavGame: textfile;
+  x, a: integer;
 begin
   li1a.visible := false;
   li2a.visible := false;
 ,7 → 332,6
   li1b.visible := false;
   li2b.visible := false;
   li3b.visible := false;
-  li4.visible := false;
   liu.visible := false;
   liw.visible := false;
   if (LevelListBox.items.count=0) or (LevelListBox.itemindex = -1) then
 ,50 → 341,59
     liw.visible := true;
     exit;
   end;
-  LevelNumber.Value := GetListBoxSelectedLevelNumber;
-  LevelData := TLevelData.Create;
-  try
-    try
-      LevelData.RasterErzwingen := true;
-      fil := GetLevelFileName(GetListBoxSelectedLevelNumber,false);
-      if not fil.found then raise Exception.Create(SLevelFileNotFound);
-      LevelData.LoadFromFile(fil.fileLocation);
-      boss := false;
-      anzahlEinheiten := Length(LevelData.EnemyAdventTable);
-      for i := 0 to anzahlEinheiten - 1 do
-      begin
-        if LevelData.EnemyAdventTable[i].enemyType = etEnemyBoss then
-        begin
-          boss := true;
-        end;
-      end;
-      li1a.visible := true;
-      li2a.visible := true;
-      li3a.visible := true;
-      li1b.visible := true;
-      li2b.visible := true;
-      li3b.visible := true;
-      li4.visible := true;
-      LadenBtn.enabled := true;
-      LoeschenBtn.enabled := true;
-      li1b.caption := inttostr(anzahlEinheiten);
-      if boss then
-        li2b.caption := SYes
-      else
-        li2b.caption := SNo;
-      li3b.caption := Format(SFields, [LevelData.LevelEditorLength]);
-      li4.Caption := Trim(Format(SXbyY, [LevelData.LevelName, LevelData.LevelAuthor]));
-    finally
-      FreeAndNil(LevelData);
-    end;
-  except
+  temp := LevelListBox.Items.strings[LevelListBox.itemindex];
+  SpinEdit.Position := strtoint(RightStr(temp, length(temp)-6));
+  AssignFile(SavGame, mainform.FDirectory+'Levels\'+
+    LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
+  Reset(SavGame);
+  ReadLN(SavGame, Ergebnis);
+  if Ergebnis <> '; SpaceMission '+FCompVersion then
+  begin
     liu.visible := true;
     LadenBtn.enabled := false;
+    CloseFile(SavGame);
+    exit;
   end;
+  ReadLN(SavGame, Ergebnis);
+  if Ergebnis <> '; LEV-File' then
+  begin
+    liu.visible := true;
+    LadenBtn.enabled := false;
+    CloseFile(SavGame);
+    exit;
+  end;
+  ReadLN(SavGame, l);
+  x := 0;
+  a := 0;
+  boss := 'Nein';
+  while not SeekEOF(SavGame) do
+  begin
+    ReadLN(SavGame, Ergebnis);
+    inc(a);
+    if a = 5 then a := 1;
+    if (a = 1) and (Ergebnis = '7') then boss := 'Ja';
+    inc(x);
+  end;
+  CloseFile(SavGame);
+  if a <> 4 then
+  begin
+    liu.visible := true;
+    LadenBtn.enabled := false;
+  end
+  else
+  begin
+    li1a.visible := true;
+    li2a.visible := true;
+    li3a.visible := true;
+    li1b.visible := true;
+    li2b.visible := true;
+    li3b.visible := true;
+    LadenBtn.enabled := true;
+    LoeschenBtn.enabled := true;
+    li1b.caption := inttostr(trunc(x / 4));
+    li2b.caption := boss;
+    li3b.caption := l + ' Felder';
+  end;
 end;
 procedure TSpeicherungForm.Button4Click(Sender: TObject);
 ,23 → 407,6
   SearchLevels;
 end;
-function TSpeicherungForm.GetListBoxSelectedLevelNumber: integer;
-var
-  i: integer;
-begin
-  result := -1;
-  if LevelListBox.itemindex = -1 then exit;
-  for i := 1 to MaxPossibleLevels do
-  begin
-    if (LevelListBox.Items.strings[LevelListBox.itemindex] = Format(SLevelListBox, [i])) or
-       (LevelListBox.Items.strings[LevelListBox.itemindex] = Format(SLevelListBox, [i])+' ('+SSelbstErstellt+')') then
-    begin
-      result := i;
-      exit;
-    end;
-  end;
-end;
 procedure TSpeicherungForm.DsFancyButton2Click(Sender: TObject);
 begin
   SearchLevels;
 ,11 → 422,9
   {...}
 end;
-procedure TSpeicherungForm.FormCreate(Sender: TObject);
+procedure TSpeicherungForm.LevelListBoxDblClick(Sender: TObject);
 begin
-  LevelNumber.MinValue := 1;
-  LevelNumber.MaxValue := MaxPossibleLevels;
-  LevelNumber.Value := 1;
+  LadenBtn.click;
 end;
 procedure TSpeicherungForm.FormHide(Sender: TObject);
 ,5 → 432,23
   mainform.dxtimer.enabled := true;
 end;
+procedure TSpeicherungForm.SpinEditClick(Sender: TObject;
+  Button: TUDBtnType);
+begin
+  SpinEditEdt.Text := inttostr(SpinEdit.position);
+end;
+procedure TSpeicherungForm.SpinEditEdtKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if not (Key in [#13, #08, '0'..'9']) then
+    Key := #0;
+end;
+procedure TSpeicherungForm.SpinEditEdtChange(Sender: TObject);
+begin
+  SpinEdit.Position := strtoint(SpinEditEdt.text);
+end;
 end.

Subversion Repositories spacemission

Compare Revisions

Ignore whitespace Rev HEAD → Rev 1