Harvest Macro

// make sure you pin your plant/flax window in the upper left corner of your screen
Constants
  CenterX = 637 // at 1280x1024 this is my center windowed
  CenterY = 527 // at 1280x1024 this is my center windowed
  VariableY = 527 // this doesn't need to be set, it gets set while running
  VariableX = 637 // this doesn't need to be set, it gets set while running
  MenuX = 0
  MenuY = 0
  TopY = 10 //Top of the window for zooming
  TopCY = 40 //Topclickable Y
  TopCX = 40 // Topclickable X
	Gridup = 5 //number of flax top to bottom
	Gridside = 5 //number of flax side to side
	Column = 1 //leave this at 1
	NormDelay = 1000 //the delay between actions
	StartDelay = 3000 //this is the zoom in delay, larger means closer
END

Procedure START
	Keys {F8}
	Keys {F8}
	MousePos $CenterX,$TopY
	Delay $StartDelay
	MousePos $CenterX,$CenterY
End

Procedure PLANT
	MousePos $TopCX, $TopCY
	LeftClick
END
Procedure CLICKMENU
	Compute MenuX = $VariableX + 10
	Compute MenuY = $VariableY - 5
	MousePos $MenuX, $MenuY
	Delay 250
	LeftClick
END

//This is where the actual macro starts, everything above are procedures
Call START
Delay $NormDelay
Compute Gridup = $Gridup-1
Compute VariableX = $CenterX+53

Loop $Gridside

	If $Column = 1 or $Column = 3 or $Column = 5 or $Column = 7
		Compute VariableY = $CenterY-50
	Else
		Compute VariableY = $CenterY+50
	End

	Call Plant
	Loop $Gridup
		MousePos $CenterX,$VariableY
		LeftClick
		Delay $NormDelay
		Call Plant
	END
	Compute $Column = $Column + 1
	MousePos $VariableX,$CenterY
	LeftClick
	Delay $NormDelay
END

Compute VariableX = $CenterX-(($Gridside+1)*50)
Compute VariableY = $CenterY + (($Gridup-1)*50)-20
MousePos $VariableX,$VariableY
LeftClick

Delay 1500
RightClick

Compute VariableX = $CenterX - 85
Compute VariableY = $CenterY + 140
MousePos $VariableX,$VariableY

Delay 11000

loop 3
	LeftClick
	Call CLICKMENU
	loop 4
		Compute VariableY = $VariableY - 50
		MousePos $VariableX,$VariableY
		Delay 700
		LeftClick
		Call CLICKMENU
	END

	loop 2
		Compute VariableY = $VariableY - 50
		Compute VariableX = $VariableX + 50
	
		loop 5
			Compute VariableY = $VariableY + 50
			MousePos $VariableX,$VariableY
			Delay 700
			LeftClick
			Call CLICKMENU
		END

		Compute VariableY = $VariableY + 50
		Compute VariableX = $VariableX + 50

		loop 5
			Compute VariableY = $VariableY - 50
			MousePos $VariableX,$VariableY
			Delay 700
			LeftClick
			Call CLICKMENU
		END
	END
	
	Compute VariableX = $CenterX - 85
	Compute VariableY = $CenterY + 140
	MousePos $VariableX,$VariableY
	Delay 1500
END