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:Kibble/Macros/Grass Picker"
From A Tale in the Desert
< User:Kibble | Macros
Jump to navigationJump to searchm (New page: <pre> // Repeat Clicker // coded by: kibble // Instructions: Start the macro and hold the mouse cursor over the spot you wish to click // and wait for the macro to start. It...) |
m |
||
Line 1: | Line 1: | ||
<pre> | <pre> | ||
− | // | + | // Grass Picker |
// coded by: kibble | // coded by: kibble | ||
− | // Instructions: Start the | + | // Instructions: |
− | // | + | // Make sure there is a grass icon in the same spot of the screen when |
− | + | // stepping to the left and right. | |
+ | // Start the Macro and hold your mouse over the grass icon. | ||
+ | // Wait for the macro to start picking grass. | ||
// Declares | // Declares | ||
constants | constants | ||
− | objWindow = eGenesis Client | + | objWindow = eGenesis Client // <-- Program Window Title |
− | Action = leftclick | + | Action = leftclick // <-- Action to perform (keys d for dig) |
− | intCount = 500 | + | intCount = 500 // <-- Number of Times to Repeat |
− | intDelay = | + | intDelay = 5 // <-- Seconds in delay between Picks |
− | end | + | bSwitch = 0 |
+ | end | ||
constructs | constructs | ||
Line 21: | Line 24: | ||
// Init | // Init | ||
SetActiveWindow $objWindow | SetActiveWindow $objWindow | ||
− | delay 3 sec | + | delay 3 sec // <-- Delay before the mouse position is captured |
listadd MousePnt, {MouseX} | listadd MousePnt, {MouseX} | ||
listadd MousePnt, {MouseY} | listadd MousePnt, {MouseY} | ||
− | delay 2 sec | + | delay 2 sec // <-- Delay before start after mouse capture |
mousepos MousePnt[1], MousePnt[2] | mousepos MousePnt[1], MousePnt[2] | ||
Line 32: | Line 35: | ||
loop $intCount | loop $intCount | ||
delay $intDelay sec | delay $intDelay sec | ||
− | + | call Move | |
+ | delay 1 sec | ||
mousepos MousePnt[1], MousePnt[2] | mousepos MousePnt[1], MousePnt[2] | ||
$Action | $Action | ||
+ | end | ||
+ | |||
+ | // Procedures | ||
+ | procedure Move | ||
+ | if $bSwitch = 0 | ||
+ | keys {left} | ||
+ | setconst bSwitch = 1 | ||
+ | else | ||
+ | keys {right} | ||
+ | setconst bSwitch = 0 | ||
+ | end | ||
end | end | ||
</pre> | </pre> |
Revision as of 04:47, 5 February 2009
// Grass Picker // coded by: kibble // Instructions: // Make sure there is a grass icon in the same spot of the screen when // stepping to the left and right. // Start the Macro and hold your mouse over the grass icon. // Wait for the macro to start picking grass. // Declares constants objWindow = eGenesis Client // <-- Program Window Title Action = leftclick // <-- Action to perform (keys d for dig) intCount = 500 // <-- Number of Times to Repeat intDelay = 5 // <-- Seconds in delay between Picks bSwitch = 0 end constructs MousePnt = list end // Init SetActiveWindow $objWindow delay 3 sec // <-- Delay before the mouse position is captured listadd MousePnt, {MouseX} listadd MousePnt, {MouseY} delay 2 sec // <-- Delay before start after mouse capture mousepos MousePnt[1], MousePnt[2] $Action // Main loop $intCount delay $intDelay sec call Move delay 1 sec mousepos MousePnt[1], MousePnt[2] $Action end // Procedures procedure Move if $bSwitch = 0 keys {left} setconst bSwitch = 1 else keys {right} setconst bSwitch = 0 end end