Rev 42 | Rev 44 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 42 | Rev 43 | ||
|---|---|---|---|
| Line 413... | Line 413... | ||
| 413 | var |
413 | var |
| 414 | i: integer; |
414 | i: integer; |
| 415 | begin |
415 | begin |
| 416 | sl.Clear; |
416 | sl.Clear; |
| 417 | sl.Add('[SpaceMission Level, Format 1.2]'); |
417 | sl.Add('[SpaceMission Level, Format 1.2]'); |
| 418 | sl.Add('Width ' + IntToStr(LevelEditorLength)); |
- | |
| 419 | if LevelName <> '' then sl.Add('Name ' + LevelName); |
418 | if LevelName <> '' then sl.Add('Name ' + LevelName); |
| 420 | if LevelAuthor <> '' then sl.Add('Author ' + LevelAuthor); |
419 | if LevelAuthor <> '' then sl.Add('Author ' + LevelAuthor); |
| - | 420 | sl.Add('Width ' + IntToStr(LevelEditorLength)); |
|
| 421 | SortEnemies; |
421 | SortEnemies; |
| 422 | for i := 0 to Length(EnemyAdventTable)-1 do |
422 | for i := 0 to Length(EnemyAdventTable)-1 do |
| 423 | begin |
423 | begin |
| 424 | sl.Add( |
424 | sl.Add( |
| 425 | 'Enemy'.PadRight(6, ' ')+ |
425 | 'Enemy'.PadRight(6, ' ')+ |