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/GrassAuto"

From ATITD5
Jump to navigationJump to search
 
(One intermediate revision by the same user not shown)
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.
 
Copy and paste the below code into ACTool.
  
Line 6: Line 6:
  
 
<pre>
 
<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.
 
//To begin, be in 2nd F8 view zoomed all the way in.
 
//hover your mouse over the icon
 
//hover your mouse over the icon

Latest revision as of 03:21, 23 September 2010


Below is a general purpose grass collecting macro. 1280x1024 resolution. 2nd F8 zoomed all the way in.
Copy and paste the below code into ACTool.


//General purpose Grass 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 150, 524
delay 100
Leftclick
delay 3000
End // Procedure left

Procedure right // move right
delay 200
MousePos 1130, 522
delay 100
Leftclick
delay 3000
End // Procedure right