User:Oni/ClayAuto

//General purpose Grass and Clay collector. 1280x1024 //To begin, be in 2nd F8 view zoomed all the way in. //hover your mouse over the icon //you wish to collect in ATITD (i.e. be over a patch of clay or grass //and have this program active. Press F2, and the macro will start. Constants Red = 0 Green = 0 Blue = 0 XPos = 0 YPos = 0 CurrKey = 0 X2 = 0 Y2 = 0 End SetConst XPos = {MouseX} SetConst YPos = {MouseY} LoadRGB $XPos, $YPos SetConst Red = {RGBRed} SetConst Blue = {RGBBlue} SetConst Green = {RGBGreen} SetConst CurrKey = {GlobalKeys}

////////// Loop 10000 Call Grass Call Left Call Grass Call Right END //////////

Procedure Grass GetRed $XPos, $YPos = $Red GetGreen $XPos, $YPos = $Green GetBlue $XPos, $YPos = $Blue setconst X2 = {mouseX} setconst Y2 = {mouseY} MousePos $XPos, $YPos

 		Leftclick
 		Mousepos $X2, $Y2
 		

End End End End // Procedure Grass

Procedure left // move left delay 200 MousePos 140, 524 delay 100 Leftclick delay 1500 End // Procedure left

Procedure right // move right delay 200 MousePos 1120, 522 delay 100 Leftclick delay 1500 End // Procedure right