!^c::
GoSub GetFarmSq
GoSub Getfirstsq
 
i=1
 
SetMouseDelay, 0
 
cycle := farmy/2
newx=%startx%
newy=%starty%
loop, %cycle%
{
Click %newx%,%newy%
Loop, %farmx%
{
newx+=25
newy-=12
Click %newx%,%newy%
}
newx+=25
newy+=12
Click %newx%,%newy%
Loop, %farmx%
{
newx-=25
newy+=12
Click %newx%,%newy%
}
newx+=25
newy+=12
}
 
return
 
GoSub Getfirstsq
 
GetFarmsq:
Inputbox, farmy, Hi, Enter the number of fields to the right to click on,,200,150,,,,,6
if ErrorLevel
GoSub Esc
Inputbox, farmx, Hi, Enter the number of fields upwards to click on,,200,150,,,,,6
if ErrorLevel
GoSub Esc
farmx--
return
 
Getfirstsq:
Msgbox, Click on the leftmost field to start with ("9 O'clock" position).
KeyWait, LButton, D
KeyWait, LButton, D
MouseGetPos, startx, starty
return
 
Esc:
!^x::reload
Return