home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 103.ONEWAY.INC < prev    next >
Text File  |  1992-06-07  |  704b  |  23 lines
  1. procedure oneWaySectorList;
  2. { display to the screen a list of all one way sectors }
  3. var
  4.   t     : warpindex;
  5.   s, s1 : sector;
  6.   n     : integer;  { number of one way warps found }
  7. begin
  8.   n := 0;
  9.   for s := 1 to MaxSector do
  10.     if space.sectors[s].number <> Unexplored then
  11.       for t := 1 to space.sectors[s].number do
  12.         begin
  13.           s1 := space.sectors[s].data[t];
  14.           if (space.sectors[s1].number <> unexplored) and
  15.               not IsWarp( s1, s) then
  16.             begin
  17.               write( s : 5, '->', s1:3);
  18.               n := n + 1;
  19.             end; {if}
  20.         end; {for if for}
  21.   writeln;
  22.   writeln('total of ', n, ' one way sectors discovered.');
  23. end;