Users > Gemstar > Macro

//General purpose slate and clay collector. Works best without water jugs
//or a fishing pole. To begin, hover your mouse over the icon
//you wish to collect in ATITD (i.e. be over a patch of clay or a piece of
//slate 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
End
SetConst XPos = {MouseX}
SetConst YPos = {MouseY}
LoadRGB $XPos, $YPos
SetConst Red = {RGBRed}
SetConst Blue = {RGBBlue}
SetConst Green = {RGBGreen}
SetConst CurrKey = {GlobalKeys}

loop 10000

GetRed $XPos, $YPos = $Red

	GetGreen  $XPos, $YPos = $Green
		GetBlue  $XPos, $YPos = $Blue

			MousePos $XPos, $YPos
			Delay 10
  		LeftClick 
		End
	End

End

Delay 150

End