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.

Difference between revisions of "User:Oni/Macros/Leek"

From ATITD5
Jump to navigationJump to search
 
(2 intermediate revisions by the same user not shown)
Line 1: Line 1:
−
== Leeks ==
+
== Leeks - 1680x1050 screen resolution ==
  
 
<br>
 
<br>
Line 9: Line 9:
 
*Turn Off: Automatically make all planted crops guild owned.
 
*Turn Off: Automatically make all planted crops guild owned.
 
<br>
 
<br>
−
*Have 4 Carrot Seeds and 50 Water in Jugs.
+
*Have 4 Leek Seeds and 50 Water in Jugs.
 
*Open the macro file and set the number of times to repeat (do this before starting the macro)
 
*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.
 
*See images below on screen setup/mouse starting position.
Line 24: Line 24:
 
*Tab over to ACTool and hit F2 (do not move the mouse)
 
*Tab over to ACTool and hit F2 (do not move the mouse)
 
<br>
 
<br>
 +
<pre>
 +
// LEEKS X4 - 8/28/10
 +
//
 +
//
 +
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
 +
// MousePos 801, 457  // START
 +
///////////////////
 +
////PIN 1//////////
 +
///////////////////
 +
Compute NewX = $StartX + 7
 +
Compute NewY = $StartY - 8
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
Compute NewX = $StartX  + 172
 +
Compute NewY = $StartY  - 32
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
Compute NewX = $StartX + 82
 +
Compute NewY = $StartY - 32
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
DRAGTO 75, 92
 +
///////////////////
 +
////PIN 2//////////
 +
///////////////////
 +
Compute NewX = $StartX + 76
 +
Compute NewY = $StartY - 8
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
Compute NewX = $StartX + 241
 +
Compute NewY = $StartY - 31
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
Compute NewX = $StartX + 151
 +
Compute NewY = $StartY - 31
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
DRAGTO 75, 260
 +
 +
 +
///////////////////
 +
////PIN 3//////////
 +
///////////////////
 +
 +
Compute NewX = $StartX + 69
 +
Compute NewY = $StartY + 82
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
Compute NewX = $StartX + 235
 +
Compute NewY = $StartY + 57
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
Compute NewX = $StartX + 144
 +
Compute NewY = $StartY + 58
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
DRAGTO 75, 429
 +
 +
///////////////////
 +
////PIN 4//////////
 +
///////////////////
 +
Compute NewX = $StartX - 6
 +
Compute NewY = $StartY + 93
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
Compute NewX = $StartX + 159
 +
Compute NewY = $StartY + 69
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
Compute NewX = $StartX + 69
 +
Compute NewY = $StartY + 69
 +
MOUSEPOS $NewX, $NewY
 +
delay 100
 +
RIGHTCLICK
 +
delay 100
 +
DRAGTO 75, 597
 +
 +
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}
 +
///////////////////////////
 +
///////////////////////////
 +
//////  LEEK  1  /////////
 +
///////////////////////////
 +
///////////////////////////
 +
// START:  MousePos 805, 477
 +
// 1: MousePos 805, 471
 +
// 2: MousePos 805, 455
 +
// 3: MousePos 805, 442
 +
// 4: MousePos 805, 429
 +
 +
 +
 +
// 4 \\
 +
Compute NewX = $StartX
 +
Compute NewY = $StartY - 48
 +
LoadRGB $NewX, $NewY// 1 4
 +
 +
delay 100
 +
IF {RGBRed} > 155 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
 +
Compute NewY = $StartY - 35
 +
LoadRGB $NewX, $NewY// 1 3
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C1W3 = N
 +
delay 100
 +
MousePos 52, 120 // WATERS1
 +
RIGHTCLICK
 +
Setconst $C1W3 = Y
 +
Else
 +
END
 +
// 2 \\
 +
Compute NewX = $StartX
 +
Compute NewY = $StartY - 22
 +
LoadRGB $NewX, $NewY// 1 2
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C1W2 = N
 +
delay 100
 +
MousePos 52, 120 // WATERS1
 +
RIGHTCLICK
 +
Setconst $C1W2 = Y
 +
Else
 +
END
 +
// 1 \\
 +
Compute NewX = $StartX
 +
Compute NewY = $StartY - 6
 +
LoadRGB $NewX, $NewY// 1 1
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C1W1 = N
 +
delay 100
 +
MousePos 52, 120 // WATERS1
 +
RIGHTCLICK
 +
Setconst $C1W1 = Y
 +
Else
 +
END
 +
 +
 +
 +
///////////////////////////
 +
///////////////////////////
 +
//////  LEEK  2  /////////
 +
///////////////////////////
 +
///////////////////////////
 +
// START:  MousePos 805, 477
 +
//1 :MousePos 873, 472
 +
//2 :MousePos 875, 458
 +
//3 :MousePos 875, 444
 +
//4 :MousePos 876, 430
 +
 +
 +
KEYS {F4}
 +
// 4 \\
 +
Compute NewX = $StartX + 71
 +
Compute NewY = $StartY - 47
 +
LoadRGB $NewX, $NewY
 +
 +
delay 100
 +
IF {RGBRed} > 155 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 + 70
 +
Compute NewY = $StartY - 33
 +
LoadRGB $NewX, $NewY
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C3W3 = N
 +
delay 100
 +
MousePos 52, 287 // WATERS3
 +
RIGHTCLICK
 +
Setconst $C3W3 = Y
 +
Else
 +
END
 +
// 2 \\
 +
Compute NewX = $StartX + 70
 +
Compute NewY = $StartY - 19
 +
LoadRGB $NewX, $NewY
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C3W2 = N
 +
delay 100
 +
MousePos 52, 287 // WATERS3
 +
RIGHTCLICK
 +
Setconst $C3W2 = Y
 +
Else
 +
END
 +
// 1 \\
 +
Compute NewX = $StartX + 68
 +
Compute NewY = $StartY - 5
 +
LoadRGB $NewX, $NewY
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C3W1 = N
 +
delay 100
 +
MousePos 52, 287 // WATERS3
 +
RIGHTCLICK
 +
Setconst $C3W1 = Y
 +
Else
 +
END
 +
 +
 +
///////////////////////////
 +
///////////////////////////
 +
//////  LEEK  3  /////////
 +
///////////////////////////
 +
///////////////////////////
 +
// START:  MousePos 805, 477
 +
 +
//1: MousePos 886, 579
 +
//2: MousePos 891, 582
 +
//3: MousePos 895, 586
 +
//4: MousePos 902, 592
 +
 +
 +
 +
// 4 \\
 +
Compute NewX = $StartX + 97
 +
Compute NewY = $StartY + 115
 +
LoadRGB $NewX, $NewY // 5 4
 +
 +
delay 100
 +
IF {RGBRed} > 155 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 + 90
 +
Compute NewY = $StartY + 109
 +
LoadRGB $NewX, $NewY // 5 3
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C5W3 = N
 +
delay 100
 +
MousePos 53, 454 // WATERS5
 +
RIGHTCLICK
 +
Setconst $C5W3 = Y
 +
Else
 +
END
 +
// 2 \\
 +
Compute NewX = $StartX + 86
 +
Compute NewY = $StartY + 105
 +
LoadRGB $NewX, $NewY // 5 2
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C5W2 = N
 +
delay 100
 +
MousePos 53, 454 // WATERS5
 +
RIGHTCLICK
 +
Setconst $C5W2 = Y
 +
Else
 +
END
 +
// 1 \\
 +
Compute NewX = $StartX + 81
 +
Compute NewY = $StartY + 102
 +
LoadRGB $NewX, $NewY // 5 1
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C5W1 = N
 +
delay 100
 +
MousePos 53, 454 // WATERS5
 +
RIGHTCLICK
 +
Setconst $C5W1 = Y
 +
Else
 +
END
 +
 +
 +
KEYS {F4}
 +
///////////////////////////
 +
///////////////////////////
 +
//////  LEEK  4  /////////
 +
///////////////////////////
 +
///////////////////////////
 +
// START:  MousePos 805, 477
 +
//1: MousePos 790, 583
 +
//2: MousePos 783, 590
 +
//3: MousePos 776, 598
 +
//4: MousePos 768, 607
 +
 +
 +
 +
// 4 \\
 +
Compute NewX = $StartX - 37
 +
Compute NewY = $StartY + 130
 +
LoadRGB $NewX, $NewY
 +
 +
delay 100
 +
IF {RGBRed} > 155 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 - 29
 +
Compute NewY = $StartY + 121
 +
LoadRGB $NewX, $NewY
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C7W3 = N
 +
delay 100
 +
MousePos 53, 622 // WATERS7
 +
RIGHTCLICK
 +
Setconst $C7W3 = Y
 +
Else
 +
END
 +
// 2 \\
 +
Compute NewX = $StartX - 22
 +
Compute NewY = $StartY + 113
 +
LoadRGB $NewX, $NewY
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C7W2 = N
 +
delay 100
 +
MousePos 53, 622 // WATERS7
 +
RIGHTCLICK
 +
Setconst $C7W2 = Y
 +
Else
 +
END
 +
// 1 \\
 +
Compute NewX = $StartX - 15
 +
Compute NewY = $StartY + 106
 +
LoadRGB $NewX, $NewY
 +
 +
delay 100
 +
IF {RGBRed} > 155 and $C7W1 = N
 +
delay 100
 +
MousePos 53, 622 // WATERS7
 +
RIGHTCLICK
 +
Setconst $C7W1 = Y
 +
Else
 +
END
 +
//
 +
END // WHILE LOOP END
 +
 +
// CLOSE PINS \\
 +
Delay 200
 +
MousePos 165, 90
 +
Delay 45
 +
Leftclick
 +
delay 45
 +
MousePos 165, 259
 +
Delay 45
 +
Leftclick
 +
delay 45
 +
MousePos 165, 430
 +
Delay 45
 +
Leftclick
 +
delay 45
 +
MousePos 165, 598
 +
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
 +
//////////////////////////////////////////////////////
 +
</pre>

Latest revision as of 00:33, 17 October 2010

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

Leek1.PNG

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

Leek2.PNG

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


// LEEKS X4 - 8/28/10
//
//
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
// MousePos 801, 457  // START
///////////////////
////PIN 1//////////
///////////////////
Compute NewX = $StartX + 7
Compute NewY = $StartY - 8
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX  + 172
Compute NewY = $StartY  - 32
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 82
Compute NewY = $StartY - 32
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 75, 92
///////////////////
////PIN 2//////////
///////////////////
Compute NewX = $StartX + 76
Compute NewY = $StartY - 8
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 241
Compute NewY = $StartY - 31
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 151
Compute NewY = $StartY - 31
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 75, 260


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

Compute NewX = $StartX + 69
Compute NewY = $StartY + 82
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 235
Compute NewY = $StartY + 57
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 144
Compute NewY = $StartY + 58
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 75, 429

///////////////////
////PIN 4//////////
///////////////////
Compute NewX = $StartX - 6
Compute NewY = $StartY + 93
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 159
Compute NewY = $StartY + 69
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
Compute NewX = $StartX + 69
Compute NewY = $StartY + 69
MOUSEPOS $NewX, $NewY 
delay 100
RIGHTCLICK
delay 100
DRAGTO 75, 597

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}
///////////////////////////
///////////////////////////
//////  LEEK   1  /////////
///////////////////////////
///////////////////////////
// START:  MousePos 805, 477
// 1: MousePos 805, 471
// 2: MousePos 805, 455
// 3: MousePos 805, 442
// 4: MousePos 805, 429



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

delay 100
	IF {RGBRed} > 155 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
Compute NewY = $StartY - 35
LoadRGB $NewX, $NewY// 1 3

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

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

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



///////////////////////////
///////////////////////////
//////  LEEK   2  /////////
///////////////////////////
///////////////////////////
// START:  MousePos 805, 477
//1 :MousePos 873, 472
//2 :MousePos 875, 458
//3 :MousePos 875, 444
//4 :MousePos 876, 430


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

delay 100
	IF {RGBRed} > 155 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 + 70
Compute NewY = $StartY - 33
LoadRGB $NewX, $NewY

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

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

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


///////////////////////////
///////////////////////////
//////  LEEK   3  /////////
///////////////////////////
///////////////////////////
// START:  MousePos 805, 477

//1: MousePos 886, 579
//2: MousePos 891, 582
//3: MousePos 895, 586
//4: MousePos 902, 592



// 4 \\
Compute NewX = $StartX + 97
Compute NewY = $StartY + 115
LoadRGB $NewX, $NewY // 5 4

delay 100
	IF {RGBRed} > 155 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 + 90
Compute NewY = $StartY + 109
LoadRGB $NewX, $NewY // 5 3

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

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

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


KEYS {F4}
///////////////////////////
///////////////////////////
//////  LEEK   4  /////////
///////////////////////////
///////////////////////////
// START:  MousePos 805, 477
//1: MousePos 790, 583
//2: MousePos 783, 590
//3: MousePos 776, 598
//4: MousePos 768, 607



// 4 \\
Compute NewX = $StartX - 37
Compute NewY = $StartY + 130
LoadRGB $NewX, $NewY

delay 100
	IF {RGBRed} > 155 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 - 29
Compute NewY = $StartY + 121
LoadRGB $NewX, $NewY

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

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

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

// CLOSE PINS \\
Delay 200
MousePos 165, 90
Delay 45
Leftclick
delay 45
MousePos 165, 259
Delay 45
Leftclick
delay 45
MousePos 165, 430
Delay 45
Leftclick
delay 45
MousePos 165, 598
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
//////////////////////////////////////////////////////
Retrieved from "http://www.atitd.org/wiki/t5w/index.php?title=User:Oni/Macros/Leek&oldid=32669"