A Tale in the Desert - User contributions [en]

User:Caigan/Cabbage Grow Macro

2009-01-30T14:27:08Z

Caigan:

I'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.

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

User:Caigan/Flax Grow Macro

2009-01-30T02:20:26Z

Caigan:

<pre>//Caigan's 4x4 Flaxer Macro
//v1.1
//
//This macro only works on a 1680 x 1050 resolution with the game maximized. I'm not savvy enough
//to code it for multiple resolutions.
//
//Okay, more like I'm lazy.
//
//You MUST have your chat minimized for this to work.
//
//Pin your Plant tab in the upper left. Make sure you have enough water in your inventory.
//Make sure the ground is flat around you. Hills can really mess with this.
//
//Use F5, zoom your camera all the way out, and align your screen to face north (F4 for compass).
//Then use Alt + L to lock your camera.
//
//Currently the macro works with 4x4. If you can tweak the numbers for more, more power to you.
//
//This is very ugly because I rarely ever code. I'm more of an artistic person.

CONSTANTS //Change these to set your macro

FRows = 2 //Number of double rows you want. If you want 2 rows, put 1.
FPer = 3 //Number between 1 and 3. This will be the number of beds per row, up to 4
ORow = 0 //Set to 1 if you want an additional row (Making it an odd number of rows). NOT CODED IN.
Cycles = 3 //How many cycles of weeding + harvesting there are
XCenter = 839 //X Coord of spot right between characters feet
YCenter = 536 //Y Coord of spot right between characters feet
HPixel = 57 //Number of pixels between the centers of each bed Horizontally
VPixel = 50 //Number of pixels between the centers of each bed Vertically
BDelay1 = 40000 // How long it takes till the first weeding
BDelay2 = 23000 // How long it takes till the second weeding

//Don't Change These
Calc1 = X
MoveBack = X
RowNum = X
BedRow = X
FTime = X
WTime = X
XCenterNew = X
YCenterNew = X
XCenterConst = X
YCenterConst = X

End

Compute RowNum = $FRows * 2
Compute BedRow = $FPer + 1

Procedure FlaxTimer //Determine the amount of time it took to plant all the beds
Compute Calc1 = $RowNum + $ORow
Compute Calc1 = $Calc1 * $BedRow
Compute Calc1 = $Calc1 * 575
Compute Calc1 = $BDelay1 - $Calc1
Set FTIME = $Calc1
End

Procedure WaitTimer //Determine the amount of time after first watering
Compute Calc1 = $RowNum + $ORow
Compute Calc1 = $Calc1 * $BedRow
Compute Calc1 = $Calc1 * 700
//Say WTime before Calculation is $Calc1
Compute Calc1 = $BDelay2 - $Calc1
//Say WTime before settime is $Calc1
Set WTIME = $Calc1
//Say WTime is $WTime
End

Loop $FRows

//Horizontal Right
Loop $FPer
MousePos 70, 45
RightClick
Delay 125
KeyDown {Right} 100
Delay 125
KeyDown {Right} 100
Delay 125
End

//Vertical Drop
MousePos 70, 45
RightClick
Delay 125
KeyDown {Down} 100
Delay 125
KeyDown {Down} 100
Delay 125

//Horizontal Left
Loop $FPer
MousePos 70, 45
RightClick
Delay 125
KeyDown {Left} 100
Delay 125
KeyDown {Left} 100
Delay 125
End

//Vertical Drop
MousePos 70, 45
RightClick
Delay 125
KeyDown {Down} 100
Delay 125
KeyDown {Down} 100
Delay 125

End

KeyDown {Up} 100
Delay 125
KeyDown {Up} 100
Delay 125
Compute MoveBack = $BedRow / 2
FormatNumber MoveBack = $MoveBack, 0

Call FlaxTimer

Delay $FTime

If $ORow = 0
//Set the cursor position for the first bed.

//Calculate X Position
COMPUTE XCenterNew = $XCenter
Set XCenterConst = $XCenterNew
//Calculate Y Position
COMPUTE Calc1 = $RowNum - 1
Compute Calc1 = $Calc1 * $VPixel
FormatNumber Calc1 = $Calc1, ####
COMPUTE YCenterNew = $YCenter - $Calc1
Set YCenterConst = $YCenterNew

//Water, Weed, Harvest Phases
Loop $Cycles
Loop $FRows
Loop $BedRow
MousePos $XCenterNew, $YCenterNew
Delay 100
RightClick
Delay 250
COMPUTE XCENTERNEW = $XCENTERNEW + $HPixel
MousePos $XCenterNew, $YCenterNew
Delay 100
RightClick
Delay 250
End
COMPUTE XCENTERNEW = $XCENTERNEW - $HPixel
COMPUTE YCENTERNEW = $YCENTERNEW + $VPixel
Loop $BedRow
MousePos $XCenterNew, $YCenterNew
Delay 100
RightClick
Delay 250
COMPUTE XCENTERNEW = $XCENTERNEW + $HPixel
MousePos $XCenterNew, $YCenterNew
Delay 100
RightClick
Delay 250
COMPUTE Calc1 = $HPixel * 2
COMPUTE XCENTERNEW = $XCENTERNEW - $Calc1
End
COMPUTE XCENTERNEW = $XCENTERNEW + $HPixel
COMPUTE YCENTERNEW = $YCENTERNEW + $VPixel
End
MousePos 78, 509
RightClick
Set XCENTERNEW = $XCENTERCONST
Set YCENTERNEW = $YCENTERCONST
Call WaitTimer
Delay $WTime
End
Else
End

//Return to Home Point
COMPUTE Calc1 = $RowNum - 1
Loop $Calc1
KeyDown {Up} 100
Delay 125
KeyDown {Up} 100
Delay 125
End
Delay 1000
</pre>

User:Caigan/Cabbage Grow Macro

2009-01-30T02:18:17Z

Caigan: New page: I'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....

I'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.

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

User:Caigan

2009-01-30T02:17:51Z

Caigan:

==Who Am I?==
----
Stuff that goes here is about me. Simple stuff for now, I'll write more about myself later, maybe.

I'm artistic, I write stories, ink and color artwork, and am working into drawing. I also do 3D modeling and animation.

I like anime, especially comedic action ones like One Piece and Soul Eater.

I like games, especially RPGs.

I'm an MMO junkie, but only this, City of Heroes, and Ultima Online have kept me interested for more than 2 years.
----
==Demi-Pharaoh Stance==
----
Greetings to those who may be reading this, this section is my viewpoints and stance on my bid for DP.

====Do the Shoes Fit?====
A proper DP should not only mediate the most difficult situations, but mediate lesser disputes. A DP should assume the role of mediator and mentor to the benefit of Egypt, to be a neutral voice, to help the community.

====Banning : The Power of Exile====
A DP's power is simple : to Exile someone. Having that power garners a bit of respect. Respect out of fear? Perhaps, but I do hope if I am a DP, respect comes from other areas.

To say you will not use this power is to ignore and avoid the responsibility you have been given. Because there may come a time where you must use this power for the good of Egypt, and when you do, you will have lost a bit of trust and respect for going against your word.

The role of DP relies on both trust and respect. A DP cannot easily assume the role of a mediator and a mentor if Egypt does not respect you. Information can withheld, twisted, and construed because they do not trust you.

====For the People====
One thing I hope to suggest is that a council be formed. This council would allow DP's and other prominent members of Egypt to discuss issues and problems.

When it comes to a DP having to use their power, at least one other DP and a number of citizens must approve. Another possibility is the use of the exile power would commense a trial, where the situation and viewpoints could be presented to a group of citizens for their vote.

====Step up, Step Back====
A good DP must also know when it is a good time to take a step back and let someone deliberate a role (say, if the arguement you are mediating involves a close friend), or when to stand up for your choice (if many are pushing for a ban of player whose only fault is they are verbally annoying).

====Final Thoughts====
Without the people of Egypt, the ability of a DP to mediate is diminished. Without the DP, the ability of the people of Egypt to solve problems is diminished. Both must work together harmoniously to help Egypt as a whole.

----

==Cooking Data==
----

Bolded recipes are Masterpiece recipes.

====Cooking 1====
{| border="1"
|-
!Base
!Add
!Stats
!Duration

|-
| 6 Cabbage Juice || 1 Lythrum || +1 Str, +1 Dex

|-
| 6 Honey || 1 Cinnamon || +1 Spd, +1 Foc, +1 Perc

|-
| 6 Honey || 1 Burnt Tarragon || +1 Spd, +1 Perc

|}

====Cooking 2====
{| border="1"
|-
!Base 1
!Base 2
!Add 1
!Add 2
!Stats
!Duration

|-
| 4 Honey || 4 Onion || 1 Cinnamon || 1 Crampbark ||
|-

| 4 Honey || 4 Onions || 1 Cinnamon || 1 Strawberry Tea || -2 Str, +2 Dex, +1 Spd, -1 Foc, +1 Per

|-

| 4 Honey || 4 Onions || 1 Burnt Tarragon || 1 Mirabellis Fern || -3 Dex, +3 End, +1 Spd, -3 Con, +1 Per

|-

|4 Honey || 4 Onions || 1 Burnt Tarragon || 1 Lythrum ||

|-
|}

----

==Macros==
----
Here is a collection of macro's I've created. It's good to note that, uh, I'm a very ugly coder, since my brain is more artistic than logical.

All macros use ACTool so far.

====Flax Growing Macro====
This macro is for growing flax. It makes a 4x4 grid. Instructions are in the macro itself.

[[User:Caigan/Flax_Grow_Macro|Caigan's Flax Grower v1.1]]

====Cabbage Growing Macro====
This macro is for growing cabbage. WARNING : This is VERY tempermental, just like the cabbage themselves. Instructions are in the macro itself.

[[User:Caigan/Cabbage_Grow_Macro|Caigan's Cabbage Grower v0.4]]

User:Caigan/Flax Grow Macro

2009-01-30T02:15:44Z

I'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.

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

User:Caigan

2009-01-30T02:09:18Z

Caigan:

User:Caigan

2009-01-30T01:48:35Z

Caigan: /* Demi-Pharaoh Stance */

==Demi-Pharaoh Stance==
----
Greetings to those who may be reading this, this section is my viewpoints and stance on my bid for DP.

====Do the Shoes Fit?====
A proper DP should not only mediate the most difficult situations, but mediate lesser disputes. A DP should assume the role of mediator and mentor to the benefit of Egypt, to be a neutral voice, to help the community.

====Banning : The Power of Exile====
A DP's power is simple : to Exile someone. Having that power garners a bit of respect. Respect out of fear? Perhaps, but I do hope if I am a DP, respect comes from other areas.

To say you will not use this power is to ignore and avoid the responsibility you have been given. Because there may come a time where you must use this power for the good of Egypt, and when you do, you will have lost a bit of trust and respect for going against your word.

The role of DP relies on both trust and respect. A DP cannot easily assume the role of a mediator and a mentor if Egypt does not respect you. Information can withheld, twisted, and construed because they do not trust you.

====For the People====
One thing I hope to suggest is that a council be formed. This council would allow DP's and other prominent members of Egypt to discuss issues and problems.

When it comes to a DP having to use their power, at least one other DP and a number of citizens must approve. Another possibility is the use of the exile power would commense a trial, where the situation and viewpoints could be presented to a group of citizens for their vote.

====Step up, Step Back====
A good DP must also know when it is a good time to take a step back and let someone deliberate a role (say, if the arguement you are mediating involves a close friend), or when to stand up for your choice (if many are pushing for a ban of player whose only fault is they are verbally annoying).

====Final Thoughts====
Without the people of Egypt, the ability of a DP to mediate is diminished. Without the DP, the ability of the people of Egypt to solve problems is diminished. Both must work together harmoniously to help Egypt as a whole.

----

===Cooking Data===

Bolded recipes are Masterpiece recipes.

====Cooking 1====
{| border="1"
|-
!Base
!Add
!Stats
!Duration

|-
| 6 Cabbage Juice || 1 Lythrum || +1 Str, +1 Dex

|-
| 6 Honey || 1 Cinnamon || +1 Spd, +1 Foc, +1 Perc

|-
| 6 Honey || 1 Burnt Tarragon || +1 Spd, +1 Perc

|}

====Cooking 2====
{| border="1"
|-
!Base 1
!Base 2
!Add 1
!Add 2
!Stats
!Duration

|-
| 4 Honey || 4 Onion || 1 Cinnamon || 1 Crampbark ||
|-

| 4 Honey || 4 Onions || 1 Cinnamon || 1 Strawberry Tea || -2 Str, +2 Dex, +1 Spd, -1 Foc, +1 Per

|-

| 4 Honey || 4 Onions || 1 Burnt Tarragon || 1 Mirabellis Fern || -3 Dex, +3 End, +1 Spd, -3 Con, +1 Per

|-

|4 Honey || 4 Onions || 1 Burnt Tarragon || 1 Lythrum ||

|-
|}

User:Caigan

2009-01-18T18:29:12Z

Caigan:

===Demi-Pharaoh Stance===

Greetings to those who may be reading this, this section is my viewpoints and stance on my bid for DP.

====Do the Shoes Fit?====
A proper DP should not only mediate the most difficult situations, but mediate lesser disputes. A DP should assume the role of mediator and mentor to the benefit of Egypt, to be a neutral voice, to help the community.

====Banning : The Power of Exile====
A DP's power is simple : to Exile someone. Having that power garners a bit of respect. Respect out of fear? Perhaps, but I do hope if I am a DP, respect comes from other areas.

To say you will not use this power is to ignore and avoid the responsibility you have been given. Because there may come a time where you must use this power for the good of Egypt, and when you do, you will have lost a bit of trust and respect for going against your word.

The role of DP relies on both trust and respect. A DP cannot easily assume the role of a mediator and a mentor if Egypt does not respect you. Information can withheld, twisted, and construed because they do not trust you.

====For the People====
One thing I hope to suggest is that a council be formed. This council would allow DP's and other prominent members of Egypt to discuss issues and problems.

When it comes to a DP having to use their power, at least one other DP and a number of citizens must approve. Another possibility is the use of the exile power would commense a trial, where the situation and viewpoints could be presented to a group of citizens for their vote.

====Step up, Step Back====
A good DP must also know when it is a good time to take a step back and let someone deliberate a role (say, if the arguement you are mediating involves a close friend), or when to stand up for your choice (if many are pushing for a ban of player whose only fault is they are verbally annoying).

====Final Thoughts====
Without the people of Egypt, the ability of a DP to mediate is diminished. Without the DP, the ability of the people of Egypt to solve problems is diminished. Both must work together harmoniously to help Egypt as a whole.

===Cooking Data===

Bolded recipes are Masterpiece recipes.

====Cooking 1====
{| border="1"
|-
!Base
!Add
!Stats
!Duration

|-
| 6 Cabbage Juice || 1 Lythrum || +1 Str, +1 Dex

|-
| 6 Honey || 1 Cinnamon || +1 Spd, +1 Foc, +1 Perc

|-
| 6 Honey || 1 Burnt Tarragon || +1 Spd, +1 Perc

|}

====Cooking 2====
{| border="1"
|-
!Base 1
!Base 2
!Add 1
!Add 2
!Stats
!Duration

|-
| 4 Honey || 4 Onion || 1 Cinnamon || 1 Crampbark ||
|-

| 4 Honey || 4 Onions || 1 Cinnamon || 1 Strawberry Tea || -2 Str, +2 Dex, +1 Spd, -1 Foc, +1 Per

|-

| 4 Honey || 4 Onions || 1 Burnt Tarragon || 1 Mirabellis Fern || -3 Dex, +3 End, +1 Spd, -3 Con, +1 Per

|-

|4 Honey || 4 Onions || 1 Burnt Tarragon || 1 Lythrum ||

|-
|}

User:Caigan

2009-01-16T03:45:58Z

Caigan: New page: ===Cooking Data=== Bolded recipes are Masterpiece recipes. ====Cooking 1==== {| border="1" |- !Base !Add !Stats !Duration |- | 6 Cabbage Juice || 1 Lythrum || +1 Str, +1 Dex |- | 6 Hon...

===Cooking Data===

Bolded recipes are Masterpiece recipes.

====Cooking 1====
{| border="1"
|-
!Base
!Add
!Stats
!Duration

|-
| 6 Cabbage Juice || 1 Lythrum || +1 Str, +1 Dex

|-
| 6 Honey || 1 Cinnamon || +1 Spd, +1 Foc, +1 Perc

|-
| 6 Honey || 1 Burnt Tarragon || +1 Spd, +1 Perc

|}

====Cooking 2====
{| border="1"
|-
!Base 1
!Base 2
!Add 1
!Add 2
!Stats
!Duration

|-
| 4 Honey || 4 Onion || 1 Cinnamon || 1 Crampbark ||
|-

| 4 Honey || 4 Onions || 1 Cinnamon || 1 Strawberry Tea || -2 Str, +2 Dex, +1 Spd, -1 Foc, +1 Per

|-

| 4 Honey || 4 Onions || 1 Burnt Tarragon || 1 Mirabellis Fern || -3 Dex, +3 End, +1 Spd, -3 Con, +1 Per

|-

|4 Honey || 4 Onions || 1 Burnt Tarragon || 1 Lythrum ||

|-
|}

Talk:Onions

2009-01-08T16:11:09Z

Caigan: /* Seed Reproduction */

== Moved from [[Onions]] -- [[User:Sekhar|Sekhar]] 18:38, 22 December 2008 (EST) ==
Note - Unlike the other vegetables, if you over water onions they do not die. Whether over-watering has any effect on seed generation or yield is unknown. [Is this verified?! it was not true in Beta] [I accidentally overwatered a few onion plants today. Growth of the overwatered plants was noticeably delayed, and I think a couple of the plants shrunk. - [[User:Wadjet|Wadjet]]

Note on the above: I believe that watering onions resets their growth timer, making it take longer for the onion to reach the next stage of growth. I watered a single onion at least 100 times with no harmful effect except for it taking forever to grow. -- [[User:Shams|Shams]]

== Moved from [[Onions]] / Yield -- [[User:Sekhar|Sekhar]] 12:16, 27 December 2008 (EST) ==
If you are near Khmun or Meroe etc. you should know of The Magic Onion Patch located by Sonny. Coords are (-30, -1975). The yield per seed is 19. There is a public warehouse built there with jugs you can use to grow your onions. You may stash onions in the warehouse. The warehouse was built by Borian who lives near there. He plans to build a public kitchen for carry food nearby as well. Please be sure to return the jugs to the warehouse before leaving. Bring your seeds! -- [[User:Shams|Shams]]

You appear to get a higher yield when there is no-one close to you, get a 4 yield with company and 9 yield when growing on my own.

Note - I got 5:1 yield when I was west of the UArt in QR (-285, 6920)..I have traveled north along this line to (-285, 6420) with the same result. I am completely alone out here. :) At (-1285, 6420) it reverts back to 4:1 yield. [[User:Iwibara|Iwibara]]

Note 2 - I repeatedly got 10 onions per seed at 798 7017, near my compound. There were no avatars within a 5-coord radius, possibly not within 10, but there were 2-5 name tags visible at the edges of my screen at all times. The point I grew at is within 2 coords of water and at least 6 coords from any dirt or grass. - [[User:Wadjet|Wadjet]]

I'm mapping onion yield in Nomad's Paradise. Work so far is available on my user page. I'll add any good spots I find to the main map. -- [[User:Kharazhi|Kharazhi]]

== Seed Reproduction ==
Keep your endurance red while watering and harvesting. Having it red for only harvesting does not work, haven't tested other way around (watering only, not harvesting). I've done this with digging dirt nearby and working a nearby flax comb. I get 0 onions 2 seeds. This was AM game time and clearly reproducable. Have not tested other times of day. And I thought it should go on a discussion page for others to verify before it moves to the main page. --[[User:Amisibastet|AmisiBastet]] 10:57, 8 January 2009 (EST)

: Did a couple more tests. Only need to have your endurance red while harvesting, didn't seem to matter while watering. Continually reproduced 0 onions and 2 seeds each time I harvested with red Endurance. --[[User:Caigan|Caigan]] 11:11, 8 January 2009 (EST)