User:Cegaiel/Macros/Plane/Code

;Ctrl+Alt+W to start macro.
;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: 4/17/2010


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


;Note this was designed using 20 carpentry benches as a base line. If you are using a small handful (like 1-10) then
;you will need to adjust the sleep seconds to slow it down.  Look for these lines below:
;Send {P}
;Sleep, 150	

;1000 = 1 second, so 150 is .15 of 1 seconds.  Try setting the 2nd instance of Sleep 150 to like 1000-2000 (1-2 second) range.
;This should slow it down enough so that it doesn't keep trying to plane boards on a bench that is still in the middle of last board.
;the reason its set to 150, is at 20 benches, by the time it gets back to the first bench it had time to complete.
;But it takes about 1-3 seconds, not sure, to plane a board. So if you have a small amount, then its going to
;try to plane a board before the last one completes (the cycle will return to 1st bench to quickly).


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

	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
	Gui, Font, norm
	Gui, Show
	GuiControl, Text, MineCycleText, 5s to drag out of way from the benches`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
	seconds --
	Sleep 1000
	}

;SetDefaultMouseSpeed, 0


	loop
	{

			MineNum = 1



	loop, %TotalBenches% {




			WinActivate, eGenesis Client

			MinePosX := MineX%MineNum%
			MinePosY := MineY%MineNum%
			MouseMove, %MinePosX%, %MinePosY%, 0
			Sleep, 100	
			Send {P}
			Sleep, 150	
			MineNum++
			Boards++
			GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%



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

			}



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