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

Cegaiel at 03:39, 12 October 2010

2010-10-12T03:39:26Z

Cegaiel at 00:43, 11 October 2010

2010-10-11T00:43:00Z

Cegaiel at 08:44, 10 October 2010

2010-10-10T08:44:22Z

Cegaiel at 08:27, 10 October 2010

2010-10-10T08:27:07Z

Cegaiel at 07:26, 10 October 2010

2010-10-10T07:26:10Z

Cegaiel at 01:16, 25 September 2010

2010-09-25T01:16:05Z

Cegaiel at 01:11, 25 September 2010

2010-09-25T01:11:52Z

Cegaiel at 05:37, 23 September 2010

2010-09-23T05:37:52Z

Cegaiel at 01:44, 19 September 2010

2010-09-19T01:44:38Z

Cegaiel: New page:

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

2010-09-17T08:18:34Z

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

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.

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

}
</pre>

@@ Line 51: / Line 51: @@
 	Gui, Add, Text,, Mode:
-	Gui, Add, DropDownList, vMode Choose1, Automatic|Manual
+	Gui, Add, DropDownList, vMode Choose2, Automatic|Manual
 	Gui, Add, Button, gStart, START
 	Gui, Show

@@ Line 26: / Line 26: @@
 ;Ctrl+R = Reload
 ;Ctrl+P = Pause/Resume
@@ Line 36: / Line 35: @@
@@ Line 123: / Line 119: @@
 Manual:
-KeyWait, F1, D
+KeyWait, LShift, D
@@ Line 195: / Line 191: @@
 PixelSearch, Px, Py, 200, 400, 1100, 800, 0xDBD401, 10, Fast|RGB
 return
 </pre>

@@ Line 119: / Line 119: @@
@@ Line 191: / Line 173: @@
+}
 FindPapy:
-PixelSearch, Px, Py, 100, 450, 1132, 715, 0xDBD401, 25, Fast|RGB
+PixelSearch, Px, Py, 200, 400, 1100, 800, 0xDBD401, 10, Fast|RGB
 return
 </pre>

@@ Line 91: / Line 91: @@
 ;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
@@ Line 100: / Line 101: @@
 ;NOTE: The number 25 in the Pixelsearch line represents how many shades away from color 0xDBD401 that it will accept as a valid color
-;If you are having problems with in not clicking the color, try raising that number 2-5 shades at a time (ie 27-30)
+;If you are having problems with in not clicking the color, try raising that number 5 shades at a time (ie 30)
-;If it is too sensitive and clicking on all kinds of stuff around you, then try lowering it 2-5 shades a time (ie 20)
+;If it is too sensitive and clicking on all kinds of stuff around you, then try lowering it 5 shades a time (ie 20)

@@ 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.
 ;Just run close to any papy, it will get picked.
 ;Execute Script with Ctrl+Alt+W
@@ Line 18: / Line 27: @@
 ^p::Pause
 ^!w::
@@ Line 25: / Line 39: @@
 	WinWaitActive, eGenesis Client,
 	WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos
@@ Line 80: / Line 96: @@
 ;Use my Get Mouse Position macro to help you find the coords you want to use, if you need to...

@@ Line 2: / Line 2: @@
 ;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
+;Script will automatically zoom in to my favorite zoom level, which I found to be best under most situations

@@ Line 2: / Line 2: @@
 ;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.
+;Start script with Ctrl+Alt+W. It will zoom in to my favorite zoom level
-;Just run close to any papy, it will get picked.
@@ Line 21: / Line 33: @@
 ;Author: Cegaiel
 ;Date: 9/16/2010
-;Last Update: 9/23/2010
+;Last Update: 10/10/2010
@@ Line 42: / Line 54: @@
-;This just simply sets the zoom level to what I felt was just right
+;This just simply sets the zoom level to what I felt was just right. It is not critical you can zoom in or out a couple times as you see fit.
 ;The below is optional and can be removed...
@@ Line 82: / Line 100: @@
 ; End zooming
@@ Line 92: / Line 123: @@
 ;This searches for the color of pappy (0xDBD401) in a square box around the avatar
-;The upper left corner coords are 475,450
+;The upper left corner coords are 100,450
-;The bottom right corner is 820,650
+;The bottom right corner is 1132,715
 ;You can adjust as you see fit.
@@ Line 105: / Line 136: @@
 ;Also it is possible some video cards may show the papy color slightly different. If after changing your video settings to match mine and it still does not work,
-;Then use my Get Mouse Position macro to find out what the color for you and change the 0xDBD401 to match it.
+;Then use my Get Mouse Position macro to find out what the color for you is and change the 0xDBD401 to match it.
 Loop
+{
-PixelSearch, Px, Py, 475, 450, 820, 650, 0xDBD401, 25, Fast|RGB
+Gosub, FindPapy
 if ErrorLevel = 0
+{
@@ Line 124: / Line 162: @@
 Sleep 150
+}
+}
 </pre>

@@ Line 12: / Line 12: @@
 ;Author: Cegaiel
 ;Date: 9/16/2010
@@ Line 19: / Line 20: @@
-	WinActivate, eGenesis Client
+	; Wait for the window to become active, then get the window stats
 SetDefaultMouseSpeed,0
@@ Line 31: / Line 37: @@
 ;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.
 	Xcenter := Xmax//2 - 3
@@ Line 45: / Line 56: @@
+}