User:Daniels/Macros/Barley - Revision history

Cegaiel at 01:44, 26 January 2010

2010-01-26T01:44:06Z

Daniels at 07:15, 25 January 2010

2010-01-25T07:15:08Z

Daniels at 06:00, 25 January 2010

2010-01-25T06:00:38Z

Daniels: New page:

 ;Barley Macro written for http://www.autohotkey.com, 1280x1024 resolution, pin window in the upper left corner of the screen.  ;Double F8, and zoom all the way in before starting the...

2010-01-25T06:00:14Z

New page: <pre> ;Barley Macro written for http://www.autohotkey.com, 1280x1024 resolution, pin window in the upper left corner of the screen. ;Double F8, and zoom all the way in before starting the...

New page

<pre>
;Barley Macro written for http://www.autohotkey.com, 1280x1024 resolution, pin window in the upper left corner of the screen. ;Double F8, and zoom all the way in before starting the macro. To start the macro, press alt+shift+y:

; Barley - 1280x1024 resolution
; alt-shift-y
!+y::
IfWinExist eGenesis Client
{
WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos
SetDefaultMouseSpeed, 2
interval = 1200

; Zoom out a little
Loop, 8
{
MouseClick, WD
sleep 200
}
Loop, 100
{
mousex := Xmax//2 - 3
mousey := Ymax//2 + 16
incx = 70
incy = 70
rows = 0
Loop, 2 ; columns of barley
{
bug = 0
Loop, 4 ; rows of barley
{
if (Mod(rows, 2) = 0) ; plant left to right
{
MouseMove, 30, 45
sleep 100
MouseClick, Left ; Plant
sleep 100
MouseMove, mousex + incx, mousey
sleep 100
MouseClick, Left
sleep interval
}
else ; plant right to left
{
MouseMove, 30, 45
sleep 100
MouseClick, Left ; Plant
sleep 100
MouseMove, mousex - incx, mousey
sleep 100
MouseClick, Left
sleep interval
}
}
MouseMove, 30, 45
sleep 100
MouseClick, Left ; Plant
sleep 100
MouseMove, mousex, mousey + incy
sleep 100
MouseClick, Left
sleep interval
rows++
}
; Begin watering and fertalizing
water = 0
count = 0
Loop, 6
{
mousex = 640
mousey = 375
intx = 0
inty = 0
Loop, 2
{
Loop, 5
{
if (count = 0) ; water and fert twice
{
MouseMove, mousex + intx, mousey + inty
sleep 100
MouseClick, Left
sleep 100
MouseMove, mousex + intx + 189, mousey + inty + 23
sleep 100
MouseClick, Left
sleep 100
MouseMove, mousex + intx + 189, mousey + inty + 23
sleep 100
MouseClick, Left
sleep 100
MouseMove, mousex + intx + 189, mousey + inty + 46
sleep 100
MouseClick, Left
sleep 100
MouseMove, mousex + intx + 189, mousey + inty + 46
sleep 100
MouseClick, left
sleep 100
SendInput {ESC}
sleep 100
intx += 70
}
else if (count = 5) ; harvest
{
MouseMove, mousex + intx, mousey + inty
sleep 100
MouseClick, Left
sleep 100
MouseMove, mousex + intx + 106, mousey + inty + 86
sleep 100
MouseClick, Left
sleep 100
SendInput {ESC}
sleep 100
intx += 70
}
else ; water and fert once
{
MouseMove, mousex + intx, mousey + inty
sleep 100
MouseClick, Left
sleep 100
MouseMove, mousex + intx + 189, mousey + inty + 23
sleep 100
MouseClick, Left
sleep 100
MouseMove, mousex + intx + 189, mousey + inty + 46
sleep 100
MouseClick, left
sleep 100
SendInput {ESC}
sleep 100
intx += 70
}
}
mousex = 640
intx = 0
inty += 90
}
count++
water++ ; Refill jugs from aquaduct
;if (water = 1)
;{
; MouseClick, Left, 500, 45, 1
; sleep 1000
; MouseClick, Left, 125, 50, 1
; sleep 1000
; MouseClick, Left, 125, 125, 1
; water = 0
;}
sleep 2000
}
MouseMove, 640, 375
sleep 100
MouseClick, Left
sleep 3000
PixelSearch, PX, PY, 965, 702, 965, 704, 0x000000, Fast
if (ErrorLevel < 1)
{
;MouseClick, Left, 965, 703
return
}
}
}
</pre>

@@ Line 16: / Line 16: @@
 	SetDefaultMouseSpeed, 2
 	interval = 1200
 	; Zoom out a little

@@ Line 1: / Line 1: @@
 <pre>
 ;Barley Macro written for http://www.autohotkey.com, 1280x1024 resolution, pin window in the upper left corner of the screen.
-;Double F8, and zoom all the way in before starting the macro.  To start the macro, press alt+shift+y:
+; The following should stop runaway macros
 ; Barley - 1280x1024 resolution