Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 29 → Rev 30

/LevSpeicherung.pas
98,12 → 98,10
end;
 
procedure TSpeicherungForm.LadenBtnClick(Sender: TObject);
var
i: integer;
begin
if LevelListBox.ItemIndex = -1 then exit;
 
if MainForm.LevChanged then
if MainForm.LevChanged and (MainForm.LevData.CountEnemies>0) then
begin
if MessageDlg('Neues Level laden und Änderungen verwerfen?', mtConfirmation, mbYesNoCancel, 0) <> mrYes then exit;
end;
111,27 → 109,14
// 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.LevChanged := false;
 
MainForm.ScrollBar.Max := MainForm.LevData.LevelEditorLength;
MainForm.LevData.Load(
IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
for i := 0 to MainForm.LevData.CountEnemies - 1 do
begin
MainForm.EnemyCreateSprite(
MainForm.LevData.EnemyAdventTable[i].x,
MainForm.LevData.EnemyAdventTable[i].y,
MainForm.LevData.EnemyAdventTable[i].enemyType,
MainForm.LevData.EnemyAdventTable[i].lifes
);
end;
MainForm.NumEnemys := MainForm.LevData.CountEnemies;
MainForm.Boss := MainForm.LevData.HasBoss;
 
// Nacharbeiten
MainForm.RefreshFromLevData;
MainForm.LevChanged := false;
MainForm.AnzeigeAct;
close;
end;
213,10 → 198,6
try
LevelData.Load(IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
except
liu.visible := true;
LadenBtn.enabled := false;
end;
 
boss := false;
anzahlEinheiten := Length(LevelData.EnemyAdventTable);
245,7 → 226,11
finally
FreeAndNil(LevelData);
end;
except
liu.visible := true;
LadenBtn.enabled := false;
end;
end;
 
procedure TSpeicherungForm.Button4Click(Sender: TObject);
begin