User:Oni/GrassAuto - Revision history

Oni at 03:21, 23 September 2010

2010-09-23T03:21:21Z

Oni at 03:21, 23 September 2010

2010-09-23T03:21:09Z

Oni at 03:13, 23 September 2010

2010-09-23T03:13:54Z

Oni: Created page with "---- Below is a general purpose grass/clay collecting macro. 1280x1024 resolution. 2nd F8 zoomed all the way in.
Copy and paste the below code into ACTool. ----

 //Gen..."

2010-08-16T19:35:32Z

Created page with "---- 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> //Gen..."

New 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>

@@ Line 6: / Line 6: @@
 <pre>
-//General purpose Grass and Clay collector. 1280x1024
+//General purpose Grass collector. 1280x1024
 //To begin, be in 2nd F8 view zoomed all the way in.
 //hover your mouse over the icon

@@ Line 1: / Line 1: @@
 ----
-Below is a general purpose grass/clay collecting macro. 1280x1024 resolution. 2nd F8 zoomed all the way in.<br>
+Below is a general purpose grass collecting macro. 1280x1024 resolution. 2nd F8 zoomed all the way in.<br>
 Copy and paste the below code into ACTool.

@@ Line 56: / Line 56: @@
 Procedure left // move left
 delay 200
-MousePos 360, 524
+MousePos 150, 524
 delay 100
 Leftclick
@@ Line 64: / Line 64: @@
 Procedure right // move right
 delay 200
-MousePos 895, 522
+MousePos 1130, 522
 delay 100
 Leftclick

User:Oni/GrassAuto - Revision history

Oni at 03:21, 23 September 2010

Oni at 03:21, 23 September 2010

Oni at 03:13, 23 September 2010

Oni: Created page with "---- Below is a general purpose grass/clay collecting macro. 1280x1024 resolution. 2nd F8 zoomed all the way in. Copy and paste the below code into ACTool. ---- //Gen..."

Oni: Created page with "---- Below is a general purpose grass/clay collecting macro. 1280x1024 resolution. 2nd F8 zoomed all the way in.
Copy and paste the below code into ACTool. ----
//Gen..."