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.
Difference between revisions of "User:Viscis/AutoFlax"
From A Tale in the Desert
Jump to navigationJump to search (New page: trtr) |
|||
Line 1: | Line 1: | ||
− | + | <pre> | |
+ | delay 10000 | ||
+ | //MousePos 1092, 120 | ||
+ | |||
+ | Call Plant | ||
+ | Delay $iDelay | ||
+ | |||
+ | loop 3 | ||
+ | Call Pick | ||
+ | Delay $iRepeat | ||
+ | end | ||
+ | |||
+ | // Constants -- DO EDIT -- // | ||
+ | // ======================== // | ||
+ | |||
+ | CONSTANTS | ||
+ | iRows = 2 // number of rows /2 (2 = 4 so if you want 4 enter 2) | ||
+ | iFields = 5 // number of fields - 1 (2 = 3 so if you want 3 enter 2) | ||
+ | iReturn = 1500 // number should be (300 * (iRows * 2)) + 300 | ||
+ | iDelay = 30000 // delay time before harvest | ||
+ | iRepeat = 10000// delay time between harvests | ||
+ | END | ||
+ | |||
+ | |||
+ | // Procedures -- DO NOT EDIT -- // | ||
+ | // ============================ // | ||
+ | |||
+ | Procedure Plant | ||
+ | |||
+ | leftclick // plant first | ||
+ | |||
+ | loop $iRows //this one controls how many rows (n*2) | ||
+ | |||
+ | loop $iFields //this one controls how many in a line (n+1) | ||
+ | KeyDown {UP} 300 | ||
+ | Delay 500 | ||
+ | leftclick | ||
+ | end | ||
+ | |||
+ | KeyDown {RIGHT} 300 | ||
+ | Delay 500 | ||
+ | Leftclick | ||
+ | |||
+ | loop $iFields //this one controls how many in a line (n+1) | ||
+ | Keydown {DOWN} 300 | ||
+ | Delay 500 | ||
+ | Leftclick | ||
+ | end | ||
+ | |||
+ | KeyDown {RIGHT} 300 | ||
+ | Delay 500 | ||
+ | Leftclick | ||
+ | |||
+ | end | ||
+ | |||
+ | Call Return | ||
+ | |||
+ | End | ||
+ | |||
+ | Procedure Pick | ||
+ | |||
+ | Call SeedGrab // grab first one | ||
+ | |||
+ | loop $iRows //this one controls how many rows (n*2) | ||
+ | |||
+ | loop $iFields//this one controls how many in a line (n+1) | ||
+ | KeyDown {UP} 300 | ||
+ | Delay 500 | ||
+ | Call SeedGrab | ||
+ | end | ||
+ | |||
+ | KeyDown {RIGHT} 300 | ||
+ | Delay 500 | ||
+ | Call SeedGrab | ||
+ | |||
+ | loop $iFields //this one controls how many in a line (n+1) | ||
+ | Keydown {DOWN} 300 | ||
+ | Delay 500 | ||
+ | Call SeedGrab | ||
+ | end | ||
+ | |||
+ | KeyDown {RIGHT} 300 | ||
+ | Delay 500 | ||
+ | Call SeedGrab | ||
+ | |||
+ | end | ||
+ | |||
+ | Call Return | ||
+ | |||
+ | End | ||
+ | |||
+ | Procedure SeedGrab | ||
+ | |||
+ | MousePos 648, 510 | ||
+ | delay 500 | ||
+ | leftclick | ||
+ | delay 100 | ||
+ | MousePos 670, 508 | ||
+ | delay 500 | ||
+ | leftclick | ||
+ | delay 2000 | ||
+ | |||
+ | End | ||
+ | |||
+ | Procedure Return | ||
+ | |||
+ | keydown {LEFT} $iReturn | ||
+ | delay 1000 | ||
+ | |||
+ | End | ||
+ | </pre> |
Latest revision as of 07:45, 31 December 2008
delay 10000 //MousePos 1092, 120 Call Plant Delay $iDelay loop 3 Call Pick Delay $iRepeat end // Constants -- DO EDIT -- // // ======================== // CONSTANTS iRows = 2 // number of rows /2 (2 = 4 so if you want 4 enter 2) iFields = 5 // number of fields - 1 (2 = 3 so if you want 3 enter 2) iReturn = 1500 // number should be (300 * (iRows * 2)) + 300 iDelay = 30000 // delay time before harvest iRepeat = 10000// delay time between harvests END // Procedures -- DO NOT EDIT -- // // ============================ // Procedure Plant leftclick // plant first loop $iRows //this one controls how many rows (n*2) loop $iFields //this one controls how many in a line (n+1) KeyDown {UP} 300 Delay 500 leftclick end KeyDown {RIGHT} 300 Delay 500 Leftclick loop $iFields //this one controls how many in a line (n+1) Keydown {DOWN} 300 Delay 500 Leftclick end KeyDown {RIGHT} 300 Delay 500 Leftclick end Call Return End Procedure Pick Call SeedGrab // grab first one loop $iRows //this one controls how many rows (n*2) loop $iFields//this one controls how many in a line (n+1) KeyDown {UP} 300 Delay 500 Call SeedGrab end KeyDown {RIGHT} 300 Delay 500 Call SeedGrab loop $iFields //this one controls how many in a line (n+1) Keydown {DOWN} 300 Delay 500 Call SeedGrab end KeyDown {RIGHT} 300 Delay 500 Call SeedGrab end Call Return End Procedure SeedGrab MousePos 648, 510 delay 500 leftclick delay 100 MousePos 670, 508 delay 500 leftclick delay 2000 End Procedure Return keydown {LEFT} $iReturn delay 1000 End