;East Varrock Miner.rah
;Description: East Varrock Miner
;Instructions: Start near the mines
;Author: jRah

;Variables
set($var0, 0)  ;will store the rock as a string to display in the custom info screen
set($var1, 0)  ;will keep track of the running time
set($var2, 0)  ;will keep track of the ores mined
set($var3, 0)  ;will keep track of the gems you collect
set($var4, 0)  ;will keep track of the rock selection

;Draw Custom Info Screen
drawInfo("@whi@Currently Mining: @whi@" + $var0, 1, 1);
drawInfo("@whi@Ores Mined: @yel@" + $var2, 2, 1)
drawInfo("@whi@Gems Mined: @yel@" + $var3, 3, 1)
drawInfo("@whi@Mining For: @yel@" + $var1, 4, 1)


:START:
getOption($var5, "@ora@What type of rock would you like to mine?", "Copper", "Tin", "Iron")
ifVarEqual(0, $var5) set($var0, "@yel@Copper")
ifVarEqual(1, $var5) set($var0, "@yel@Tin")
ifVarEqual(2, $var5) set($var0, "@yel@Iron")
trackTime($var1)             ;start tracking time
toggle("show custominfo on") ;turn custom info screen on

:ROCK_SELECTOR:
ifVarEqual(0, $var5) goto(:MINECOPPER:)
ifVarEqual(1, $var5) goto(:MINETIN:)
ifVarEqual(2, $var5) goto(:MINEIRON:)

:MINECOPPER:
useObject(100)  ;copper rock
wait(500,1000)
sleep(90,99)
ifInvFull() goto(:WALKTOBANK:)
ifServerMessageContains("you manage to obtain") inc($var2)
ifServerMessageContains("gem") inc($var3)
goto(:MINECOPPER:)

:MINETIN:
useObject(105) ;tin rock
wait(500, 1000)
sleep(90,99)
ifInvFull() goto(:WALKTOBANK:)
ifServerMessageContains("you manage to obtain") inc($var2)
ifServerMessageContains("gem") inc($var3)
goto(:MINETIN:)

:MINEIRON:
draw("@ora@Mining Iron", 8, 250, 1)
useObject(102) ;iron rock
wait(500,1000)
sleep(90,99)
ifInvFull() goto(:WALKTOBANK:)
ifServerMessageContains("you manage to obtain") inc($var2)
ifServerMessageContains("gem") inc($var3)
goto(:MINEIRON:)

:WALKTOBANK:
walkTo(80,520)..  ;notice the auto complete operators here
walkTo(102,510).
goto(:BANK:)

:BANK:
openBank()
depositAll(copper ore)
depositAll(tin ore)
depositAll(iron ore)
depositAll(uncut sapphire)
depositAll(uncut emerald)
depositAll(uncut ruby)
depositAll(uncut diamond)
closeBank()
goto(:WALKTOMINE:)

:WALKTOMINE:
walkTo(73, 538)
wait(500,1000)
ifNotAt(73, 538) goto(:WALKTOMINE:)
goto(:ROCK_SELECTOR:)