Subversion Repositories spacemission

Rev

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

Rev 30 Rev 34
Line 35... Line 35...
35 
      FScore    := StrToInt(sl.Strings[2]);
 35 
      FScore    := StrToInt(sl.Strings[2]);
36 
      FLife     := StrToInt(sl.Strings[3]);
 36 
      FLife     := StrToInt(sl.Strings[3]);
37 
      FLevel    := StrToInt(sl.Strings[4]);
 37 
      FLevel    := StrToInt(sl.Strings[4]);
38 
      FGameMode := TGameMode(StrToInt(sl.Strings[5]));
 38 
      FGameMode := TGameMode(StrToInt(sl.Strings[5]));
39 
    end
 39 
    end
40 
    else if (sl.Strings[0] = '[SpaceMission Savegame, Format 1.2]') then
 40 
    else if SameText(sl.Strings[0], '[SpaceMission Savegame, Format 1.2]') then
41 
    begin
 41 
    begin
42 
      FScore    := StrToInt(sl.Strings[1]);
 42 
      FScore    := StrToInt(sl.Strings[1]);
43 
      FLife     := StrToInt(sl.Strings[2]);
 43 
      FLife     := StrToInt(sl.Strings[2]);
44 
      FLevel    := StrToInt(sl.Strings[3]);
 44 
      FLevel    := StrToInt(sl.Strings[3]);
45 
      FGameMode := TGameMode(StrToInt(sl.Strings[4]));
 45 
      FGameMode := TGameMode(StrToInt(sl.Strings[4]));