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