User:Shayra

Hi all :)

http://www.atitd.org/wiki/tale6/File:MacroTakKettles.zip (works on Vista)
http://www.atitd.org/wiki/tale6/File:TakCharcoal.zip
CC Macro works on 1280x1024 resolution on both Vista and Windows 7, I have not tried any others.



AcTools Macro: Clay Gatherer 1280x1024- F8F8, zoom all the way in, Alt L, then with AcTools still open move mouse to clay icon and hit F2.
<br)

//Clay collector. 1280x1024 Vista and Windows 7
//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
//and have this program active, Close friends List!  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 588
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 180
MousePos 140, 524
delay 100
Leftclick
delay 800
End // Procedure left

Procedure right // move right
delay 180
MousePos 1120, 522
delay 100
Leftclick
delay 800
End // Procedure right

AC Tools Macro:
This is Dharma's Continuous Flaxer from T3. I had to modify the mouse position for Weeding with Water/Weeding. Other than that it is unchanged. It plants 12 beds and will continue to harvest as long as you have supplies.

// Dharma's Continuous Flaxing Macro V1.1

// Set your resolution to 1280 by 1024

// Make sure your ATITD window is maximized and AC Tool is not maximized, so the ATITD title bar is visible

// Pin open your planting window and drag it to the upper left corner.

// Enter Cartagropher View and zoom all the way in.

// Turn on "Enable hotkeys on flax"

// Turn off "Camera Moves quite fast" and "Camera moves unreasonably fast" options

// This macro works best on reasonably flat ground.

// It is tolerant of lag, but not impervious, so keep an eye on it.

// It might be more reliable if you have high frames per second, if you have trouble, try lowering your graphics settings.

// Look for comments below on how to customize

constants

	// plant is the number of flax beds to plant before stopping
	plant = 240

	MouseX = 0
	MouseY = 0

	MouseXStart = 0
	MouseYStart = 0

	cycle = 0

	moveTime = 1400

end

call Flax

procedure Test

	MousePos 100, 10
	Delay 300
	LeftClick
	Delay 1 sec
	MousePos 700, 512
	Call WeedAtMousePos

end

procedure Flax

	MousePos 100, 10
	Delay 300
	LeftClick
	Delay 1 sec

	while $plant >= 12

		Call PlantFlax

		loop 5
			Call MoveRight
			Call PlantFlax
		end

		Call MoveDown
		Call PlantFlax

		loop 5
			Call MoveLeft
			Call PlantFlax
		end

		Delay 10000 // Delay some time because the first weeds grow more slowly than the second

		loop cycle = 1 to 3 //CHANGE THIS 1 to 2 if it only does one pass for water no second and then harvests.

			if $cycle = 1
				MousePos 640, 250
			else
				MousePos 540, 250
			end

			Call WeedAtMousePos

			MousePos 850, 400
			Call WeedAtMousePos

			loop 3
				MousePos 1000, 450
				Call WeedAtMousePos
			end
			MousePos 980, 450
			Call WeedAtMousePos

			MousePos 750, 750
			Call WeedAtMousePos

			MousePos 450, 600
			Call WeedAtMousePos

			loop 3
				MousePos 250, 550
				Call WeedAtMousePos
			end

			MousePos 250, 550
			Call WeedAtMousePos
		end

		Call MoveLeft
		Call MoveUp

		compute $plant = $plant - 12
	end

end

procedure PlantGrid

	Call PlantFlax	
	loop 2
		Call MoveRight
		Call PlantFlax	
	end
	Call MoveDown
	Call PlantFlax	
	loop 2
		Call MoveLeft
		Call PlantFlax	
	end
	Call MoveDown
	Call PlantFlax	
	loop 2
		Call MoveRight
		Call PlantFlax	
	end

end

procedure PlantFlax

		MousePos 40, 40
		Call ClickFast
		Delay 800	

end

procedure WeedAtMousePos

		Compute MouseXStart = {MouseX}
		Compute MouseYStart = {MouseY}
		Compute MouseX = $MouseXStart + 7
		Compute MouseY = $MouseYStart - 11

		Call ClickFast
		Delay 200
		LoadRGB $MouseX,$MouseY
		// Force the menu to appear if it didn't appear
		While {RGBRed} < 200
			Call ClickFast
			Delay 200
			LoadRGB $MouseX,$MouseY
		End

		// Redisplay the menu until "Weed" appears
		Compute MouseX = $MouseXStart + 20
		Compute MouseY = $MouseYStart
		LoadRGB $MouseX,$MouseY
		While {RGBRed} > 0 and {RGBRed} < 120 and {RGBBlue} < 120 and {RGBGreen} < 120
			Call ClickFast
			Delay 200
			LoadRGB $MouseX,$MouseY
		End

		// Select "Weed"
		Compute MouseX = $MouseXStart + 30
		Compute MouseY = $MouseYStart - 4
		Call ClickFast
		MousePos $MouseX, $MouseY
		Call ClickFast
		Delay 1400

end

procedure MoveUp

		MousePos 640, 272
		Call ClickFast
		Delay $moveTime

end

procedure MoveDown

		MousePos 640, 752
		Call ClickFast
		Delay $moveTime

end

procedure MoveLeft

		MousePos 370, 532
		Call ClickFast
		Delay $moveTime

end

procedure MoveRight

		MousePos 880, 512
		Call ClickFast
		Delay $moveTime

end

procedure ClickFast

		Delay 250
		LeftClick
		Delay 50

end