Subversion Repositories spacemission

Rev

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

Rev 40 Rev 45
Line 175... Line 175...
175 
    SavGame.LoadFromFile(IncludeTrailingPathDelimiter(GetSpielstandVerzeichnis)+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
 175 
    SavGame.LoadFromFile(IncludeTrailingPathDelimiter(GetSpielstandVerzeichnis)+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
176 
    mainform.FScore := SavGame.Score;
 176 
    mainform.FScore := SavGame.Score;
177 
    mainform.FLife := SavGame.Life;
 177 
    mainform.FLife := SavGame.Life;
178 
    mainform.FLevel := SavGame.Level;
 178 
    mainform.FLevel := SavGame.Level;
179 
    mainform.FGameMode := SavGame.GameMode;
 179 
    mainform.FGameMode := SavGame.GameMode;
180 
    MainForm.FLevelDataAlreadyLoaded := true; // do not call NewLevel() in StartSceneNewLevel
 180 
    MainForm.FLevelDataAlreadyLoaded := true; // do not call NewLevel() in StartSceneMain
181 
    if Assigned(SavGame.LevelData) then
 181 
    if Assigned(SavGame.LevelData) then
182 
    begin
 182 
    begin
183 
      MainForm.LevelData.Assign(SavGame.LevelData);
 183 
      MainForm.LevelData.Assign(SavGame.LevelData);
184 
    end;
 184 
    end;
185 
  finally
 185 
  finally