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

Cegaiel at 04:01, 26 October 2010

2010-10-26T04:01:40Z

Cegaiel at 01:13, 17 October 2010

2010-10-17T01:13:41Z

Cegaiel at 01:12, 17 October 2010

2010-10-17T01:12:49Z

Cegaiel at 03:06, 6 March 2010

2010-03-06T03:06:43Z

Cegaiel at 06:07, 1 February 2010

2010-02-01T06:07:34Z

Cegaiel at 02:48, 1 February 2010

2010-02-01T02:48:39Z

Show changes

Cegaiel at 00:01, 16 January 2010

2010-01-16T00:01:44Z

Cegaiel at 02:02, 15 January 2010

2010-01-15T02:02:45Z

Cegaiel: New page:

 ;Ctrl+Alt+W to start macro. ;Ctrl+P to pause script (ie to click Water icon) and Ctrl+P again to resume ;The AHK icon in system tray will turn red while paused. ;Ctrl+R to reload scr...

2010-01-14T19:12:18Z

New page: <pre> ;Ctrl+Alt+W to start macro. ;Ctrl+P to pause script (ie to click Water icon) and Ctrl+P again to resume ;The AHK icon in system tray will turn red while paused. ;Ctrl+R to reload scr...

New page

<pre>
;Ctrl+Alt+W to start macro.
;Ctrl+P to pause script (ie to click Water icon) and Ctrl+P again to resume
;The AHK icon in system tray will turn red while paused.
;Ctrl+R to reload script

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

IfWinExist eGenesis Client
{
WinActivate

Gui, +AlwaysOnTop +ToolWindow
Gui, Font, bold
Gui, Add, Text, vMineNumText, Middle click water icon
Gui, Font, norm
Gui, Add, Text,,
( LTrim
Hover and middle-click (Click mouse-wheel) on each wheat bed, one by one,
until you've clicked on all the beds you want to use. Then click the OK button.
(Drag this box out of the way if any beds are hidden)
)

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

MineNum = 0
MineCycle = 0
NumPulls = 1000

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

Water:
MineNum = 1
GuiControl, Text, MineCycleText, Fetching Water...
MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseGetPos, OldMX, OldMY
Click, %MinePosX%, %MinePosY%
Sleep, 750
Click, 513, 423
Sleep, 750
MouseMove, %OldMX%, %OldMY%, 0
return

MineRecord:
MineNum++
MouseGetPos, MineX%MineNum%, MineY%MineNum%

if (MineNum = 1)
{
BedNum = 0
GuiControl, Text, MineNumText, Middle click wheat beds
}
else
{
BedNum ++
GuiControl, Text, MineNumText, %BedNum% wheat beds captured
}

TotalBeds := MineNum-1
return

MineSetLoops:
Gui, Submit
Gui, Destroy
Gui, +AlwaysOnTop +ToolWindow
Gui, Font, bold
Gui, Add, Text, vMineCycleText, Cycle %NumPulls% of %NumPulls%
Gui, Font, norm
Gui, Show
GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%

#Persistent
;Every 3 mins, get water (180s for 3 mins. SetTimer = s*1000 per min, thus 180,000s for 3 mins)
;Normally each wheat needs watered every 33 seconds, real time, so 3 mins is plenty of time for water icon to appear.
SetTimer, Water, 180000

;You got 5 seconds to drag the status bar out of the way (3s below + and 4 s furthur below
Sleep 3000

loop, %NumPulls%
{

Sleep, 2000
;MinNum = 1 is the water icon location, thus why we are starting at 2. MineNum = 1 is only called during the #Persistent
BedNum = 1
MineNum = 2
MineCycle++
MouseGetPos, OldMX, OldMY

loop, %TotalBeds%
{

WinActivate, eGenesis Client

;BlockInput, MouseMove

GuiControl, Text, MineCycleText, Cycle %MineCycle% Bed %BedNum%
MinePosX := MineX%MineNum%
MinePosY := MineY%MineNum%
MouseMove, %MinePosX%, %MinePosY%, 0
;Sleep, 100
Send {H}
Send {W}
MineNum++
BedNum ++
Sleep, 200
}

MouseMove, %OldMX%, %OldMY%, 0
GuiControl, Text, MineCycleText, Cycle %MineCycle% PAUSE
;BlockInput, MouseMoveOff

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

@@ Line 8: / Line 8: @@
 ;Author: Cegaiel
-;Last Update: 10/16/2010
+;Last Update: 10/25/2010
@@ Line 24: / Line 24: @@
 	Gui, +AlwaysOnTop +ToolWindow
 	Gui, Font, bold
-	Gui, Font, underline
+	Gui, Add, Text, vMineNumText, Step 1 of 2:  Middle click Water icon
 	Gui, Font, norm
 	Gui, Add, Text,,
@@ Line 33: / Line 32: @@
 	If the water icon is NOT showing, then:
-	Hit Esc, Skills, Empty jugs, Empty one or all jugs
+	Hit Esc, Skills, Empty ONE or ALL jugs
-	Step 2 will click the icon to bring up the menu
+	They will automatically be refilled next step
-	P.S. Wait until Step 3 before planting your wheat.
+	)
@@ Line 47: / Line 47: @@
 	loop
+	{
-		WinActivate
+			WinActivate, eGenesis Client
 		CoordMode, Mouse, Relative
 		KeyWait, MButton, D
@@ Line 74: / Line 82: @@
 	;MineNum1 will be the water icon location
 	if (MineNum = 1) {
 	Gui, Destroy
 	Sleep 500
-	Gui, +AlwaysOnTop +ToolWindow
+	Click %MineX1%, %MineY1%
-	Gui, Font, bold
+	Sleep 500
-	Gui, Font, underline
+	Click %MaxX%, %MaxY%
-	Gui, Add, Text, vMineNumText, Step 2:  Middle click Water MAX button
+	Sleep 1000
 	Gui, +AlwaysOnTop +ToolWindow
 	Gui, Font, bold
-	Gui, Add, Text, vMineNumText, Step 3:  Middle click Wheat Beds
+	Gui, Add, Text, vMineNumText, Step 2 of 2:  Manually plant, then Middle click Wheat Beds
 	Gui, Font, norm
 	Gui, Add, Text,,
@@ Line 124: / Line 110: @@
 	Gui, Show
-	;MineNum3 is wheat bed 1, MineNum4 is wheat bed 2, etc
 	} else	{
 	BedNum ++
@@ Line 177: / Line 165: @@
 	;MineNum1 is the water icon location
 	;MineNum1 is only called during the Water: subroutine (#Persistent)
-	;MineNum2 is the water max button location, thus why we are starting at 3, the first wheat bed location.
+	;Thus why we are starting at MineNum2, the first wheat bed location.
 			WinActivate, eGenesis Client
-			MineNum = 3
+			MineNum = 2
 			BedNum = 1
 			MineCycle++
@@ Line 195: / Line 183: @@
 			;BlockInput, MouseMove
-			GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%   Sending H+W Keys: Bed %BedNum%`n`nElapsed Time: %minutes%m %seconds%s`nGather Water in: %minutes_eta%m %seconds_eta%s
+			GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%   Sending H+W: Bed %BedNum%`n`nElapsed Time: %minutes%m %seconds%s`nGather Water in: %minutes_eta%m %seconds_eta%s
 			MinePosX := MineX%MineNum%
 			MinePosY := MineY%MineNum%
@@ Line 232: / Line 220: @@
 	;Click the Max button
-	Click, %MineX2%, %MineY2%
+	Click, %MaxX%, %MaxY%
 	Sleep, 750
 	MouseMove, %OldMX%, %OldMY%, 0

← Older revision		Revision as of 01:13, 17 October 2010
Line 143:		Line 143:
	Gui, Show		Gui, Show
	GuiControl, Text, MineCycleText, 5s countdown, drag window out of way of beds`n`n`n		GuiControl, Text, MineCycleText, 5s countdown, drag window out of way of beds`n`n`n
−
−	~~;Every 3 mins, get water (180s for 3 mins. SetTimer = s*1000 per min, thus 180,000s for 3 mins)~~
−	~~;Normally each wheat needs watered every 33 seconds, real time, so 3 mins is plenty of time for water icon to appear.~~
−

@@ Line 1: / Line 1: @@
 <pre>
 ;Ctrl+P to pause script (ie to click Water icon) and Ctrl+P again to resume
 ;The script moves fast, so it might be difficult for it to see the Ctrl+P
@@ Line 7: / Line 6: @@
 ;Ctrl+R to reload script
-^r::reload
-^p::Pause
+;Author: Cegaiel
-^!w::
+;Last Update: 10/16/2010
@@ Line 68: / Line 67: @@
@@ Line 153: / Line 139: @@
 	Gui, +AlwaysOnTop +ToolWindow
 	Gui, Font, bold
-	Gui, Add, Text, vMineCycleText, 5s countdown, drag window out of way of beds
+	Gui, Add, Text, vMineCycleText, 5s countdown, drag window out of way of beds`n`n`n
 	Gui, Font, norm
 	Gui, Show
-	GuiControl, Text, MineCycleText, 5s countdown, drag window out of way of beds
+	GuiControl, Text, MineCycleText, 5s countdown, drag window out of way of beds`n`n`n
 ;Every 3 mins, get water (180s for 3 mins. SetTimer = s*1000 per min, thus 180,000s for 3 mins)
 ;Normally each wheat needs watered every 33 seconds, real time, so 3 mins is plenty of time for water icon to appear.
-	seconds = 5
 	;You got 5 seconds to drag the status window out of the way
-	Loop, %seconds%
+	Loop, %delay%
+	{
-	GuiControl, Text, MineCycleText, %seconds%s countdown, drag window out of way of beds
+	GuiControl, Text, MineCycleText, %delay%s countdown, drag window out of way of beds
-	seconds --
+	delay --
 	Sleep 1000
+	}
-SetDefaultMouseSpeed, 0
+	#Persistent
 	loop, %NumPulls%
@@ Line 200: / Line 199: @@
 			;BlockInput, MouseMove
-			GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%   Bed %BedNum%
+			GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%   Sending H+W Keys: Bed %BedNum%`n`nElapsed Time: %minutes%m %seconds%s`nGather Water in: %minutes_eta%m %seconds_eta%s
 			MinePosX := MineX%MineNum%
 			MinePosY := MineY%MineNum%
@@ Line 215: / Line 214: @@
 			MouseMove, %OldMX%, %OldMY%, 0
-			GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%   PAUSE  (Ctrl+P, if needed)
+			GuiControl, Text, MineCycleText, Cycle %MineCycle% of %NumPulls%   PAUSE  (Ctrl+P, if needed)`n`nElapsed Time: %minutes%m %seconds%s`nGather Water in: %minutes_eta%m %seconds_eta%s
 			;BlockInput, MouseMoveOff
 				Sleep, 2000
@@ Line 227: / Line 226: @@
 	return
+}
 </pre>

← Older revision		Revision as of 03:06, 6 March 2010
Line 175:		Line 175:
	}		}

		+	SetDefaultMouseSpeed, 0

	loop, %NumPulls%		loop, %NumPulls%

← Older revision		Revision as of 06:07, 1 February 2010
Line 166:		Line 166:


		+	seconds = 5
	;You got 5 seconds to drag the status window out of the way		;You got 5 seconds to drag the status window out of the way
−	Sleep ~~5000~~	+	Loop, %seconds%
		+	{
		+	GuiControl, Text, MineCycleText, %seconds%s countdown, drag window out of way of beds
		+	seconds --
		+	Sleep 1000
		+	}

@@ Line 139: / Line 139: @@
 			MineNum++
 			BedNum ++
-			Sleep, 200
+			Sleep, 100
+			}

@@ Line 105: / Line 105: @@
 ;You got 5 seconds to drag the status bar out of the way (3s below + and 4 s furthur below
-Sleep 3000
+Sleep 5000
@@ Line 111: / Line 111: @@
+	{
 			;MinNum = 1 is the water icon location, thus why we are starting at 2. MineNum = 1 is only called during the #Persistent
 			BedNum = 1
@@ Line 135: / Line 134: @@
 			MinePosY := MineY%MineNum%
 			MouseMove, %MinePosX%, %MinePosY%, 0
-			;Sleep, 100
+			Sleep, 100
 			Send {H}
 			Send {W}
@@ Line 146: / Line 145: @@
 			GuiControl, Text, MineCycleText, Cycle %MineCycle%   PAUSE
 			;BlockInput, MouseMoveOff