#=============================== AUTO KILL ==========================================
:autoKill
:kill
   gosub :killthetriggers
   gosub :quikstats
   setVar $startingLocation $CURRENT_PROMPT
   if ($startingLocation <> "Command")
      if ($startingLocation = "Citadel")
         if ($mode <> "Citkill")
            setVar $user_command_line "citkill on override"
            goto :runUserCommandLine
         else
                setVar $user_command_line "citkill off"
            goto :runUserCommandLine
         end
      end
      setVar $message "Wrong prompt for auto kill.*"
      gosub :switchboard
      goto :wait_for_command
   end
   if ($SHIP_MAX_ATTACK <= 0)
      gosub :getShipStats
   end
   goSub :getSectorData
   goSub :fastAttack
   goto :wait_for_command

:fastAttack
   setVar $targetString  "a"
   setVar $isFound FALSE
   getWordPos $sectorData $beaconPos "Beacon  :"
   :checkingFigs
      if ($FIGHTERS > 0)
         if ((($CURRENT_SECTOR > 10) AND ($CURRENT_SECTOR <> STARDOCK)) AND ($beaconPos > 0))
            setVar $targetString $targetString&"*"
         end
      else
         gosub :quikstats
         if ($FIGHTERS <= 0)
            echo ANSI_12 "*You have no fighters.*" ANSI_7
            goto :stoppingPoint
         else
            goto :checkingFigs
         end
      end
   if (($emptyShipCount + $fakeTraderCount + $realTraderCount) > 0)
      setVar $i 0
      while ($i < ($emptyShipCount + $fakeTraderCount))
         setVar $targetString $targetString&"* "
         add $i 1
      end
      setVar $c 1
      while (($c <= $realTraderCount) AND ($isFound = FALSE))

         if (($TRADERS[$c][1]) = ($CORP))
            setVar $targetString $targetString&"* "
         elseif ((($CURRENT_SECTOR <= 10) OR ($CURRENT_SECTOR = STARDOCK)) AND $TRADERS[$c][2] = TRUE)
            setVar $targetString $targetString&"* "
         else
            setVar $isFound TRUE
            setVar $targetString $targetString&"zy z"
         end
         add $c 1
      end
   else
      setVar $message "You have no targets.*"
      gosub :switchboard
      goto :stoppingPoint
   end
   if ($isFound = TRUE)
      setVar $attackString ""
      while ($FIGHTERS > 0)
         if ($FIGHTERS < $SHIP_MAX_ATTACK)
            setVar $attackString $attackString&$targetString&$FIGHTERS&"* * "
            setVar $FIGHTERS 0
         else
            setVar $attackString $attackString&$targetString&$SHIP_MAX_ATTACK&"* * "
            setVar $FIGHTERS ($FIGHTERS - $SHIP_MAX_ATTACK)
         end
      end
   else
      setVar $message "You have no valid targets.*"
      gosub :switchboard
      goto :stoppingPoint
   end
   send $attackString&"* "
   gosub :quikstats
   :stoppingPoint
return
#============================ END AUTO KILL ============================================