CoD/kilns

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 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, Button, gRecord, GO Gui, Show return

Gui, Add, Text,, How many Firings can your kilns take?: Gui, Add, vNumPulls wp number Gui, Add, Button, gRecord, GO Gui, Show 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

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 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 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 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 BRICKS Sleep 2000

}

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