#-----------------------------------------------------------
# _cerne_planet_shopper_v1.1.ts
#
# Written by Cernnunos 12-22-2006
#
# Special thanks to Promethieus for the loop structure and
# the Console Input section. Thanks to Cherokee for the bot
# instructions and the scripts that made this possible.
#
# Start at the Cit Prompt
#
# Prompts for a list of sectors (input them in the console
# seperated by a space) with maxed SBB ports then pwarps to
# each port and runs _CK_Planet_Nego.cts for Org and Equip
# and then runs _CK_Buydown to get the fuel.
#
# You must have _CK_Planet_Nego.cts and _CK_Buydown.cts
# AND you must know the Planetary Trade % if you have not
# run the planetary negotiator in this particular edit. This can be
# found at the starting Trade Wars 2002 Menu by hitting "*" for
# game settings. Swath Auto-Haggle must be off
#
# There are no error checking routines so use at your own risk
# I have tested this in 3 different games as both red and blue.
# I have used it with as little as 1 port and as many as 24 ports
#
# Stuff I plan to add:
#   Error Checking routines
#     Check to see if we are at the Cit Prompt
#     Give a warning about Swath AutoHaggle
#     Check that all of the ports have our figs

#     A port check routine

#     A product check routine for the planet you are on

# Menu for choosing the products to buy/sell
#
A Routine for Returning Home after shopping is   complete
#------------------------------------------------- ----------

#Lets buy and sell

# init variables
setVar $sectorList ""
setVar $tradeSector ""
setVar $i 1

# get sectors - either by entry or reading a file
echo "*Enter sectors seperated by a space"
getConsoleInput $sectorList

# setup a loop to move through the sectors
:loopStart
   # get the sector to warp to
   getword $sectorList $tradeSector $i
   while ($tradeSector > 0)
      # warp to sector
      send "s"
      waitfor "Citadel command (?=h"
      send "p"
      waitfor "lanet to? (Q to Abort)"
      send $tradeSector "*"
      waitfor "shall we engage?"
      send "y"
      gosub :sellBuy
      add $i 1
      getword $sectorList $tradeSector $i 
   end
# add commands to go "home"
send "'Cerne's Planet Shopper Complete" "*"
halt

#The Sell and the Buy gosub
:sellBuy
waitfor "anet is now in sect"
send "s"
waitfor "Citadel command (?=h"

#for Planet Nego
gosub :_pNegoVar
load _ck_planet_nego.cts
waitfor "'CK Planet Nego exiting"
send "s"
waitfor "Citadel command (?=h"

#for Buydown
gosub :bDwnVar
load _ck_buydown.cts
waitfor "'CK Buydown exiting"
send "s"
waitfor "Citadel command (?=h"
return

#the buydown variable gosub
:bDwnVar
setVar $_CK_BUYDOWN_FUELROUNDS "max"
saveVar $_CK_BUYDOWN_FUELROUNDS
setVar $_CK_BUYDOWN_ORGROUNDS "-1"
saveVar $_CK_BUYDOWN_ORGROUNDS
setVar $_CK_BUYDOWN_EQUIPROUNDS "-1"
saveVar $_CK_BUYDOWN_EQUIPROUNDS
setVar $_CK_BUYDOWN_MODE "s"
saveVar $_CK_BUYDOWN_MODE
return

#the planet nego variable gosub
:_pNegoVar
loadVar $_CK_PTRADESETTING
saveVar $_CK_PTRADESETTING
setVar $_CK_PNEGO_FUELTOSELL "-1"
saveVar $_CK_PNEGO_FUELTOSELL
setVar $_CK_PNEGO_ORGTOSELL "max"
saveVar $_CK_PNEGO_ORGTOSELL
setVar $_CK_PNEGO_EQUIPTOSELL "max"
saveVar $_CK_PNEGO_EQUIPTOSELL
return