|
|
| Line 1: |
Line 1: |
| − | <pre>
| |
| − | //General purpose clay collector.
| |
| − | //To begin, minimize your chat, hover your mouse over the clay icon in ATITD (i.e. be over a patch of clay and have this program active.
| |
| − | //Press F2 (or whatever your ACTool start/pause/resume hotkey is set to), and the macro will start.
| |
| | | | |
| − | Constants
| |
| − | Red = 0
| |
| − | Green = 0
| |
| − | Blue = 0
| |
| − | XPos = 0
| |
| − | YPos = 0
| |
| − | CurrKey = 0
| |
| − | End
| |
| − | SetConst XPos = {MouseX}
| |
| − | SetConst YPos = {MouseY}
| |
| − | LoadRGB $XPos, $YPos
| |
| − | SetConst Red = {RGBRed}
| |
| − | SetConst Blue = {RGBBlue}
| |
| − | SetConst Green = {RGBGreen}
| |
| − | SetConst CurrKey = {GlobalKeys}
| |
| − |
| |
| − | While 1 = 1
| |
| − |
| |
| − | Loop 15 //adjust this loop for the length of the clay bed to keep you on clay at all times (adjust below also)
| |
| − |
| |
| − | KeyDown {Up} 250 //uses arrow keys to run North for 250ms (x loop number)
| |
| − |
| |
| − | GetRed $XPos, $YPos = $Red
| |
| − | GetGreen $XPos, $YPos = $Green
| |
| − | GetBlue $XPos, $YPos = $Blue
| |
| − |
| |
| − | MousePos $XPos, $YPos
| |
| − | Delay 10
| |
| − | RightClick
| |
| − | End
| |
| − | End
| |
| − | End
| |
| − |
| |
| − | End Loop
| |
| − |
| |
| − |
| |
| − | Loop 2
| |
| − |
| |
| − | KeyDown {Right} 250 //uses arrow keys to run East for 250ms (x loop number)
| |
| − |
| |
| − | GetRed $XPos, $YPos = $Red
| |
| − | GetGreen $XPos, $YPos = $Green
| |
| − | GetBlue $XPos, $YPos = $Blue
| |
| − |
| |
| − | MousePos $XPos, $YPos
| |
| − | Delay 10
| |
| − | RightClick
| |
| − | End
| |
| − | End
| |
| − | End
| |
| − |
| |
| − | End Loop
| |
| − |
| |
| − |
| |
| − |
| |
| − | Loop 15
| |
| − |
| |
| − | KeyDown {Down} 250 //adjust this loop for the length of the clay bed to keep you on clay at all times
| |
| − |
| |
| − | GetRed $XPos, $YPos = $Red
| |
| − | GetGreen $XPos, $YPos = $Green
| |
| − | GetBlue $XPos, $YPos = $Blue
| |
| − |
| |
| − | MousePos $XPos, $YPos
| |
| − | Delay 10
| |
| − | RightClick
| |
| − | End
| |
| − | End
| |
| − | End
| |
| − |
| |
| − | End Loop
| |
| − |
| |
| − |
| |
| − |
| |
| − | Loop 2
| |
| − |
| |
| − | KeyDown {Left} 250 //uses arrow keys to run West for 250ms (x loop number)
| |
| − |
| |
| − | GetRed $XPos, $YPos = $Red
| |
| − | GetGreen $XPos, $YPos = $Green
| |
| − | GetBlue $XPos, $YPos = $Blue
| |
| − |
| |
| − | MousePos $XPos, $YPos
| |
| − | Delay 10
| |
| − | RightClick
| |
| − | End
| |
| − | End
| |
| − | End
| |
| − |
| |
| − | End Loop
| |
| − |
| |
| − | End
| |
| − |
| |
| − | </pre>
| |
