mine.ahk

#NoEnv
#Include FindText.ahk
#SingleInstance Force
SendMode Input
SetWorkingDir %A_ScriptDir%

del::exitapp
Ins::
	torchcount := 128
	pickcount := 6
	blocknum := 0
	torch := 0
Start:
	  If (torchcount <= 0)
		MsgBox, You ran out of torches! -- program halted
	  If (pickcount <= 0)
		MsgBox, You ran out of picks! -- program halted
      blocknum += 1
      GoTo, Block
      Block1:
      ControlClick,, bigsos,, left,, D
      Sleep, %minetime%
      ControlClick,, bigsos,, left,, U
      blocknum += 1
      GoTo, Block
      Block2:
      ControlClick,, bigsos,, left,, D
      Sleep, %minetime%
      ControlClick,, bigsos,, left,, U
	  If (torch = 6) {
    	Send, {9}
        ControlClick,, bigsos,, right,, D
        Sleep, 100
        ControlClick,, bigsos,, right,, U
        Sleep, 100
        torch := 0
        torchcount -= 1
        Send, {1}
        }
      ControlSend,, {d down}, bigsos
      Sleep, 500
      ControlSend,, {d up}, bigsos
      blocknum += 1
      GoTo, Block
      Block3:
      ControlClick,, bigsos,, left,, D
      Sleep, %minetime%
      ControlClick,, bigsos,, left,, U
      blocknum += 1
      GoTo, Block
      Block4:
      ControlClick,, bigsos,, left,, D
      Sleep, %minetime%
      ControlClick,, bigsos,, left,, U
      ControlSend,, {w down}, bigsos
      ControlSend,, {a down}, bigsos
      Sleep, 500
      ControlSend,, {w up}, bigsos
      ControlSend,, {a up}, bigsos
      torch += 1
      blocknum := 0
GoTo, Start

	Block:
      if (ok:=FindText(0,0,150000,150000,0,0,"|<stone>*152$27.VjzzvxzzzX6ACDhiiixhpo3hiijXqBq4")) || (ok:=FindText(0,0,150000,150000,0,0,"|<granite>*142$25.VzzzDzzzqIskndjfdpy5ouyuuXTVRE")) || (ok:=FindText(0,0,150000,150000,0,0,"|<diorite>*143$25.3TzqizzzLKBB3euOppRTOuijh3MrrE")) || (ok:=FindText(0,0,150000,150000,0,0,"|<andestite>*143$29.Xzxzyvzvzw4CKC3ff/frLLEMiiijyRRVV3")) {
         minetime := 700
      }else If (ok:=FindText(0,0,150000,150000,0,0,"|<gravel>*152$29.VzzzyzzzzxZCBq/djffbLsLECjipjXTVrV")) || (ok:=FindText(0,0,150000,150000,0,0,"|<dirt>*141$17.3TuvzppH3ePLJyifx3Lx"))      {
         minetime := 1000
      }else If (ok:=FindText(0,0,150000,150000,0,0,"|<iron>*147$21.7zzxzzzhCABaiihxppjii5yBo")) || (ok:=FindText(0,0,150000,150000,0,0,"|<coal>*142$30.XzzTlRzzTiTXXTiTRxTiTRVTiRRRTiXXVjlU")) || (ok:=FindText(0,0,150000,150000,0,0,"|<redstone>*149$27.3zxzfjzjx3XZV3ff/xR1RXffvjhRVV3o"))    {
         minetime := 1300
      }else {
         GoTo, Block
      }if (blocknum = 1) {
    	GoTo, Block1
	  }else If (blocknum = 2) {
	  	GoTo, Block2
	  }else If (blocknum = 3) {
	  	GoTo, Block3
	  }else If (blocknum = 4) {
	  	GoTo, Block4
	  }else {
	   MsgBox, Invalid block
	   exitapp
	}