# ---------------------------------------------------------
# Set this to the appropriate filename
setVar $ports_file ports.txt
# ---------------------------------------------------------

# 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
send "qdc"
waitFor "Planet #"
setVar $GetPlanet CURRENTLINE
stripText $GetPlanet 035
getWord $GetPlanet $Planet 2

# 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

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

    send "qqpn" $Planet
    waitFor "Fuel Ore"
    setVar $portFuel1 CURRENTLINE
    getWord $portFuel1 $portFuel 3
    waitFor "Organics"
    setVar $portOrganics1 CURRENTLINE
    waitFor "Equipment"
    setVar $portEquipment1 CURRENTLINE
    if ($portFuel = "Selling")
      goto :sellOrganics
    end

    :sellFuel
    getword $portFuel1 $portBuying 4
    getword $portFuel1 $portPercent 5
    stripText $portPercent 037
    subtract $portPercent 50
    if (0 > $portPercent)
      setVar $portPercent 0
    end
    setVar $sellFuel ($portBuying * $portPercent / 100))
    waitFor "We are buying up to"
    send $sellFuel "*"

    :sellOrganics
    getWord $portOrganics1 $portBuying 3
    getword $portOrganics1 $portPercent 4
    stripText $portPercent 037
    subtract $portPercent 50
    if (0 > $portPercent)
      setVar $portPercent 0
    end
    setVar $sellOrganics ($portBuying * ($portPercent / 100))
    waitFor "We are buying up to"
    send $sellOrganics "*"

    :sellEquipment
    getWord $portEquipment1 $portBuying 3
    getword $portEquipment1 $portPercent 4
    stripText $portPercent $portPercent 037
    subtract $portPercent 50
    if (0 > $portPercent)
      setVar $portPercent 0
    end
    setVar $sellEquipment ($portBuying * ($portPercent / 100))
    waitFor "We are buying up to"
    send $sellEquipment "*"   

    waitFor "Command [TL="
    send "l" $Planet "*c"
   
    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

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

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