User:Corrans/macros/Grass Macro

Once it's started it will ask you to stand on a spot with grass, move the mouse to the grass icon and hit F1

After that it will automatically click on the grass icon whenever it detects it and return the mouse to the position it was in

To abort the macro use ctrl-z

To pause macro, use F2

MsgBox please stand on a spot with grass, move the mouse to the grass icon and hit F1 WinActivate eGenesis Client

F1:: MouseGetPos, grassx, grassy PixelGetColor, grasscolor, grassx, grassy MsgBox The macro will now click the Grass icon whenever it detects it WinActivate eGenesis Client

Loop 50 { Loop 81 { { Click 511, 202

                 Sleep 1800

PixelGetColor grass, grassx, grassy if(grass = grasscolor) MouseGetPos, xpos, ypos MouseMove grassx, grassy ;5 Click ;MouseMove xpos, ypos, 0 sleep 1300

Click 509, 615 sleep 1800 PixelGetColor grass, grassx, grassy if(grass = grasscolor) MouseGetPos, xpos, ypos MouseMove grassx, grassy ;5 Click ;MouseMove xpos, ypos, 0 sleep 1300 } }

Click 35, 375 Sleep 100 Click 35, 485 Sleep 100 Click 35, 605 Sleep 100

	 Click 35, 410

Sleep 500 Click 70, 415 Sleep 500 Click 35, 520 Sleep 500 Click 70, 525 Sleep 500 Click 35, 640 Sleep 500 Click 70, 645 Sleep 500

Click 35, 375 Sleep 100 Click 35, 485 Sleep 100 Click 35, 605 Sleep 100

	Click 35, 405

Sleep 500

	Click 515, 445
	Sleep 500
	Click 35, 515
	Sleep 500
	Click 515, 445
	Sleep 500
	Click 35, 635
	Sleep 500
	Click 515, 445
	Sleep 500

Click 96, 752
Sleep 200
Click 26, 747
Sleep 1000
Click 508, 433
Sleep 500

} return

F2:: suspend toggle return

^z:: ExitApp return