The Wiki for Tale 4 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.

If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.

Difference between revisions of "User:Daniels/Macros/Barley"

From A Tale in the Desert
Jump to navigationJump to search
(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...)
 
Line 1: Line 1:
 
<pre>
 
<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 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
 
; Barley - 1280x1024 resolution

Revision as of 06:00, 25 January 2010

;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
		}	
	}
}