# init variables
setVar $sectorList ""
setVar $tradeSector ""
setVar $i 1

setVar $shopFile "ports.txt"
fileExists $exists $shopFile
if ($exists)
readtoArray $shopFile $myPorts
else
echo ANSI_12 "** Figs file does not exist!!! Halting."
halt
end

# setup a loop to move through the sectors
:loopStart
   # get the sector to warp to
   getword $myPorts[$i] $tradeSector $i
   while ($tradeSector > 0)
      # warp to sector
      send "s"
      waitfor "Citadel command (?=h"
      send "p"
      waitfor "lanet to? (Q to Abort)"
      send $tradeSector "*"
      waitfor "shall we engage?"
      send "y"
      gosub :sellBuy
      add $i 1
      getword $myPorts[$i] $tradeSector $i
   end

# ---------------------------------------------------------
# Set this to the appropriate filename
setVar $ports_file ""
# ---------------------------------------------------------

# Promptify
send #145
waitFor #145
setVar $currentline CURRENTLINE
stripText $currentline #8
stripText $currentline #145
getWord $currentline $prompt 1
if ($prompt <> "Citadel")
    send "'This script must run from the Citadel!*"
    halt
end

# Read ports file
setVar $ports_count 0
setArray $ports_list SECTORS
fileExists $exists $ports_file

if ($exists > 0)
    readToArray $ports_file $list
    setVar $i 1
    while ($i <= $list)
        getWord $list[$i] $word 1
        isNumber $num $word
        if ($num > 0)
            if (($word > 10) AND ($word <= SECTORS))
                add $ports_count 1
                setVar $ports_list[$word] TRUE
            end
        end
        add $i 1
    end
end
if ($ports_count < 1)
    send "'No valid ports to visit!*"
end

# Now we have a hash array that specifies whether
# a given sector is or is not a port to hit. Its
# already clean, so we don't have to re-test each
# sector later.

# ---------------------------------------------------------

# Top loop
:top_loop
    killAllTriggers

    # Scan sector
    send "s*  "
    waitFor "<Scan Sector>"
    waitFor "Sector  :"
    getWord CURRENTLINE $this_sector 3
    waitFor "Citadel command (?=help)"

    # Find the next port to hit
    getNearestWarps $stack $this_sector
    setVar $next_port 0
    setVar $i 1
    while ($i <= $stack)
        setVar $this $stack[$i]
        if ($ports_list[$this] = TRUE)
            setVar $next_port $this
            goto :found_next_port
        end
        add $i 1
    end
    if ($next_port = 0)
        send "'Out of ports!*"
    end
    :found_next_port

     # Pwarp there
    killtrigger nofiglock
    killtrigger toolilore
    killtrigger alreadyth
    killtrigger rdy_to_go
    setTextLineTrigger nofiglock :cant_go "You do not have any fighters in"
    setTextLineTrigger toolilore :no_fuel "You do not have enough"
    setTextLineTrigger alreadyth :p_ready "You are already in that sector!"
    setTextLineTrigger rdy_to_go :p_ready "All Systems Ready, shall we engage?"
    send "p" & $next_port "*y"
    pause

    :cant_go
    killtrigger nofiglock
    killtrigger toolilore
    killtrigger alreadyth
    killtrigger rdy_to_go
    echo ANSI_12 & "Sector " & $next_port & " has no fig down!*"
    setVar $ports_list[$next_port] FALSE
    goto :top_loop

    :no_fuel
    killtrigger nofiglock
    killtrigger toolilore
    killtrigger alreadyth
    killtrigger rdy_to_go
    send "'Planet is too low on ore to continue!*"
    halt

    :p_ready
    killtrigger nofiglock
    killtrigger toolilore
    killtrigger alreadyth
    killtrigger rdy_to_go

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    # Your code goes here to do whatever you need to do

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    # Clear from the list and hit the next
    setVar $ports_list[$next_port] FALSE
    goto :top_loop

# ---------------------------------------------------------
halt
# ---------------------------------------------------------