@verb #8056:":find_path" this none this rxdo #7165
@program #8056:":find_path" this none this
{p, to} = args
if (this == to)
  return {}
endif
black = p.avoids
grey = {{this}}
while (grey)
  g = {}
  for path in (grey)
    black = {@black, path[$]}
    for y in (path[$].warps)
      s = this.universe.sectors[y]
      if (s in black)
      elseif (s == to)
        return {@path[2..$], s}
      else
        g = {@g, {@path, s}}
      endif
    endfor
  endfor
  grey = g
endwhile
return E_NACC
"Last modified by manta (#7165) on Thu Dec  6 00:07:49 2001 MST."
.