:oreMath
killAllTriggers
setvar $oreMathChkLine CURRENTLINE
getWordPos $oreMathChkLine $oreMathChk "units"

if ($oreMathChk <> 3)
  echo "*" "Script Error!!!"
  PAUSE
END

# No Experience Port Upgrade Script
# Version 0.1
# Author : Thor

# This Script will upgrade a port with
# no experience gain

echo "*" "Author's Suggestion : Go to Port upgrade, get Max upgrade levels"
echo "*" "don't do any upgrades, quit Port upgrade screen"
echo "*" "Make sure you have enough cash on hand, run from command prompt"

:preparation
setVar $a 0
setVar $w 0
setVar $x 0
setVar $y 0
setVar $z 0
setVar $count 0
setVar $cycles 0
setVar $oreUpMax 9
setVar $orgUpMax 4
setVar $equUpMax 3
setVar $pos 1
setVar $condition 1

setTextTrigger cmdCheck :cmdCheck "Command [TL=00:00:00]"
send "*"
PAUSE

:cmdCheck
killAllTriggers
setVar $cmdLine CURRENTLINE
getWordPos $cmdLine $cmd "Command"

IF ($cmd <> 1)
  echo "*" "Not at command prompt, spoofed, other malfunction"
  setVar $pos 2
  setVar $condition 2
  HALT
Else
  goto :input
END
PAUSE

:input
killAllTriggers
setVar $pos 3
setVar $condition 3
echo "*" "Enter how many units of each product you want to upgrade."
echo "*" "Enter 0 (Zero) if you do not want to upgrade that category."
echo "*" "Enter (Y)es if you have enough money, (Q)uit if not."


getInput $oreAmt "How many fuel ore units to upgrade?"
getInput $orgAmt "How many organics units to upgrade?"
getInput $equAmt "How many equipment units to upgrade?"
getInput $credChk "Do you have enough credits? Y (yes) or N (no) ?"

IF ($credChk = "N") OR ($credChk = "n")
  echo "*" "Not enough credits, stopping script."
  HALT
Else
  setVar $pos 4
  setVar $condition 4
  goto :action1
END
PAUSE

:action1
setVar $pos 5
setVar $condition 5
killAllTriggers

IF ($oreAmt > 0)
  setVar $oreUp $oreUpMax
  goto :ore
END

IF ($oreAmt = 0) AND ($orgAmt > 0)
  setVar $orgUp $orgUpMax
  goto :org
END

IF ($oreAmt = 0) AND ($orgAmt = 0) AND ($equAmt > 0)
  setVar $equUp $equUpMax
  goto :equ
END

IF ($oreAmt = 0) AND ($orgAmt = 0) AND ($equAmt = 0)
  echo "*" "Upgrades finished or script error. Stopping Script."
  HALT
END
PAUSE

:ore
setVar $pos 6
setVar $condition 6
setTextLineTrigger oreUpgrade1 :oreUpgrade1 "Upgrade Starport Production"
send "O"
PAUSE

:oreUpgrade1
killAllTriggers
waitON "Choice ?"
setVar $oreUpChkLine CURRENTLINE
getWordPos $oreUpChkLine $oreUpChkPos "Choice"

IF ($oreUpChkPos = 1)
  setVar $pos 7
  setVar $condition 7
  goto :oreUpgrade2
Else
  echo "*" "script Error"
  setVar $pos 8
  setVar $condition 8
  PAUSE
END

:oreUpgrade2
setTextTrigger oreMath :oreMath "How many units do you want to invest?"
send "1"
PAUSE

:oreMath
killAllTriggers
setvar $oreMathChkLine CURRENTLINE
getWordPos $oreMathChkLine $oreMathChk "units"

if ($oreMathChk <> 3)
  echo "*" "Script Error!!!"
  PAUSE
END
PAUSE

getText CURRENTLINE $oreMax "want to invest? (" "max, 0 to quit)"
stripText $oreMax " "
PAUSE

setVar $line "This is a line of text"
getWordPos $line $pos "line"

# displays: 11
echo $pos