User:Cegaiel/Macros/PapyPicker/Code - Revision history

Cegaiel at 03:22, 17 September 2010

2010-09-17T03:22:59Z

Cegaiel at 07:59, 16 September 2010

2010-09-16T07:59:20Z

Cegaiel: Created page with "

 ;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 ea..."

2010-09-16T07:45:59Z

Created page with "<pre> ;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 ea..."

New page

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

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

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

WinActivate, eGenesis Client

Send {F6}

SetDefaultMouseSpeed,0
SetMouseDelay,-1

Loop, 32
{
click, WU
sleep 250
}

Loop, 16
{
click, WD
sleep 250
}

;F6 -16 wheeldown

Loop
{

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

Sleep 150
}

}
</pre>

← Older revision		Revision as of 07:59, 16 September 2010
Line 4:		Line 4:
	;Start script with Ctrl+Alt+W. It will zoom in to my favorite zoom level and then start looking for papy to 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.		;Just run close to any papy, it will get picked.
		+
		+	;Execute Script with Ctrl+Alt+W
		+	;Ctrl+R = Reload
		+	;Ctrl+P = Pause/Resume

@@ Line 25: / Line 25: @@
 SetDefaultMouseSpeed,0
    SetMouseDelay,-1
 Loop, 32
@@ Line 40: / Line 46: @@
+}
-;F6 -16 wheeldown
 Loop
@@ Line 48: / Line 69: @@
 if ErrorLevel = 0
+{
 NewX := Px + 2
 NewY := Py + 5