User:Cegaiel/Macros/Fishing

;Ctrl+Alt+F 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.

^p::Pause
^!f::



IfWinExist eGenesis Client
{
	WinActivate

	InputBox, NumPulls, Fishing, Step 1: Enter how many times do you want to cast?
	Location = 1
	Cycle = 0


	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Add, Text, vLocationText, Step 2: Record the location of fishing icon...
	Gui, Font, norm
	Gui, Add, Text,, Hover and middle-click (Click mouse-wheel) on the fishing icon
	Gui, Show


	WinGet, GameWinHandle, ID, eGenesis Client
	loop
	{

		WinActivate
		CoordMode, Mouse, Relative
		KeyWait, MButton, D
		KeyWait, MButton
		MouseGetPos, TestX, TestY, WinHandle
		if (WinHandle = GameWinHandle)
		{
			Gosub, RecordIcon
		}
		else
		{
			Gui, Destroy
			break
		}
	}
	return

	RecordIcon:
	MouseGetPos, LocX%Location%, LocY%Location%
	Gui, Destroy
	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Add, Text, LocationText, Fishing icon captured, now click OK!
	Gui, Font, norm
	Gui, Add, Text,, 
	( LTrim
	Note:
	You can pause fishing at anytime by clicking Ctrl+P
	Resume, after pausing, with Ctrl+P again.

	)

	Gui, Add, Button, default gSetLoops, OK
	Gui, Show
	return


	SetLoops:
	Gui, Submit
	Gui, Destroy
	Gui, +AlwaysOnTop +ToolWindow
	Gui, Font, bold
	Gui, Add, Text, vLocationText, Ready to fish, Good Luck!
	Gui, Show

Sleep 2000



	loop, %NumPulls%
	{

			WinActivate, eGenesis Client

			LocPosX := LocX%Location%
			LocPosY := LocY%Location%
			MouseGetPos, OldMX, OldMY
			MouseMove, %LocPosX%, %LocPosY%, 0
			Click, %LocPosX%, %LocPosY%
			Cycle++
			GuiControl, Text, LocationText, Casting: %Cycle% of %NumPulls%

			MouseMove, %OldMX%, %OldMY%, 0			

if Cycle = %NumPulls%
{
	Gui, Destroy
	Gui, Font, bold
	Gui, Add, Text, LocationText, Casting: %Cycle% of %NumPulls%
	Gui, Font, norm
	Gui, Add, Text,,
	( LTrim
	All Done!

	Hope you caught lots of fish!

	Middle-click on this window to end the script.
	)
	Gui, Show

Exit
}

;Click the fishing icon every 15 seconds, you can adjust this if you need to...
Sleep 15000


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