Subversion Repositories spacemission

Rev

Rev 43 | Rev 51 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 43 Rev 44
Line 113... Line 113...
113
  // Da Button bei ungültigen Level deaktiviert wird, ist das nicht mehr nötig.
113
  // Da Button bei ungültigen Level deaktiviert wird, ist das nicht mehr nötig.
114
  {if liu.visible or (LevelListBox.items.count=0) then
114
  {if liu.visible or (LevelListBox.items.count=0) then
115
    exit;}
115
    exit;}
116
 
116
 
117
  MainForm.DestroyLevel;
117
  MainForm.DestroyLevel;
-
 
118
  MainForm.LevData.RasterErzwingen := true;
118
  MainForm.LevData.LoadFromFile(
119
  MainForm.LevData.LoadFromFile(
119
    IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
120
    IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
120
    LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
121
    LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
121
 
122
 
122
  MainForm.RefreshFromLevData;
123
  MainForm.RefreshFromLevData;
Line 199... Line 200...
199
  LevelNumber.Value := strtoint(RightStr(temp, length(temp)-Length('Level ')));
200
  LevelNumber.Value := strtoint(RightStr(temp, length(temp)-Length('Level ')));
200
 
201
 
201
  LevelData := TLevelData.Create;
202
  LevelData := TLevelData.Create;
202
  try
203
  try
203
    try
204
    try
-
 
205
      LevelData.RasterErzwingen := true;
204
      LevelData.LoadFromFile(IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
206
      LevelData.LoadFromFile(IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
205
        LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
207
        LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
206
 
208
 
207
      boss := false;
209
      boss := false;
208
      anzahlEinheiten := Length(LevelData.EnemyAdventTable);
210
      anzahlEinheiten := Length(LevelData.EnemyAdventTable);