User:Cegaiel/Macros/Wheat/Code

;Ctrl+P to pause script (ie to click Water icon) and Ctrl+P again to resume
;The script moves fast, so it might be difficult for it to see the Ctrl+P
;The best time to Pause is during the 2s pause after each cycle
;The AHK icon in system tray will turn red while paused.
;Ctrl+R to reload script


;Author: Cegaiel
;Last Update: 10/25/2010



IfWinExist eGenesis Client
{

	WinGet, GameWinHandle, ID, eGenesis Client
	MineNum = 0
	MineCycle = 0
	NumPulls = 1000
	BedNum = 0


	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Add, Text, vMineNumText, Step 1 of 2:  Middle click Water icon
	Gui, Font, norm
	Gui, Add, Text,,
	( LTrim
	Middle click (click mouse wheel) the Water icon to record its location

	If the water icon is NOT showing, then:

	Hit Esc, Skills, Empty ONE or ALL jugs

	They will automatically be refilled next step


	Now is a good time to pinup your plant wheat menu.
	It can be anywhere, as you will be manually planting them anyways.

	)
	Gui, Show



	loop
	{
			WinActivate, eGenesis Client
			WinWait, eGenesis Client
			WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos 

			;Get coordinates, for your resolutions'  X,Y location of the Max button on Water.
			MaxX := Floor(Xmax/2)
			MaxY := Floor(Ymax/2)+56


		CoordMode, Mouse, Relative
		KeyWait, MButton, D
		KeyWait, MButton
		MouseGetPos, TestX, TestY, WinHandle
		if (WinHandle = GameWinHandle)
		{

			Gosub, Record
		}
		else
		{
			Gui, Destroy
			break
		}
	}
	return





	Record:
	MineNum++
	MouseGetPos, MineX%MineNum%, MineY%MineNum%

	;MineNum1 will be the water icon location


	if (MineNum = 1) {

	Gui, Destroy
	Sleep 500
	Click %MineX1%, %MineY1%
	Sleep 500
	Click %MaxX%, %MaxY%
	Sleep 1000

	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Add, Text, vMineNumText, Step 2 of 2:  Manually plant, then Middle click Wheat Beds
	Gui, Font, norm
	Gui, Add, Text,,
	( LTrim
	Leave this window up and drag out of the way. Now start planting your wheat.

	When done planting, quickly, hover and middle-click (Click mouse-wheel)
	on each wheat bed, one by one, until you've clicked on all the beds.

	Then click the OK button.

	)
	Gui, Add, Button, default gStart, OK
	Gui, Show



	;MineNum2 is wheat bed 1, MineNum3 is wheat bed 2, etc
	} else	{
	BedNum ++
	GuiControl, Text, MineNumText, %BedNum% wheat beds captured
	}

	TotalBeds := BedNum
	return


	Start:
	Gui, Submit
	Gui, Destroy
	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Add, Text, vMineCycleText, 5s countdown, drag window out of way of beds`n`n`n
	Gui, Font, norm
	Gui, Show
	GuiControl, Text, MineCycleText, 5s countdown, drag window out of way of beds`n`n`n



	delay = 5
	;You got 5 seconds to drag the status window out of the way
	Loop, %delay%
	{
	GuiControl, Text, MineCycleText, %delay%s countdown, drag window out of way of beds
	delay --
	Sleep 1000
	}

	#Persistent 
;	SetTimer, Water, 180000
;	SetTimer, Water, 10000
	SetTimer, Timer, 1000



		seconds = 0
		minutes = 0
		seconds_eta = 0
		minutes_eta = 3 
		SetDefaultMouseSpeed, 0





	loop, %NumPulls%
	{

	;MineNum1 is the water icon location 
	;MineNum1 is only called during the Water: subroutine (#Persistent)
	;Thus why we are starting at MineNum2, the first wheat bed location.

			WinActivate, eGenesis Client
			MineNum = 2
			BedNum = 1
			MineCycle++
			MouseGetPos, OldMX, OldMY





	loop, %TotalBeds%
	{


			;BlockInput, MouseMove

			GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%   Sending H+W: Bed %BedNum%`n`nElapsed Time: %minutes%m %seconds%s`nGather Water in: %minutes_eta%m %seconds_eta%s
			MinePosX := MineX%MineNum%
			MinePosY := MineY%MineNum%
			MouseMove, %MinePosX%, %MinePosY%, 0
			Sleep, 100
			Send {H}
			Send {W}
			MineNum++
			BedNum ++
			Sleep, 100	
	}



			MouseMove, %OldMX%, %OldMY%, 0			
			GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%   PAUSE  (Ctrl+P, if needed)`n`nElapsed Time: %minutes%m %seconds%s`nGather Water in: %minutes_eta%m %seconds_eta%s
			;BlockInput, MouseMoveOff
				Sleep, 2000



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


	Water: 
	GuiControl, Text, MineCycleText, Fetching Water...`n`nElapsed Time: %minutes%m %seconds%s`nGather Water in: Now!
	MouseGetPos, OldMX, OldMY
	;Click the water icon
	Click, %MineX1%, %MineY1%			
	Sleep, 750

	;Click the Max button
	Click, %MaxX%, %MaxY%			
	Sleep, 750
	MouseMove, %OldMX%, %OldMY%, 0			
	minutes_eta = 3
	seconds_eta = 0
	return



		Timer:
		seconds ++


		if (seconds = 60)
		{
		seconds := 0
		minutes ++
		}
		
		if (seconds_eta = 0) and !(minutes_eta = 0)
		{
		seconds_eta := 60
		minutes_eta --
		}
		
		if (minutes_eta < 0)
		minutes_eta := 0

		seconds_eta --

		if (minutes_eta = 0) & (seconds_eta = 0)
		Gosub, Water

		return



^r::reload
^p::Pause