SlateClayGrass

//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
 OrigX = 0
 OrigY = 0
 right = 0

End SetConst XPos = {MouseX} SetConst YPos = {MouseY} LoadRGB $XPos, $YPos SetConst Red = {RGBRed} SetConst Blue = {RGBBlue} SetConst Green = {RGBGreen} SetConst CurrKey = {GlobalKeys} Rightclick

While $CheckforLostFocus = 0

 GetRed  $XPos, $YPos = $Red
   GetGreen  $XPos, $YPos = $Green
     GetBlue  $XPos, $YPos = $Blue
       Set OrigX = {mousex}
       Set OrigY = {Mousey}
       MousePos $XPos, $YPos
       Delay 10
       Rightclick
       Delay 10
       MousePos $OrigX, $OrigY
     End
   End
 End

End

Function CheckforLostFocus

 if {activewindow} contains eGenesis
   Compute Result = 0
   Exit
 Else
 	Bell Exclamation
   Stop
 End

End