getword CURRENTLINE $prompt 1
  cuttext CURRENTLINE $var 24 5
  striptext $var "]"
  if ($prompt <> "Command") or ($var <> STARDOCK)
      echo ansi_12 "* You must start this script from the Command prompt at StarDock."
      halt
    end
  setvar $1ways ""
  setvar $report "Sub-space Report"
  gosub :rylos
  gosub :alpha

# -----p][x logo and menu------------------------------------------------------
:logo

:menu
  echo "title"
  echo ansi_14 "* 1 " ansi_12 "Rylos             " ansi_14 $rylos
  echo ansi_14 "* 2 " ansi_12 "Alpha Centauri    " ansi_14 $alpha
  echo ansi_14 "* 3 " ansi_12 "1-way Handeling   " ansi_14 $report
  echo ansi_14 "* ? " ansi_12 "Help" ansi_4 ", " ansi_14 " + " ansi_12 "Start" ansi_4 ", " ansi_14 " - " ansi_12 "Quit* "
  getconsoleinput $menu SINGLEKEY

# -----Menu response-----------------------------------------------------------
:menu_response
  if ($menu = 1)
      gosub :rylos
    elseif ($menu = 2)
      gosub :alpha
    elseif ($menu = 3)
      if ($1ways = "Yes")
          setvar $1ways "No"
        elseif ($1ways = "No")
          setvar $1ways "Yes"
        end
    elseif ($menu = 4)
      if ($report = "Sub-space Report")
          setvar $report "Local Report"
        elseif ($report = "Local Report")
          setvar $report "Express Fig"
        elseif ($report = "Express Fig")
          setvar $report "Sub-space Report")
        end
    elseif ($menu = "+") or ($menu = "=")
      goto :launch
    elseif ($menu = "-") or ($menu = "_")
      gosub :save
    elseif ($menu = "?") or ($menu = "/")
      gosub :help
    end
  goto :menu
      halt

# -----Script Launch-----------------------------------------------------------
:launch
  :route1
    send "m1*"
    gosub :get_path
    setvar $route ":route2"
    goto :run_path
  :route2
    setvar $path "3 4 5 6 7 8 2x 9 10 2 1"
    setvar $route ":route3"
    goto :run_path
  :route3
    send "m" STARDOCK "*"
    gosub :get_path
    setvar $route ":route4"
    goto :run_path
  :route4
  pause


# -----Report 1-ways because they were not figged------------------------------
:report
  if ($report = "Sub-space Report")
      send "'*MSL Runner - Completed*"
      send "The following are 1 ways and were not figged.   Outgoing-1Way*"
      send $1ways "**"
      waitfor "Sub-space comm-link terminated"
    else
      send "'MSL Runner - Completed*"
      waitfor "Message sent on sub-space channel"
      echo ansi_14 "* The following are 1-ways and were not figged." ansi_12 " Outgoing-1Way"
      echo ansi_12 "* " $1ways
    end
  halt

# -----Get path data for the next destination----------------------------------
:get_path
  killalltriggers
  settextlinetrigger 1 :twarp "TransWarp drive?"
  settextlinetrigger 2 :line1 " > "
  settextlinetrigger 3 :engag "Engage the Autopilot?"
  pause
  :twarp
    killtrigger 2
    killtrigger 3
    send "n"
    goto :get_path
  :line1
    killtrigger 1
    setvar $path CURRENTLINE
    getword $path $var 1
    striptext $path $var
  settextlinetrigger 2 :line2 " > "
  pause
  :line2
    mergetext $path CURRENTLINE $path
  settextlinetrigger 2 :line3 " > "
  pause
  :line3
    mergetext $path CURRENTLINE $path
  settextlinetrigger 2 :line4 " > "
  pause
  :line4
    mergetext $path CURRENTLINE $path
  :engag
    killtrigger 2
    striptext $path ">"
    striptext $path "("
    striptext $path ")"
    return

# -----Run the path to the next destination------------------------------------
:run_path
  getword $path $next 1
  if ($next = "")
      goto $route
    end
  striptext $path $next
  striptext $next "x"
  send "m" $next "* za 9999*"
  gosub :surround
  setvar $next ""
  goto :run_path

# -----Surround current sector-------------------------------------------------
:surround
  setvar $surround_loop 1
  if ($next = 1)
      goto $route
    end
  while ($surround_loop <= sector.warpcount[$next])
      setVar $adjacent sector.warps[$next][$surround_loop]
      getDistance $distance $adjacent $next
      if ($distance > 1)
          if ($1ways = "")
              setvar $1ways $next & "-" & $adjacent
            else
              setvar $1ways $1ways & ", " & $next & "-" & $adjacent
            end
        end
      setVar $surround_loop ($surround_loop + 1)
      if ($adjacent <> stardock) and ($adjacent > 10) and ($distance = 1)
           send "m" $adjacent " * za 9999* * f 1* cd < "
        end
    end
  return

# -----Ask for Rylos and Alpha Centauri locations------------------------------
:rylos
  echo ansi_12 "* Where is Rylos? "
  getconsoleinput $rylos
  return
:alpha
  echo ansi_12 "* Where is Alpha Centauri? "
  getconsoleinput $alpha
  return