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