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

2010-09-26T07:10:59Z

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

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::

Seconds = 135

IfWinExist eGenesis Client
{
WinActivate

Gui, Add, Text,, Brick Type:
Gui, Add, DropDownList, vBrick Choose1, Firebricks|Clay Bricks|Jugs
Gui, Add, Button, gRecord, GO
Gui, Show
return

Record:
Gui, Submit
Gui, Destroy
Gui, +AlwaysOnTop +ToolWindow
Gui, Font, bold
Gui, Add, Text, vMineNumText, Set brick rack 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 racks 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 == "Firebricks") {
Bricks := "B"
Wood := "W"
Fire := "F"
} else if (Brick == "Jugs") {
Bricks := "J"
Wood := "W"
Fire := "F"
} else if (Brick == "Clay Bricks") {
Bricks := "C"
Wood := "W"
Fire := "F"
}

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% brick racks 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, Making Bricks - Rack: %MineNum%
MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseMove, %MinePosX%, %MinePosY%, 0
sleep 200
Send {%Wood%}
Send {%Bricks%}
Send {%Fire%}

Sleep, 200
MineNum++
}

MouseMove, %OldMX%, %OldMY%, 0

SecondsCountDown := Seconds

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

MineNum = 1

;Take Bricks

loop, %TotalRacks% {

WinActivate, eGenesis Client

GuiControl, Text, MineCycleText, Taking Bricks - Rack: %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
}

User:Lune - Revision history

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