User:Kibble/Macros

Repeat Clicker

// 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 will save the location, you can move the
//               cursor after the macro starts.

// Declares
constants
  objWindow = eGenesis Client        // <-- Program Window Title
  intCount = 500                     // <-- Number of Times to Repeat
  intDelay = 25                      // <-- Delay in seconds between clicks
end                                  // 15 = fish, 25 = limestone/dirt(no food)

constructs
  MousePnt = list
end

// Init
SetActiveWindow $objWindow
delay 3 sec                          // <-- Delay before the macro saves the mouse position
listadd MousePnt, {MouseX}
listadd MousePnt, {MouseY}
delay 2 sec                          // <-- Delay before the macro starts after getting mouse position.

mousepos MousePnt[1], MousePnt[2]
leftclick

// Main
loop $intCount
  delay $intDelay sec
  setactivewindow $objWindow
  mousepos MousePnt[1], MousePnt[2]
  leftclick
end

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
  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]
leftclick

// Main
loop $intCount
  delay $intDelay sec
  call Move
  delay 1 sec
  mousepos MousePnt[1], MousePnt[2]
  leftclick
end

// Procedures
procedure Move
  if $bSwitch = 0
    keys {left}
    setconst bSwitch = 1
  else
    keys {right}
    setconst bSwitch = 0
  end
end