:check_ports
        killalltriggers
        waitfor "Citadel command (?"
        setTextLineTrigger port_blown :port_blown "<=-DANGER-=>  Scanners indicate massive debris and heavy"
        setTextLineTrigger under_construction :under_construction "(Under Construction - "
        setTextLineTrigger port_here :port_here "Class"
        setTextLineTrigger needs_port :build_port "Warps to Sector(s)"
        send "s*  "
        pause

        :port_here
           killalltriggers
          IF (PORT.CLASS[$CURRENT_SECTOR] <> 3)
               send "qmnt*  c  "
               waitfor "Citadel command"
                        gosub :quikstats
                        IF ($FIGHTERS < $SHIP_MAX_ATTACK)
                                send "'{" $bot_name "} - Not Enough Fighters to Blow Port*"
                                goto  :end_check_ports
                        ELSE
                                send "q q pay" $SHIP_MAX_ATTACK "*  q  z  n *  l  " & #8 & #8 & $planetToFill & "*  mnt*  c  "
                                goto  :end_check_ports
                        END
         ELSE
                        killalltriggers
                        waitfor "Command [TL="
                        setvar $total_creds_needed 0
                        send "o *"
                        settextlinetrigger upgrading_port :upgrade_port "Choice ?"
                        settextlinetrigger under_construction :under_construction "Command [TL="
                        pause

                        :upgrade_port
                                echo "made it to upgrade the port***"
                                halt
                                killalltriggers
                 send "o 1*"
                 waitfor "0 to quit)"
                 getword currentline $totalFuelUpgradeNeeded 9
                 striptext $totalFuelUpgradeNeeded "("
                 striptext $totalFuelUpgradeNeeded ","
                                send "o 2*"
                 waitfor "0 to quit)"
                 getword currentline $totalOrgUpgradeNeeded 9
                 striptext $totalOrgUpgradeNeeded "("
                 striptext $totalOrgUpgradeNeeded ","
                                send "o 3*"
                 waitfor "0 to quit)"
                 getword currentline $totalEquipUpgradeNeeded 9
                 striptext $totalEquipUpgradeNeeded "("
                 striptext $totalEquipUpgradeNeeded ","
                                send "l  " & #8 & #8 & $planetToFill & "*  c  "
                                setVar $total_creds_needed 300*$totalFuelUpgradeNeeded
                 setVar $total_creds_needed $total_creds_needed+500*$totalOrgUpgradeNeeded
                 setVar $total_creds_needed $total_creds_needed+1000*$totalEquipUpgradeNeeded
                 IF ($total_creds_needed > $CREDITS)
                 setVar $cashonhand $CITADEL_CREDITS
                 add $cashonhand $CREDITS
                 IF ($cashonhand > $total_creds_needed)
                  send "T T " & $CREDITS & "* "
                       send "T F " & $total_creds_needed & "* "
                       setVar $CREDITS $total_creds_needed
                       send "q q"
                                           send "o 1" & $totalFuelUpgradeNeeded & "*"
                       waitfor "Command [TL="
                       echo "****"&$totalOrgUpgradeNeeded
                       send "o 2" & $totalOrgUpgradeNeeded & "*"
                       waitfor "Command [TL="
                       echo "****"&$totalFuelUpgradeNeeded
                       send "o 3" & $totalEquipUpgradeNeeded & "**"
                       waitfor "Command [TL="
                       echo "****"&$totalFuelUpgradeNeeded
                       send "l  " & #8 & #8 & $planetToFill & "*  mnt*  c"
                       goto  :end_check_ports
                                     ELSE
                                           send "'{" $bot_name "} - Not Enough Credits in Cidatel to Upgrade Port*"
                                           goto  :end_check_ports
                                     END
                                END
      END
                goto  :end_check_ports

:build_port
        killalltriggers
        IF ($CREDITS < 50000)
                send "T F 50000*"
                gosub :quikstats
                IF ($CREDITS < 50000)
                        send "'{" $bot_name "} - Not Enough Credits to Make Ports*"
                        send "q q q z n * l  " & #8 & #8 & $planetToFill & "*  c  *"
                END
        ELSE
                send "q q q z n * o3y" $portname "* l  " & #8 & #8 & $planetToFill & "*  c  *"
        END

:end_check_ports
        killalltriggers
        RETURN

:port_blown
        killalltriggers
        send "q q q z n * l  " & #8 & #8 & $planetToFill & "*  c  *"
        goto :end_check_ports

:under_construction
        killalltriggers
        echo "***port under construction****"
        halt
        goto :end_check_ports