home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 05B / TWVIEW91.ZIP / BASEPATH.INC < prev    next >
Encoding:
Text File  |  1992-03-11  |  1.0 KB  |  32 lines
  1. function FixPath( start, finish : sector ) : integer;
  2. { Adjusts Distances from start up to point were finish is entered;
  3. returns length of path. }
  4. var
  5.   s : sector;
  6.   breadth : queue;
  7.   daddy, sonny : sector;
  8.   i : warpindex;
  9.   done : boolean;
  10. begin
  11.   for s := 1 to maxSector do
  12.     Distances[s].d := -1;
  13.   breadth.front := 0;
  14.   enqueue( breadth, start, start );
  15.   repeat
  16.       serve( breadth, daddy, sonny );
  17.       if (Distances[ sonny ].d = -1) then {haven't hit him before:}
  18.         begin
  19.           distances[ sonny ].d := distances[ daddy ].d + 1;
  20.           distances[ sonny ].s := daddy;
  21.           if (space.sectors[sonny].etc and avoid) = Nothing then
  22.             with space.sectors[ sonny ] do if number > 0 then
  23.               for i := 1 to number do
  24.                 enqueue( breadth, sonny, data[ i ] );
  25.           done := sonny = finish;
  26.         end; {if}
  27.   until done or (breadth.front = 0);
  28.   for s := 1 to maxSector do
  29.     if distances[s].d = -1 then distances[s].d := maxint;
  30.   FixPath := distances[ finish ].d;
  31. end; {FixPath}
  32.