User:Cegaiel/Macros/PotteryWheel/Code

;Ctrl+P to pause script and Ctrl+P again to resume
;The AHK icon in system tray will turn red while paused.
;Ctrl+R to reload script
;Date 6/22/2010
;Author: Cegaiel


;Last Update: 1/14/2012 - No longer requires you to press Ctrl+Alt+W to start the macro. It now launches directly to a 

GUI. Windows now appear on upper left corner of screen, and dont require you to drag out of the way. Now automatically 

detects popup boxes and closes it, in case lag caused a "Pottery Wheel busy" error.



;Explanation of Seconds variable below:

;If you find the jugs are getting done slightly late:
;(ie it begins making more jugs before they are done), then add 1 second at a time, below

;If you find the jugs are forming before the timer is done,
;(ie there is 1 or more seconds remaining on timer when jugs get done) then decrease 1 second at a time

;It takes about 33 seconds for the jugs to form, but the time it takes from when the first wheel is loaded
;until the time the last one is loaded is the reason that time varies


;About 69s for 1 wheel
;About 49s for 36 wheels


Seconds = 67



IfWinExist eGenesis Client
{
	WinActivate



	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Add, Text, vMineNumText, Set Pottery Wheel locations
	Gui, Font, norm
	Gui, Add, Text,,
	( LTrim
	Hover and middle-click (Click mouse-wheel) on each pottery wheel, one by one,
	until you've clicked on all the wheels you want to use. Then click the OK button.

	(Drag this box out of the way if any wheels are hidden)

	Make sure you chat is minimized and that your screen is locked (Alt+L)

	AFTER setting pottery wheel locations, Press OK...

	)

	Gui, Add, Button, default gMineSetLoops, OK
	Gui, Show, x0 y25

	MineNum = 0






	WinGet, GameWinHandle, ID, eGenesis Client
	loop
	{
		WinActivate
		CoordMode, Mouse, Relative
		KeyWait, MButton, D
		KeyWait, MButton
		MouseGetPos, TestX, TestY, WinHandle
		if (WinHandle = GameWinHandle)
		{
			Gosub, MineRecord
		}
		else
		{
			Gui, Destroy
			break
		}
	}
	return

	MineRecord:
	MineNum++
	MouseGetPos, MineX%MineNum%, MineY%MineNum%
	GuiControl, Text, MineNumText, %MineNum% pottery wheel captured
	TotalRacks := MineNum
	return


	MineSetLoops:
	Gui, Submit
	Gui, Destroy
	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Add, Text, vMineCycleText, Starting in 2 seconds ..................
	Gui, Font, norm
	Gui, Show, x0 y25
	GuiControl, Text, MineCycleText, Starting in 2 seconds .............


	Delay = 2

	Loop, %Delay%
	{
	GuiControl, Text, MineCycleText, Starting in %Delay%s seconds .....
	Delay --
	Sleep 1000
	}



SetDefaultMouseSpeed, 0


	loop
	{


	MineNum = 1
	MouseGetPos, OldMX, OldMY


	ImageSearch, PopX, PopY, 458, 459, 667, 621, *50 OK.PNG


	if ErrorLevel = 0
	{
	Click, %PopX%, %PopY%
	Sleep 1000
	}



	;Make Jugs Loop
	loop, %TotalRacks%
			{

			WinActivate, eGenesis Client





			;BlockInput, MouseMove
			GuiControl, Text, MineCycleText, Making Jugs -  Wheel: %MineNum%/%TotalRacks%
			MinePosX := MineX%MineNum%
			MinePosY := MineY%MineNum%
			MouseMove, %MinePosX%, %MinePosY%, 0
			Key = J
			Sleep 100
			Send {%Key%}
			Sleep 100
			Gosub, SearchPopupBox
			MineNum++
			}





			MouseMove, %OldMX%, %OldMY%, 0		

			SecondsCountDown := Seconds

			loop, %Seconds% {
			GuiControl, Text, MineCycleText, Waiting %SecondsCountdown%s for Jugs to complete 
			SecondsCountdown --
			sleep 1000
			}
	
			MineNum = 1


			
			;Take Jugs

			loop, %TotalRacks% {

			WinActivate, eGenesis Client




			GuiControl, Text, MineCycleText, Taking Jugs -  Wheel: %MineNum% 
			MinePosX := MineX%MineNum%
			MinePosY := MineY%MineNum%
			MouseMove, %MinePosX%, %MinePosY%, 0
			Key = T
			Sleep 100
			Send {%Key%}
			Sleep 100
			Gosub, SearchPopupBox
			MineNum++
			}




			GuiControl, Text, MineCycleText, 2s Pause, Hit Ctrl+P to STOP MAKING 
			Sleep 2000


	}


	Gui, Destroy
	Gui, Add, Text,, Middle-click on this window to end the script.
	Gui, Show
	return
}


SearchPopupBox:
;This searches for a poup box which I occassionally would get (Pottery wheel busy) and closes it immediately.

ImageSearch, PopX, PopY, 458, 459, 667, 621, *50 OK.PNG


			if ErrorLevel = 0
			{
			NewX := PopX + 3
			NewY := PopY + 3
			;BlockInput, MouseMove
			Click %NewX%, %NewY%
			Sleep 250
			;BlockInput, MouseMoveOff			
				
			MineNum--
			MouseMove, %MinePosX%, %MinePosY%, 0
			Send {%Key%}

			;If popup is detected, then go back and keep checking until it is closed for sure, in case lag 

interfered with it closing properly

			Gosub, SearchPopupBox    
			;Send %Key%  ;Resend the key from Patternset sub, after closing popup box (sometimes doesn't 

work as desired, commenting out...
			}

return



^r::reload
^p::Pause