User:Oni/ClayAuto - Revision history

Oni at 03:31, 23 September 2010

2010-09-23T03:31:31Z

Oni at 03:24, 23 September 2010

2010-09-23T03:24:19Z

Oni at 03:23, 23 September 2010

2010-09-23T03:23:51Z

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

2010-09-23T03:23:37Z

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

New page

</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 140, 524
delay 100
Leftclick
delay 1500
End // Procedure left

Procedure right // move right
delay 200
MousePos 1120, 522
delay 100
Leftclick
delay 1500
End // Procedure right
<pre>

@@ Line 54: / Line 54: @@
 delay 100
 Leftclick
-delay 1500
+delay 1000
 End // Procedure left
@@ Line 62: / Line 62: @@
 delay 100
 Leftclick
-delay 1500
+delay 1000
 End // Procedure right
 </pre>

@@ Line 1: / Line 1: @@
 <pre>
-//General purpose Grass and Clay collector. 1280x1024
+//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
+//you wish to collect in ATITD (i.e. be over a patch of clay
-//and have this program active.  Press F2, and the macro will start.
+//and have this program active, Close friends List!  Press F2, and the macro will start.
 Constants
 Red = 0