|
|
| Line 4: |
Line 4: |
| | | | |
| | ---- | | ---- |
| − | Some macros that I use: | + | Some macros that I use:<br> |
| | + | <br> |
| | [[/Macros|Macro Page]] | | [[/Macros|Macro Page]] |
| − | ----
| |
| − | Below is a general purpose grass/clay collecting macro. 1280x1024 resolution. 2nd F8 zoomed all the way in.<br>
| |
| − | Copy and paste the below code into ACTool.
| |
| − |
| |
| − | ----
| |
| − |
| |
| − | <pre>
| |
| − | //General purpose Grass and 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 or grass
| |
| − | //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
| |
| − | 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 360, 524
| |
| − | delay 100
| |
| − | Leftclick
| |
| − | delay 3000
| |
| − | End // Procedure left
| |
| − |
| |
| − | Procedure right // move right
| |
| − | delay 200
| |
| − | MousePos 895, 522
| |
| − | delay 100
| |
| − | Leftclick
| |
| − | delay 3000
| |
| − | End // Procedure right
| |
| − |
| |
| − |
| |
| − | </pre>
| |
Revision as of 19:36, 16 August 2010
