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

Cegaiel at 10:57, 3 February 2012

2012-02-03T10:57:44Z

Cegaiel at 05:58, 3 February 2012

2012-02-03T05:58:10Z

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

2012-02-03T05:33:41Z

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.
;Script will automatically zoom in to my favorite zoom level, which I found to be best under most situations

;Explanation of Modes:
;Automatic Mode: means that it is looking for papy, continuously and all the time, and will pick them if you are in range.

;Manual Mode: means that it will not look until you press the F1 key. It will pick everything within range and stop.
;After stopping, it will wait for you to press the F1 key again and repeat.

;While Automatic seems more better, sometimes it is annoying. If it see a single papy in range and you have 5 more a couple coords away
;then it will pick the 1 first, and sometimes your avatar stops running. You might find yourself, clicking to keep running as much as if you picked the papy by hand.
;The benefit of Manual mode is you can run and stand in the center of a big papy patch, and have it gather them all at once. Then you are free to run to next patch
;without your avatar stopping on single papys.

;The video settings I am using is:
;Shadow Quality: 2nd checkbox (from left)
;Time of day lighting: 1st checkbox
;Light Intensity: 3rd checkbox

;Screenshot avail at http://www.atitd.org/wiki/tale4/User:Cegaiel/Macros/PapyPicker

;Ctrl+R = Reload
;Ctrl+P = Pause/Resume

;Author: Cegaiel
;Date: 9/16/2010
;Last Update: 10/10/2010

; 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

Gui, Add, Text,, Mode:
Gui, Add, DropDownList, vMode Choose2, Automatic|Manual
Gui, Add, Button, gStart, START
Gui, Show
return

Start:
WinActivate, eGenesis Client
Gui, Submit

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

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
}

; End zooming

SetDefaultMouseSpeed,0
SetMouseDelay,-1

if (Mode = "Automatic")
{
Msgbox, Papy Picker now ready (Automatic Mode)!`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
Gosub, Automatic
} else {
Msgbox, Papy Picker now ready (Manual Mode)!`n`nRun to a patch of papy, stand in the middle of it and hit F1 to pick everything in range, via right click.`n`nCtrl+P to pause/resume, Ctrl+R to reload script
Gosub, Manual
}

Manual:
KeyWait, LShift, D

WinActivate, eGenesis Client

Loop 25
{

Gosub, FindPapy

if ErrorLevel = 0
{
NewX := Px + 2
NewY := Py + 5
MouseGetPos, OldX, OldY
Click Right %NewX%, %NewY%
MouseMove, %OldX%, %OldY%

Sleep 150
}
}

Gosub, Manual

Automatic:
Loop
{

Gosub, FindPapy

if ErrorLevel = 0
{
NewX := Px + 2
NewY := Py + 5
MouseGetPos, OldX, OldY
Click Right %NewX%, %NewY%
MouseMove, %OldX%, %OldY%
Sleep 150
}

}

;The FindPapy subroutine, below searches for the color of pappy (0xDBD401) in a square box around the avatar

;The upper left corner coords are 200,400
;The bottom right corner is 1100,800
;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...

;NOTE: The number 10 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 papy, try raising that number 5 shades
;If it is too sensitive and clicking on all kinds of stuff around you, then try lowering it 5 shades a time

;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 is and change the 0xDBD401 to match it.

FindPapy:
PixelSearch, Px, Py, 200, 400, 1100, 800, 0xDBD401, 10, Fast|RGB
return

^r::reload
^p::Pause
</pre>

@@ Line 1: / Line 1: @@
 <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
+;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.
 ;Script will automatically zoom in to my favorite zoom level, which I found to be best under most situations
 ;Explanation of Modes:
-;Automatic Mode: means that it is looking for papy, continuously and all the time, and will pick them if you are in
+;Automatic Mode: means that it is looking for papy, continuously and all the time, and will pick them if you are in range.
 ;Manual Mode: means that it will not look until you press the F1 key. It will pick everything within range and stop.
 ;After stopping, it will wait for you to press the F1 key again and repeat.
-;While Automatic seems more better, sometimes it is annoying. If it see a single papy in range and you have 5 more a
+;While Automatic seems more better, sometimes it is annoying. If it see a single papy in range and you have 5 more a couple coords away
 ;then it will pick the 1 first, and sometimes your avatar stops running. You might find yourself, clicking to keep running as much as if you picked the papy by hand.
-couple coords away
+;The benefit of Manual mode is you can run and stand in the center of a big papy patch, and have it gather them all at once. Then you are free to run to next patch
 ;without your avatar stopping on single papys.
@@ Line 36: / Line 19: @@
 ;The video settings I am using is:
-;Shadow Quality: 2nd checkbox (from left) - Should not matter
+;Shadow Quality: 2nd checkbox (from left)
-;Time of day lighting: 1st checkbox - THIS WILL MATTER THE MOST
+;Time of day lighting: 1st checkbox
-;Light Intensity: 3rd checkbox - Should not matter, maybe a tiny bit.
+;Light Intensity: 3rd checkbox
@@ Line 113: / Line 65: @@
-;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
+;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...
-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
+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.
@@ Line 159: / Line 107: @@
 if (Mode = "Automatic")
+{
-Msgbox, Papy Picker now ready (Automatic Mode)!`n`nJust start running past pappy and it will automatically pick it via
+Msgbox, Papy Picker now ready (Automatic Mode)!`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
 Gosub, Automatic
 } else {
-Msgbox, Papy Picker now ready (Manual Mode)!`n`nRun to a patch of papy, stand in the middle of it and hit Left Shift to
+Msgbox, Papy Picker now ready (Manual Mode)!`n`nRun to a patch of papy, stand in the middle of it and hit F1 to pick everything in range, via right click.`n`nCtrl+P to pause/resume, Ctrl+R to reload script
 Gosub, Manual
+}
@@ Line 226: / Line 170: @@
-;The FindPapy subroutine, below searches for the color of pappy in a near the avatar
+;The FindPapy subroutine, below searches for the color of pappy (0xDBD401) in a square box around the avatar
 FindPapy:
-PixelSearch, Px, Py, %UpperLeftX% , %UpperLeftY%, %LowerRightX%, %LowerRightY%, %color%, %shades%, Fast|RGB
+PixelSearch, Px, Py, 200, 400, 1100, 800, 0xDBD401, 10, Fast|RGB
 return