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/16/2010



IfWinExist eGenesis Client
{

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


	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Font, underline
	Gui, Add, Text, vMineNumText, Step 1:  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 jugs, Empty one or all jugs

	Step 2 will click the icon to bring up the menu
	so you can record the Max button. Your jugs will be refilled, too.	

	P.S. Wait until Step 3 before planting your wheat.

	)
	Gui, Show



	loop
	{
		WinActivate
		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
	Click, %MineX1%, %MineY1%			
	Sleep 500
	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Font, underline
	Gui, Add, Text, vMineNumText, Step 2:  Middle click Water MAX button
	Gui, Font, norm
	Gui, Add, Text,,
	( LTrim
	The water menu should now be showing...

	Middle click the MAX button to record its location...
	Your jugs will also be refilled, after recording.

	Drag this window out of the way if it is covering the water menu

	P.S. You automatically gather water every 3 mins, after wheat is planted.

	Recommend about 50 jugs to start out with, depends on how many beds you plant.

	)
	Gui, Show


	;MinNum2 will be the Water Max button location
	} else if (MineNum = 2) {

	Gui, Destroy
	Click, %MineX2%, %MineY2%			
	Sleep 500
	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Add, Text, vMineNumText, Step 3:  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

	;MineNum3 is wheat bed 1, MineNum4 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

;Every 3 mins, get water (180s for 3 mins. SetTimer = s*1000 per min, thus 180,000s for 3 mins)
;Normally each wheat needs watered every 33 seconds, real time, so 3 mins is plenty of time for water icon to appear.




	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)
	;MineNum2 is the water max button location, thus why we are starting at 3, the first wheat bed location.

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





	loop, %TotalBeds%
	{


			;BlockInput, MouseMove

			GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%   Sending H+W Keys: 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, %MineX2%, %MineY2%			
	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