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.

User:Oni/Macros/Carrot

From ATITD5
< User:Oni‎ | Macros
Revision as of 00:33, 17 October 2010 by Oni (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Carrots - 1680x1050 screen resolution


Setup

  • Turn Off: Right-Click Pins/Unpins a Menu.
  • Turn Off: Right-Click Opens a Menu as Pinned.
  • Turn Off: Plant all crops where you stand.
  • Turn Off: Automatically make all planted crops guild owned.


  • Have 4 Carrot Seeds and 50 Water in Jugs.
  • Open the macro file and set the number of times to repeat (do this before starting the macro)
  • See images below on screen setup/mouse starting position.


  • Pin the "Plant Carrots" box in the Top Left.
  • Shown is also where the macro will click to fill jugs (Water Icon).

Carrot1.PNG

  • Click the "Carrot Seeds" (plant carrots). You will see the following:

VeggiePos.PNG

  • Click the North West single move button ONCE (circled in red).

VeggiePos2.PNG

  • Place your mouse of the start Position as shown: (Tip of mouse pointer should be on the light blue dot)

Carrot2.PNG

  • Tab over to ACTool and hit F2 (do not move the mouse)


// CARROTS X4
Constants
NewX = 0
NewY = 0
StartX = 0
StartY = 0
C1W1 = N
C1W2 = N
C1W3 = N
C1W4 = N
C2W1 = N
C2W2 = N
C2W3 = N
C2W4 = N
C3W1 = N
C3W2 = N
C3W3 = N
C3W4 = N
C4W1 = N
C4W2 = N
C4W3 = N
C4W4 = N
C5W1 = N
C5W2 = N
C5W3 = N
C5W4 = N
C6W1 = N
C6W2 = N
C6W3 = N
C6W4 = N
C7W1 = N
C7W2 = N
C7W3 = N
C7W4 = N
C8W1 = N
C8W2 = N
C8W3 = N
C8W4 = N
Plant1 = Y
Plant2 = Y
Plant3 = Y
Plant4 = Y
Plant5 = Y
Plant6 = Y
Plant7 = Y
Plant8 = Y
EndX = 0
EndY = 0
END

Setconst StartX = {MouseX}
Setconst StartY = {MouseY}
Setconst EndX = {MouseX}
Setconst EndY = {MouseY}
///////////////
DELAY 1000
MousePos 83, 160 // OFF CLICK
delay 150
RIGHTCLICK
delay 150
MousePos 45, 43 // CLICK PLANT
delay 150
RIGHTCLICK
delay 150
MousePos 45, 83 // NW
delay 150
RIGHTCLICK
delay 100
MousePos 31, 161 // BUILD
delay 150
RIGHTCLICK
delay 150

MousePos 45, 43 // CLICK PLANT
delay 150
RIGHTCLICK
delay 150
MousePos 75, 86 // NE
delay 150
RIGHTCLICK
delay 150
MousePos 31, 161 // BUILD
delay 150
RIGHTCLICK
delay 150

MousePos 45, 43 // CLICK PLANT
delay 150
RIGHTCLICK
delay 150
MousePos 74, 115 // SE
delay 150
RIGHTCLICK
delay 150
MousePos 31, 161 // BUILD
delay 150
RIGHTCLICK
delay 150

MousePos 45, 43 // CLICK PLANT
delay 150
RIGHTCLICK
delay 150
MousePos 44, 115 // SW
delay 150
RIGHTCLICK
delay 150
MousePos 31, 161 // BUILD
delay 150
RIGHTCLICK
delay 150


/// PIN UPS

Compute NewX = $StartX + 3
Compute NewY = $StartY - 24
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX  + 180
Compute NewY = $StartY  - 46
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 56
Compute NewY = $StartY - 44
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 52, 96

Compute NewX = $StartX + 73
Compute NewY = $StartY - 24
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 255
Compute NewY = $StartY - 49
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 129
Compute NewY = $StartY - 45
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 56, 259

Compute NewX = $StartX + 70
Compute NewY = $StartY + 72
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 250
Compute NewY = $StartY + 45
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 125
Compute NewY = $StartY + 47
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 56, 426


Compute NewX = $StartX - 1
Compute NewY = $StartY + 67
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 180
Compute NewY = $StartY + 43
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 56
Compute NewY = $StartY + 45
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 56, 593

KEYS {F4}
// WATERS
MousePos 52, 120 // WATERS1
delay 100
RIGHTCLICK
delay 100

MousePos 52, 287 // WATERS3
delay 100
RIGHTCLICK
delay 100

MousePos 53, 454 // WATERS5
delay 100
RIGHTCLICK
delay 100

MousePos 53, 622 // WATERS7
delay 100
RIGHTCLICK
delay 100



While $Plant1 = Y or $Plant3 = Y or $Plant5 = Y or $Plant7 = Y




DELAY 1000
KEYS {F4}
delay 100
/////////////////////////////
// // MousePos 796, 504 // Start POS

KEYS {F4}
///////////////////////////
///////////////////////////
//////  CARROT 1  /////////
///////////////////////////
///////////////////////////

// // MousePos // 795, 433 // 1 4
Compute NewX = $StartX - 15
Compute NewY = $StartY - 68
LoadRGB $NewX, $NewY// 1 4

delay 100
	IF {RGBRed} > 140 and $C1W4 = N
	delay 100	
		MousePos 52, 120 // WATERS1
		delay 250
		RIGHTCLICK
		delay 250
		MousePos 52, 120 // HARVEST 1
		delay 250
		RIGHTCLICK
		delay 250
		Setconst $Plant1 = N
	Else
	END
// // MousePos // 798, 445 // 1 3
Compute NewX = $StartX - 8
Compute NewY = $StartY - 57
LoadRGB $NewX, $NewY// 1 3

delay 100
	IF {RGBRed} > 140 and $C1W3 = N
	delay 100	
		MousePos 52, 120 // WATERS1
		RIGHTCLICK
		Setconst $C1W3 = Y
	Else
	END
// // MousePos // 797, 456 // 1 2
Compute NewX = $StartX - 3 
Compute NewY = $StartY - 46
LoadRGB $NewX, $NewY// 1 2

delay 100
	IF {RGBRed} > 140 and $C1W2 = N
	delay 100	
		MousePos 52, 120 // WATERS1
		RIGHTCLICK
		Setconst $C1W2 = Y
	Else
	END
// // MousePos // 796, 467 // 1 1
Compute NewX = $StartX + 1
Compute NewY = $StartY - 34
LoadRGB $NewX, $NewY// 1 1

delay 100
	IF {RGBRed} > 140 and $C1W1 = N
	delay 100	
		MousePos 52, 120 // WATERS1
		RIGHTCLICK
		Setconst $C1W1 = Y
	Else
	END
// // MousePos // 796, 504 // Start POS




///////////////////////////
///////////////////////////
//////  CARROT 2  /////////
///////////////////////////
///////////////////////////

KEYS {F4}
// MousePos // 850, 433 // 3 4
Compute NewX = $StartX + 67
Compute NewY = $StartY - 58
LoadRGB $NewX, $NewY

delay 100
	IF {RGBRed} > 140 and $C3W4 = N
	delay 100	
		MousePos 52, 287 // WATERS3
		delay 250
		RIGHTCLICK
		delay 250
		MousePos 52, 287 // Harvest 3
		delay 250
		RIGHTCLICK
		delay 250
		Setconst $Plant3 = N
	Else
	END
// MousePos // 854, 442 // 3 3
Compute NewX = $StartX + 69
Compute NewY = $StartY - 48
LoadRGB $NewX, $NewY

delay 100
	IF {RGBRed} > 140 and $C3W3 = N
	delay 100	
		MousePos 52, 287 // WATERS3
		RIGHTCLICK
		Setconst $C3W3 = Y
	Else
	END
// MousePos // 858, 456 // 3 2
Compute NewX = $StartX + 62
Compute NewY = $StartY - 48
LoadRGB $NewX, $NewY

delay 100
	IF {RGBRed} > 140 and $C3W2 = N
	delay 100	
		MousePos 52, 287 // WATERS3
		RIGHTCLICK
		Setconst $C3W2 = Y
	Else
	END
// MousePos // 864, 467 // TEST 3 1
Compute NewX = $StartX + 68
Compute NewY = $StartY - 37
LoadRGB $NewX, $NewY

delay 100
	IF {RGBRed} > 140 and $C3W1 = N
	delay 100	
		MousePos 52, 287 // WATERS3
		RIGHTCLICK
		Setconst $C3W1 = Y
	Else
	END
// MousePos // 796, 504 // Start POS



///////////////////////////
///////////////////////////
//////  CARROT 3  /////////
///////////////////////////
///////////////////////////



// MousePos // 861, 612 // 5 4
Compute NewX = $StartX + 128
Compute NewY = $StartY + 50
LoadRGB $NewX, $NewY // 5 4

delay 100
	IF {RGBRed} > 140 and $C5W4 = N
	delay 100	
		MousePos 53, 454 // WATERS5
		delay 250
		RIGHTCLICK
		delay 250
		MousePos 53, 454 // Harvest 5
		delay 250
		RIGHTCLICK
		delay 250
		Setconst $Plant5 = N
	Else
	END
// MousePos // 863, 603 // 5 3
Compute NewX = $StartX + 120
Compute NewY = $StartY + 53
LoadRGB $NewX, $NewY // 5 3

delay 100
	IF {RGBRed} > 140 and $C5W3 = N
	delay 100	
		MousePos 53, 454 // WATERS5
		RIGHTCLICK
		Setconst $C5W3 = Y
	Else
	END
// MousePos // 864, 591 // 5 2
Compute NewX = $StartX + 109
Compute NewY = $StartY + 51
LoadRGB $NewX, $NewY // 5 2

delay 100
	IF {RGBRed} > 140 and $C5W2 = N
	delay 100	
		MousePos 53, 454 // WATERS5
		RIGHTCLICK
		Setconst $C5W2 = Y
	Else
	END
// MousePos // 868, 581 // 5 1
Compute NewX = $StartX + 97
Compute NewY = $StartY + 53
LoadRGB $NewX, $NewY // 5 1

delay 100
	IF {RGBRed} > 140 and $C5W1 = N
	delay 100	
		MousePos 53, 454 // WATERS5
		RIGHTCLICK
		Setconst $C5W1 = Y
	Else
	END
// MousePos // 796, 504 // Start POS

KEYS {F4}
///////////////////////////
///////////////////////////
//////  CARROT 4  /////////
///////////////////////////
///////////////////////////


// MousePos // 794, 609 // 7 4
Compute NewX = $StartX - 4
Compute NewY = $StartY + 105
LoadRGB $NewX, $NewY

delay 100
	IF {RGBRed} > 140 and $C7W4 = N
	delay 100	
		MousePos 53, 622 // WATERS7
		delay 250
		RIGHTCLICK
		delay 250
		MousePos 53, 622 // Harvest 7
		delay 250
		RIGHTCLICK
		delay 250
		Setconst $Plant7 = N
	Else
	END
// MousePos // 795, 601 // 7 3
Compute NewX = $StartX - 2
Compute NewY = $StartY + 97
LoadRGB $NewX, $NewY

delay 100
	IF {RGBRed} > 140 and $C7W3 = N
	delay 100	
		MousePos 53, 622 // WATERS7
		RIGHTCLICK
		Setconst $C7W3 = Y
	Else
	END
// MousePos // 800, 589 // 7 2
Compute NewX = $StartX + 3
Compute NewY = $StartY + 85
LoadRGB $NewX, $NewY

delay 100
	IF {RGBRed} > 140 and $C7W2 = N
	delay 100	
		MousePos 53, 622 // WATERS7
		RIGHTCLICK
		Setconst $C7W2 = Y
	Else
	END
// MousePos // 802, 580 // 7 1
Compute NewX = $StartX + 4
Compute NewY = $StartY + 76
LoadRGB $NewX, $NewY

delay 100
	IF {RGBRed} > 140 and $C7W1 = N
	delay 100	
		MousePos 53, 622 // WATERS7
		RIGHTCLICK
		Setconst $C7W1 = Y
	Else
	END
// MousePos // 796, 504 // Start POS
//
//	
END // WHILE LOOP END
		MousePos 180, 92 // CLOSE PIN 1
		RIGHTCLICK
		delay 100
		MousePos 180, 262 // CLOSE PIN 3						
		RIGHTCLICK
		delay 100
		MousePos 180, 430 // CLOSE PIN 5
		RIGHTCLICK
		delay 100
		MousePos 180, 600 // CLOSE PIN 7
		RIGHTCLICK
		delay 100
//		
SetConst C1W1 = N
SetConst C1W2 = N
SetConst C1W3 = N
SetConst C1W4 = N
SetConst C3W1 = N
SetConst C3W2 = N
SetConst C3W3 = N
SetConst C3W4 = N
SetConst C5W1 = N
SetConst C5W2 = N
SetConst C5W3 = N
SetConst C5W4 = N
SetConst C7W1 = N
SetConst C7W2 = N
SetConst C7W3 = N
SetConst C7W4 = N
SetConst Plant1 = Y
SetConst Plant3 = Y
SetConst Plant5 = Y
SetConst Plant7 = Y
//
// Fill Jugs: 
MousePos 170, 54
delay 250
leftclick
delay 250
MousePos 838, 564
delay 250
leftclick
delay 250
mousepos $EndX, $EndY
delay 3000
//////////////////////////////////////////////////////