getWord CURRENTLINE $prompt 1
if ($prompt <> "Command")
   echo "*Script must start from the Command prompt."
   halt
end

# Make sure TWX knows where StarDock is
send "v^"
waitOn "StarDock"

setVar $started TIME
setVar $plotCount 0
setVar $wait1 ""
setVar $wait2 ""
setVar $wait3 ""
setVar $plotTo 1
while ($plotTo <= SECTORS)
   if (SECTOR.EXPLORED[$plotTo] = "NO") and ($plotTo <> STARDOCK)
      add $plotCount 1
      send "f" STARDOCK "*" $plotTo "*"
      if ($wait1 <> "")
         waitOn "TO > " & $wait1
         waitOn $wait1
      end
      setVar $wait1 $wait2
      setVar $wait2 $wait3
      setVar $wait3 $plotTo
   end
   add $plotTo 1
end
send "q"
waitOn "Command"
echo "*Plot Count: " $plotCount "*Started: " $started ", Ended: " TIME

setarray $PLOTTED    SECTORS
setarray $PLOTS    500
setvar $DEBUG       FALSE

setvar $PLOTS_MADE 0
setvar $PLOTS_PARSED 0
setvar $PLOTS_TOTAL 0

Echo ANSI_15 & "**Standby: Generating Target List...**"
setvar $i 1
while ($i <= SECTORS)
   if ($i <> STARDOCK)
      getdistance $DIST STARDOCK $i
      if ($DIST <> "-1")
         if ($PLOTS[$DIST] = "0")
            setvar $PLOTS[$DIST] ""
         end
         setvar $PLOTS[$DIST] ($PLOTS[$DIST] & " " & $i & " ")
      end
   end
   add $i 1
end

if ($DEBUG)
   setvar $FILE "C:\LS_123abc.txt"
   Echo "*Writing Results to : " & $FILE & "*"
   delete $FILE
   setvar $i 1
   while ($i <= 500)
      write $FILE $PLOTS[$i]
      add $i 1
   end
end

Echo "**Plotting...**"
setvar $i 500
while ($i >= 1)
   if ($PLOTS[$i] <> "0")
      getWord $PLOTS[$i] $TEMP 1 "!!@@##"
      while ($TEMP <> "!!@@##")
         add $PLOTS_TOTAL 1
         ReplaceText $PLOTS[$i] (" " & $TEMP & " ") " "
         if ($PLOTTED[$TEMP] <> TRUE)
            add $PLOTS_MADE 1
            getcourse $COURSE STARDOCK $TEMP
             if ($COURSE <> "-1")
               setvar $IDX 1
               while ($IDX <= $COURSE)
                  if ($PLOTTED[$COURSE[$IDX]] <> TRUE)
                     add $PLOTS_PARSED 1
                  end
                  setvar $PLOTTED[$COURSE[$IDX]] TRUE
                  add $IDX 1
               end
            end
         end
         getWord $PLOTS[$i] $TEMP 1 "!!@@##"
      end
      gosub :SLEEP
   end
   subtract $i 1
end

Echo "**" & ANSI_15 & "-----------Results------------"
Echo "*" & ANSI_15 & "Plots Made     : " & $PLOTS_MADE
Echo "*" & ANSI_15 & "Plots Parsed   : " & $PLOTS_PARSED
Echo "**"& ANSI_15 & "Targets Scanned: " & $PLOTS_TOTAL
Echo "**"
Halt

:SLEEP
   setdelaytrigger SLEE   :WAKEUP 10
   pause
   :WAKEUP
   killalltriggers
   return