The Wiki for Tale 4 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.

If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.

SlateClayGrass

From A Tale in the Desert
Revision as of 11:13, 2 February 2010 by Hikahi (talk | contribs)
Jump to navigationJump to search
 //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