Fez at 08:02, 20 November 2010

2010-11-20T08:02:18Z

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  ;Explanation of Seconds variabl...

2010-11-20T07:59:40Z

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 ;Explanation of Seconds variabl...

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

;Explanation of Seconds variable below:

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

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

;It takes about 33 seconds for the bricks 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 32s for 6 racks
;About 25s for 25 racks
;About 16s for 48 racks

Seconds = 135

IfWinExist eGenesis Client
{
WinActivate

Gui, Add, Text,, Items to fire:
Gui, Add, DropDownList, vBrick Choose1, Jugs|Firebricks|Clay Bricks

Gui, Add, Text,, `nHow many Firings?
Gui, Add, Edit, vNumPulls wp number

Gui, Add, Button, gRecord, NEXT

Gui, Show, x0 y25
return

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

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

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

AFTER setting kiln locations, Press OK...

)

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

MineNum = 0
; NumPulls = 100

if (Brick == "Jugs") {
Bricks := "J"
} else if (Brick == "Firebricks") {
Bricks := "F"
} else if (Brick == "Clay Bricks") {
Bricks := "C"
}

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

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
Firing = 0

loop, %NumPulls%
{

Firing ++
MineNum = 1
MouseGetPos, OldMX, OldMY

;Make Bricks Loop
loop, %TotalRacks% {

WinActivate, eGenesis Client

;BlockInput, MouseMove
GuiControl, Text, MineCycleText, Loading Kilns - Kiln: %MineNum%
MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseMove, %MinePosX%, %MinePosY%, 0
sleep 200
Send {%Bricks%}
Sleep, 50
Send {W}
Sleep, 100
Send {F}
Sleep, 200
MineNum++
}

MouseMove, %OldMX%, %OldMY%, 0

SecondsCountDown := Seconds

loop, %Seconds% {
GuiControl, Text, MineCycleText, Waiting %SecondsCountdown%s for kilns to finish firing`n`nFirings: %Firing% of %NumPulls%
SecondsCountdown := SecondsCountdown - 1
sleep 1000
}

MineNum = 1

;Take Bricks

loop, %TotalRacks% {

WinActivate, eGenesis Client

GuiControl, Text, MineCycleText, Taking Fired Items - Kiln: %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
Sleep 2000

}

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

^r::reload
^p::Pause

</pre>

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

Fez at 08:02, 20 November 2010

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 ;Explanation of Seconds variabl...

@@ Line 8: / Line 8: @@
 ;Explanation of Seconds variable below:
-;If you find the bricks are getting done slightly late:
+;If you find the kilns are getting done slightly late:
-;(ie it begins making more bricks before they are done), then add 1 second at a time, below
+;(ie it begins making more kilns before they are done), then add 1 second at a time, below
-;If you find the bricks are forming before the timer is done,
+;If you find the kilns are firing before the timer is done,
-;(ie there is 1 or more seconds remaining on timer when bricks get done) then decrease 1 second at a time
+;(ie there is 1 or more seconds remaining on timer when kilns get done) then decrease 1 second at a time
-;It takes about 33 seconds for the bricks to form, but the time it takes from when the first rack is loaded
+;It takes about 140 seconds for the kilns to fire, 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 32s for 6 racks
+;About 130s for 10 kilns
-;About 25s for 25 racks
+;About ---s for -- kilns
-;About 16s for 48 racks
+;About ---s for -- kilns