# proSell.ts
# sell ships at dock
# must be at the shipyard prompt
# option to sell ships with fighters
# the script will sell ALL ships at dock
# Promethius
# Dec 2008

# get our prompt
getword currentline $prompt 1

# make sure we are at the shipyard prompt
if ($prompt <> "<Shipyards>")
    echo ANSI_12 "*You must be at the " ANSI_15 " Shipyards " ansi_12 "prompt!!"
    halt
end

# Do we really want to sell that ship with 400k figs?
echo ANSI_13 "*Sell ships with " ANSI_12 "fighters?!?!?!!"
getConsoleInput $sellFigged singlekey
lowercase $sellFigged

# get our ship list to sell
:sellShipList
setVar $cnt 0
send "s"
waitfor "------------------------------------------------------------"
  :sellTriggers
  setTextTrigger sellship :sellShip " " & STARDOCK & " "
  setTextTrigger sellthem :sellthem "Choose which ship to sell"
  pause

  :sellShip
# get our trigger - STARDOCK comes after the ship num, but we also want the figs after it so setTextLineTrigger
  setTextLineTrigger sellship :sellShip " " & STARDOCK & " "
  # count the number of ships to sell
  add $cnt 1
  getword CURRENTLINE $sellShip[$cnt] 1
  cutText currentline $isFigged[$cnt]  34 8
  stripText $isFigged[$cnt] " "
  pause

  :sellThem
  killtrigger sellship
   setVar $i 1
   while ($i <= $cnt)
      # check to make sure 0 figs on the ship or if we just want to sell everything
      if ($sellfigged = "y") or ($isFigged[$i] = 0)
         send "s  " $sellShip[$i] "*y"
      end
   add $i 1
   end

  :done
  halt