User:Dymo/macro

;
; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win9x/NT
; Author:         dymo
;
; Script Function: vineyards Cragam Vodka
;
;^r::reload
;^p::Pause
;^!f::

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.


; VARIABLES TO CONFIGURE

PopUpDelay = 300 ;Safe (lag) is 300+, Fast is 200 (fast computer, no lag)

; END OF VARIABLES DO NOT EDIT BELOW THIS POINT

			IfWinExist eGenesis Client
			{

			WinActivate, eGenesis Client
			WinWait, eGenesis Client
			WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos 

	InputBox, NumPulls, Cragam Vodka, WARNING DO NOT USE THIS MACRO IF YOUR VIGOR IS UNDER 8....How many tends?
	Location = 1
	Cycle = 0

			} else {
			MsgBox, eGenesis Client not running, aborting...
			Exit
			}


Start:

Sleep %PopupDelay%
loop, %NumPulls% {

ImageSearch, PopX, PopY, 1 , 1, 400,400, vine.cragamvodka.png
    If (Errorlevel = 0) {
popfX := PopX + 3
popfY := PopY + 3
}

;Search for Vineyard State

Sleep %PopupDelay%
ImageSearch, stateX, stateY, 1 , 1, Xmax,Ymax, vine.rustle.png
    If (Errorlevel = 0) {
Sleep %PopupDelay%
ImageSearch,tlX, tlY, 1 , 1, Xmax,Ymax, tend.tl.png
tlfX := tlX + 3
tlfY := tlY + 3
MouseMove, %tlfX%, %tlfY%
			Sleep %PopupDelay%
			Click			
			Sleep %PopupDelay%
Sleep %PopupDelay%
MouseMove, %PopfX%, %PopfY%
Sleep %PopupDelay%
Sleep %PopupDelay%
			Click right
}
;Search for Vineyard State
Sleep %PopupDelay%
ImageSearch, shrivelX, shrivelY, 1 , 1, Xmax,Ymax, vine.shrivel.png
    If (Errorlevel = 0) {
ImageSearch,svX, svY, 1 , 1, Xmax,Ymax, tend.sv.png
svfX := svX + 3
svfY := svY + 3
MouseMove, %svfX%, %svfY%
			Sleep %PopupDelay%
			Click			
			Sleep %PopupDelay%
Sleep %PopupDelay%
MouseMove, %PopfX%, %PopfY%
Sleep %PopupDelay%
Sleep %PopupDelay%
			Click right

}
;Search for Vineyard State
Sleep %PopupDelay%
ImageSearch, fatX, fatY, 1 , 1, Xmax,Ymax, vine.fat.png
    If (Errorlevel = 0) {
ImageSearch,svX, svY, 1 , 1, Xmax,Ymax, tend.mg.png
svfX := svX + 3
svfY := svY + 3
MouseMove, %svfX%, %svfY%
			Sleep %PopupDelay%
			Click			
			Sleep %PopupDelay%
Sleep %PopupDelay%
MouseMove, %PopfX%, %PopfY%
Sleep %PopupDelay%
Sleep %PopupDelay%
			Click right
}
;Search for Vineyard State
Sleep %PopupDelay%
ImageSearch, mustyX, mustyY, 1 , 1, Xmax,Ymax, vine.musty.png
    If (Errorlevel = 0) {
ImageSearch,slX, slY, 1 , 1, Xmax,Ymax, tend.sl.png
slfX := slX + 3
slfY := slY + 3
MouseMove, %slfX%, %slfY%
			Sleep %PopupDelay%
			Click			
			Sleep %PopupDelay%
Sleep %PopupDelay%
MouseMove, %PopfX%, %PopfY%
Sleep %PopupDelay%
Sleep %PopupDelay%
			Click right
}
;Search for Vineyard State
Sleep %PopupDelay%
ImageSearch, saggingX, saggingY, 1 , 1, Xmax,Ymax, vine.sagging.png
    If (Errorlevel = 0) {
ImageSearch,tlX, tlY, 1 , 1, Xmax,Ymax, tend.tl.png
tlfX := tlX + 3
tlfY := tlY + 3
MouseMove, %tlfX%, %tlfY%
			Sleep %PopupDelay%
			Click			
			Sleep %PopupDelay%
Sleep %PopupDelay%
MouseMove, %PopfX%, %PopfY%
Sleep %PopupDelay%
Sleep %PopupDelay%
			Click right
}
;Search for Vineyard State
Sleep %PopupDelay%
ImageSearch, wiltingX, wiltingY, 1 , 1, Xmax,Ymax, vine.wilting.png
    If (Errorlevel = 0) {
ImageSearch,tlX, tlY, 1 , 1, Xmax,Ymax, tend.tl.png
tlfX := tlX + 3
tlfY := tlY + 3
MouseMove, %tlfX%, %tlfY%
			Sleep %PopupDelay%
			Click			
			Sleep %PopupDelay%
Sleep %PopupDelay%
MouseMove, %PopfX%, %PopfY%
Sleep %PopupDelay%
Sleep %PopupDelay%
			Click right
}
;Search for Vineyard State
Sleep %PopupDelay%
ImageSearch, shimmerX, shimmerY, 1 , 1, Xmax,Ymax, vine.shimmer.png
    If (Errorlevel = 0) {
ImageSearch,svX, svY, 1 , 1, Xmax,Ymax, tend.sv.png
svfX := svX + 3
svfY := svY + 3
MouseMove, %svfX%, %svfY%
			Sleep %PopupDelay%
			Click			
			Sleep %PopupDelay%
Sleep %PopupDelay%
MouseMove, %PopfX%, %PopfY%
Sleep %PopupDelay%
Sleep %PopupDelay%
			Click right




}
			return
}

^r::reload
^p::Pause