home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 119.PART13.INC < prev    next >
Text File  |  1992-07-19  |  2KB  |  67 lines
  1. procedure GetExplored( var scanme : sectorscanner );
  2. var
  3.   n : integer;
  4.   s : sector;
  5. begin
  6.   writeln('Examining list of EXPLORED sectors.');
  7.   for s := 1 to maxSector do
  8.     scanme[ s ] := false;
  9.   n := readNumber(f);
  10.   while (not eof( f )) and (n>0) do
  11.     begin
  12.       if space.sectors[n].number = 0 then
  13.         scanme[ n ] := true;
  14.       n := readNumber(f);
  15.     end; {while}
  16. end; {GetExplored}
  17.  
  18. procedure GetUnexplored( var ScanMe : sectorscanner );
  19. var
  20.   n         : integer;
  21.   s         : sector;
  22. begin
  23.   writeln('Examining list of UNEXPLORED sectors.');
  24.   for s := 1 to MaxSector do                            { if unexplored }
  25.     ScanMe[ s ] := space.sectors[s].number=Unexplored;  { we'd like it  }
  26.   n := readnumber(f);
  27.   while (not eof(f) ) and (n>0) do
  28.     begin
  29.       ScanMe[ n ] := false;                              { no info       }
  30.       n := ReadNumber(f);
  31.     end; {while}
  32. end; {GetUnexplored}
  33.  
  34. procedure PartOneThree;
  35. {Determines if this is an EXPLORED or UNEXPLORED log, and creates scan 
  36. accordingly.}
  37. var
  38.   newcount,
  39.   count, n : integer;
  40.   line     : string;
  41.   ch       : char;
  42.   ScanMe   : sectorScanner;
  43.   s        : sector;
  44.   PortsToo : boolean;
  45. begin
  46.   repeat
  47.     readln( f, line );
  48.   until (pos( 'sectors:', line ) > 0) or eof( f );
  49.   PortsToo := prompt('Do you want port report inquiries included? ');
  50.   if pos('NOT', line) > 0 then
  51.     GetUnexplored( ScanMe )
  52.   else
  53.     GetExplored( ScanMe );
  54.   newcount := 0;
  55.   for s := 1 to MaxSector do
  56.     if ScanMe[s] then
  57.       begin
  58.         newcount := newcount + 1;
  59.         writeln('New sector infor for ', s );
  60.         writeln( g, 'I', s);
  61.         if PortsToo then
  62.           writeln( g, 'R', s );
  63.       end;
  64.   writeln('Explored ', newcount, ' new sectors.');
  65.   close( g );
  66. end; {PartOneThree}
  67.