:GetStatus
  loadVar $Team~BotList
 
  If ($Team~BotList = 0)
    getInput $Team~BotList "Please enter bot names seperated by spaces."
    saveVar $Team~BotList
  end

  echo ANSI_14 "Collecting Data...**"
 
setVar $i  1
:Loop1
  getWord $Team~BotList $TeamStatus~BotName[$i] $i
  #saveVar TeamStatus$BotName[$i]

  if ($TeamStatus~BotName[$i] <> 0)
    send "'" $TeamStatus~BotName[$i]  " Status*"
    Gosub :LoadStatus
    add $i 1
    goto :Loop1
  end

# Send Status over SubSpace
  send "'* *Player       Sector  Prompt   Turns   PH Mode     IG  Ship LP Time*"
  send "------------ ------- -------- ------- -- -------- --- ---- -- -------*"

setVar $i  1
:Loop2
# Only use left 4 characters of the bot name.
cutText "{" & $TeamStatus~BotName[$i] $BotName 1 5
cutText $BotName & "}  " $BotName 1 6

  if ($TeamStatus~BotName[$i]  <> 0)
    send $TeamStatus~Player[$i]
    send $BotName " "
    if $TeamStatus~OnPlanet[$i]
      cutText $TeamStatus~Sector[$i] & "P      " $Sector 1 7   
    else
      cutText $TeamStatus~Sector[$i] & "      " $Sector 1 7   
    end
    send $Sector " "
    send $TeamStatus~Prompt[$i] " "
    send $TeamStatus~Turns[$i] " "
    send $TeamStatus~Photons[$i] " "
    send $TeamStatus~Mode[$i] " "
    send $TeamStatus~IG[$i] " "
    send $TeamStatus~Ship[$i] " "
    send $TeamStatus~LastPlanet[$i] " "
    send $TeamStatus~TimeLeft[$i] "*"
    add $i 1
    goto :Loop2
  end
  send "*"

# Display Status Locally
  subtract $i 1
  WaitFor $TeamStatus~Player[$i] & "{"
  WaitFor "Command [TL"
  echo ANSI_5 "**Player       Sector  Prompt   Turns   PH Mode     IG  Ship LP Time*"
  echo ANSI_15 "------------ ------- -------- ------- -- -------- --- ---- -- -------*"

setVar $i  1
:Loop3
# Only use left 4 characters of the bot name.
cutText "{" & $TeamStatus~BotName[$i] $BotName 1 5
cutText $BotName & "}  " $BotName 1 6

  if ($TeamStatus~BotName[$i]  <> 0)
    echo ANSI_11 $TeamStatus~Player[$i]
    echo $BotName " "
    if $TeamStatus~OnPlanet[$i]
      cutText $TeamStatus~Sector[$i] & ANSI_12 & #27 & "[5mP" & #27 & "[0m      " $Sector 1 22   
    else
      cutText $TeamStatus~Sector[$i] & "      " $Sector 1 7   
    end
    echo ANSI_14 $Sector " "
    echo ANSI_10 $TeamStatus~Prompt[$i] " "
    echo ANSI_14 $TeamStatus~Turns[$i] " "
    echo ANSI_13 $TeamStatus~Photons[$i] " "
    echo ANSI_10 $TeamStatus~Mode[$i] " "
    echo ANSI_13 $TeamStatus~IG[$i] " "
    echo ANSI_10 $TeamStatus~Ship[$i] " "
    echo ANSI_13 $TeamStatus~LastPlanet[$i] " "
    echo ANSI_14 $TeamStatus~TimeLeft[$i] "*"
    add $i 1
    goto :Loop3
  end
  halt

:LoadStatus
  WaitFor "--- Status Report ---"
  getWord CURRENTLINE $Channel 1
  if ($Channel = "S:")
    setVar $WordOffset 5
    setVar $TeamStatus~Player[$i] $TraderName
  else
    setVar $WordOffset 6
    getWord CURRENTLINE $TeamStatus~Player[$i] 2
  end
  cutText $TeamStatus~Player[$i] & "      " $TeamStatus~Player[$i] 1 6
 
  killAllTriggers
  setTextTrigger S0 :Trader "Trader Name"
  setTextTrigger S1 :Sector " - Sector"
  setTextTrigger S2 :Prompt " - Prompt"
  setTextTrigger S3 :Turns " - Turns"
  setTextTrigger S4 :Photons " - Photons"
  setTextTrigger S5 :Mode " - Mode"
  setTextTrigger S6 :IG " - IG"
  setTextTrigger S7 :Ship " - Ship"
  setTextTrigger S8 :Planet " - Planet"
  setTextTrigger S9 :LastPlanet " - Last Planet"
  setTextTrigger S10 :Team " - Team"
  setTextTrigger S11 :TimeLeft " - Time Left"
  pause
 
:Trader
  getWord CURRENTLINE $TraderName 5
#  if $TraderName
#   getWord CURRENTLINE $TraderName 5
  #end
  cutText $TraderName & "      " $TraderName 1 6
  goto :LoadStatus

:Sector
  getWord CURRENTLINE $TeamStatus~Sector[$i] $WordOffset
  pause

:Prompt
  getWord CURRENTLINE $TeamStatus~Prompt[$i] $WordOffset
  cutText $TeamStatus~Prompt[$i] & "          " $TeamStatus~Prompt[$i] 1 8
  pause

:Turns
  getWord CURRENTLINE $TeamStatus~Turns[$i] $WordOffset
  cutText $TeamStatus~Turns[$i] & "      " $TeamStatus~Turns[$i] 1 7
  pause

:Photons
  getWord CURRENTLINE $TeamStatus~Photons[$i] $WordOffset
  cutText $TeamStatus~Photons[$i] & "        " $TeamStatus~Photons[$i] 1 2
  pause

:Mode
  getWord CURRENTLINE $TeamStatus~Mode[$i] $WordOffset
  cutText $TeamStatus~Mode[$i] & "          " $TeamStatus~Mode[$i] 1 8
  pause

:IG
  getWord CURRENTLINE $TeamStatus~IG[$i] $WordOffset
  cutText $TeamStatus~IG[$i] & "        " $TeamStatus~IG[$i] 1 3
  pause

:Ship
  getWord CURRENTLINE $TeamStatus~Ship[$i] $WordOffset
  cutText $TeamStatus~Ship[$i] & "        " $TeamStatus~Ship[$i] 1 4
  pause

:Planet
  getWord CURRENTLINE $TeamStatus~LastPlanet[$i] $WordOffset
  cutText $TeamStatus~LastPlanet[$i] & "        " $TeamStatus~LastPlanet[$i] 1 2
  setVar $TeamStatus~OnPlanet[$i] 1
  pause

:LastPlanet
  getWord CURRENTLINE $TeamStatus~LastPlanet[$i] $WordOffset + 1
  cutText $TeamStatus~LastPlanet[$i] & "        " $TeamStatus~LastPlanet[$i] 1 2
  setVar $TeamStatus~OnPlanet[$i] 0
  pause

:Team
  getWord CURRENTLINE $TeamStatus~Team[$i] $WordOffset
  cutText $TeamStatus~Team[$i] & "        " $TeamStatus~Team[$i] 1 4
  pause

:TimeLeft
  getWord CURRENTLINE $TeamStatus~TimeLeft[$i] $WordOffset  + 1
  cutText $TeamStatus~TimeLeft[$i] & "        " $TeamStatus~TimeLeft[$i] 1 7
  return

#      After plock turn on citkill
#
#
systemscript
loadvar $bot_name
send "'*"
send "Starting Active Plock/Auto Citkilla**"

:starttriggers
settexttrigger 1 :activeplock "{" & $bot_name & "} - PLOCK Ready to fire Sector:"
settexttrigger 2 :cleared "{" & $bot_name & "} - PLOCK Sector Cleared"
echo "***...Waiting for plock to fire...***"
echo "***...Be sure that you do not have (kill) option on...***"
pause

:activeplock
killtrigger 1
killtrigger 2
settexttrigger 3 :plockdone " -PLOCK Launched"
pause

:plockdone
killtrigger 3
send "'*"
send $bot_name " citkill on dt smart**"

:cleared
killalltriggers
send "'Resetting triggers!*"
goto :starttriggers

#disrupted 12 of your mines in 19146