Bank

gosub AUTOMOVE teller
gosub BANK
gosub COMBINE.BANK
math TOTAL.PROFIT add %Profit
put #echo >Log Gold ** BANK - %Plat Plat, %Gold Gold, %Silver Silver, %Bronze Bronze, %Copper Copper
put #echo >Log Gold Total session profit: %Plats Plat, %Golds Gold, %Silvers Silver, %Bronzes Bronze, %Coppers Copper
gosub CLEAR.BANK
pause 0.1
goto END

BANK:
     pause 0.1
     action (balancecheck) var Plat $1 when ^.*(\d+)\splatinum\,?
     action (balancecheck) var Gold $1 when ^.*(\d+)\sgold\,?
     action (balancecheck) var Silver $1 when ^.*(\d+)\ssilver\,?
     action (balancecheck) var Bronze $1 when ^.*(\d+)\sbronze\,?
     action (balancecheck) var Copper $1 when ^.*(\d+)\scopper
     action (balancecheck) off
     action (profitparse) var Plat $1 when ^PROFITPARSE\s(\d+)\d\d\d\d\sPROFITPARSE
     action (profitparse) var Gold $1 when ^PROFITPARSE\s\d+(\d)\d\d\d\sPROFITPARSE
     action (profitparse) var Gold $1 when ^PROFITPARSE\s(\d)\d\d\d\sPROFITPARSE
     action (profitparse) var Silver $1 when ^PROFITPARSE\s\d+\d(\d)\d\d\sPROFITPARSE
     action (profitparse) var Silver $1 when ^PROFITPARSE\s\d(\d)\d\d\sPROFITPARSE
     action (profitparse) var Silver $1 when ^PROFITPARSE\s(\d)\d\d\sPROFITPARSE
     action (profitparse) var Bronze $1 when ^PROFITPARSE\s\d+\d\d(\d)\d\sPROFITPARSE
     action (profitparse) var Bronze $1 when ^PROFITPARSE\s\d\d(\d)\d\sPROFITPARSE
     action (profitparse) var Bronze $1 when ^PROFITPARSE\s\d(\d)\d\sPROFITPARSE
     action (profitparse) var Bronze $1 when ^PROFITPARSE\s(\d)\d\sPROFITPARSE
     action (profitparse) var Copper $1 when ^PROFITPARSE\s\d+\d\d\d(\d)\sPROFITPARSE
     action (profitparse) var Copper $1 when ^PROFITPARSE\s\d\d\d(\d)\sPROFITPARSE
     action (profitparse) var Copper $1 when ^PROFITPARSE\s\d\d(\d)\sPROFITPARSE
     action (profitparse) var Copper $1 when ^PROFITPARSE\s\d(\d)\sPROFITPARSE
     action (profitparse) var Copper $1 when ^PROFITPARSE\s(\d)\sPROFITPARSE
     action (profitparse) off
     var preDeposit 0
     var postDeposit 0
     var profit 0
     gosub BANK.COIN.CLEAR
     pause 0.3
     action (balancecheck) on
     pause 0.1
     put -check balance;-1 encumbrance
     waitforre ^\s*Encumbrance\s*\:
     pause 0.1
     action (balancecheck) off
     pause 0.1
     gosub BANK.COIN.MATH
     pause 0.1
     gosub BANK.PREDEP.MATH
     pause 0.1
     put -deposit all;-1 encumbrance
     waitforre ^\s*Encumbrance\s*\:
     pause 0.1
     gosub BANK.COIN.CLEAR
     pause 0.1
     action (balancecheck) on
     pause 0.1
     put -check balance;-1 encumbrance
     waitforre ^\s*Encumbrance\s*\:
     pause 0.1
     action (balancecheck) off
     pause 0.1
     gosub BANK.COIN.MATH
     gosub BANK.POSTDEP.MATH
     pause 0.1
     evalmath profit (%postDeposit - %preDeposi/t)
     math Profit add %profit
     pause 0.1
     gosub BANK.COIN.CLEAR
     action (profitparse) on
     pause 0.1
     put #parse PROFITPARSE %Profit PROFITPARSE
     pause 0.1
     action (profitparse) off
     pause 0.1
     put #statusbar 1 Profit: %Plat Plat, %Gold Gold, %Silver Silver, %Bronze Bronze and %Copper Copper.
     put #parse MONEY DONE
     pause 0.1
     RETURN
BANK.COIN.CLEAR:
     var Copper 0
     var Bronze 0
     var Silver 0
     var Gold 0
     var Plat 0
     pause 0.1
     return
BANK.COIN.MATH:
     math Bronze multiply 10
     math Silver multiply 100
     math Gold multiply 1000
     math Plat multiply 10000
     pause 0.1
     return
BANK.PREDEP.MATH:
     math preDeposit add %Copper
     math preDeposit add %Bronze
     math preDeposit add %Silver
     math preDeposit add %Gold
     math preDeposit add %Plat
     pause 0.1
     return
BANK.POSTDEP.MATH:
     math postDeposit add %Copper
     math postDeposit add %Bronze
     math postDeposit add %Silver
     math postDeposit add %Gold
     math postDeposit add %Plat
     pause 0.1
     return

COMBINE.BANK:
math Plats add %Plat
math Golds add %Gold
math Silvers add %Silver
math Bronzes add %Bronze
math Coppers add %Copper
pause 0.1
RETURN

CLEAR.BANK:
var Plat 0
var Gold 0
var Silver 0
var Bronze 0
var Copper 0
var preDeposit 0
var postDeposit 0
var profit 0
var Profit 0
pause 0.1
RETURN

END: