;Routines to gather items are regular intervals.
SendMode Input
SetDefaultMouseSpeed, 0
CoordMode, Mouse, Screen

RepeatClick(Count,Interval)
{
WinActivate
SendMode Input
SetDefaultMouseSpeed, 0
CoordMode, Mouse, Screen
; mouse position
Gui, 2:Add, Text,, Recording mouse position`nLeft click on the Target.
Gui, 2:Show
KeyWait, LButton, D
MouseGetPos, MinePosX, MinePosY
CorrectPosX := MinePosX-65
Gui, 2:Destroy
;Gui, 2:Add, Text,,

;Gui, 3:+AlwaysOnTop
;Gui, 3:+Autosize
;Gui, 3:Add, Button, Cancel, Cancel
;Gui, 3:Add, StatusBar,,%Count%
;Gui, 3:Show,, Remaining

Gui, 4:+AlwaysOnTop
;Gui, 4:+vMyProgress
Gui, 4:Add, Progress, w100 h20 cBlue
Gui, 4:Show,,MyProgress

;Gui, 3:Show, x55 y66 w100 h50 , Remaining
; need alwaysontop
; and to destroy it.

; Creat countdown window

	loop
	{
	WinActivate
	Sleep, %Interval%
;	loop {
;		Sleep, %Interval%
;		PixelSearch, Px, Py, 760, 140, 805, 150, 0x88DCEF
;		if (ErrorLevel = 1 and WinActive("eGenesis Client"))
;		{
;			break
;		}
;	}
	MouseGetPos, origX, origY
;	MouseClick, left, %CorrectPosX%, %MinePosY%
	MouseClick, left, %MinePosX%, %MinePosY%
	MouseMove, %origX%, %origY%
	Remaining := NumPulls - A_Index
; FOLLOWING IS BROKEN
;	Guicontrol,,MyProgress,+15
	Guicontrol,,MyProgress,50
;	SB_SetText 3:("There are" . Remaining . "Remaining")
;	guicontrol 3:statusbar,,%Remaining%
	; update this in a gui to the user.
	;if (cancelled=1) break
	}
;Gui, 3:Destroy
Gui, 4:Destroy
return
}

; We need a routine here that presents a button gui to the user.
; Delay time - across a row
;
;ctrl-alt-j - for cabbage juice - warning could crash the client. 
^!j:: IfWinExist eGenesis Client {
WinActivate
;RepeatClick(20,200)
Return


^!m:: IfWinExist eGenesis Client {
WinActivate
RepeatClick(20,8000)
Return

^!c:: IfWinExist eGenesis Client {
; coconuts, with 1 str, can use mining with STR 2 meybe
WinActivate
RepeatClick(40,1400) ; needs 30 str... works well though
Return
; So much for 7 teppy seconds

^!f:: IfWinExist eGenesis Client {
; Fishing
WinActivate
RepeatClick(20,18000) ; fishing, should also work on dirt with +2 end.
Return

; Dirt is 20 secs, Digging with onions needs 39, depending on lag
^!d:: IfWinExist eGenesis Client {
WinActivate
;RepeatClick(40,16000) ; dig with onions
RepeatClick(40,11000) ; dirt without
Return

^!l:: IfWinExist eGenesis Client {
WinActivate
; RepeatClick(40,28000) with food
RepeatClick(40,36000)
Return


^!a:: IfWinExist eGenesis Client {
; ask for parameters
; Acro keepalive at 2 minutes
RepeatClick(20,120000)
Return



















      	        MouseGetPos, origX, origY
		MouseClick, left, %CorrectPosX%, %MinePosY%
	        MouseMove, %origX%, %origY%