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 |