User:Myn/Temp

//General purpose slate and clay collector. Works best without a fishing pole or jugs (if not doing clay). // To begin, hover your mouse over the icon you wish to click 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 *should* start. Constants

 Red = 0
 Green = 0
 Blue = 0
 XPos1 = 0
 YPos1 = 0
 ReturnXPos = 0
 ReturnYPos = 0
 CurrKey = 0

End SetConst XPos1 = {MouseX} SetConst YPos1 = {MouseY} LoadRGB $XPos1, $YPos1 SetConst Red = {RGBRed} SetConst Blue = {RGBBlue} SetConst Green = {RGBGreen} SetConst CurrKey = {GlobalKeys} /// i'm not sure exactly what this one is doing, if anything at all. It may be something left over from another macro.

While 1 = 1

SetConst ReturnXPos = {MouseX} SetConst ReturnYPos = {MouseY}

 GetRed  $XPos1, $YPos1 = $Red
   GetGreen  $XPos1, $YPos1 = $Green
     GetBlue  $XPos1, $YPos1 = $Blue
       
       MousePos $XPos1, $YPos1
       RightClick
       MousePos $ReturnXPos, $ReturnYPos
     End
   End
 End
 
 Delay 150

End