Takhetu/Code

	MineRecord:
	MineNum++
	MouseGetPos, MineX%MineNum%, MineY%MineNum%
	Broke%MineNum% := False
	Matrix%MineNum% := GetMatrix(MineX%MineNum%-1,MineY%MineNum%-1,3)
	GuiControl, Text, MineNumText, %MineNum% crystals captured
	return

Loop %MainLoop%
{
	FirstStone := A_Index
	if (FirstStone
;	NumToRun1 := 6-A_Index
	NumToRun1 := MineNum-A_Index-1
	Loop, %NumToRun1%
	{
		SecondStone := FirstStone+A_Index
		;NumToRun2 := 5-A_Index 
		NumToRun2 := MineNum-SecondStone
		Loop, %NumToRun2%
		{
			ThirdStone := SecondStone+A_Index
			;check for broken
			AllThere := True
			If (Broke%FirstStone%=True)
			{
				AllThere := False
			} else {
				Stone1 := FindMatrix(MineX%FirstStone%-1,MineX%FirstStone%+1,MineY%FirstStone%-1,MineY%FirstStone%+1,3,Matrix%FirstStone%)
				If (Stone1=0)
				{
					Broke%FirstStone% := True
					AllThere := False
				}
			}
			If (Broke%SecondStone%=True)
			{
				AllThere := False
			} else {
				Stone2 := FindMatrix(MineX%SecondStone%-1,MineX%SecondStone%+1,MineY%SecondStone%-1,MineY%SecondStone%+1,3,Matrix%SecondStone%)
				If (Stone1=0)
				{
					Broke%SecondStone% := True
					AllThere := False
				}
			}
			If (Broke%ThirdStone%=True)
			{
				AllThere := False
			} else {
				Stone3 := FindMatrix(MineX%ThirdStone%-1,MineX%ThirdStone%+1,MineY%ThirdStone%-1,MineY%ThirdStone%+1,3,Matrix%ThirdStone%)
				If (Stone1=0)
				{
					Broke%ThirdStone% := True
					AllThere := False
				}
			}
			If (AllThere=True)
			{
				MouseMove, MineX%FirstStone%, MineY%FirstStone%
				;Msgbox, FirstStone: MineX%FirstStone%, MineY%FirstStone%
				Sleep %Delay%
				Send {A}
				Sleep %Delay%
				MouseMove, MineX%SecondStone%, MineY%SecondStone%
				;Msgbox, SecondStone: MineX%SecondStone%, MineY%SecondStone%
				Sleep %Delay%
				Send {A}
				Sleep %Delay%
				MouseMove, MineX%Thirdstone%, MineY%Thirdstone%
				;Msgbox, ThirdStone: MineX%Thirdstone%, MineY%Thirdstone%
				Sleep %Delay%
				Send {A}
				Sleep %Delay%
				Send {S}
				Sleep %Delay%
				Gosub, Popup
			}
		}
	}
}