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 "Guilds/Egyptian Life/Macros"
m (EL Macros moved to Guilds/Egyptian Life/Macros: Guild-specific content) |
|||
| Line 1: | Line 1: | ||
| − | == [[ACTools - | + | == [[ACTools - Clay/Slate/Grass]] == |
| + | //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 | ||
| + | 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 | ||
| + | LeftClick | ||
| + | Delay 10 | ||
| + | MousePos $OrigX, $OrigY | ||
| + | End | ||
| + | End | ||
| + | End | ||
| + | Delay 150 | ||
| + | End | ||
| + | |||
| + | Function CheckforLostFocus | ||
| + | if {activewindow} contains eGenesis | ||
| + | Compute Result = 0 | ||
| + | Exit | ||
| + | Else | ||
| + | Stop | ||
| + | End | ||
| + | End | ||
Revision as of 11:30, 1 June 2009
ACTools - Clay/Slate/Grass
//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
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
LeftClick
Delay 10
MousePos $OrigX, $OrigY
End
End
End
Delay 150
End
Function CheckforLostFocus
if {activewindow} contains eGenesis
Compute Result = 0
Exit
Else
Stop
End
End
