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

Cegaiel at 06:49, 9 May 2010

2010-05-09T06:49:40Z

Cegaiel at 06:48, 9 May 2010

2010-05-09T06:48:59Z

Cegaiel at 09:42, 30 April 2010

2010-04-30T09:42:58Z

Cegaiel at 00:08, 14 March 2010

2010-03-14T00:08:39Z

Cegaiel at 00:06, 14 March 2010

2010-03-14T00:06:10Z

Cegaiel at 03:02, 6 March 2010

2010-03-06T03:02:06Z

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  ^r::reload ^p::Pause ^!w::  ;Explanation of Seco...

2010-02-03T06:56:02Z

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 ^r::reload ^p::Pause ^!w:: ;Explanation of Seco...

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

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

;Explanation of Seconds variable below:

;It takes about 67 seconds for the malting to complete. The more trays you have, the less time you may need.
;ie having many trays can decrease the seconds required because of the time it took to load the other trays...

;67s for 1 tray
;63s for 9 trays

Seconds = 63

IfWinExist eGenesis Client
{
WinActivate

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

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

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

AFTER setting malting tray 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% malting trays captured
TotalTrays := 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

Sleep, 5000

loop, %NumPulls%
{

MineNum = 1
MouseGetPos, OldMX, OldMY

;Malting Loop
loop, %TotalTrays% {

WinActivate, eGenesis Client

;BlockInput, MouseMove
GuiControl, Text, MineCycleText, Malting Barley - Tray: %MineNum%
MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseMove, %MinePosX%, %MinePosY%, 0
sleep 150
Send {M}
Sleep, 150
MineNum++
}

MouseMove, %OldMX%, %OldMY%, 0

SecondsCountDown := Seconds

loop, %Seconds% {
GuiControl, Text, MineCycleText, Waiting %SecondsCountdown%s for malting to complete
SecondsCountdown := SecondsCountdown - 1
sleep 1000
}

MineNum = 1

;Take Malt

loop, %TotalTrays% {

WinActivate, eGenesis Client

GuiControl, Text, MineCycleText, Taking Malt - Tray: %MineNum%
MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseMove, %MinePosX%, %MinePosY%, 0
Sleep, 150
Send {T}
Sleep, 150
MineNum++
}

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

}

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

@@ Line 4: / Line 4: @@
 ;The AHK icon in system tray will turn red while paused.
 ;Ctrl+R to reload script
-;Date 3/17/2010
+;Date 4/30/2010
 ^r::reload
@@ Line 94: / Line 94: @@
 	Delay = 5
 	;You got 5 seconds to drag the status window out of the way
-	Loop, %seconds%
+	Loop, %Delay%
+	{
 	GuiControl, Text, MineCycleText, %Delay%s to drag window out of way

@@ Line 96: / Line 96: @@
 	Loop, %seconds%
+	{
-	GuiControl, Text, MineCycleText, %seconds%s to drag window out of way
+	GuiControl, Text, MineCycleText, %Delay%s to drag window out of way
 	Delay --
 	Sleep 1000

@@ Line 4: / Line 4: @@
 ;The AHK icon in system tray will turn red while paused.
 ;Ctrl+R to reload script
 ^r::reload
@@ Line 91: / Line 92: @@
-	seconds = 5
+	Delay = 5
 	;You got 5 seconds to drag the status window out of the way
 	Loop, %seconds%
+	{
 	GuiControl, Text, MineCycleText, %seconds%s to drag window out of way
-	seconds --
+	Delay --
 	Sleep 1000
+	}
@@ Line 174: / Line 175: @@
 	return
+}
 </pre>

@@ Line 123: / Line 123: @@
 			MinePosY := MineY%MineNum%
 			MouseMove, %MinePosX%, %MinePosY%, 0
-			sleep 150
+			Sleep, 150
 			Send {M}
 			Sleep, 150
@@ Line 154: / Line 156: @@
 			MinePosY := MineY%MineNum%
 			MouseMove, %MinePosX%, %MinePosY%, 0
 			Sleep, 150
 			Send {T}

@@ Line 1: / Line 1: @@
 <pre>
 ;Ctrl+P to pause script and Ctrl+P again to resume
 ;The AHK icon in system tray will turn red while paused.
@@ Line 90: / Line 91: @@
-			Sleep, 5000
+	seconds = 5
 	loop, %NumPulls%
@@ Line 162: / Line 174: @@
 	return
+}
 </pre>