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

Cegaiel at 09:28, 18 February 2012

2012-02-18T09:28:34Z

Cegaiel at 07:36, 18 February 2012

2012-02-18T07:36:21Z

Cegaiel at 04:27, 7 February 2012

2012-02-07T04:27:01Z

Cegaiel: 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: 10/02/2010 ;Last Update: 1/19/20..."

2012-02-03T04:21:36Z

Created page with "<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: 10/02/2010 ;Last Update: 1/19/20..."

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: 10/02/2010
;Last Update: 1/19/2012 - Speeded it up and added delay variable so you can change if needed.

;This is how many boards it will plane, if you resume past the initial stopping point
DefaultResumingCounter = 50

;Increase value to slow the movement down. 100 is 1/10 of a second, 1000 is 1 second

Delay = 100

Resuming = 0

IfWinExist eGenesis Client
{
WinActivate

InputBox, NumPulls, Boards, How many boards do you want to plane?

Gui, +AlwaysOnTop +ToolWindow
Gui, Font, bold
Gui, Add, Text, vMineNumText, Recording bench positions
Gui, Font, norm
Gui, Add, Text,,
( LTrim
Hover and middle-click (Click mouse-wheel) on each carpentry bench, one by one,
until you've clicked on all the benches you want to use.

AFTER setting middle clicking all your benches, then click the OK button.

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

)

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

MineNum = 0
Boards = 0

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% benches captured
TotalBenches := MineNum
return

MineSetLoops:
Gui, Submit
Gui, Destroy
Gui, +AlwaysOnTop +ToolWindow
Gui, Font, bold
Gui, Add, Text, vMineCycleText, 5s to drag out of way from the benches`n`n`n`n`n
Gui, Font, norm
Gui, Show, x0 y25
GuiControl, Text, MineCycleText, 5s to drag out of way from the benches`n`n`n`n`n

seconds = 5
;You got 5 seconds to drag the status window out of the way
Loop, %seconds%
{
GuiControl, Text, MineCycleText, %seconds%s countdown, drag window out of way`n`n`nMake sure chat is MINIMIZED!
seconds --
Sleep 1000
}

SetDefaultMouseSpeed,0
SetMouseDelay,-1

loop
{

MineNum = 1

loop, %TotalBenches% {

WinActivate, eGenesis Client

MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseMove, %MinePosX%, %MinePosY%, 0
Sleep, 100
Send {P}
Sleep, %Delay%
MineNum++
Boards++

if Resuming = 1
{
GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`n`n`n`nMaking %ResumingCounter% more boards...
ResumingCounter --
} else {
GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%
}

if Boards = %NumPulls%
{
GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`nAll Done, pausing script...`nHit Ctrl+P to Resume (if quota not met)`n`nMakes %DefaultResumingCounter% more boards...
Resuming = 1
ResumingCounter := DefaultResumingCounter
PAUSE
}

if ResumingCounter = 0
{
ResumingCounter := DefaultResumingCounter
GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`nAll Done, pausing script...`nHit Ctrl+P to Resume (if quota not met)`n`nMakes %DefaultResumingCounter% more boards...
PAUSE
}

}

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

^r::reload
^p::pause
</pre

@@ Line 14: / Line 14: @@
 ;Increase value to slow the movement down. 100 is 1/10 of a second, 1000 is 1 second
 Delay = 150
@@ Line 134: / Line 132: @@
 			if Resuming = 1
+			{
-			GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`n`n`n`nMaking
+			GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`n`n`n`nMaking %ResumingCounter% more boards...
 			ResumingCounter --
 			} else {
@@ Line 145: / Line 141: @@
 if Boards = %NumPulls%
+{
-GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`nAll Done, pausing script...`nHit Ctrl+P to Resume (if
+GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`nAll Done, pausing script...`nHit Ctrl+P to Resume (if quota not met)`n`nMakes %DefaultResumingCounter% more boards...
 Resuming = 1
 ResumingCounter := DefaultResumingCounter
@@ Line 158: / Line 152: @@
+{
 ResumingCounter := DefaultResumingCounter
-GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`nAll Done, pausing script...`nHit Ctrl+P to Resume (if
+GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`nAll Done, pausing script...`nHit Ctrl+P to Resume (if quota not met)`n`nMakes %DefaultResumingCounter% more boards...
 PAUSE
+}
@@ Line 181: / Line 173: @@
 ^r::reload
-^p::Pause
+^p::pause
 </pre>