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
;Last Update: 9/23/2010


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


	; Wait for the window to become active, then get the window stats
	WinWait, eGenesis Client, 
	IfWinNotActive, eGenesis Client, , WinActivate, eGenesis Client, 
	WinWaitActive, eGenesis Client,
	WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos




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



Msgbox, The screen will now zoom in, then back out to a descent zoom level in F6 mode!`n`nDon't move the mouse until you are given the Ready box, in a moment.


	Send {F6}

	Xcenter := Xmax//2 - 3
	Ycenter := Ymax//2 + 16
	MouseMove, Xcenter, Ycenter, 0


Loop, 32
{
		click, WU
		sleep 250
}

	MouseMove, Xcenter, Ycenter, 0


Loop, 16
{
		click, WD
		sleep 250
}


Msgbox, Papy Picker now ready!`n`nJust start running past pappy and it will automatically pick it via right click.`n`nCtrl+P to pause/resume, Ctrl+R to reload script

; 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
}



}