Code

Loop 5
{
	FirstStone := A_Index
	NumToRun1 := 6-A_Index
	Loop, %NumToRun%
	{
		SecondStone := FirstStone+A_Index
		NuumToRun2 := 5-A_Index 
		Loop, %NumToRun2%
		[
			ThirdStone := SecondStone+A_Index
;cegaiel's code

MouseMove, MineX%FirstStone%, MineY%FirstStone%
Sleep 100
Send {A}
Sleep 100
MouseMove, MineX%SecondStone%, MineY%SecondStone%
Sleep 100
Send {A}
Sleep 100
MouseMove, MineX%A_Index%, MineY%A_Index%
Sleep 100
Send {A}
Sleep 100
Send {S}
Sleep 100
Gosub, Popup


		}
	}
}

;Ctrl+R to reload
;Ctrl+P to pause

IfWinExist eGenesis Client
{
	WinGet, GameWinHandle, ID, eGenesis Client
} else {
	Msgbox, eGenesis client not running, exiting...
Exit
}
;~ Info
WinActivate, eGenesis Client
WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos
StartXGUI := Xmax+win_Xpos-255
StartYGUI := win_Ypos+35
Gui, +AlwaysOnTop +ToolWindow -Border +Background 
Gui, Add, Text,,Make sure you have: `n"Right-Click Pins/Unpins a Menu" and `n"Right-Click opens a Menu as Pinned"´`nchecked under options\interface.
Gui, Add, Button, x10 y70 gStart, Next »
Gui, Add, Button, x200 y5 gClose, Close 
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window
Return

Start:
Gui, Destroy
;~ Ask for config
WinActivate, eGenesis Client
WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos
StartXGUI := Xmax+win_Xpos-255
StartYGUI := win_Ypos+35
Gui, +AlwaysOnTop +ToolWindow -Border +Background 
Gui, Add, Text,,Type in how many rows and columns `nof kettles you will be working with:
Gui, Add, Text, x10 y40, Rows:
Gui, Add, Edit,xp+35 yp-4 vnumRows, 1
Gui, Add, Text,xp+20 y40, Columns:
Gui, Add, Edit,xp+45 yp-4 vnumColumns, 4
Gui, Add, Button, x10 y70 gNext, Next »
Gui, Add, Button, x200 y5 gClose, Close 
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window
Return

Next:
Gui, submit
Gui, Destroy
;Get Top Left
Gui, +AlwaysOnTop +ToolWindow -Border +Background 
Gui, Add, Text,,Using F8F8 camera view make `nsure you can see all kettles.
Gui, Add, Text,,Position your mouse over `nthe topleft kettle and press the F2 key.
Gui, Add, Button, x200 y5 gClose, Close 
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window
loop
{
	WinActivate eGenesis Client
	KeyWait, F2, D
	KeyWait, F2
	MouseGetPos, FirstX, FirstY, WinHandle
	if (WinHandle = GameWinHandle)
	{
		Gosub, GotTopLeft
	}
}
return

GotTopLeft:
Gui, Destroy
;Get Bottom Right
Gui, +AlwaysOnTop +ToolWindow -Border +Background 
Gui, Add, Text,,Position your mouse over `nthe bottom right kettle `nand press the F2 key.
Gui, Add, Button, x200 y5 gClose, Close 
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window

loop
{
	WinActivate eGenesis Client
	KeyWait, F2, D
	KeyWait, F2
	MouseGetPos, LastX, LastY, WinHandle
	if (WinHandle = GameWinHandle)
	{
		Gosub, GotBottomRight
	}
}
return

GotBottomRight:
Gui, Destroy
;~ Open Windows
;~ Hands off
Gui, +AlwaysOnTop +ToolWindow -Border +Background
Gui, Add, Text,vTimeLeft,Leave your mouse alone, `nopening windows in 5 seconds.
Gui, Add, Button, x200 y5 gClose, Close 
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window
	SmallPause := 5
	Loop, %SmallPause%
	{
	GuiControl, Text, TimeLeft, Leave your mouse alone, `nopening windows in %SmallPause% seconds.
	SmallPause --
	Sleep 1000
	}
GuiControl, Text, TimeLeft, Opening Windows Now.
WinActivate eGenesis Client

;~ loop through windows to open and arrange
topNotFound := true
Loop, %numColumns%
{
	curColumn := A_Index 
	openPosX := FirstX+(A_Index-1)*floor((LastX-FirstX)/(numColumns-1))
	Loop, %numRows% 
	{
		openPosY := FirstY+(A_Index-1)*floor((LastY-FirstY)/(numRows-1))
		MouseClick,Right,openPosX,openPosY
		sleep, 200
		startSeaX := openPosX+5
		finishSeaY := openPosY-200
;~ 		If the window size is not known find it
		If topNotFound 
		{
			GuiControl, Text, TimeLeft, Verifying Window Height. (0 / 200)
			Loop, 20 
			{
				curStartB := openPosY-(10*A_Index)
				proBar := 10*A_Index
				GuiControl, Text, TimeLeft, Verifying Window Height. (%proBar% / 200)
				curStartT := openPosY-(10*A_Index)-10
				PixelSearch,OutX,OutY,%startSeaX%,%curStartT%,%startSeaX%,%curStartB%,0x000000,Fast 
				if ErrorLevel < 1
				{
					break	
				}
			}
			GuiControl, Text, TimeLeft, Final Height Check.
			PixelSearch,OutX,OutY,%startSeaX%,%curStartB%,%startSeaX%,%curStartT%,0x000000
			curStartB := openPosY-OutY+3
			curStartT := openPosY-OutY-3
			topNotFound := false 
		}
;~ 		Search for black line on top of window
		GuiControl, Text, TimeLeft, Arranging Row:%A_Index% Column:%curColumn%
		startSeaYB := openPosY-curStartB
		startSeaYT := openPosY-curStartT
		PixelSearch,OutX,OutY,%startSeaX%,%startSeaYT%,%startSeaX%,%startSeaYB%,0x000000,50
		arrX := 18+20*(numRows)*(curColumn-1)+20*(A_Index-1)
;~ 		Drag the window to position
		MouseClick,Left,%OutX%,%OutY%,,,D
		sleep 100
		MouseMove,%arrX%,50
		sleep 300
		MouseClick,Left,,,,,U
		sleep, 100
	}
}

;~ focus
gosub, Focus
GuiControl, Text, TimeLeft, Checking Window Width.
;~ Check windWidth
PixelSearch,winWX,winWY,18,52,500,52,0x000000,50
baseXofWidth := winWX-18

;~ Run the kettles
GuiControl, Text, TimeLeft, Running The Kettles
totalWindows := numColumns*numRows
Winactivate
allFinished := false 

;~ Clear Vector
GuiControl, Text, TimeLeft, Clearing Records.
Loop, %totalWindows%
{
	ketDone%A_Index% := False 
}
NotReady := True

Loop
{
	loop, %totalWindows%
	{
		GuiControl, Text, TimeLeft, Checking Kettle: %A_Index% of %totalWindows%
		focusPos := floor(18+20*(A_Index-1))
		focusPosEnd := floor(18+20*(A_Index-1)+baseXofWidth)
		;~ Focus Next
		;~ Start Kettle
		ImageSearch, OutX,OutY,focusPos,52,focusPosEnd,316,Potash.png
		If ErrorLevel<1
		{
			MouseClick, Left, OutX,OutY		
			Sleep, 200
		}
		;~ Find and click Begin
		ImageSearch, OutX,OutY,focusPos,52,focusPosEnd,316,Begin.png
		If ErrorLevel<1
		{
			MouseClick, Left, OutX,OutY		
			Sleep, 200
		}
	;~ Find and Click Ignite
		ImageSearch, OutX,OutY,focusPos,52,focusPosEnd,316,Ignite.png
		If ErrorLevel<1
		{
			MouseClick, Left, OutX,OutY		
			Sleep, 300
		}
	;~ Find and Click Max
		centerOfWindowX := floor(Xmax/2)
		centerOfWindowY := floor(Ymax/2)
		baseMaxXB := centerOfWindowX-100
		baseMaxXE := centerOfWindowX+100
		baseMaxYB := centerOfWindowY
		baseMaxYE := centerOfWindowY+100
		ImageSearch, OutX,OutY,0,0,Xmax,Ymax,How.png
		baseYofMax := OutY+74
		baseXofMax := OutX+81
		If ErrorLevel<1
		{
			Mousemove,baseXofMax,baseYofMax
			MouseClick, Left,baseXofMax,baseYofMax
			sleep, 200
		}
	;~ Check if completed
		ImageSearch, OutX,OutY,focusPos,52,focusPosEnd,316,Take.png
		if ErrorLevel<1
		{
			ketDone%A_Index% := True 
		}
		;~ 	Skip if completed
		CurrentState := ketDone%A_Index%
		If CurrentState=False 
		{
			ImageSearch, OutX,OutY,focusPos,52,focusPosEnd,180,StokeMax.png
			stokeX := OutX
			stokeY := OutY
			ImageSearch, OutX,OutY,focusPos,52,focusPosEnd,280,Water6Wood5.png		
			If ErrorLevel<1 
			{
				ketDone%A_Index% := True 
			} else {
				ImageSearch, OutX,OutY,focusPos,52,focusPosEnd,280,Wood0.png
				if ErrorLevel<1
				{  
					MouseClick, Left, stokeX,stokeY
					sleep, 100
				} else {
					ImageSearch, OutX,OutY,focusPos,52,focusPosEnd,280,Water6.png
					if ErrorLevel<1
					{
						MouseClick, Left, stokeX,stokeY
						sleep, 100
					}
				}
			}
		}
	;~ Focus Next
		nextFocus := focusPosEnd+20
		if (A_Index<totalWindows)
		{
			MouseClick, Left,nextFocus,52
			sleep, 100
		}
	}
	gosub, Focus
	NotReady := False 	
	Loop, %totalWindows%
	{
		CurrentState := ketDone%A_Index%
		If CurrentState=False
		{
		GuiControl, Text, TimeLeft, LOOP %A_Index% - NotReady:%NotReady% - `nBAD!!
		Sleep 5000
		NotReady := True 
		}

	}
	If (NotReady=False)
	{
		Break
	}
}

;~ Take
Loop, %totalWindows%
{
	GuiControl, Text, TimeLeft, Taking from Kettle: %A_Index% of %totalWindows%
	focusPos := floor(18+20*(A_Index-1))
	focusPosEnd := floor(18+20*(A_Index-1)+baseXofWidth)
	ImageSearch, OutX,OutY,focusPos,52,focusPosEnd,316,Take.png
	if ErrorLevel<1
	{
		MouseClick, Left,OutX,OutY
		sleep, 100
	}
	nextFocus := focusPosEnd+20
	if (A_Index<totalWindows)
	{
		MouseClick, Left,nextFocus,52
		sleep, 100
	}
}
gosub, Focus
ExitApp


Focus:
GuiControl, Text, TimeLeft, Reversing Order.
totalWindows := numColumns*numRows
loop, %totalWindows%
{
	focusPos := 18+20*(totalWindows-A_Index)
	MouseClick, Left,focusPos,50
	sleep 100
}
return

Close:
ExitApp

^r::reload
^p::Pause