Constants
  // Insert constants here

	NumberOfLoops = 2 //This is the number of loops, and with luck is the only thing you will 
										//have to change to suit your own needs.  I personally use 8 with +2str
										//(and dex from acro).
	
	SleepTime	= 200		//If you're having major problems with lag try moving this to a higher
										//number (these are in milliseconds).  This delay is used between most 
										//commands
	
	MoveSleepTime = 1500 	//This is the delay used for when the character is actually moving.
												//Again this is in milliseconds, if lag is troubling you, try
												//Upping this number.
	
	LoopWaitTime = 1000		//This is used in the loop to check if it should feed or water the
												//barley more.  If you Change the times above up or down you may need
												//to do the inverse with this in order to not waste fertilizer or
												//worse, harvest the barley before it's done.
	
  
  XCoordsOfPlantBarley = 973 	//If you don't want the barley planting box in the upper right,
  														//can change this (and the Y value below this).
  YCoordsOfPlantBarley = 47		//See above comment
  
	NumToDo = 8				//This is actually equipped to handle doing anywhere between 1 and 8
  									//patches of barley at a time.  Use this to set the number (recommended
  									//that you use 8, the others have not been extensively tested
  
  
  
  
  varX = 0
  varY = 0
  Adding = 0
  LoopNum = 0
  NumberAdded = 0
  varColourY = 0
  varColourX = 0
  varAddX = 0
  
  varOriginalMouseX = 0
  varOriginalMouseY = 0
  
  MousePosX = 0
  MousePosY = 0
  varDelay = 0

End

MousePos 100, 20
Delay 250
LeftClick

call MakeBarley
//call GetPixelAtMouse


Procedure MakeBarley
		//SetActiveWindow eGenesis Client   //On my computer I commented this line because it messes my computer up.  Try that if you're having issues
			loop $NumberOfLoops //How many times to run through the loop.  I use 8 usually and have carry food going (+2 str, +3 or more dex will do for 8)
				//SetConst NumToDo = 8 //Possible to do less than 8 at a time.  <1 or >8 will break this
				//SetConst sleeptime = 200 //How much time to wait
				SetConst Adding = 1 //Tells it we're still adding, used in a later Function
				SetConst LoopNum = 0 //Which Loop Number we're at.  Used in the main loop
				
				//****** 1 ******
				SetConst MousePosX = $XCoordsOfPlantBarley
				SetConst MousePosY = $YCoordsOfPlantBarley
				call RightClick2 //plant barley spot
				loop 1000 //This is a loop because the drag function misses sometimes.  This keeps trying until it thinks it succeeds
					Delay $sleeptime
					SetConst MousePosX =  510
					SetConst MousePosY = 425
					
					SetConst varDelay = 1 //Delay is because the game is kinda slow in bringing up a window.  See RightClick2 function
					call RightClick2 // click on barley
					Delay $sleeptime
					Call GetMousePos
					MousePos 610, 330
					DragTo 103, 44 //Drag Barley to appropriate spot
					Call SetMousePos
					LoadRGB 105, 166 //Load the colours for a location
					if {RGBBlue} > 240 //Check for heavy blue to make sure the window got where intended
						break //If it did, exit this loop
					else //otherwise click in a spot in the bottom right to clear the screen
						delay $sleeptime
						SetConst MousePosX =  743
						SetConst MousePosY = 611
						call RightClick2
					end
				end

				Delay $sleeptime
				SetConst MousePosX =  198
				SetConst MousePosY = 47
				call RightClick2 //This pins the window open
				Delay $sleeptime
				SetConst NumberAdded = 1
				Call TestColourWhich //Go add the fertilizer and water
				if $NumToDo > 1 //A statement like this that will be gone through for each number >1
					//****** 2 ******
					
					SetConst MousePosX =  760
					SetConst MousePosY = 392
					call LeftClick2 //This moves your character so you plant in a new spot
					Delay 1500
					SetConst MousePosX = $XCoordsOfPlantBarley
					SetConst MousePosY = $YCoordsOfPlantBarley
					call RightClick2
					loop 1000
						Delay $sleeptime
						SetConst varDelay = 1
						SetConst MousePosX =  510
						SetConst MousePosY = 425
						call RightClick2
						Delay $sleeptime
						Delay $sleeptime
						call GetMousePos
						MousePos 610, 330
						DragTo 315, 44
						Call SetMousePos
						LoadRGB 314, 163
						if {RGBBlue} > 240
							break
						else
							Delay $sleeptime
							SetConst MousePosX =  743
							SetConst MousePosY = 611
							call RightClick2
						end
					end
					delay $sleeptime
					SetConst MousePosX =  411
					SetConst MousePosY = 48
					call LeftClick2
					Delay $sleeptime
					SetConst NumberAdded = 2
					Call TestColourWhich
				end
				if $NumToDo > 2
					//****** 3 ******
					SetConst MousePosX =  760
					SetConst MousePosY = 392
					call LeftClick2
					Delay $MoveSleepTime
					SetConst MousePosX = $XCoordsOfPlantBarley
					SetConst MousePosY = $YCoordsOfPlantBarley
					call RightClick2
					loop 1000
						SetConst varDelay = 1
						Delay $sleeptime
						SetConst MousePosX =  510
						SetConst MousePosY = 425
						call RightClick2
						Delay $sleeptime
						Call GetMousePos
						MousePos 610, 330
						DragTo 528, 44
						Call SetMousePos
						LoadRGB 521, 163
						if {RGBBlue} > 240
							break
						else
							Delay $sleeptime
							SetConst MousePosX =  743
							SetConst MousePosY = 611
							call RightClick2
						end
					end
					Delay $sleeptime
					SetConst MousePosX =  621
					SetConst MousePosY = 48
					call RightClick2
					Delay $sleeptime
					SetConst NumberAdded = 3
					Call TestColourWhich
				end
				if $NumToDo > 3
					//****** 4 ******
					SetConst MousePosX =  760
					SetConst MousePosY = 392
					call LeftClick2
					Delay $MoveSleepTime
					SetConst MousePosX = $XCoordsOfPlantBarley
					SetConst MousePosY = $YCoordsOfPlantBarley
					call RightClick2
					loop 1000
						SetConst varDelay = 1
						Delay $sleeptime
						SetConst MousePosX =  510
						SetConst MousePosY = 425
						call RightClick2
						Delay $sleeptime
						call GetMousePos
						MousePos 610, 330
						DragTo 740, 44
						Call SetMousePos
						LoadRGB 753, 163
						if {RGBBlue} > 240
							break
						else
							Delay $sleeptime
							MousePos 743, 611
							RightClick
						end
					end
					Delay $sleeptime
					SetConst MousePosX = 832
					SetConst MousePosY = 48
					call LeftClick2
					Delay $sleeptime
					SetConst NumberAdded = 4
					Call TestColourWhich
				end
				if $NumToDo > 4
					//****** 5 ******
					SetConst MousePosX =  500
					SetConst MousePosY = 620
					call LeftClick2
					Delay $MoveSleepTime
					SetConst MousePosX = $XCoordsOfPlantBarley
					SetConst MousePosY = $YCoordsOfPlantBarley
					call RightClick2
					loop 1000
						SetConst varDelay = 1
						Delay $sleeptime
						SetConst MousePosX = 510
						SetConst MousePosY = 425
						call RightClick2
						Delay $sleeptime
						Call GetMousePos
						MousePos 610, 330
						DragTo 105, 265
						Call SetMousePos
						LoadRGB 135, 382
						if {RGBBlue} > 240
							break
						else
							Delay $sleeptime
							SetConst MousePosX =  743
							SetConst MousePosY = 611
							call RightClick2
						End
					End
					Delay $sleeptime
					SetConst MousePosX =  197
					SetConst MousePosY = 270
					call RightClick2
					Delay $sleeptime
					
					SetConst NumberAdded = 5
					Call TestColourWhich
				end
				if $NumToDo > 5
					//****** 6 ******
					SetConst MousePosX =  245
					SetConst MousePosY = 393
					call LeftClick2 //move to left
					Delay $MoveSleepTime
					SetConst MousePosX = $XCoordsOfPlantBarley
					SetConst MousePosY = $YCoordsOfPlantBarley
					call RightClick2 //Click on Plant Barley
					loop 1000
						SetConst varDelay = 1
						Delay $sleeptime
						SetConst MousePosX =  510
						SetConst MousePosY = 425
						call RightClick2 //Click on Barley
						Delay $sleeptime
						Call GetMousePos
						MousePos 610, 330
						Delay $sleeptime
						DragTo 103, 530 //Drag Window
						Call SetMousePos
						LoadRGB 92, 665
						if {RGBBlue} > 240
							break
						else
							Delay $sleeptime
							SetConst MousePosX =  743
							SetConst MousePosY = 611
							call RightClick2
						End
					end
					Delay $sleeptime
					SetConst MousePosX =  197
					SetConst MousePosY = 526
					call RightClick2
					Delay $sleeptime				
					SetConst NumberAdded = 6
					Call TestColourWhich
				end
				if $NumToDo > 6
				
					//****** 7 ******
					SetConst MousePosX =  245
					SetConst MousePosY = 393
					call LeftClick2
					Delay $MoveSleepTime
					SetConst MousePosX = $XCoordsOfPlantBarley
					SetConst MousePosY = $YCoordsOfPlantBarley
					call RightClick2
					loop 1000
						SetConst varDelay = 1
						Delay $sleeptime
						SetConst MousePosX =  510
						SetConst MousePosY = 425
						call RightClick2
						Delay $sleeptime
						Call GetMousePos
						MousePos 610, 330
						DragTo 316, 530
						Call SetMousePos
						LoadRGB 308, 665
						if {RGBBlue} > 240
							break
						else
							Delay $sleeptime
							SetConst MousePosX =  743
							SetConst MousePosY = 611
							call RightClick2
						end
					end
					Delay $sleeptime
					SetConst MousePosX =  411
					SetConst MousePosY = 526
					call RightClick2
					Delay $sleeptime
					SetConst NumberAdded = 7
					Call TestColourWhich
				end
				if $NumToDo > 7
					//****** 8 ******
					SetConst MousePosX =  245
					SetConst MousePosY = 393
					call LeftClick2
					Delay $MoveSleepTime
					SetConst MousePosX = $XCoordsOfPlantBarley
					SetConst MousePosY = $YCoordsOfPlantBarley
					call RightClick2
					loop 1000
						SetConst varDelay = 1
						SetConst MousePosX =  510
						SetConst MousePosY = 425
						call RightClick2
						Delay $sleeptime
						Call GetMousePos
						MousePos 610, 330
						Delay $sleeptime
						DragTo 529, 530
						Call SetMousePos
						LoadRGB 519, 665
						if {RGBBlue} > 240
							break
						else
							Delay $sleeptime
							SetConst MousePosX =  743
							SetConst MousePosY = 611
							call RightClick2
						end
					end
					Delay $sleeptime
					SetConst MousePosX =  621
					SetConst MousePosY = 526
					call RightClick2
					Delay $sleeptime
					SetConst NumberAdded = 8
					Call TestColourWhich
				end
				SetConst Adding = 0
				loop 63 //This is the main loop
					SetConst LoopNum = {LoopNo} //Need this variable below so we don't keep feeding the early ones
					Delay $LoopWaitTime
					Call TestColourWhich //Go to the functions to test the colour, see if we need to add
					//ToolTip, %a_index%
					//;send, {BS}
					//;send, {BS}
					//;send, %a_index%
				end
				delay $sleeptime
				
				SetConst MousePosX =  110 
				SetConst MousePosY = 230
				call RightClick2 // harvest
				Delay $sleeptime
				SetConst MousePosX =  190
				SetConst MousePosY = 110
				Call RightClick2 // close pinned window
				Delay $sleeptime
				
				if $NumToDo > 1
					SetConst MousePosX =  325
					SetConst MousePosY = 230	
					call RightClick2
					Delay $sleeptime
					SetConst MousePosX =  403
					SetConst MousePosY = 108
					call RightClick2
					Delay $sleeptime
				end
				if $NumToDo > 2
					SetConst MousePosX =  530
					SetConst MousePosY = 230	
					call RightClick2
					Delay $sleeptime
					SetConst MousePosX =  617
					SetConst MousePosY = 108
					call RightClick2
					Delay $sleeptime
				end
				if $NumToDo > 3
					SetConst MousePosX =  746
					SetConst MousePosY = 230	
					call RightClick2
					Delay $sleeptime
					SetConst MousePosX =  829
					SetConst MousePosY = 108
					call RightClick2
					Delay $sleeptime
				end
				if $NumToDo > 4
					SetConst MousePosX =  110
					SetConst MousePosY = 448
					call RightClick2
					Delay $sleeptime
					SetConst MousePosX =  191
					SetConst MousePosY = 327
					call RightClick2
					Delay $sleeptime
				end
				if $NumToDo > 5
					SetConst MousePosX =  110
					SetConst MousePosY = 718
					call RightClick2
					Delay $sleeptime
					SetConst MousePosX =  192
					SetConst MousePosY = 600
					call RightClick2
					Delay $sleeptime
				end
				if $NumToDo > 6
					SetConst MousePosX =  325
					SetConst MousePosY = 718
					call RightClick2
					Delay $sleeptime
					SetConst MousePosX =  403
					SetConst MousePosY = 600
					call RightClick2
					Delay $sleeptime
				end
				if $NumToDo > 7
					SetConst MousePosX =  530
					SetConst MousePosY = 718
					call RightClick2
					Delay $sleeptime
					SetConst MousePosX =  617
					SetConst MousePosY = 600
					call RightClick2
					Delay $sleeptime
				end
				
				if $NumToDo > 4 //This means we need to go up 1 section as well
					SetConst MousePosX =  500
					SetConst MousePosY = 167
					call LeftClick2
					Delay $MoveSleepTime
					if $NumToDo < 8 //Each of the below is to move back to the left 1 section
						SetConst MousePosX =  240
						SetConst MousePosY = 393
						call LeftClick2
						Delay $MoveSleepTime
					end
					if $NumToDo < 7
						SetConst MousePosX =  240
						SetConst MousePosY = 393
						call LeftClick2
						Delay $MoveSleepTime
					end
					if $NumToDo < 6
						SetConst MousePosX =  240
						SetConst MousePosY = 393
						call LeftClick2
						Delay $MoveSleepTime
					end
				else //4 or below
					if $NumToDo > 1 //for each greater than 1, move to the left once
						SetConst MousePosX =  240
						SetConst MousePosY = 393
						call LeftClick2
						Delay $MoveSleepTime
					end
					if $NumToDo > 2
						SetConst MousePosX =  240
						SetConst MousePosY = 393
						call LeftClick2
						Delay $MoveSleepTime
					end
					if $NumToDo > 3
						SetConst MousePosX =  240
						SetConst MousePosY = 393
						call LeftClick2
						Delay $MoveSleepTime
					end
				end
			end
End
//;***********************************************************


Procedure TestColourWhich //This function figures out which coordinates to call.
													//No it is not terribly good code, but this was written first for AutoHotKey
		loop $NumberAdded //This is for the water
			if {LoopNo} < 5
				SetConst varColourY = 164
				if {LoopNo} = 1
					SetConst varColourX = 179
					SetConst varAddX = 197
				end
				if {LoopNo} = 2
					SetConst varColourX = 391
					SetConst varAddX = 408
				end
				if {LoopNo} = 3
					SetConst varColourX = 606
					SetConst varAddX = 621
				end
				if {LoopNo} = 4
					SetConst varColourX = 815
					SetConst varAddX = 833
				end
			end
			if {LoopNo} = 5
				SetConst varColourY = 384
				SetConst varColourX = 179
				SetConst varAddX = 197
			end
			if {LoopNo} > 5
				SetConst varColourY = 652
				if {LoopNo} = 6
					SetConst varColourX = 170
					SetConst varAddX = 197
				end
				if {LoopNo} = 7
					SetConst varColourX = 391
					SetConst varAddX = 408
				end
				if {LoopNo} = 8
					SetConst varColourX = 606
					SetConst varAddX = 621
				end
			end
			if $adding = 1 //This little section is to click a 2nd time when first planting the barley
				if {LoopNo} = $numberadded
					Call TestColour
				end
			end
			if {LoopNo} = 1
				if $LoopNum < 46
					Call TestColour
				end
			end
			if {LoopNo} = 2
				if $LoopNum < 49
					Call TestColour
				end
			end
			if {LoopNo} = 3
				if $LoopNum < 52
					Call TestColour
				end
			end
			if {LoopNo} = 4
				if $LoopNum < 55
					Call TestColour
				end
			end
			if {LoopNo} = 5
				if $LoopNum < 58
					Call TestColour
				end
			end
			if {LoopNo} = 6
				if $LoopNum < 61
					Call TestColour
				end
			end
			if {LoopNo} = 7
				if $LoopNum < 64
					Call TestColour
				end
			end
			if {LoopNo} = 8
				if $LoopNum < 67
					Call TestColour
				end
			end
		end
		loop $NumberAdded //This is for the fertlizer
			if {LoopNo} < 5
				SetConst varColourY = 184
				if {LoopNo} = 1
					SetConst varColourX = 179
					SetConst varAddX = 197
				end
				if {LoopNo} = 2
					SetConst varColourX = 391
					SetConst varAddX = 408
				end
				if {LoopNo} = 3
					SetConst varColourX = 606
					SetConst varAddX = 621
				end
				if {LoopNo} = 4
					SetConst varColourX = 815
					SetConst varAddX = 833
				end
			end
			if {LoopNo} = 5
				SetConst varColourY = 404
				SetConst varColourX = 179
				SetConst varAddX = 197
			end
			if {LoopNo} > 5
				SetConst varColourY = 673
				if {LoopNo} = 6
					SetConst varColourX = 170
					SetConst varAddX = 197
				end
				if {LoopNo} = 7
					SetConst varColourX = 391
					SetConst varAddX = 408
				end
				if {LoopNo} = 8
					SetConst varColourX = 606
					SetConst varAddX = 621
				end
			end
			if $adding = 1 //This if block is to make it click a 2nd time when first planting
				if {LoopNo} = $numberadded
					Call TestColour
				end
			end
			if {LoopNo} = 1
				if $LoopNum < 43
					call TestColour
				end
			end
			if {LoopNo} = 2
				if $LoopNum < 46
					Call TestColour
				end
			end
			if {LoopNo} = 3
				if $LoopNum < 49
					call TestColour
				end
			end
			if {LoopNo} = 4
				if $LoopNum < 52
					Call TestColour
				end
			end
			if {LoopNo} = 5
				if $LoopNum < 55
					Call TestColour
				end
			end
			if {LoopNo} = 6
				if $LoopNum < 58
					Call TestColour
				end
			end
			if {LoopNo} = 7
				if $LoopNum < 61
					Call TestColour
				end
			end
			if {LoopNo} = 8
				if $LoopNum < 64
					Call TestColour
				end
			end
		end
end

Procedure TestColour  //This actually tests the colours based on the position set in TestColourWhich
	LoadRGB $varColourX, $varColourY
	if {RGBBlue} > 220 //If it's really high in blue content
	else
		Call GetMousePos
		SetConst MousePosX = $varAddX
		SetConst MousePosY = $varColourY
		call RightClick2
		Call SetMousePos
		Delay 100
		
	end

end	

Procedure GetMousePos //find the original coords of the mouse
	SetConst varOriginalMouseX = {MouseX}
  SetConst varOriginalMouseY = {MouseY}
End
Procedure SetMousePos //set the mouse back where it came from
	MousePos $varOriginalMouseX, $varOriginalMouseY
End

Procedure LeftClick2
	call GetMousePos
	MousePos $MousePosX, $MousePosY
	if $varDelay = 1
		delay 200
	end
	LeftClick
	//delay 200
	SetConst varDelay = 0
	Call SetMousePos
End
Procedure RightClick2
	Call GetMousePos
	MousePos $MousePosX, $MousePosY
	if $varDelay = 1
		delay 200
	end
	RightClick
	SetConst varDelay = 0
	//delay 400
	Call SetMousePos
End


Procedure GetPixelAtMouse //This was a test Procedure for finding coordinates and values, etc
	//SetActiveWindow eGenesis Client
	Loop 1
		//SetConst testpixel = 0

		//LoadRGB {MouseX}, {MouseY}		
		//keys {RGBBlue}
		keys {MouseX}
		keys :
		keys {MouseY}
	End
End