User:Shayra

Hi all :)

http://www.atitd.org/wiki/tale6/File:MacroTakKettles.zip (works on Vista)
http://www.atitd.org/wiki/tale6/File:TakCharcoal.zip
CC Macro works on 1280x1024 resolution on both Vista and Windows 7, I have not tried any others.
AcTools Macro: Clay Gatherer 1280x1024- F8F8, zoom all the way in, Alt L, then with AcTools still open move mouse to clay icon and hit F2.
<br)

//Clay collector. 1280x1024 Vista and Windows 7 //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 //and have this program active, Close friends List! 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 588 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 180 MousePos 140, 524 delay 100 Leftclick delay 800 End // Procedure left

Procedure right // move right delay 180 MousePos 1120, 522 delay 100 Leftclick delay 800 End // Procedure right