Guilds > The Lollipop Guild > Macroes

Modded barley macro for ac tool (uses weed killer)(only good if u grow 8 patches at a time)

Constants

  // Insert constants here

	NumberOfLoops = 6 //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 = 1400		//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

  fun = 1
  fun1 = 15
  round = 0

  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 47 //This is the main loop  (original 63)
					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
					compute round = $round + 1
					If $fun = $round
					Call Weedkiller
					else
					If $fun1 = $round
					Call Weedkiller
					else 
					end
					end
					//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

Procedure Weedkiller delay 25 MousePos 197, 203 delay 25 leftclick delay 25 MousePos 410, 204 delay 25 leftclick delay 25 MousePos 620, 203 delay 25 leftclick delay 25 MousePos 831, 203 delay 25 leftclick delay 25 MousePos 194, 427 delay 25 leftclick delay 25 MousePos 196, 688 delay 25 leftclick delay 25 MousePos 410, 689 delay 25 leftclick delay 25 MousePos 623, 691 delay 25 leftclick delay 25 end