Seed 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
  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
	LittleDelay = 400 // delay for menu function
	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 VariableX = $VariableX + 15
	Compute VariableY = $VariableY - 10
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick
END

Procedure TAKESEED
	Delay $NormDelay
	Compute VariableX = $CenterX
	Compute VariableY = $CenterY - 100
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick
	Call CLICKMENU
END

Procedure TAKESEEDEVEN
	Delay $NormDelay
	Compute VariableX = $CenterX + 53
	Compute VariableY = $CenterY - 50
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU

	Delay $NormDelay
	Compute VariableX = $CenterX + 35
	Compute VariableY = $CenterY + 25
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU

	Delay $NormDelay
	Compute VariableX = $CenterX + 35
	Compute VariableY = $CenterY + 75
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU

	Delay $NormDelay
	Compute VariableX = $CenterX + 20
	Compute VariableY = $CenterY + 75
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU

	Delay $NormDelay
	Compute VariableX = $CenterX + 20
	Compute VariableY = $CenterY + 85
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU
END

Procedure TAKESEEDODD
	Delay $NormDelay
	Compute VariableX = $CenterX + 73
	Compute VariableY = $CenterY + 30
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU

	Delay $NormDelay
	Compute VariableX = $CenterX + 45
	Compute VariableY = $CenterY - 25
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU

	Delay $NormDelay
	Compute VariableX = $CenterX + 45
	Compute VariableY = $CenterY - 80
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU

	Delay $NormDelay
	Compute VariableX = $CenterX + 30
	Compute VariableY = $CenterY - 95
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU

	Delay $NormDelay
	Compute VariableX = $CenterX + 15
	Compute VariableY = $CenterY - 95
	MousePos $VariableX, $VariableY
	Delay $LittleDelay
	LeftClick

	Call CLICKMENU
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)*50) //these take us back to the start of the grid
Compute VariableY = $CenterY + (($Gridup+2)*50)-20
MousePos $VariableX,$VariableY
LeftClick

Compute VariableX = $CenterX // set the mouse to hoover over the first flax patch
Compute VariableY = $CenterY-50
MousePos $VariableX, $VariableY
Delay 32000 //wait for the seeds to be there
LeftClick

loop 5

	Call CLICKMENU

	Loop $Gridup // do the first column of beds
		Call TAKESEED
	END

	Call TAKESEEDEVEN

	Call TAKESEEDODD

	Call TAKESEEDEVEN

	Call TAKESEEDODD

	Delay 2000
	
	Compute VariableX = $CenterX-(($Gridside-1)*50)+10 //these take us back to the start of the grid
	Compute VariableY = $CenterY + (($Gridup+1)*50)-20
	MousePos $VariableX,$VariableY
	LeftClick

	Compute VariableX = $CenterX // set the mouse to hoover over the first flax patch
	Compute VariableY = $CenterY-50
	MousePos $VariableX, $VariableY
	Delay 26500 //wait for the seeds to be there for the second and subsequent runs
	LeftClick

END