home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 120.PART5.INC < prev    next >
Text File  |  1992-03-10  |  2KB  |  58 lines
  1. procedure PartV;
  2. { generate an upload to determine the Major Space Lanes. }
  3. var
  4.   Class0Count : integer;
  5.   Class0s     : array [1..3] of sectorIndex;
  6.   s           : sectorIndex;
  7.   
  8. begin
  9.   for Class0Count := 1 to 3 do
  10.     Class0s[ Class0Count ] := 0;
  11.   Class0Count := 0;
  12.   for s := 1 to MaxSector do
  13.     if space.sectors[s].PortType = Class0 then
  14.       begin
  15.         Class0Count := Class0Count + 1;
  16.         writeln( s, ' is a Class 0 port.');
  17.         Class0s[ Class0Count ] := s;
  18.       end;
  19.   writeln('Number of Class 0 ports detected: ', Class0Count );
  20.   if Class0Count < 3 then
  21.     begin
  22.       writeln('To find the major space lanes, I need the locations of the');
  23.       writeln('class 0 ports.  Please list any additional known ports.');
  24.       repeat
  25.         write('Unlisted Class 0 port? (0 to abort) ');
  26.         readln( s );
  27.         if s > 0 then
  28.           begin
  29.             Class0Count := Class0Count + 1;
  30.             Class0s[ Class0Count ] := s;
  31.           end; {if}
  32.       until (s = 0) or (Class0Count = 3);
  33.     end; {if}
  34.   if space.dock = 0 then
  35.     begin
  36.       writeln('Most important to the space lane computation is the location of the');
  37.       writeln('Space Dock.  If you know its location, please give it.');
  38.       write('Space Dock?  (0 to abort) ');
  39.       readln( space.dock );
  40.     end; {if}
  41.   if space.dock > 0 then
  42.     for Class0Count := 1 to 3 do
  43.       if Class0s[Class0Count] <> 0 then
  44.         begin
  45.           writeln( g, 'F', space.dock);
  46.           writeln( g, Class0s[Class0Count] );
  47.           writeln( g, 'F', Class0s[Class0Count] );
  48.           writeln( g, space.dock );
  49.         end; {if for if}
  50.   if (Class0s[2] <> 0) and (Class0s[3] <> 0) then
  51.     begin
  52.       writeln( g, 'F', Class0s[2] );
  53.       writeln( g, Class0s[3]);
  54.       writeln( g, 'F', Class0s[3] );
  55.       writeln( g, Class0s[2]);
  56.     end; {if}
  57.   close( g );
  58. end; {PartV}