User:Cegaiel/Macros/Fishing/Code - Revision history

Cegaiel at 00:38, 17 October 2010

2010-10-17T00:38:52Z

Cegaiel at 05:56, 19 January 2010

2010-01-19T05:56:47Z

Cegaiel at 00:36, 19 January 2010

2010-01-19T00:36:22Z

Cegaiel: New page:

 ;Ctrl+Alt+F to start macro. ;Ctrl+P to pause script and Ctrl+P again to resume ;The AHK icon in system tray will turn red while paused. ;Ctrl+R to reload script  ^r::reload ^p::Pause...

2010-01-14T19:14:31Z

New page: <pre> ;Ctrl+Alt+F to start macro. ;Ctrl+P to pause script and Ctrl+P again to resume ;The AHK icon in system tray will turn red while paused. ;Ctrl+R to reload script ^r::reload ^p::Pause...

New page

<pre>
;Ctrl+Alt+F to start macro.
;Ctrl+P to pause script and Ctrl+P again to resume
;The AHK icon in system tray will turn red while paused.
;Ctrl+R to reload script

^r::reload
^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, eGenesis Client
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!
Gui, Font, norm
Gui, Add, Text,,
( LTrim
Hotkeys:
Ctrl+P to Pause script, Ctrl+P again to Resume
Ctrl+R to Reload script

Note: If you are eating grilled cabbage for +speed, to increase fishing yields,
then 43 casts is about when stats will wear off...

Also: Uncheck the box Esc, Options, Interface Options:
"Ask about mounting record-breaking fishes"

If you dont, then a popup box occurs, you will lose about 3 casts,
while waiting on the popup box to disappear on its own.

Message will say "You are already fishing" while the popup box remains open!

)

Gui, Add, Button, default gSetLoops, GO FISHING
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
Click, %LocPosX%, %LocPosY%
MouseMove, %OldMX%, %OldMY%, 0
Cycle++
GuiControl, Text, LocationText, Casting: %Cycle% of %NumPulls%

Sleep 15500

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
}

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

</pre>

@@ Line 10: / Line 10: @@
-Seconds = 15
+Seconds = 16
@@ Line 92: / Line 92: @@
 Sleep 2000
@@ Line 115: / Line 116: @@
 			SecondsCountdown := SecondsCountdown - 1
 			Sleep 1000
+	}

@@ Line 5: / Line 5: @@
 ;Ctrl+R to reload script
@@ Line 67: / Line 64: @@
 	Note: If you are eating grilled cabbage for +speed, to increase fishing yields,
 	then 43 casts is about when stats will wear off...
+	)
@@ Line 157: / Line 146: @@
+}
 </pre>

@@ Line 8: / Line 8: @@
 ^p::Pause
 ^!f::
@@ Line 103: / Line 106: @@
 			MouseMove, %OldMX%, %OldMY%, 0
 			Cycle++
-Sleep 15500
+			SecondsCountDown := Seconds
@@ Line 114: / Line 124: @@
 	Gui, Destroy
 	Gui, Font, bold
-	Gui, Add, Text, LocationText, Casting: %Cycle% of %NumPulls%
+	Gui, Add, Text, LocationText, Cast: %Cycle% of %NumPulls%
 	Gui, Font, norm
 	Gui, Add, Text,,