The Wiki for Tale 4 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:Caigan/Cabbage Grow Macro
From A Tale in the Desert
Jump to navigationJump to searchI'll put a graphic up here later.
I'll warn again, this is very ugly code, and works maybe 50% of the time. If it doesn't work the first time, move a bit, reload the macro, and try again.
//Caigan's Cabbage Grower Macro
//
//Instructions
//1. Turn off Lighting and Shadows
//2. Have 4 cabbage seeds and lots of jugs of water in inventory.
//3. Pin Plant menu in upper left.
//4. Use F8 twice and zoom in all the way. Hit Alt + L to lock camera.
//5. Plant a cabbage.
//6. Hit the small left button twice on the build menu
//7. Place mouse on the section of cabbage shown in the graphic on my wiki user page. (upper left corner of the top most cabbage)
//Then Alt-Tab to AC Tool and hit F2
Constants
CurrentLevel = 4
TotalLevel = 20
NewMouseX = 0
NewMouseY = 0
Cabbage1 = 1
Cabbage2 = 1
Cabbage3 = 1
Cabbage4 = 1
CabbageHor = 2
CabbageVer = 2
CabbageSet = NoValue
CabbageDead = 0
ErrorColor = 0
//Replace this X,Y with the location of your overwater error box OK button
ErrorX = 838
ErrorY = 619
End
Constructs
CornerstoneX = List
CornerstoneY = List
Cabbage1Color = List
Cabbage1PosX = List
Cabbage1PosY = List
Cabbage2Color = List
Cabbage2PosX = List
Cabbage2PosY = List
Cabbage3Color = List
Cabbage3PosX = List
Cabbage3PosY = List
Cabbage4Color = List
Cabbage4PosX = List
Cabbage4PosY = List
End
ListAdd CornerstoneX, {MouseX}
ListAdd CornerstoneY, {MouseY}
ListAdd Cabbage1PosX, CornerstoneX[1]
ListAdd Cabbage1PosY, CornerstoneY[1]
ListAdd Cabbage1PosX, 0
ListAdd Cabbage1PosY, 0
ListAdd Cabbage1PosX, 0
ListAdd Cabbage1PosY, 0
ListAdd Cabbage1PosX, 0
ListAdd Cabbage1PosY, 0
ListAdd Cabbage1PosX, 0
ListAdd Cabbage1PosY, 0
ListAdd Cabbage2PosX, 0
ListAdd Cabbage2PosY, 0
ListAdd Cabbage2PosX, 0
ListAdd Cabbage2PosY, 0
ListAdd Cabbage2PosX, 0
ListAdd Cabbage2PosY, 0
ListAdd Cabbage2PosX, 0
ListAdd Cabbage2PosY, 0
ListAdd Cabbage2PosX, 0
ListAdd Cabbage2PosY, 0
ListAdd Cabbage3PosX, 0
ListAdd Cabbage3PosY, 0
ListAdd Cabbage3PosX, 0
ListAdd Cabbage3PosY, 0
ListAdd Cabbage3PosX, 0
ListAdd Cabbage3PosY, 0
ListAdd Cabbage3PosX, 0
ListAdd Cabbage3PosY, 0
ListAdd Cabbage3PosX, 0
ListAdd Cabbage3PosY, 0
ListAdd Cabbage4PosX, 0
ListAdd Cabbage4PosY, 0
ListAdd Cabbage4PosX, 0
ListAdd Cabbage4PosY, 0
ListAdd Cabbage4PosX, 0
ListAdd Cabbage4PosY, 0
ListAdd Cabbage4PosX, 0
ListAdd Cabbage4PosY, 0
ListAdd Cabbage4PosX, 0
ListAdd Cabbage4PosY, 0
ListAdd Cabbage1Color, 0
ListAdd Cabbage1Color, 0
ListAdd Cabbage1Color, 0
ListAdd Cabbage1Color, 0
ListAdd Cabbage1Color, 0
ListAdd Cabbage2Color, 0
ListAdd Cabbage2Color, 0
ListAdd Cabbage2Color, 0
ListAdd Cabbage2Color, 0
ListAdd Cabbage2Color, 0
ListAdd Cabbage3Color, 0
ListAdd Cabbage3Color, 0
ListAdd Cabbage3Color, 0
ListAdd Cabbage3Color, 0
ListAdd Cabbage3Color, 0
ListAdd Cabbage4Color, 0
ListAdd Cabbage4Color, 0
ListAdd Cabbage4Color, 0
ListAdd Cabbage4Color, 0
ListAdd Cabbage4Color, 0
MousePos 91, 18
Delay 100
LeftClick
Delay 400
//Keys {F4}
Compute Cabbage1PosX[2] = Cabbage1PosX[1] - 15
Compute Cabbage1PosX[3] = Cabbage1PosX[2] - 18
Compute Cabbage1PosX[4] = Cabbage1PosX[3] - 20
Compute Cabbage1PosX[5] = Cabbage1PosX[4] - 20
Compute Cabbage1PosY[2] = Cabbage1PosY[1] - 0
Compute Cabbage1PosY[3] = Cabbage1PosY[2] - 0
Compute Cabbage1PosY[4] = Cabbage1PosY[3] - 0
Compute Cabbage1PosY[5] = Cabbage1PosY[4] - 0
Compute Cabbage2PosX[1] = CornerstoneX[1] + 202
Compute Cabbage2PosX[2] = Cabbage2PosX[1] + 15
Compute Cabbage2PosX[3] = Cabbage2PosX[2] + 17
Compute Cabbage2PosX[4] = Cabbage2PosX[3] + 20
Compute Cabbage2PosX[5] = Cabbage2PosX[4] + 20
Compute Cabbage2PosY[1] = CornerstoneY[1] + 59
Compute Cabbage2PosY[2] = Cabbage2PosY[1] - 0
Compute Cabbage2PosY[3] = Cabbage2PosY[2] - 0
Compute Cabbage2PosY[4] = Cabbage2PosY[3] - 0
Compute Cabbage2PosY[5] = Cabbage2PosY[4] - 0
Compute Cabbage3PosX[1] = CornerstoneX[1] + 89
Compute Cabbage3PosX[2] = Cabbage3PosX[1] - 0
Compute Cabbage3PosX[3] = Cabbage3PosX[2] - 0
Compute Cabbage3PosX[4] = Cabbage3PosX[3] - 0
Compute Cabbage3PosX[5] = Cabbage3PosX[4] - 0
Compute Cabbage3PosY[1] = CornerstoneY[1] - 80
Compute Cabbage3PosY[2] = Cabbage3PosY[1] - 15
Compute Cabbage3PosY[3] = Cabbage3PosY[2] - 20
Compute Cabbage3PosY[4] = Cabbage3PosY[3] - 21
Compute Cabbage3PosY[5] = Cabbage3PosY[4] - 21
Compute Cabbage4PosX[1] = CornerstoneX[1] + 84
Compute Cabbage4PosX[2] = Cabbage4PosX[1] - 0
Compute Cabbage4PosX[3] = Cabbage4PosX[2] - 0
Compute Cabbage4PosX[4] = Cabbage4PosX[3] - 0
Compute Cabbage4PosX[5] = Cabbage4PosX[4] - 0
Compute Cabbage4PosY[1] = CornerstoneY[1] + 155
Compute Cabbage4PosY[2] = Cabbage4PosY[1] + 15
Compute Cabbage4PosY[3] = Cabbage4PosY[2] + 16
Compute Cabbage4PosY[4] = Cabbage4PosY[3] + 19
Compute Cabbage4PosY[5] = Cabbage4PosY[4] + 19
Procedure Error
// LoadRGB $ErrorX, $ErrorY
// Set ErrorColor = {RGBRed}
//
// If $ErrorColor > 230
// If $ErrorColor < 250
// MousePos $ErrorX, $ErrorY
// Pause 100
// RightClick
// Pause 100
// Set Cabbage$CabbageDead = 5
// End
// End
// If $ErrorColor = 0
// MousePos $ErrorX, $ErrorY
// Pause 100
// RightClick
// Pause 100
// Set Cabbage$CabbageDead = 5
// End
End
//BlackOkay
//MousePos 842, 621
//SeedLocations
//1 - R 208
//MousePos 791, 526
//Keys {F4}
Delay 500
LoadRGB Cabbage1PosX[2], Cabbage1PosY[2]
Set Cabbage1Color[1] = {RGBGreen}
LoadRGB Cabbage2PosX[2], Cabbage2PosY[2]
Set Cabbage2Color[1] = {RGBGreen}
LoadRGB Cabbage3PosX[2], Cabbage3PosY[2]
Set Cabbage3Color[1] = {RGBGreen}
LoadRGB Cabbage4PosX[2], Cabbage4PosY[2]
Set Cabbage4Color[1] = {RGBGreen}
//MousePos 59, 122 // Down Position
MousePos 85, 162 // Cancel Build if present
Delay 100
RightClick
Delay 300
MousePos 74, 46 //Plant Button Position
Delay 100
RightClick
Delay 300
MousePos 38, 103 //Left Position
Delay 100
RightClick
Delay 200
MousePos 38, 103 //Left Position
Delay 100
RightClick
Delay 200
MousePos 36, 160 // Build Button
Delay 100
RightClick
Delay 300
MousePos 74, 46 //Plant Button Position
Delay 100
RightClick
Delay 300
MousePos 83, 102 // Right Position
Delay 100
RightClick
Delay 200
MousePos 83, 102 // Right Position
Delay 100
RightClick
Delay 200
MousePos 36, 160 // Build Button
Delay 100
RightClick
Delay 300
MousePos 74, 46 //Plant Button Position
Delay 100
RightClick
Delay 300
MousePos 59, 77 // Up Position
Delay 100
RightClick
Delay 200
MousePos 59, 77 // Up Position
Delay 100
RightClick
Delay 200
MousePos 36, 160 // Build Button
Delay 100
RightClick
Delay 300
MousePos 74, 46 //Plant Button Position
Delay 100
RightClick
Delay 300
MousePos 59, 122 // Down Position
Delay 100
RightClick
Delay 200
MousePos 59, 122 // Down Position
Delay 100
RightClick
Delay 200
MousePos 36, 160 // Build Button
Delay 100
RightClick
Delay 300
//Water Left
MousePos Cabbage1PosX[1], Cabbage1PosY[1]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage1PosX[1] + 40
Compute NewMouseY = Cabbage1PosY[1] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
//Water Right
MousePos Cabbage2PosX[1], Cabbage2PosY[1]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage2PosX[1] + 40
Compute NewMouseY = Cabbage2PosY[1] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
//Water Up
MousePos Cabbage3PosX[1], Cabbage3PosY[1]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage3PosX[1] + 40
Compute NewMouseY = Cabbage3PosY[1] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
//Water Down
MousePos Cabbage4PosX[1], Cabbage4PosY[1]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage4PosX[1] + 40
Compute NewMouseY = Cabbage4PosY[1] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
While $CurrentLevel < $TotalLevel
//Keys {F4}
Delay 400
//Cabbage Left
If $Cabbage1 = 1
LoadRGB Cabbage1PosX[2], Cabbage1PosY[2]
//Cabbage 1 - Level 1
If Cabbage1Color[1] = {RGBGreen}
Else
MousePos Cabbage1PosX[1], Cabbage1PosY[1]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage1PosX[1] + 40
Compute NewMouseY = Cabbage1PosY[1] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
Compute Cabbage1 = $Cabbage1 + 1
LoadRGB Cabbage1PosX[2], Cabbage1PosY[2]
Set Cabbage1Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 2
If $Cabbage1 = 2
LoadRGB Cabbage1PosX[2], Cabbage1PosY[2]
If Cabbage1Color[1] = {RGBGreen}
Else
MousePos Cabbage1PosX[2], Cabbage1PosY[2]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage1PosX[2] + 40
Compute NewMouseY = Cabbage1PosY[2] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
Compute Cabbage1 = $Cabbage1 + 1
LoadRGB Cabbage1PosX[2], Cabbage1PosY[2]
Set Cabbage1Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 3
If $Cabbage1 = 3
LoadRGB Cabbage1PosX[2], Cabbage1PosY[2]
If Cabbage1Color[1] = {RGBGreen}
Else
MousePos Cabbage1PosX[3], Cabbage1PosY[3]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage1PosX[3] + 40
Compute NewMouseY = Cabbage1PosY[3] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
Compute Cabbage1 = $Cabbage1 + 1
LoadRGB Cabbage1PosX[2], Cabbage1PosY[2]
Set Cabbage1Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 4
If $Cabbage1 = 4
LoadRGB Cabbage1PosX[2], Cabbage1PosY[2]
If Cabbage1Color[1] = {RGBGreen}
Else
MousePos Cabbage1PosX[4], Cabbage1PosY[4]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage1PosX[4] + 40
Compute NewMouseY = Cabbage1PosY[4] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 1000
Compute Cabbage1 = $Cabbage1 + 1
LoadRGB Cabbage1PosX[2], Cabbage1PosY[2]
Set Cabbage1Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage Right
If $Cabbage2 = 1
LoadRGB Cabbage2PosX[2], Cabbage2PosY[2]
//Cabbage 1 - Level 1
If Cabbage2Color[1] = {RGBGreen}
Else
MousePos Cabbage2PosX[1], Cabbage2PosY[1]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage2PosX[1] + 40
Compute NewMouseY = Cabbage2PosY[1] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
Compute Cabbage2 = $Cabbage2 + 1
LoadRGB Cabbage2PosX[2], Cabbage2PosY[2]
Set Cabbage2Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 2
If $Cabbage2 = 2
LoadRGB Cabbage2PosX[2], Cabbage2PosY[2]
If Cabbage2Color[1] = {RGBGreen}
Else
MousePos Cabbage2PosX[2], Cabbage2PosY[2]
Delay 100
RightClick
Delay 400
Compute NewMouseX = Cabbage2PosX[2] + 40
Compute NewMouseY = Cabbage2PosY[2] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 400
Compute Cabbage2 = $Cabbage2 + 1
LoadRGB Cabbage2PosX[2], Cabbage2PosY[2]
Set Cabbage2Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 3
If $Cabbage2 = 3
LoadRGB Cabbage2PosX[2], Cabbage2PosY[2]
If Cabbage2Color[1] = {RGBGreen}
Else
MousePos Cabbage2PosX[3], Cabbage2PosY[3]
Delay 100
RightClick
Delay 400
Compute NewMouseX = Cabbage2PosX[3] + 40
Compute NewMouseY = Cabbage2PosY[3] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 400
Compute Cabbage2 = $Cabbage2 + 1
LoadRGB Cabbage2PosX[2], Cabbage2PosY[2]
Set Cabbage2Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 4
If $Cabbage2 = 4
LoadRGB Cabbage2PosX[2], Cabbage2PosY[2]
If Cabbage2Color[1] = {RGBGreen}
Else
MousePos Cabbage2PosX[4], Cabbage2PosY[4]
Delay 100
RightClick
Delay 400
Compute NewMouseX = Cabbage2PosX[4] + 40
Compute NewMouseY = Cabbage2PosY[4] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 1000
Compute Cabbage2 = $Cabbage2 + 1
LoadRGB Cabbage2PosX[2], Cabbage2PosY[2]
Set Cabbage2Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage Up
If $Cabbage3 = 1
LoadRGB Cabbage3PosX[2], Cabbage3PosY[2]
//Cabbage 1 - Level 1
If Cabbage3Color[1] = {RGBGreen}
Else
MousePos Cabbage3PosX[1], Cabbage3PosY[1]
Delay 100
RightClick
Delay 400
Compute NewMouseX = Cabbage3PosX[1] + 40
Compute NewMouseY = Cabbage3PosY[1] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 400
Compute Cabbage3 = $Cabbage3 + 1
LoadRGB Cabbage3PosX[2], Cabbage3PosY[2]
Set Cabbage3Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 2
If $Cabbage3 = 2
LoadRGB Cabbage3PosX[2], Cabbage3PosY[2]
If Cabbage3Color[1] = {RGBGreen}
Else
MousePos Cabbage3PosX[2], Cabbage3PosY[2]
Delay 100
RightClick
Delay 400
Compute NewMouseX = Cabbage3PosX[2] + 40
Compute NewMouseY = Cabbage3PosY[2] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 400
Compute Cabbage3 = $Cabbage3 + 1
LoadRGB Cabbage3PosX[2], Cabbage3PosY[2]
Set Cabbage3Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 3
If $Cabbage3 = 3
LoadRGB Cabbage3PosX[2], Cabbage3PosY[2]
If Cabbage3Color[1] = {RGBGreen}
Else
MousePos Cabbage3PosX[3], Cabbage3PosY[3]
Delay 100
RightClick
Delay 400
Compute NewMouseX = Cabbage3PosX[3] + 40
Compute NewMouseY = Cabbage3PosY[3] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 400
Compute Cabbage3 = $Cabbage3 + 1
LoadRGB Cabbage3PosX[2], Cabbage3PosY[2]
Set Cabbage3Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 4
If $Cabbage3 = 4
LoadRGB Cabbage3PosX[2], Cabbage3PosY[2]
If Cabbage3Color[1] = {RGBGreen}
Else
MousePos Cabbage3PosX[4], Cabbage3PosY[4]
Delay 100
RightClick
Delay 400
Compute NewMouseX = Cabbage3PosX[4] + 40
Compute NewMouseY = Cabbage3PosY[4] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 1000
Compute Cabbage3 = $Cabbage3 + 1
LoadRGB Cabbage3PosX[2], Cabbage3PosY[2]
Set Cabbage3Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage Bottom
If $Cabbage4 = 1
LoadRGB Cabbage4PosX[2], Cabbage4PosY[2]
//Cabbage 1 - Level 1
If Cabbage4Color[1] = {RGBGreen}
Else
MousePos Cabbage4PosX[1], Cabbage4PosY[1]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage4PosX[1] + 40
Compute NewMouseY = Cabbage4PosY[1] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
Compute Cabbage4 = $Cabbage4 + 1
LoadRGB Cabbage4PosX[2], Cabbage4PosY[2]
Set Cabbage4Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 2
If $Cabbage4 = 2
LoadRGB Cabbage4PosX[2], Cabbage4PosY[2]
If Cabbage4Color[1] = {RGBGreen}
Else
MousePos Cabbage4PosX[2], Cabbage4PosY[2]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage4PosX[2] + 40
Compute NewMouseY = Cabbage4PosY[2] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
Compute Cabbage4 = $Cabbage4 + 1
LoadRGB Cabbage4PosX[2], Cabbage4PosY[2]
Set Cabbage4Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 3
If $Cabbage4 = 3
LoadRGB Cabbage4PosX[2], Cabbage4PosY[2]
If Cabbage4Color[1] = {RGBGreen}
Else
MousePos Cabbage4PosX[3], Cabbage4PosY[3]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage4PosX[3] + 40
Compute NewMouseY = Cabbage4PosY[3] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 250
Compute Cabbage4 = $Cabbage4 + 1
LoadRGB Cabbage4PosX[2], Cabbage4PosY[2]
Set Cabbage4Color[1] = {RGBGreen}
//Keys {F4}
End
End
//Cabbage 1 - Level 4
If $Cabbage4 = 4
LoadRGB Cabbage4PosX[2], Cabbage4PosY[2]
If Cabbage4Color[1] = {RGBGreen}
Else
MousePos Cabbage4PosX[4], Cabbage4PosY[4]
Delay 100
RightClick
Delay 250
Compute NewMouseX = Cabbage4PosX[4] + 40
Compute NewMouseY = Cabbage4PosY[4] + 15
MousePos $NewMouseX, $NewMouseY
Delay 100
RightClick
Delay 1000
Compute Cabbage4 = $Cabbage4 + 1
LoadRGB Cabbage4PosX[2], Cabbage4PosY[2]
Set Cabbage4Color[1] = {RGBGreen}
//Keys {F4}
End
End
Compute CabbageHor = $Cabbage1 + $Cabbage2
Compute CabbageVer = $Cabbage3 + $Cabbage4
Compute CurrentLevel = $CabbageHor + $CabbageVer
End
MousePos 745, 479
+28, +41
MousePos 773, 520
+134, +0
MousePos 907, 520
MousePos 839, 451
MousePos 839, 588
//MousePos 74, 46 //Plant Button Position
//MousePos 38, 103 //Left Position
//MousePos 59, 77 // Up Position
//MousePos 83, 102 // Right Position
//MousePos 59, 122 // Down Position
//MousePos 36, 160 // Build Button
//MousePos 85, 162 // Cancel Button
//Left Cabbage Sizes
//MousePos 783, 490
