@verb #7148:":1* :2* :3* :4* :5* :6* :7* :8* :9*" this none this rxdo #7951
@program #7148:":1* :2* :3* :4* :5* :6* :7* :8* :9*" this none this
{p} = args
n = toint(verb)
p:tell("&lt;Move&gt;<br><font color=purple>Warping to Sector</font> <font color=yellow>", n, "</font><br>")
if (this.location == this.universe.sectors[n])
  return p:tell("<br><font color=green>You are already in that sector!</font>")
endif
if (n in this.location.warps)
  this:warp(this.universe.sectors[n])
else
  p:tell("<font color=green>That Warp Lane is not adjacent.</font><br>")
  path = this.location:find_path(p, this.universe.sectors[n])
  p:tell("<font color=blue>Computed.</font><br>")
  p:tell("<font color=green>The shortest path <font color=purple>(", length(path) - 1, ", ", (length(path) - 1) * this.class.turns_per_warp, " turns)</font> from sector <font color=yellow>", this.location:num(), "</font> to sector <font color=yellow>", n, "</font> is<font color=yellow>:</font>")
  pathdesc = {tostr("<font color=888800>", this.location:num(), "</font>")}
  for x in (path)
    if (p:explored(x))
      pathdesc = {@pathdesc, tostr("<font color=green>", x:num(), "</font>")}
    else
      pathdesc = {@pathdesc, tostr("<font color=red>(", x:num(), ")</font>")}
    endif
  endfor
  p:tell($string_utils:from_list(pathdesc, " <font color=yellow>&gt;</font> "))
  auto = $command_utils:y_or_n("<font color=purple>Engage the Autopilot?</font>", 1, {"Y", "N", "Single step", "Express"})
  if (auto != "N")
    p:tell("&lt;Auto Pilot Engaging&gt;<br>")
    for x in (path)
      p:tell("<font color=888800>Auto Warping to sector</font> <font color=yellow>", path[1]:num(), "</font><br>")
      this:warp(x)
      while (1)
        opts = {"Y", "N", "E", "I", "R", "S", "B", "P", "?"}
        cont = $command_utils:y_or_n("<font color=cyan>Stop in this sector?</font>", "N", opts)
        if (cont == "y")
          break x
        elseif (cont == "n")
          break
        elseif (cont == "i")
          p.location:info(p)
        elseif (cont == "p")
          p.location:p(p)
        endif
      endwhile
    endfor
  endif
endif
"Last modified by Dax (#789) on Tue May  3 14:09:36 2005 MDT."
.