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