Cegaiel: Created page with "

 ;Ctrl+P to pause script and Ctrl+P again to resume ;The AHK icon in system tray will turn red while paused. ;Ctrl+R to reload script ;Date 6/22/2010 ;Author: Cegaiel   ;Las..."

2012-02-03T05:23:33Z

Created page with "<pre> ;Ctrl+P to pause script and Ctrl+P again to resume ;The AHK icon in system tray will turn red while paused. ;Ctrl+R to reload script ;Date 6/22/2010 ;Author: Cegaiel ;Las..."

New page

<pre>
;Ctrl+P to pause script and Ctrl+P again to resume
;The AHK icon in system tray will turn red while paused.
;Ctrl+R to reload script
;Date 6/22/2010
;Author: Cegaiel

;Last Update: 1/14/2012 - No longer requires you to press Ctrl+Alt+W to start the macro. It now launches directly to a

GUI. Windows now appear on upper left corner of screen, and dont require you to drag out of the way. Now automatically

detects popup boxes and closes it, in case lag caused a "Pottery Wheel busy" error.

;Explanation of Seconds variable below:

;If you find the jugs are getting done slightly late:
;(ie it begins making more jugs before they are done), then add 1 second at a time, below

;If you find the jugs are forming before the timer is done,
;(ie there is 1 or more seconds remaining on timer when jugs get done) then decrease 1 second at a time

;It takes about 33 seconds for the jugs to form, but the time it takes from when the first wheel is loaded
;until the time the last one is loaded is the reason that time varies

;About 69s for 1 wheel
;About 49s for 36 wheels

Seconds = 67

IfWinExist eGenesis Client
{
WinActivate

Gui, +AlwaysOnTop +ToolWindow
Gui, Font, bold
Gui, Add, Text, vMineNumText, Set Pottery Wheel locations
Gui, Font, norm
Gui, Add, Text,,
( LTrim
Hover and middle-click (Click mouse-wheel) on each pottery wheel, one by one,
until you've clicked on all the wheels you want to use. Then click the OK button.

(Drag this box out of the way if any wheels are hidden)

Make sure you chat is minimized and that your screen is locked (Alt+L)

AFTER setting pottery wheel locations, Press OK...

)

Gui, Add, Button, default gMineSetLoops, OK
Gui, Show, x0 y25

MineNum = 0

WinGet, GameWinHandle, ID, eGenesis Client
loop
{
WinActivate
CoordMode, Mouse, Relative
KeyWait, MButton, D
KeyWait, MButton
MouseGetPos, TestX, TestY, WinHandle
if (WinHandle = GameWinHandle)
{
Gosub, MineRecord
}
else
{
Gui, Destroy
break
}
}
return

MineRecord:
MineNum++
MouseGetPos, MineX%MineNum%, MineY%MineNum%
GuiControl, Text, MineNumText, %MineNum% pottery wheel captured
TotalRacks := MineNum
return

MineSetLoops:
Gui, Submit
Gui, Destroy
Gui, +AlwaysOnTop +ToolWindow
Gui, Font, bold
Gui, Add, Text, vMineCycleText, Starting in 2 seconds ..................
Gui, Font, norm
Gui, Show, x0 y25
GuiControl, Text, MineCycleText, Starting in 2 seconds .............

Delay = 2

Loop, %Delay%
{
GuiControl, Text, MineCycleText, Starting in %Delay%s seconds .....
Delay --
Sleep 1000
}

SetDefaultMouseSpeed, 0

loop
{

MineNum = 1
MouseGetPos, OldMX, OldMY

ImageSearch, PopX, PopY, 458, 459, 667, 621, *50 OK.PNG

if ErrorLevel = 0
{
Click, %PopX%, %PopY%
Sleep 1000
}

;Make Jugs Loop
loop, %TotalRacks%
{

WinActivate, eGenesis Client

;BlockInput, MouseMove
GuiControl, Text, MineCycleText, Making Jugs - Wheel: %MineNum%/%TotalRacks%
MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseMove, %MinePosX%, %MinePosY%, 0
Key = J
Sleep 100
Send {%Key%}
Sleep 100
Gosub, SearchPopupBox
MineNum++
}

MouseMove, %OldMX%, %OldMY%, 0

SecondsCountDown := Seconds

loop, %Seconds% {
GuiControl, Text, MineCycleText, Waiting %SecondsCountdown%s for Jugs to complete
SecondsCountdown --
sleep 1000
}

MineNum = 1

;Take Jugs

loop, %TotalRacks% {

WinActivate, eGenesis Client

GuiControl, Text, MineCycleText, Taking Jugs - Wheel: %MineNum%
MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseMove, %MinePosX%, %MinePosY%, 0
Key = T
Sleep 100
Send {%Key%}
Sleep 100
Gosub, SearchPopupBox
MineNum++
}

GuiControl, Text, MineCycleText, 2s Pause, Hit Ctrl+P to STOP MAKING
Sleep 2000

}

Gui, Destroy
Gui, Add, Text,, Middle-click on this window to end the script.
Gui, Show
return
}

SearchPopupBox:
;This searches for a poup box which I occassionally would get (Pottery wheel busy) and closes it immediately.

ImageSearch, PopX, PopY, 458, 459, 667, 621, *50 OK.PNG

if ErrorLevel = 0
{
NewX := PopX + 3
NewY := PopY + 3
;BlockInput, MouseMove
Click %NewX%, %NewY%
Sleep 250
;BlockInput, MouseMoveOff

MineNum--
MouseMove, %MinePosX%, %MinePosY%, 0
Send {%Key%}

;If popup is detected, then go back and keep checking until it is closed for sure, in case lag

interfered with it closing properly

Gosub, SearchPopupBox
;Send %Key% ;Resend the key from Patternset sub, after closing popup box (sometimes doesn't

work as desired, commenting out...
}

return

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

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

Cegaiel: Created page with "
;Ctrl+P to pause script and Ctrl+P again to resume ;The AHK icon in system tray will turn red while paused. ;Ctrl+R to reload script ;Date 6/22/2010 ;Author: Cegaiel ;Las..."