User:Tunnen/BlethMacro

Here ya go..

• Step 1 - download AC Tools. You can get it off the Macros page at the bottom
• Step 2 - CLick New Macro in AC Toolcut
• Step 3 - Cut/paste the text below into AC Tool
• Step 4 - Save the macro
• Step 5 - In ATITD, open a chat with yourself
• Step 6 - bring AC Tool to the front again
• Step 7 - Press F2 - IMMEDIATLY put your mouse over the 1st field
• Step 8 - When you see M show up in your chat box move to the next field
• Step 9 - Repeat Step 8 over every field
• Step 10 - Do whatever it's running

If you need to stop the program.. press alt-tab followed by alt (you will have to do this really fast since I haven't figured out how to program in a break key combo yet) and then click the macro menu item at the top and click stop macro .

// Wheat W/H keystroke Spammer.
// 
//If you play in full screen mode, remove the "//" in the next line.
//SetActiveWindow eGenesis Client 
// 
Constructs
 MouseX=List   // This sets up an array to hold all the field X positions
 MouseY=List   // This sets up an array to hold all the field Y positions
END
//
Constants
 totalfields = 20 // Change this number to the quantity of fields you want to run
 totalruns = 10000 // This sets how many times you want to spam the keys - reduce or increase as needed
 MouseXn = 0 // This holds the X value of where the mouse is currently sitting
 MouseYn = 0 // This holds the Y value of where the mouse is currently sitting
 RunCount = 0 // This holds the value of the current mouse list item we are clicking on
END
//
// Part 1 - Grab Field Positions
// 
ListClear MouseX // Set all MouseX list values to zero
ListClear MouseY // Set all MouseY list values to zero
Loop $totalfields  // Repeat this command for the number of fields there are
  Delay 5 Sec // Wait 5 seconds to move the mouse over the fields
  Listadd MouseX, {MouseX} // Add the Mouse X Location to the list
  Listadd MouseY, {MouseY} // Add the Mouse Y Location to the list
  KeyDown M 2 Sec //Press the M key to let you know to move the mouse
END
Loop $totalruns
  Compute RunCount = $RunCount + 1  // Tracks the field we are on
  Compute MouseXn = MouseX[$RunCount] // Sets the Mouse X Cord to the proper one for the field
  Compute MouseYn = MouseY[$RunCount] // Sets the Mouse Y Cord to the proper one for the field
  MousePos $MouseXn, $MouseYn // Move the Mouse over the field
  Delay 1 Sec  // wait 1 second
  KeyDown H 1 Sec  // Press the H key
  KeyDown W 1 Sec  // Press the W key
END