User:Cegaiel/Macros/PapyPicker/Code

;This was created/tested in 1280x1024 resolution
;The script will search an area (square box around avatar's location) for the papy color (0xDBD401). It will right click each papy and gather.
;Start script with Ctrl+Alt+W. It will zoom in to my favorite zoom level and then start looking for papy to gather.
;Just run close to any papy, it will get picked.

;Execute Script with Ctrl+Alt+W
;Ctrl+R = Reload
;Ctrl+P = Pause/Resume


;Author: Cegaiel
;Date: 9/16/2010


^r::reload
^p::Pause
^!w::


	WinActivate, eGenesis Client

	Send {F6}

SetDefaultMouseSpeed,0
  SetMouseDelay,-1




;This just simply sets the zoom level to what I felt was just right
;The below is optional and can be removed...

Loop, 32
{
		click, WU
		sleep 250
}



Loop, 16
{
		click, WD
		sleep 250
}


; End zooming





;This searches for the color of pappy (0xDBD401) in a square box around the avatar
;The upper left corner coords are 475,450
;The bottom right corner is 820,650
;You can adjust as you see fit.

;Use my Get Mouse Position macro to help you find the coords you want to use, if you need to...




Loop
{

PixelSearch, Px, Py, 475, 450, 820, 650, 0xDBD401, 25, Fast|RGB
if ErrorLevel = 0
{
NewX := Px + 2
NewY := Py + 5
MouseGetPos, OldX, OldY
Click Right %NewX%, %NewY%
MouseMove, %OldX%, %OldY%

Sleep 150
}



}