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

Cegaiel at 04:14, 20 January 2012

2012-01-20T04:14:45Z

2011-12-13T06:01:54Z

2010-11-14T05:53:30Z

2010-10-03T03:17:45Z

2010-10-03T03:16:53Z

2010-05-11T06:51:06Z

2010-04-18T04:04:36Z

2010-04-18T04:00:14Z

2010-04-18T03:45:44Z

2010-04-18T03:44:11Z

@@ Line 4: / Line 4: @@
 ;Ctrl+R to reload script
 ;Date: 10/02/2010
-;Last Update: 11/14/2010 - Made all GUI's appear on upper left corner, so you do not need to drag out of way, anymore.
+;Last Update: 1/19/2012 - Speeded it up and added delay variable so you can change if needed.
@@ Line 11: / Line 11: @@
 ;This is how many boards it will plane, if you resume past the initial stopping point
 DefaultResumingCounter = 50
@@ Line 116: / Line 124: @@
 			MinePosY := MineY%MineNum%
 			MouseMove, %MinePosX%, %MinePosY%, 0
-			Sleep, 150
+			Sleep, 100
 			Send {P}
-			Sleep, 150
+			Sleep, %Delay%
 			MineNum++
 			Boards++
@@ Line 124: / Line 132: @@
 			if Resuming = 1
+			{
-			GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`n`n`n`nMaking %ResumingCounter%
+			GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`n`n`n`nMaking
-more boards...
+%ResumingCounter% more boards...
 			ResumingCounter --
 			} else {
@@ Line 171: / Line 179: @@
 ^r::reload
-^p::Pause</pre>
+^p::Pause

@@ Line 94: / Line 94: @@
+	}
-;SetDefaultMouseSpeed, 0
+SetDefaultMouseSpeed,0
@@ Line 122: / Line 124: @@
 			if Resuming = 1
+			{
-			GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`n`n`n`nMaking %ResumingCounter% more boards...
+			GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`n`n`n`nMaking %ResumingCounter%
 			ResumingCounter --
 			} else {
@@ Line 131: / Line 135: @@
 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...
+GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`nAll Done, pausing script...`nHit Ctrl+P to Resume (if
 Resuming = 1
 ResumingCounter := DefaultResumingCounter
@@ Line 142: / Line 148: @@
+{
 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...
+GuiControl, Text, MineCycleText, Boards: %Boards% of %NumPulls%`n`nAll Done, pausing script...`nHit Ctrl+P to Resume (if
 PAUSE
+}
@@ Line 163: / Line 171: @@
 ^r::reload
-^p::Pause
+^p::Pause</pre>

@@ Line 1: / Line 1: @@
 <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
@@ Line 44: / Line 41: @@
 	Gui, Add, Button, default gMineSetLoops, OK
-	Gui, Show
+	Gui, Show, x0 y25
 	MineNum = 0
@@ Line 85: / Line 82: @@
 	Gui, Add, Text, vMineCycleText, 5s to drag out of way from the benches`n`n`n`n`n
 	Gui, Font, norm
-	Gui, Show
+	Gui, Show, x0 y25
 	GuiControl, Text, MineCycleText, 5s to drag out of way from the benches`n`n`n`n`n
@@ Line 163: / Line 160: @@
 	return
+}
 </pre>

@@ Line 10: / Line 10: @@
 ^p::Pause
 ^!w::
 Resuming = 0

@@ Line 4: / Line 4: @@
 ;The AHK icon in system tray will turn red while paused.
 ;Ctrl+R to reload script
-;Date: 4/17/2010
+;Date: 10/02/2010
@@ Line 12: / Line 12: @@
-;Note this was designed using 20 carpentry benches as a base line. If you are using a small handful (like 1-10) then
+Resuming = 0
-;you will need to adjust the sleep seconds to slow it down.  Look for these lines below:
+DefaultResumingCounter = 10
@@ Line 86: / Line 78: @@
 	Gui, +AlwaysOnTop +ToolWindow
 	Gui, Font, bold
-	Gui, Add, Text, vMineCycleText, 5s to drag out of way from the benches`n`n
+	Gui, Add, Text, vMineCycleText, 5s to drag out of way from the benches`n`n`n`n`n
 	Gui, Font, norm
 	Gui, Show
-	GuiControl, Text, MineCycleText, 5s to drag out of way from the benches`n`n
+	GuiControl, Text, MineCycleText, 5s to drag out of way from the benches`n`n`n`n`n
 	seconds = 5
@@ Line 95: / Line 87: @@
 	Loop, %seconds%
+	{
-	GuiControl, Text, MineCycleText, %seconds%s countdown, drag window out of way
+	GuiControl, Text, MineCycleText, %seconds%s countdown, drag window out of way`n`n`nMake sure chat is MINIMIZED!
 	seconds --
 	Sleep 1000
@@ Line 125: / Line 117: @@
 			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)
+ResumingCounter := DefaultResumingCounter
 PAUSE
+}
+			}

@@ Line 15: / Line 15: @@
 ;you will need to adjust the sleep seconds to slow it down.  Look for these lines below:
 ;Send {P}
-;Sleep, 150
+;Sleep, 250
-;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.
+;1000 = 1 second, so 250 is 1/4 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.
+;the reason its set to 250, 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).
+;return to a plane in progress and try to plane a board before the last one completes (the cycle will return to 1st bench to quickly).