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