User:Cegaiel/Macros/Barley/Code

;Barley Macro written for http://www.autohotkey.com, 1280x1024 resolution, pin window in the upper left corner of the screen. 

;Have 59 Grain Fertilizer and 59 jugs of water, in inventory, each time you start this script

; Barley - 1280x1024 resolution
; Ctrl+Alt+W



^r::reload
^p::Pause
^!w::


IfWinExist eGenesis Client
{
	WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos
	SetDefaultMouseSpeed, 1
	interval = 1200
	


;Check to see if we are in the correct resolution, or else exit script
if (Xmax = 1288) && (Ymax = 1002)
{
nothing = 0
} else {
Msgbox, You are not in 1280x1024 resolution`n`nExiting...
EXIT
}





;Now Zoom in all the way with F8
	WinActivate, eGenesis Client
	Sleep 1000
	Send {F5}{F8}{F8}
	MouseMove, 0,0
	Sleep 5000
	MouseMove, 0, 0
	Sleep 5000

	Xcenter := Xmax//2 - 3
	Ycenter := Ymax//2 + 16
	MouseMove, Xcenter, Ycenter, 0



	; Zoom out a little
	Loop, 8
	{
		MouseClick, WD
		sleep 250
	}


Msgbox, Screen adjusted, hit OK when you are ready to continue...

	Loop, 100
	{
		mousex := Xmax//2 - 3
		mousey := Ymax//2 + 16
		incx = 70
		incy = 70
		rows = 0
		Loop, 2 ; columns of barley
		{
			bug = 0
			Loop, 4 ; rows of barley
			{
				if (Mod(rows, 2) = 0) ; plant left to right
				{
					MouseMove, 30, 45
					sleep 100
					MouseClick, Left ; Plant
					sleep 100
					MouseMove, mousex + incx, mousey
					sleep 100
					MouseClick, Left
					sleep interval
				}
				else ; plant right to left
				{
					MouseMove, 30, 45
					sleep 100
					MouseClick, Left ; Plant
					sleep 100
					MouseMove, mousex - incx, mousey
					sleep 100	
					MouseClick, Left
					sleep interval
				}
			}
			MouseMove, 30, 45
			sleep 100
			MouseClick, Left ; Plant
			sleep 100
			MouseMove, mousex, mousey + incy
			sleep 100
			MouseClick, Left
			sleep interval	
			rows++
		}	
		; Begin watering and fertalizing
		water = 0
		count = 0
		Loop, 6
		{
			mousex = 640
			mousey = 375
			intx = 0
			inty = 0
			Loop, 2
			{
				Loop, 5
				{
					if (count = 0) ; water and fert twice
					{
						MouseMove, mousex + intx, mousey + inty
						sleep 300
						MouseClick, Left
						sleep 300
						MouseMove, mousex + intx + 189, mousey + inty + 23
						sleep 100
						MouseClick, Left
						sleep 100
						MouseMove,  mousex + intx + 189, mousey + inty + 23
						sleep 100
						MouseClick, Left
						sleep 100
						MouseMove, mousex + intx + 189, mousey + inty + 46
						sleep 100
						MouseClick, Left
						sleep 100
						MouseMove, mousex + intx + 189, mousey + inty + 46
						sleep 100
						MouseClick, left
						sleep 200
						SendInput {ESC}
						sleep 300
						intx += 70	
					}
					else if (count = 5) ; harvest
					{
						MouseMove, mousex + intx, mousey + inty
						sleep 300
						MouseClick, Left
						sleep 300
						MouseMove, mousex + intx + 106, mousey + inty + 86
						sleep 100
						MouseClick, Left
						sleep 200
						SendInput {ESC}
						sleep 300
						intx += 70
					}
					else ; water and fert once
					{
						MouseMove, mousex + intx, mousey + inty
						sleep 300
						MouseClick, Left
						sleep 300
						MouseMove, mousex + intx + 189, mousey + inty + 23
						sleep 100
						MouseClick, Left
						sleep 100
						MouseMove, mousex + intx + 189, mousey + inty + 46
						sleep 100
						MouseClick, left
						sleep 200
						SendInput {ESC}
						sleep 300
						intx += 70	
					}
				}
				mousex = 640
				intx = 0
				inty += 90
			}
			count++


			sleep 5000
		}

		EXIT


		;PixelSearch, PX, PY, 965, 702, 965, 704, 0x000000, Fast
		;if (ErrorLevel < 1)
		;{
			;MouseClick, Left, 965, 703
			;return
		;}	
	}
}