User:Oni/Macros/Carrot

Carrots

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 Right.
• Shown is also where the macro will click to fill jugs (Water Icon).

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

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

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

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