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.
Difference between revisions of "SlateClayGrass"
 (New page: <nowiki>//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 ov...)  | 
				|||
| Line 1: | Line 1: | ||
| − | + | //General purpose slate and clay collector.  Works best without water jugs  | |
//or a fishing pole.  To begin, hover your mouse over the icon  | //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  | //you wish to collect in ATITD (i.e. be over a patch of clay or a piece of  | ||
| Line 48: | Line 48: | ||
     Stop  |      Stop  | ||
   End  |    End  | ||
| − | End  | + | End  | 
Revision as of 11:11, 2 February 2010
//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