//Grass Picker
//
//This macro will pick grass and keep you in the same relative area.
//INSTRUCTIONS
//  1) Set your camera view to Cartographer (Double F8) and zoom all the way in.
//  2) "Action Buttons Appear in Smaller Size" under Utility->Interface
//  3) Put your mouse pointer over pick grass button
//  4) Alt tab to ACTool (Don't move the mouse)  Press F2
//  5) Set Reps - (Wanted grass/2) / (Number of grass you pick/click)
//  6) Click Ok to Continue or Cancel to Stop the macro
Constants
	Reps = 0 
  XPos1 = 0  //Grass button X Coord
  YPos1 = 0   //Grass button Y Coord
  XPos2 = 507
  YPos2 = 394
  YPos3 = 394
  MouseX = 0
  MouseY = 0
  NewX = 0
  Pick = 800      //Pick delay - Time waited while avatar picks grass
  MDelay = 250    //Mouse move delay, increase if having problems
End

SetConst XPos1 = {mousex}
SetConst YPos1 = {mousey}

Form Grass,(Wanted grass/2) / (# of grass you pick/click)
  ed1=EditBox:Reps:1
end
  
if ShowForm Grass
  //Do this if OK clicked
  Set Reps = Grass[ed1]
else
	//Do this if Cancel is clicked
  Stop
end

MousePos 100, 20
Delay $MDelay
LeftClick
Delay $MDelay



Loop $Reps
  Compute NewX = $XPos2 - 145
  Call MouseLeft
  
  Compute NewX = $XPos2 + 133
  Call MouseRight 
End

Procedure MouseLeft
  //Left side
  MousePos $NewX, $YPos3
  Delay $MDelay
  LeftClick
  Delay $Pick
  
  //Grass button
  MousePos $XPos1, $YPos1
  Delay $MDelay
  LeftClick
  
  Delay 1500
End

Procedure MouseRight
  //Right side
  MousePos $NewX, $YPos2
  Delay $MDelay
  LeftClick
  Delay $Pick

  //Grass button
  MousePos $XPos1, $YPos1
  Delay $MDelay
  LeftClick
  Delay 1500
End

Procedure Coords
Delay 5000
Keys {mousex}, {mousey}
End
//Written with AC Tool 4.6.2 by Anka