#Jump Enter Xport Gridder    Mobby+Kaus  2010
#(Quickstats/Xport/Maxfig/Additonal help with main code curtesy of Dynarri @ Navhaz.com)
#Revisions changes @ Bottom of the script
#-- BugTracker: ## xport needs xport check other ship/needs unlim check/still freezing up on validation/halt if cant xport to jp##
#-- Next Todo: Bwarp Routine if shipwarp is higher than 1 and is on a planet/add the sector ztm check in density scan
reqRecording
loadvar $Bot_name
SetVar $RevisionNum ".40"
SetVar $XportSector 0
SetVar $LowData 0
SetVar $ShipNum2 107
SetVar $PlanetNum 0
SetVar $Cycles 0
SetVar $CyclesNum 100
#Can Set The Dodge limits :Public 16/20
SetVar $LowerLimit 12
SetVar $UpperLimit 18
SetVar $Port FALSE
SetVar $Thief FALSE
SetVar $Unlim FALSE
SetVar $ModeChk FALSE
SetVar $DensityPS FALSE
SetVar $Home CURRENTSECTOR
#SetVar $Good True

#gosub :Botme
gosub :quickstats
gosub :prevalidate
#gosub :validate
gosub :planetcheck
Send "'{" $bot_name "} - J.E.X. Gridder Rv" & $RevisionNum & " Now Loading*"
gosub :Dummy
gosub :CN9
gosub :XportCheck
gosub :ClearScreen
gosub :JumpRoutine

#--------------------------------------------------- Main Code -----------------------------------------
#---Start
:MainCode
#--- Pre Jump (Check to see if we should continue)
gosub :quickstats
If ($arraycnt = 0)
Send "'{" $bot_name "} - There are no further available targets from your Xport location, Halting*"
end
If ($quickstats[TURNS] = 0)
   Send "'-Out of turns or I've been torped, Shutting Down*"
   Halt
elseif ($Cycles >= $CyclesNum)
   Send "'{" $bot_name "} - Grid Cycles complete, Shutting Down*"
   Halt
end

#--- Get Random Sector and lets roll
gosub :RandomSec
SetDelayTrigger waiting :waiting 1000
pause

:Waiting
SetTextLineTrigger RightPrompt :Go "Command [TL"
Send "*"
pause

#--- Moving Along (Refuel PreJump Twarp Checks)
:Go
#--- GetDistance/Refuel
SetVar $NeedOre TRUE
SetVar $FuelTotal 0
GetDistance $FuelChk $Home $jumps[$RndSec]
GetDistance $FuelChk2 $targets[$RndSec] $Home
If (($Fuelchk = "-1") OR ($Fuelchk2 = "-1"))
  goto :SkipThis
end
Add $FuelTotal ($Fuelchk + $Fuelchk2)
Multiply $FuelTotal 3 
If ($FuelTotal <= $Quickstats[ORE])
Setvar $NeedOre FALSE
end

:SkipThis
If (($PlanetNum <> 0) AND ($NeedOre = TRUE))
  Send "l " & $PlanetNum & "* t n t 1 * q"
elseif (($PlanetNum = 0) AND ($NeedOre = TRUE))
  Send "p t * * * "
  gosub :quickstats
    If ($Quickstats[ORE] <> $Quickstats[HLDS]
     Send " 'Port appears to be out of fuel, halting."
     halt
   end
end

#--- Check to see if target is right nextdoor
Killalltriggers
getDistance $dist $home $jumps[$RndSec]
if ($dist = 0)
  Echo ANSI_12 "* ZTM Error"
    halt
elseif ($dist = 1)
    Send "m" & $jumps[$RndSec] & "*"
    Echo ANSI_12 "* This is the problem"
    goto :Locked1
  else
    Send "m" & $jumps[$RndSec] & "*"
    waitFor "<Move>"
    killalltriggers
    SetTextTrigger NoWarp :NoWarp "Engage the Autopilot?"
    SetTextTrigger Notlocked :NotLocked "make this jump blind?"
    SetTextTrigger Locked :Locked "shall we engage?"
    Send "y"
  Pause
end

:NoWarp
killalltriggers
send " n n * "
Send "' -Twarp is not enabled on this ship, Halting*"
Halt

:NotLocked
killalltriggers
send " n * "
Send "' -Fighter lock was lost, Halting*"
halt

#--- Lock and Loaded (Twarp JumpSec)
:Locked
killalltriggers
Send "y * "
#Attack sector figs/Say no to a mined sector wait for proper prompt
:Locked1
Send "q q q q z a " & $maxFigAttack & "* "
Waitfor "Command"

#--- JumpSec Stuff
gosub :Density
gosub :SavemeRoutine
add $Cycles 1
Send "'Gridding Sector>> " $targets[$RndSec] " (" & $Cycles & " of " &  $CyclesNum & ")*"
SetVar $TargetMac " m  z" & $targets[$RndSec] & "*  c  *  *  q  q  q  z  a  " & $maxFigAttack & "*  f  z  1  *  z  c  d  z  r  *  x      " & $ShipNum2 & "*  *  @"
Send $TargetMac
waitFor "Average Interval Lag:"
SetSectorParameter $targets[$Rndsec] "FIGSEC" True

#--- Delay to dodge photons (weak to delay torps), can change delay to higher and risk Ship instead (12 / 50)
GetRnd $RandomDelay $LowerLimit $UpperLimit
Setdelaytrigger Emcpu :Emcpu ($RandomDelay*50)
pause

:Emcpu
Killtrigger Emcpu
#--- Plock Detection (Private)
gosub :navpt_plock_drop_detection
If ($Good = False)
    Send "' -Plock or return sector Fighter kill detected, halting"
    halt
end
 
#---Xport/twarp home Rinse and Repeat (Can Blind Warp if no home fig)
SetVar $HomeMac "x      " & $Shipnum1 & "*  *  m" & $Home & "* y y"
Send $HomeMac
:Insert
KillallTriggers

SetVar $Targets[$RndSec] 0
SetVar $Jumps[$RndSec] 0
Goto :MainCode
Halt

#---------------------------------------------------------- Sub Routines ----------------------------------
 
#--- Planet Check
:PlanetCheck
If ($prompt = "Citadel")
:CitHere
Killalltriggers
SetTextlineTrigger HasBwarp :HB "This transporter has"
SetTextlineTrigger NoBwarp :NB "does not have a Transporter"
Send "b"
pause

:HB
Killalltriggers
Getword CURRENTLINE $BwarpRange 7
Echo ANSI_12 "*" $BwarpRange
Send "qq*"
waitFor "Planet #"
  getWord CURRENTLINE $PlanetNum 2
  stripText $PlanetNum "#"
waitfor "Fuel Ore"
  getword CURRENTLINE $OreLevel 6
  Striptext $Orelevel ","
If ($Orelevel < 1000)
  Send "'{" $bot_name "} -Not Enough ore on planet to fuel gridder, twarping instead*"
  SetVar $PlanetNum 0
end
  send "q"
return

:NB
Killalltriggers
Send "nq"
waitFor "Planet #"
  getWord CURRENTLINE $PlanetNum 2
  stripText $PlanetNum "#"
waitfor "Fuel Ore"
  getword CURRENTLINE $OreLevel 6
  Striptext $Orelevel ","
If ($Orelevel < 1000)
  Send "' -Not Enough ore on planet to fuel gridder, twarping instead*"
  SetVar $PlanetNum 0
end
  send "q"
end
return

#--- Dummy Check
:Dummy
#Check to see if Ship is a number
Setvar $ShipNum1 $quickstats[SHIP]
Isnumber $CheckNum $ShipNum2
If ($CheckNum = False) or ($ShipNum2 = 0)
  Send "'-Must Specify A Xport Ship Number.*"
  Halt
#Make sure the xport ship is correct
Elseif ($ShipNum2 <> 0)
  if ($prompt = "Citadel")
    Send "qq"
  end
Send "'-Validating xport ship number**"
Send "x"
Waitfor "----"
:Xprt
SetTextlinetrigger ship :Ship $ShipNum2
Settexttrigger NoShip :Ship2 "ship to beam"
pause

:Ship2
Killalltriggers
Send "'-Ship does not exist, Halting*"
Send "q"
Halt
end

:Ship
KillallTriggers
Getwordpos CURRENTLINE $Xpos $Shipnum2
If ($Xpos >= 2)
cutText CURRENTLINE $line $Xpos 999
  getWord $line $Xtest 1 "%%%"
  Isnumber $XChk $Xtest
  If (($test <> "%%%") AND ($XChk = TRUE))
     goto :XCont
    else
     goto :Xprt
   end
end
:XCont
Getword CURRENTLINE $XportSector 2
If ($XTest = $ShipNum2)
  Echo ANSI_12 "* Verified Ship"
  Send "*"
end
#Check Xport Number
If ($XportSector = 0)
  Send "' Something wrong with $Xport Variable*"
  halt
End
#Check for Twarp and Initial Ore
If ($quickstats[TWARP] < 1) or ($quickstats[ORE] < 50)
  Send "' -Gridder is either missing Twarp or Ore to start script.*"
   Halt
#Are we carrying Photons?
elseif ($quickstats[PHOT] <> 0)
   Send "'-Gridder has torps on board, you trying to get me killed?*"
   halt
#Is There a fig in the home sector?
elseif ($PlanetNum = 0)
   SetVar $Port TRUE
send " dz* "
waitFor "<Re-Display>"
waitFor "Command [TL="
elseif (SECTOR.FIGS.QUANTITY[$Home] > 0)
    if ((SECTOR.FIGS.OWNER[$Home] <> "belong to your Corp") AND (SECTOR.FIGS.OWNER[$Home] <> "yours"))
        halt
    end
else
    send " f z 1 * z c d * "
end
If (($Planetnum = 0) AND (PORT.BUYFUEL[$Home] = TRUE))
  Send "' -No planet number found and no fuel port in home sector, halting..*"
  halt
elseif (($Planetnum = 0) AND (PORT.BUYFUEL[$Home] = FALSE) AND (PORT.EXISTS[$Home]))
  Send "'-No planet number found, guess well port and twarp then*"
end
return

#--- Targetting Sector Routine (Mobby)
:JumpRoutine
Send "'-Creating Targetting Array, Please Stand By: *"
Setvar $RandomCounter 1
setarray $targets SECTORS
setarray $jumps SECTORS
setvar $arraycnt 0
setvar $xportsec $XportSector
setvar $xportmax $max_xport
setVar $increment ((SECTORS - 11) / 10)
setVar $coefficient 1
setVar $i 11
echo ANSI_15 "*Finding J.E.X. Grid Targets*"
echo ANSI_15 "1%          100%" #27  "[14D"

while ($i <= SECTORS)
#Progress Bar (embedded/EP)
  if ($i > ($coefficient * $increment))
   echo ANSI_12 "|"
   add $coefficient 1
  end
getsectorparameter $i "FIGSEC" $figged
  if ($figged > 0)
  goto :check_next_target_idx
  end

setVar $jump_point 0
setVar $adj_idx 1
while ($adj_idx <= SECTOR.WARPINCOUNT[$i])
   setVar $adj_sect SECTOR.WARPSIN[$i][$adj_idx]
   getSectorParameter $adj_sect "FIGSEC" $figged
     if ($figged > 0)
      setVar $jump_point $adj_sect
     end
   add $adj_idx 1
end

if ($jump_point <= 10)
goto :check_next_target_idx
end

getDistance $dist_to   $i $xportsec
getDistance $dist_from $xportsec $i
if (($dist_to > $xportmax) OR ($dist_from > $xportmax))
goto :check_next_target_idx
end

add $arraycnt 1
setVar $targets[$arraycnt] $i
setVar $jumps[$arraycnt] $jump_point

:check_next_target_idx
add $i 1
end
Return

#--- Bot Command Routing (MOM Inspired)
:BotMe
loadVar $Parm1
Lowercase $Parm1
If ($Parm1 = "safe")
    #Default Mode Setting
    goto :BotVariable
  elseif ($Parm1 = "pas")
   #Some Variable Setting
    Send " 'Not a available rv." & $RevisionNum & "command.*"
    halt
  elseif ($Parm1 = "agg")
    #Some Variable Setting
    Send " 'Not a available rv." & $RevisionNum & "command.*"
     halt
   elseif ($Parm1 = "help")
   Send " '*"
   Send "{" $bot_name "} -Jump Enter Xport Gridder Rv" & $RevisionNum & "*"
   Send " - format: jgrid [mode] {s:##} {c:##} {d:#/#} *"
   Send " -*"
   Send " - [Modes]   {pas}sive,{safe},{agg}ressive *"
#   Send " - aggressive - grid into most targets [avoids planets]*"
#   Send " - passive - passive surround jumppoints [uses safe method]*"
   Send " - safe - avoid sectors with limps,navhaz, or anomolies[default]*"
   Send " -*"
   Send " - {s:x} xport ship number [required]*"
   Send " - {c:x} cycles to run the gridder [default: 1 cycle]*"
   Send " - {d:x/x} config lower/upper limit xport delay [default 16/20]**"
#   Send " - {t:x,x,x} targetable list variable [t:1,2,3,etc] **"
   SetVar $Parm1 "---===---"
   SaveVar $Parm1
  halt
Else
  goto :BotVariable
halt
end

:BotVariable
loadVar $user_command_line
lowercase $user_command_line
getWordPos $user_command_line $pos "c:"
if ($pos > 0)
  cutText $user_command_line $line $pos 999
  replaceText $line ":" " "
  getWord $line $test 2 "%%%"
  Isnumber $CheckNum $test
  If (($test <> "%%%") AND ($CheckNum = TRUE))
    SetVar $CyclesNum $test
    SetVar $ModeChk TRUE
   end
end

getWordPos $user_command_line $pos2 "s:"
if ($pos2 > 0)
  cutText $user_command_line $line2 $pos2 999
  replaceText $line2 ":" " "
  getWord $line2 $test2 2 "%%%"
  Isnumber $CheckNum2 $test2
    If (($test2 <> "%%%") AND ($CheckNum2 = TRUE))
      SetVar $Shipnum2 $test2
      SetVar $ModeChk TRUE
   end
end

getWordPos $user_command_line $pos3 "d:"
if ($pos3 > 0)
  cutText $user_command_line $line3 $pos3 999
  replaceText $line3 ":" " "
  replaceText $line3 "/" " "
  getWord $line3 $test3 2 "%%%"
  getWord $line3 $test31 3 "%%%"
  Isnumber $CheckNum3 $test3
  Isnumber $CheckNum31 $test31
    If (($test2 <> "%%%") AND ($CheckNum3 = TRUE) AND ($CheckNum31 = TRUE))
      SetVar $LowerLimit $test3
      SetVar $UpperLimit $test31
      SetVar $ModeChk TRUE
   end
end

If ($Modechk <> TRUE)
  Send " '*"
  Send "{" $bot_name "} -Not a recognised J.E.X. Grid Rv" & $RevisionNum & " command*"
  Send "Jgrid {help} for further assistance. **"
  Halt
end
SetVar $command "--==--"
SaveVar $command
SetVar $user_command_line "---===---"
SaveVar $user_command_line
SetVar $Parm1 "---===---"
SaveVar $Parm1
Return

#--- Prevalidate (I.e. Planet/Sector/Cit Check)
:Prevalidate
send #145
waitFor #145
setVar $currentline CURRENTLINE
stripText $currentline #8
stripText $currentline #145
getWord $currentline $prompt 1
if (($prompt <> "Citadel") AND ($prompt <> "Command"))
    send "'{" $bot_name "} -  Jgrid - Must run from the Citadel or Command prompt!*"
    halt
end
Return

#--- Validate/AntiTheft
:Validate
#Stardock for target game
If (STARDOCK <> 10838)
Setvar $Thief TRUE
end
#--- Check Time expiration
send "ctq"
setTextLineTrigger ctq_trigger :ctq ", "
pause

:ctq
Killalltriggers
getWord CURRENTLINE $month 4
getWord CURRENTLINE $day   5
Striptext $day ","
getWord CURRENTLINE $year  6
#Set Year
if ($year <> "2022")
SetVar $Thief TRUE
#Months we want them to use it
elseif ($month <> "Jul")
SetVar $Thief TRUE
#Day if applicable
#elseif ($day <> "01")
#SetVar $Thief TRUE
End

#--- Enable these for .CTS handout
If ($Thief = TRUE)
echo ansi_12 "**This Script is no longer valid, Please contact Kaus  for a new version..*"
  halt
end

#---- Disclaimer
echo #27 & "[1B" & #27 & "[15D" & #27 & "[1;5;35;44m!!!WARNING!!!" #27 "[0;1;37;40m"
Echo ANSI_12 "*Script is set to expire by" ANSI_15 " August 1st, 2010" ANSI_12 ", use at your own risk."
Echo ANSI_10 "*Script will start in:"
Echo ANSI_10 "*3     " #27 "[5D"
setVar $Timeleft 3
:Countdown
SetDelayTrigger Timeleft :TimeLeft 350
Pause

:Timeleft
Subtract $Timeleft 1
If ($Timeleft = 2)
   echo ANSI_11 " 2"
   goto :countdown
  Elseif ($TimeLeft = 1)
    echo ANSI_6  " 1"
    goto :countdown
     Elseif ($Timeleft = 0)
Return
end
Halt

#---Saveme Triggers
:SavemeRoutine
SetTextTrigger Saveme1 :Saveme "An Interdictor Generator in this sector holds you fast!"
SetTextTrigger Saveme2 :Saveme "The Quasar Cannon on"
SetTextTrigger Saveme3 :Saveme "is powering up weapons systems!"
setTextTrigger Saveme5 :Saveme "You do not have enough Fuel Ore to make the jump."
setTextTrigger Saveme6 :Saveme "Engage the Autopilot?"
setTextTrigger Saveme7 :Saveme "launched a P-Missile in sector"
setTextTrigger Saveme8 :Saveme "You don't have enough turns left."
setTextTrigger Saveme9 :Saveme "You attempt to retreat but are held fast by an Interdictor Generator."
setTextTrigger Saveme10 :Saveme "[Pause]"
setTextTrigger Saveme11 :Saveme "has just materialized from the void!"
setTextTrigger Saveme12 :Saveme "You have 0 turns left"
SetDelayTrigger Saveme13 :timeout1 10000
Return
pause

#---Saveme Routine (MOM Inspired)
:SaveMe
killAllTriggers
gosub :quickstats
setVar $figstodeploy 1
setVar $savetarget CURRENTSECTOR
setvar $SaveMac "q q q r * * * *"
send $SaveMac
gosub :deployfigs
Send "'" & $Savetarget & "=saveme*"
     
:waitforhelp
    setTextLineTrigger friendlyplanet :friendlyplanet "Saveme script activated - Planet "
    setDelayTrigger timeout :timeout 30000
pause
     
:timeout
killalltriggers
send "' -30 seconds after save call, script halted.*"
halt


:timeout1
killalltriggers
send "' -Ut Oh, somethign is seriously fubar'd with my TA, please saveme*"
goto :Saveme
halt

:friendlyplanet
  killalltriggers
  getText CURRENTLINE $planet1 "Saveme script activated - Planet " " to "
  send "l " & $planet1 & "* c 'Gridder Safe on Planet #" & $planet1 & "*"
halt

:deployfigs
    if ((CURRENTSECTOR <= 10) or (CURRENTSECTOR  = STARDOCK))
        send "'Can't deploy figs in fed*"
        return
    end
    send "a y y 9999* F"
    setTextLineTrigger nocontrol :nocontrol "These fighters are not under your control."
    setTextLineTrigger abletodeploy :abletodeploy "fighters available."
    pause

:nocontrol
killalltriggers
send "'We don't control the figs in this sector!*"
  loadvar $password
  send "q y * t* * *" $password "*    *    *       za9999*   z*   f 1 c d *"
return

:abletodeploy
   killalltriggers
   getWord CURRENTLINE $figsavailable 3
   striptext $figsavailable ","
if ($figsavailable = 0)
  send "0* ZC D* 'I have no figs to deploy!*"
    else
  send $figstodeploy & "* ZC D* '" & $figstodeploy & " figs deployed*"
end
Return
halt

#----Clear Screen
:ClearScreen
echo #27 & "[2J"
return

#---CN9 Settings
:CN9
Send "Cn"
setTextLineTrigger cnAni :CNAni "Animation display"
  pause
:CNAni
GetWord CURRENTLINE $Display 5
  If ($Display = "On")
   Send "n2qq"
  Else
   Send "qq"
end
Send "Cn"
setTextLineTrigger cnKeys :cnKeys " Abort display"
  pause
:cnKeys
GetWord CURRENTLINE $Display1 7
  If ($Display1 = "ALL")
   Send "n9qq"
  Else
   Send "qq"
end
return

#---Navigation Plock Detector Removed for Public Release
:navpt_plock_drop_detection
:navpoint_nogood
setVar $good FALSE
pause

:navpoint_end
killTrigger planet_hunt
killtrigger navpt_end
return

#--- Density Passive Routine(Mobby)
:Density
send "s d"
waitFor "Relative Density Scan"
waitFor "Command"
###Add Check for warpsec
If ($DensityPS = True)
   Goto :PassiveSurround
  elseif ((SECTOR.ANOMOLY[$targets[$RndSec]] <> 0) OR (SECTOR.DENSITY[$targets[$RndSec]] > 490) OR (SECTOR.NAVHAZ[$targets[$RndSec]] <> 0))
    Send "'Unusual density detected, gridder is skipping sector " & $targets[$RndSec] & "*"
    Send "m " & $Home & " * y y "
    goto :Insert
end
Return


:PassiveSurround
setVar $i 1
while ($i <= SECTOR.WARPCOUNT[CURRENTSECTOR])
setvar $tarsec SECTOR.WARPS[CURRENTSECTOR][$i]

if (SECTOR.DENSITY[$tarsec] = 0) or (SECTOR.DENSITY[$tarsec] = 100) and (SECTOR.ANOMOLY[$tarsec] = FALSE)
   echo ANSI_12 "*" $tarsec ANSI_11 " - looks safe*"
   goto :next_sec
else
   goto :whynogo
end

:whynogo
if (SECTOR.DENSITY[$tarsec] <> 0) or (SECTOR.DENSITY[$tarsec] <> 100)
  echo ANSI_11 "*" $tarsec " has a questionable density*"
end

if (SECTOR.ANOMOLY[$tarsec] = 1)
  echo ANSI_12 $tarsec " also has an anomoly*"
end

:next_sec
add $i 1
end
Return

#--- RandomSec
:RandomSec
GetRnd $RndSec 1 $arraycnt
If (($Jumps[$Rndsec] = CURRENTSECTOR) or ($Jumps[$RndSec] = 0) or ($Targets[$RndSec] = STARDOCK) or ($Jumps[$RndSec] = STARDOCK))
  Add $RandomCounter 1
     If ($RandomCounter = 10)
     Add $LowData 1
      If ($LowData = 1)
       Send "'-Low Target Sector Data, Recreating Target Array*"
       end
     KillallTriggers
       If ($LowData = 2)
         Send "'{" $bot_name "} -Low Target Sector Data, script Halted*"
           Halt
         end
     goto :JumpRoutine
   end
  goto :Randomsec
end
Return

# Get fig wave and xport range
:XportCheck
send "  c  ;q  " 
waitFor "Max Figs Per Attack:" 
getWord CURRENTLINE $maxFigAttack 5
waitFor "Transport Range: "
getWord CURRENTLINE $max_xport 6
if ($maxFigAttack > $quickstats[FIGS])
    setVar $maxFigAttack $quickstats[FIGS]
end
return

#--- Dnyarri's Quick Stats
:quickstats
     killtrigger statlinetrig
     setVar $stats ""
     setTextLineTrigger statlinetrig :statsline #179
     send "/"
pause

:statsline
     killtrigger statlinetrig
     setVar $line CURRENTLINE
     replacetext $line #179 " "
     striptext $line ","
     setVar $stats $stats & $line
     getWordPos $line $pos "Ship"
     if ($pos > 0)
          goto :gotStats
     else
          setTextLineTrigger statlinetrig :statsline
     end
pause

:gotStats
     setVar $quickstats[SECT] 0
     setVar $quickstats[TURNS] 0
     setVar $quickstats[CREDS] 0
     setVar $quickstats[FIGS] 0
     setVar $quickstats[SHLDS] 0
     setVar $quickstats[HLDS] 0
     setVar $quickstats[ORE] 0
     setVar $quickstats[ORG] 0
     setVar $quickstats[EQU] 0
     setVar $quickstats[COL] 0
     setVar $quickstats[PHOT] 0
     setVar $quickstats[ARMD] 0
     setVar $quickstats[LMPT] 0
     setVar $quickstats[GTORP] 0
     setVar $quickstats[TWARP] 0
     setVar $quickstats[CLKS] 0
     setVar $quickstats[BEACNS] 0
     setVar $quickstats[ATMDT] 0
     setVar $quickstats[CRBO] 0
     setVar $quickstats[EPRB] 0
     setVar $quickstats[MDIS] 0
     setVar $quickstats[PSPRB] "NO"
     setVar $quickstats[PLSCN] "NO"
     setVar $quickstats[LRS] "NONE"
     setVar $quickstats[ALN] 0
     setVar $quickstats[EXP] 0
     setVar $quickstats[CORP] 0
     setVar $quickstats[SHIP] 0
     setVar $quickstats[TYPE] 0
     setVar $stats $stats & " @@@"
     upperCase $stats
     setVar $current_word 0
     setVar $wordy ""
     while ($wordy <> "@@@")
          if ($wordy = "SECT")
               getWord $stats $quickstats[SECT]   ($current_word + 1)
          elseif ($wordy = "TURNS")
               getWord $stats $quickstats[TURNS]  ($current_word + 1)
          elseif ($wordy = "CREDS")
               getWord $stats $quickstats[CREDS]  ($current_word + 1)
          elseif ($wordy = "FIGS")
               getWord $stats $quickstats[FIGS]   ($current_word + 1)
          elseif ($wordy = "SHLDS")
               getWord $stats $quickstats[SHLDS]  ($current_word + 1)
          elseif ($wordy = "HLDS")
               getWord $stats $quickstats[HLDS]   ($current_word + 1)
          elseif ($wordy = "ORE")
               getWord $stats $quickstats[ORE]    ($current_word + 1)
          elseif ($wordy = "ORG")
               getWord $stats $quickstats[ORG]    ($current_word + 1)
          elseif ($wordy = "EQU")
               getWord $stats $quickstats[EQU]    ($current_word + 1)
          elseif ($wordy = "COL")
               getWord $stats $quickstats[COL]    ($current_word + 1)
          elseif ($wordy = "PHOT")
               getWord $stats $quickstats[PHOT]   ($current_word + 1)
          elseif ($wordy = "ARMD")
               getWord $stats $quickstats[ARMD]   ($current_word + 1)
          elseif ($wordy = "LMPT")
               getWord $stats $quickstats[LMPT]   ($current_word + 1)
          elseif ($wordy = "GTORP")
               getWord $stats $quickstats[GTORP]  ($current_word + 1)
          elseif ($wordy = "TWARP")
               getWord $stats $quickstats[TWARP]  ($current_word + 1)
          elseif ($wordy = "CLKS")
               getWord $stats $quickstats[CLKS]   ($current_word + 1)
          elseif ($wordy = "BEACNS")
               getWord $stats $quickstats[BEACNS] ($current_word + 1)
          elseif ($wordy = "ATMDT")
               getWord $stats $quickstats[ATMDT]  ($current_word + 1)
          elseif ($wordy = "CRBO")
               getWord $stats $quickstats[CRBO]   ($current_word + 1)
          elseif ($wordy = "EPRB")
               getWord $stats $quickstats[EPRB]   ($current_word + 1)
          elseif ($wordy = "MDIS")
               getWord $stats $quickstats[MDIS]   ($current_word + 1)
          elseif ($wordy = "PSPRB")
               getWord $stats $quickstats[PSPRB]  ($current_word + 1)
          elseif ($wordy = "PLSCN")
               getWord $stats $quickstats[PLSCN]  ($current_word + 1)
          elseif ($wordy = "LRS")
               getWord $stats $quickstats[LRS]    ($current_word + 1)
          elseif ($wordy = "ALN")
               getWord $stats $quickstats[ALN]    ($current_word + 1)
          elseif ($wordy = "EXP")
               getWord $stats $quickstats[EXP]    ($current_word + 1)
          elseif ($wordy = "CORP")
               getWord $stats $quickstats[CORP]   ($current_word + 1)
          elseif ($wordy = "SHIP")
               getWord $stats $quickstats[SHIP]   ($current_word + 1)
               getWord $stats $quickstats[TYPE]   ($current_word + 2)
          end
          add $current_word 1
          getWord $stats $wordy $current_word
     end
Return 

#-----------------------------------------------------------Revisions and 2do----------------------------------------------------
#Intentions  -  Automated/Bottable 2 Ship Gridder
# - SD Check/Passive Surround w/xport,
# - Attempt to Packet the enter/kill/xport using plots,
# - Dscan Prior to Surround if high holo and report to subcomm
##
#R.01 -R.37  Layout for future modules, Added XportCheck (Rewritten for simplicity), Mobby Jumpsec Logix added,
## Getrnd Logic, Mobs Denisty Scan Logix added - Added Movement/Attack/Xport
## Refined movement/Anti-Plock(Sing)/Futher Refinements/Fixed to allow for further rnd of delay using a 50ms chuck
##Refined Code/NavpointRoutine/Added&Modified EP's Ansi Progress Bar/Clear Screen/CN9 Checks
##Added Saveme Routines from ArgGridder (Need to be modified)/Basic Bot Help Screen/ Single Density Routine
##Flavor Text/Basic Bot Commands/Added More Safties (Turns/Cycles)/Commented Script for readability
##Updated Saveme Routine/RandomCode Updates/Bot Comms/Planet Check/Fixed Anti Theft
##Rewrote planet check moved to prevalidation/Rerewrote planet check/ Added further flavor text
##Removed dependance on Xport Ship being same sector Gridder can be run from any sector
##Calculates for Xport Length vs. Defined Xport Sector as found in Dummy Check
##Fixed TarSec Routine(Forgot a Return)/Fixed Xport Checker(needed wordpos)/Add Getdistance Routine
##Cleaned up Misc Code/Fixed getdistance/Fixed Xport/Fixed Twarp issue/Misc fixes to other textlinetriggers
##Fixed Botcommand defaults to safe now/cleaned up misc code/possible fix for bad ztm warps/misc code updates
##Refixed Xport issue wordpos/added check for ore/removed text for bad ztm/Added a  @ to attack
##Added spaces to return macro/Added Delay BotParm/Fixed Move next sec routine