The Wiki for Tale 5 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 "User:Oni/ClayAuto"
From ATITD5
< User:Oni
Jump to navigationJump to search| (One intermediate revision by the same user not shown) | |||
| Line 1: | Line 1: | ||
<pre> | <pre> | ||
| − | // | + | //Clay collector. 1280x1024 |
//To begin, be in 2nd F8 view zoomed all the way in. | //To begin, be in 2nd F8 view zoomed all the way in. | ||
//hover your mouse over the icon | //hover your mouse over the icon | ||
| − | //you wish to collect in ATITD (i.e. be over a patch of clay | + | //you wish to collect in ATITD (i.e. be over a patch of clay |
| − | //and have this program active | + | //and have this program active, Close friends List! Press F2, and the macro will start. |
Constants | Constants | ||
Red = 0 | Red = 0 | ||
| Line 54: | Line 54: | ||
delay 100 | delay 100 | ||
Leftclick | Leftclick | ||
| − | delay | + | delay 1000 |
End // Procedure left | End // Procedure left | ||
| Line 62: | Line 62: | ||
delay 100 | delay 100 | ||
Leftclick | Leftclick | ||
| − | delay | + | delay 1000 |
End // Procedure right | End // Procedure right | ||
</pre> | </pre> | ||
Latest revision as of 03:31, 23 September 2010
//Clay collector. 1280x1024
//To begin, be in 2nd F8 view zoomed all the way in.
//hover your mouse over the icon
//you wish to collect in ATITD (i.e. be over a patch of clay
//and have this program active, Close friends List! Press F2, and the macro will start.
Constants
Red = 0
Green = 0
Blue = 0
XPos = 0
YPos = 0
CurrKey = 0
X2 = 0
Y2 = 0
End
SetConst XPos = {MouseX}
SetConst YPos = {MouseY}
LoadRGB $XPos, $YPos
SetConst Red = {RGBRed}
SetConst Blue = {RGBBlue}
SetConst Green = {RGBGreen}
SetConst CurrKey = {GlobalKeys}
//////////
Loop 10000
Call Grass
Call Left
Call Grass
Call Right
END
//////////
Procedure Grass
GetRed $XPos, $YPos = $Red
GetGreen $XPos, $YPos = $Green
GetBlue $XPos, $YPos = $Blue
setconst X2 = {mouseX}
setconst Y2 = {mouseY}
MousePos $XPos, $YPos
Leftclick
Mousepos $X2, $Y2
End
End
End
End // Procedure Grass
Procedure left // move left
delay 200
MousePos 140, 524
delay 100
Leftclick
delay 1000
End // Procedure left
Procedure right // move right
delay 200
MousePos 1120, 522
delay 100
Leftclick
delay 1000
End // Procedure right
