User:Oni/Macros/Cabbage

Cabbage - 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 Cabbage 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 Cabbage" box in the Top Left.
• Shown is also where the macro will click to fill jugs (Water Icon).

• Click the "Cabbage Seeds" (plant cabbage). 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 Red dot)

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

// Cabbage X4 - 8/28/10
// Screen Resolution 1680x1050 only.
//
//
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














///////////////////
////PIN 1//////////
///////////////////

/// START POS:  MousePos 816, 450
//MousePos 816, 453
//MousePos 998, 427
//MousePos 908, 430
//MousePos 91, 91

Compute NewX = $StartX
Compute NewY = $StartY + 3
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX  + 182
Compute NewY = $StartY  - 23
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 92
Compute NewY = $StartY - 20
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 91, 91
///////////////////
////PIN 2//////////
///////////////////

/// START POS:  MousePos 816, 450
//MousePos 880, 456
//MousePos 1064, 433
//MousePos 972, 433
//MousePos 92, 258

Compute NewX = $StartX + 64
Compute NewY = $StartY + 5
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 248
Compute NewY = $StartY - 17
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 156
Compute NewY = $StartY - 17
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 92, 258


///////////////////
////PIN 3//////////
///////////////////

/// START POS:  MousePos 816, 450
//MousePos 909, 567
//MousePos 1093, 543
//MousePos 1001, 544
//MousePos 92, 425

Compute NewX = $StartX + 93
Compute NewY = $StartY + 117
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 277
Compute NewY = $StartY + 93
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 185
Compute NewY = $StartY + 94
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 92, 425

///////////////////
////PIN 4//////////
///////////////////

/// START POS:  MousePos 816, 450
//MousePos 800, 584
//MousePos 985, 559
//MousePos 893, 561
//MousePos 92, 593

Compute NewX = $StartX - 16
Compute NewY = $StartY + 134
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 169
Compute NewY = $StartY + 109
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 77
Compute NewY = $StartY + 111
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 92, 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
/////////////////////////////
KEYS {F4}
///////////////////////////
///////////////////////////
//////  CAB    1  /////////
///////////////////////////
///////////////////////////

//START POS:::::: MousePos 798, 433
//MousePos 764, 433 //1
//MousePos 747, 408 //2
//MousePos 731, 386 //3
//MousePos 714, 361 //4

// 4 \\
Compute NewX = $StartX - 84
Compute NewY = $StartY - 72
LoadRGB $NewX, $NewY// 1 4

delay 100
	IF {RGBGreen} > 105 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
// 3 \\
Compute NewX = $StartX - 67
Compute NewY = $StartY - 47
LoadRGB $NewX, $NewY// 1 3

delay 100
	IF {RGBGreen} > 105 and $C1W3 = N
	delay 100	
		MousePos 52, 120 // WATERS1
		RIGHTCLICK
		Setconst $C1W3 = Y
	Else
	END
// 2 \\
Compute NewX = $StartX - 51
Compute NewY = $StartY - 25
LoadRGB $NewX, $NewY// 1 2

delay 100
	IF {RGBGreen} > 105 and $C1W2 = N
	delay 100	
		MousePos 52, 120 // WATERS1
		RIGHTCLICK
		Setconst $C1W2 = Y
	Else
	END
// 1 \\
Compute NewX = $StartX - 34
Compute NewY = $StartY
LoadRGB $NewX, $NewY// 1 1

delay 100
	IF {RGBGreen} > 105 and $C1W1 = N
	delay 100	
		MousePos 52, 120 // WATERS1
		RIGHTCLICK
		Setconst $C1W1 = Y
	Else
	END



///////////////////////////
///////////////////////////
//////  CAB  2  /////////
///////////////////////////
///////////////////////////

// START POS:::    MousePos 803, 441
//MousePos 895, 427 //1
//MousePos 904, 405 //2
//MousePos 913, 382 //3
//MousePos 923, 359 //4


KEYS {F4}
// 4 \\
Compute NewX = $StartX + 120
Compute NewY = $StartY - 82
LoadRGB $NewX, $NewY

delay 100
	IF {RGBGreen} > 105 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
// 3 \\
Compute NewX = $StartX + 110
Compute NewY = $StartY - 59
LoadRGB $NewX, $NewY

delay 100
	IF {RGBGreen} > 105 and $C3W3 = N
	delay 100	
		MousePos 52, 287 // WATERS3
		RIGHTCLICK
		Setconst $C3W3 = Y
	Else
	END
// 2 \\
Compute NewX = $StartX + 101
Compute NewY = $StartY - 36
LoadRGB $NewX, $NewY

delay 100
	IF {RGBGreen} > 105 and $C3W2 = N
	delay 100	
		MousePos 52, 287 // WATERS3
		RIGHTCLICK
		Setconst $C3W2 = Y
	Else
	END
// 1 \\
Compute NewX = $StartX + 92
Compute NewY = $StartY - 14
LoadRGB $NewX, $NewY

delay 100
	IF {RGBGreen} > 105 and $C3W1 = N
	delay 100	
		MousePos 52, 287 // WATERS3
		RIGHTCLICK
		Setconst $C3W1 = Y
	Else
	END


///////////////////////////
///////////////////////////
//////  CAB    3  /////////
///////////////////////////
///////////////////////////

// START POS::::: MousePos 806, 437
//MousePos 935, 572//1
//MousePos 965, 581//2
//MousePos 975, 582//3
//MousePos 1010, 594//4


// 4 \\
Compute NewX = $StartX + 204
Compute NewY = $StartY + 157
LoadRGB $NewX, $NewY // 5 4

delay 100
	IF {RGBGreen} > 105 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
// 3 \\
Compute NewX = $StartX + 169
Compute NewY = $StartY + 145
LoadRGB $NewX, $NewY // 5 3

delay 100
	IF {RGBGreen} > 105 and $C5W3 = N
	delay 100	
		MousePos 53, 454 // WATERS5
		RIGHTCLICK
		Setconst $C5W3 = Y
	Else
	END
// 2 \\
Compute NewX = $StartX + 159
Compute NewY = $StartY + 144
LoadRGB $NewX, $NewY // 5 2

delay 100
	IF {RGBGreen} > 105 and $C5W2 = N
	delay 100	
		MousePos 53, 454 // WATERS5
		RIGHTCLICK
		Setconst $C5W2 = Y
	Else
	END
// 1 \\
Compute NewX = $StartX + 129
Compute NewY = $StartY + 135
LoadRGB $NewX, $NewY // 5 1

delay 100
	IF {RGBGreen} > 105 and $C5W1 = N
	delay 100	
		MousePos 53, 454 // WATERS5
		RIGHTCLICK
		Setconst $C5W1 = Y
	Else
	END


KEYS {F4}
///////////////////////////
///////////////////////////
//////  CAB    4  /////////
///////////////////////////
///////////////////////////

//START POS:::::: MousePos 798, 433
//MousePos 764, 595//1
//MousePos 744, 623//2
//MousePos 729, 643//3
//MousePos 713, 662//4



// 4 \\
Compute NewX = $StartX - 85
Compute NewY = $StartY + 229
LoadRGB $NewX, $NewY

delay 100
	IF {RGBGreen} > 105 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
// 3 \\
Compute NewX = $StartX - 69
Compute NewY = $StartY + 210
LoadRGB $NewX, $NewY

delay 100
	IF {RGBGreen} > 105 and $C7W3 = N
	delay 100	
		MousePos 53, 622 // WATERS7
		RIGHTCLICK
		Setconst $C7W3 = Y
	Else
	END
// 2 \\
Compute NewX = $StartX - 54
Compute NewY = $StartY + 190
LoadRGB $NewX, $NewY

delay 100
	IF {RGBGreen} > 105 and $C7W2 = N
	delay 100	
		MousePos 53, 622 // WATERS7
		RIGHTCLICK
		Setconst $C7W2 = Y
	Else
	END
// 1 \\
Compute NewX = $StartX - 34
Compute NewY = $StartY + 162
LoadRGB $NewX, $NewY

delay 100
	IF {RGBGreen} > 105 and $C7W1 = N
	delay 100	
		MousePos 53, 622 // WATERS7
		RIGHTCLICK
		Setconst $C7W1 = Y
	Else
	END
//	
END // WHILE LOOP END

// CLOSE PINS \\
Delay 200
MousePos 182, 91
Delay 45
Leftclick
delay 45
MousePos 183, 258
Delay 45
Leftclick
delay 45
MousePos 183, 424
Delay 45
Leftclick
delay 45
MousePos 182, 593
Delay 45
Leftclick
delay 45
// CLOSE DONE \\

// Clear Constants \\
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 836, 562
delay 250
leftclick
delay 250
mousepos $EndX, $EndY
delay 3000
//////////////////////////////////////////////////////