User:Kibble/Macros/Grass Picker

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