Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 30 → Rev 29

/LevSpeicherung.pas
98,10 → 98,12
end;
 
procedure TSpeicherungForm.LadenBtnClick(Sender: TObject);
var
i: integer;
begin
if LevelListBox.ItemIndex = -1 then exit;
 
if MainForm.LevChanged and (MainForm.LevData.CountEnemies>0) then
if MainForm.LevChanged then
begin
if MessageDlg('Neues Level laden und Änderungen verwerfen?', mtConfirmation, mbYesNoCancel, 0) <> mrYes then exit;
end;
109,14 → 111,27
// 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.DestroyLevel;
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;
 
MainForm.RefreshFromLevData;
MainForm.LevChanged := false;
// Nacharbeiten
MainForm.AnzeigeAct;
close;
end;
198,6 → 213,10
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);
226,11 → 245,7
finally
FreeAndNil(LevelData);
end;
except
liu.visible := true;
LadenBtn.enabled := false;
end;
end;
 
procedure TSpeicherungForm.Button4Click(Sender: TObject);
begin