User:Lunodragon/Macros/GP

//Grass Picker
//coded by:Lunodragon with drastic help by Kibble


//Preparation:
//Do not be in a spot where grass has already been picked
//Do not be in the F5 camera mode

//To end the test, hold Alt and press Tab until you get to AC Tool Window.
//Then click the stop botton on the bottom right of the window (might be difficult, but is very possible)
//I am, however, working on a way to make it so you can press a button and it will end it. 

constants
objWindow = eGenesis Client 
intCount = 2
isRunning = 1
objWindow2 = AC Tool 5.4.0
end



SetActiveWindow $objWindow

Keys {F5}
MousePos 527, 766
delay 1000
MousePos 453, 380
 

//Initial Gathering of grass
MousePos 93, 90
leftclick
delay 3000


//Move Back and Forth and Gather Grass
procedure harvest
MousePos 249, 361
leftclick
delay 1000
MousePos 93, 90
leftclick
delay 3000
MousePos 621, 357
leftclick
delay 1000
MousePos 93, 90
leftclick
delay 3000
end

procedure stopIt
keys {TAB}
setactivewindow objWindow2
MousePos 872, 691
leftclick
end
 


while $isRunning = 1
call harvest
end