home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 274.PART6.INC < prev    next >
Text File  |  1991-07-08  |  743b  |  30 lines
  1. procedure processPath( var space : TheVoid );
  2. var
  3.   ch : char;
  4.   line : string;
  5.   s  : sectorindex;
  6. begin
  7.   if eof( f ) then exit;      
  8.   repeat
  9.     readln( f, line );
  10.     writeln('debug: skipping ', line );
  11.   until pos('shortest path', line ) > 0;
  12.   repeat 
  13.     s := ReadNumber(f);
  14.     if s <> 0 then
  15.       space.sectors[s].etc :=  space.sectors[s].etc or SpaceLane;
  16.     read( f, ch );
  17.     writeln('debug: read sector ', s, ' char ', ch );
  18.   until (ch <> '>') or (s=0);
  19. end; {process Path}
  20.  
  21. procedure PartVI( var space : TheVoid );
  22. { read computer read out from Major Space Lanes data }
  23. var
  24.   pass : 1..8;
  25. begin
  26.   for pass := 1 to 8 do
  27.     processPath( space );
  28.   SaveData( g, space );
  29.   close( g );
  30. end; {Part6}