User:Shayra

Hi all :)

RAELI OVENS:
http://www.atitd.org/wiki/tale6/User:Shayra/Raeli_Ovens


AMIGOS WOOD TREATMENT:
http://www.atitd.org/wiki/tale6/User:Shayra/WoodTreatment


SHAYRA'S PAINTS:
http://www.atitd.org/wiki/tale6/User:Shayra/Paints

MACROS

I did not write these or support them. Use at your own risk. They do work at the recommended settings.


http://www.atitd.org/wiki/tale6/File:MacroTakKettles.zip (works on Vista, does not work correctly on Windows 7)
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.


http://www.atitd.org/wiki/tale6/File:TakCrematory.zip
This was the final version Takhetu did for T5's Amigos Crematory
http://www.atitd.org/wiki/tale6/File:TakCrematoryAmigos.zip
This is the current T6 Amigos Crematory adjusted for our sliders by Saledo, tyvm! Known issue: if a red bar already appears, the macro will not start. Load it, make sure macro is Alt A and Fire, it will take over.


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. You must install AC Tools, copy the macro to notepad and change .txt to .mac then drop it in the AC Tools Macro folder. Thanks to Oni for the macro!

//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  //change to 130 if you want to speed it up
MousePos 140, 524
delay 100  //change to 70 if you want to speed it up
Leftclick
delay 800  //change to 700 if you want to speed it up
End // Procedure left

Procedure right // move right
delay 180  //change to 130 if you want to speed it up
MousePos 1120, 522
delay 100  //change to 70 if you want to speed it up
Leftclick
delay 800  //change to 700 if you want to speed it up
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. It is also very tolerant to lag. You must install AC Tools, copy the macro to notepad and change .txt to .mac then drop it in the AC Tools Macro folder.

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

This is one I use alot, simple Icon gatherer that I had a hard time finding in previous wiki and useable in any resolution so here it is:

//General purpose slate and clay collector.  Works best without water jugs
//or a fishing pole.  To begin, hover your mouse over the icon
//you wish to collect in ATITD (i.e. be over a patch of clay or a piece of
//slate 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
End
SetConst XPos = {MouseX}
SetConst YPos = {MouseY}
LoadRGB $XPos, $YPos
SetConst Red = {RGBRed}
SetConst Blue = {RGBBlue}
SetConst Green = {RGBGreen}
SetConst CurrKey = {GlobalKeys}



loop 10000


GetRed  $XPos, $YPos = $Red
	GetGreen  $XPos, $YPos = $Green
		GetBlue  $XPos, $YPos = $Blue
	
			MousePos $XPos, $YPos
			Delay 10
  		LeftClick 
		End
	End
End
	
Delay 150
End