home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 124.PART6.INC < prev    next >
Text File  |  1992-07-12  |  632b  |  27 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.   until pos('shortest path', line ) > 0;
  11.   repeat 
  12.     s := ReadNumber(f);
  13.     if s <> 0 then
  14.       space.sectors[s].etc :=  space.sectors[s].etc or SpaceLane;
  15.     read( f, ch );
  16.   until (ch <> '>') or (s=0);
  17. end; {process Path}
  18.  
  19. procedure PartVI( var space : TheVoid );
  20. { read computer read out from Major Space Lanes data }
  21. var
  22.   pass : 1..8;
  23. begin
  24.   for pass := 1 to 8 do
  25.     processPath( space );
  26.   SaveData( g, space );
  27. end; {Part6}