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

Cegaiel at 04:28, 20 January 2012

2012-01-20T04:28:22Z

Cegaiel at 11:58, 14 January 2012

2012-01-14T11:58:55Z

Cegaiel at 01:12, 28 April 2010

2010-04-28T01:12:11Z

Cegaiel at 21:23, 17 April 2010

2010-04-17T21:23:53Z

Cegaiel: New page:

 ;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 3/17/2010  ^r::reload ^p::Pause ^!w::  ;Exp...

2010-03-14T01:34:35Z

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 3/17/2010 ^r::reload ^p::Pause ^!w:: ;Exp...

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 3/17/2010

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

;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 rack is loaded
;until the time the last one is loaded is the reason that time varies

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

Seconds = 59

IfWinExist eGenesis Client
{
WinActivate

Record:
Gui, Submit
Gui, Destroy
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

MineNum = 0
NumPulls = 100

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, 5 seconds to drag window out of way
Gui, Font, norm
Gui, Show
GuiControl, Text, MineCycleText, 5 seconds to drag window out of way

Delay = 5
;You got 5 seconds to drag the status window out of the way
Loop, %Delay%
{
GuiControl, Text, MineCycleText, %Delay%s to drag window out of way
Delay --
Sleep 1000
}

SetDefaultMouseSpeed, 0

loop, %NumPulls%
{

MineNum = 1
MouseGetPos, OldMX, OldMY

;Make Jugs Loop
loop, %TotalRacks% {

WinActivate, eGenesis Client

;BlockInput, MouseMove
GuiControl, Text, MineCycleText, Making Jugs - Wheel: %MineNum%
MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseMove, %MinePosX%, %MinePosY%, 0
sleep 200
Send {J}
Sleep, 200
MineNum++
}

MouseMove, %OldMX%, %OldMY%, 0

SecondsCountDown := Seconds

loop, %Seconds% {
GuiControl, Text, MineCycleText, Waiting %SecondsCountdown%s for Jugs to complete
SecondsCountdown := SecondsCountdown - 1
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
Sleep, 200
Send {T}
Sleep, 200
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
}
</pre>

@@ Line 221: / Line 221: @@
-;PixelSearch, Px, Py, %PopX%, %PopY%, %PopX%, %PopY%, 0xECDFBD, 25, Fast|RGB
+			if ErrorLevel = 0
-if ErrorLevel = 0
+			;If popup is detected, then go back and keep checking until it is closed for sure, in case lag
-−
-Click, %PopX%, %PopY%
+interfered with it closing properly
-Sleep 1000
-MineNum --
+			Gosub, SearchPopupBox
-MouseMove, %MinePosX%, %MinePosY%, 0
+			;Send %Key%  ;Resend the key from Patternset sub, after closing popup box (sometimes doesn't
-;msgbox, Failed here, # %MinNum%: %MinePosX%, %mINEPosY%
-Sleep 500
+work as desired, commenting out...
-Send {%Key%}
 return

@@ Line 3: / Line 3: @@
 ;The AHK icon in system tray will turn red while paused.
 ;Ctrl+R to reload script
-;Date 4/27/2010
+;Date 6/22/2010
 ;Explanation of Seconds variable below:
@@ Line 22: / Line 24: @@
 ;About 69s for 1 wheel
-;About 58s for 36 wheels
+;About 49s for 36 wheels
@@ Line 50: / Line 37: @@
 	Gui, +AlwaysOnTop +ToolWindow
 	Gui, Font, bold
@@ Line 71: / Line 55: @@
 	Gui, Add, Button, default gMineSetLoops, OK
-	Gui, Show
+	Gui, Show, x0 y25
 	MineNum = 0
@@ Line 113: / Line 97: @@
 	Gui, +AlwaysOnTop +ToolWindow
 	Gui, Font, bold
-	Gui, Add, Text, vMineCycleText, 5 seconds to drag window out of way
+	Gui, Add, Text, vMineCycleText, Starting in 2 seconds ..................
 	Gui, Font, norm
-	Gui, Show
+	Gui, Show, x0 y25
-	GuiControl, Text, MineCycleText, 5 seconds to drag window out of way
+	GuiControl, Text, MineCycleText, Starting in 2 seconds .............
 	Loop, %Delay%
+	{
-	GuiControl, Text, MineCycleText, %Delay%s to drag window out of way
+	GuiControl, Text, MineCycleText, Starting in %Delay%s seconds .....
 	Delay --
 	Sleep 1000
@@ Line 137: / Line 121: @@
-			MineNum = 1
+	MineNum = 1
-			MouseGetPos, OldMX, OldMY
+	MouseGetPos, OldMX, OldMY
@@ Line 152: / Line 147: @@
 			;BlockInput, MouseMove
-			GuiControl, Text, MineCycleText, Making Jugs -  Wheel: %MineNum%
+			GuiControl, Text, MineCycleText, Making Jugs -  Wheel: %MineNum%/%TotalRacks%
 			MinePosX := MineX%MineNum%
 			MinePosY := MineY%MineNum%
 			MouseMove, %MinePosX%, %MinePosY%, 0
-			Sleep 100
+			Key = J
-			Send {J}
+			Sleep 200
 			Gosub, SearchPopupBox
 			MineNum++
@@ Line 193: / Line 190: @@
 			MinePosY := MineY%MineNum%
 			MouseMove, %MinePosX%, %MinePosY%, 0
-			Sleep, 100
+			Key = T
-			Send {T}
+			Sleep 200
 			Gosub, SearchPopupBox
 			MineNum++
@@ Line 219: / Line 218: @@
 ;This searches for a poup box which I occassionally would get (Pottery wheel busy) and closes it immediately.
-PixelSearch, Px, Py, %PopX%, %PopY%, %PopX%, %PopY%, 0xECDFBD, 25, Fast|RGB
+ImageSearch, PopX, PopY, 458, 459, 667, 621, *50 OK.PNG
 if ErrorLevel = 0
 Click, %PopX%, %PopY%
 return
 </pre>

@@ Line 3: / Line 3: @@
 ;The AHK icon in system tray will turn red while paused.
 ;Ctrl+R to reload script
-;Date 3/17/2010
+;Date 4/27/2010
 ^r::reload
@@ Line 17: / Line 17: @@
 ;(ie there is 1 or more seconds remaining on timer when jugs get done) then decrease 1 second at a time
-;It takes about 69 seconds for the jugs to form, but the time it takes from when the first rack is loaded
+;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 59s for 36 wheels
+;About 58s for 36 wheels
-Seconds = 59
@@ Line 61: / Line 74: @@
 	MineNum = 0
@@ Line 121: / Line 133: @@
-	loop, %NumPulls%
+	loop
+	{
@@ Line 130: / Line 142: @@
 	;Make Jugs Loop
-	loop, %TotalRacks% {
+	loop, %TotalRacks%
 			WinActivate, eGenesis Client
 			;BlockInput, MouseMove
@@ Line 139: / Line 156: @@
 			MinePosY := MineY%MineNum%
 			MouseMove, %MinePosX%, %MinePosY%, 0
-			sleep 200
+			Sleep 100
 			Send {J}
-			Sleep, 200
+			Gosub, SearchPopupBox
 			MineNum++
+			}
@@ Line 152: / Line 172: @@
 			loop, %Seconds% {
 			GuiControl, Text, MineCycleText, Waiting %SecondsCountdown%s for Jugs to complete
-			SecondsCountdown := SecondsCountdown - 1
+			SecondsCountdown --
 			sleep 1000
+			}
@@ Line 165: / Line 185: @@
 			WinActivate, eGenesis Client
 			GuiControl, Text, MineCycleText, Taking Jugs -  Wheel: %MineNum%
@@ Line 170: / Line 193: @@
 			MinePosY := MineY%MineNum%
 			MouseMove, %MinePosX%, %MinePosY%, 0
-			Sleep, 200
+			Sleep, 100
 			Send {T}
-			Sleep, 200
+			Gosub, SearchPopupBox
 			MineNum++
+			}
@@ Line 191: / Line 214: @@
 	return
+}
 </pre>