http://www.atitd.org/wiki/t6w/index.php?action=history&feed=atom&title=User%3ACegaiel%2FMacros%2FFishing%2FCode 2026-06-04T08:26:14Z Revision history for this page on the wiki MediaWiki 1.35.2 http://www.atitd.org/wiki/t6w/index.php?title=User:Cegaiel/Macros/Fishing/Code&diff=148941&oldid=prev 2012-02-03T04:28:33Z

<p>Created page with &quot;&lt;pre&gt; ;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 Seconds = 16 IfWinExist eGenesis C...&quot;</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> ;Ctrl+P to pause script and Ctrl+P again to resume<br /> ;The AHK icon in system tray will turn red while paused.<br /> ;Ctrl+R to reload script<br /> <br /> <br /> <br /> Seconds = 16<br /> <br /> <br /> IfWinExist eGenesis Client<br /> {<br /> WinActivate<br /> <br /> <br /> InputBox, NumPulls, Fishing, Step 1: Enter how many times do you want to cast?<br /> Location = 1<br /> Cycle = 0<br /> <br /> <br /> Gui, +AlwaysOnTop +ToolWindow<br /> Gui, Font, bold<br /> Gui, Add, Text, vLocationText, Step 2: Record the location of fishing icon...<br /> Gui, Font, norm<br /> Gui, Add, Text,, Hover and middle-click (Click mouse-wheel) on the fishing icon<br /> Gui, Show<br /> <br /> <br /> WinGet, GameWinHandle, ID, eGenesis Client<br /> loop<br /> {<br /> <br /> WinActivate, eGenesis Client<br /> CoordMode, Mouse, Relative<br /> KeyWait, MButton, D<br /> KeyWait, MButton<br /> MouseGetPos, TestX, TestY, WinHandle<br /> if (WinHandle = GameWinHandle)<br /> {<br /> Gosub, RecordIcon<br /> }<br /> else<br /> {<br /> Gui, Destroy<br /> break<br /> }<br /> }<br /> return<br /> <br /> RecordIcon:<br /> MouseGetPos, LocX%Location%, LocY%Location%<br /> Gui, Destroy<br /> Gui, +AlwaysOnTop +ToolWindow<br /> Gui, Font, bold<br /> Gui, Add, Text, LocationText, Fishing icon captured!<br /> Gui, Font, norm<br /> Gui, Add, Text,, <br /> ( LTrim<br /> Hotkeys:<br /> Ctrl+P to Pause script, Ctrl+P again to Resume<br /> Ctrl+R to Reload script<br /> <br /> Note: If you are eating grilled cabbage for +speed, to increase fishing yields,<br /> then 43 casts is about when stats will wear off...<br /> <br /> )<br /> <br /> Gui, Add, Button, default gSetLoops, GO FISHING<br /> Gui, Show<br /> return<br /> <br /> <br /> SetLoops:<br /> Gui, Submit<br /> Gui, Destroy<br /> Gui, +AlwaysOnTop +ToolWindow<br /> Gui, Font, bold<br /> Gui, Add, Text, vLocationText, Ready to fish, Good Luck!<br /> Gui, Show<br /> <br /> Sleep 2000<br /> <br /> <br /> <br /> <br /> loop, %NumPulls%<br /> {<br /> <br /> WinActivate, eGenesis Client<br /> <br /> LocPosX := LocX%Location%<br /> LocPosY := LocY%Location%<br /> MouseGetPos, OldMX, OldMY<br /> Click, %LocPosX%, %LocPosY%<br /> MouseMove, %OldMX%, %OldMY%, 0 <br /> Cycle++<br /> <br /> <br /> SecondsCountDown := Seconds<br /> ;Loops to do nothing but display seconds countdown <br /> loop, %Seconds%<br /> {<br /> GuiControl, Text, LocationText, Cast: %Cycle% of %NumPulls% Next: %SecondsCountdown%s<br /> SecondsCountdown := SecondsCountdown - 1<br /> Sleep 1000<br /> <br /> <br /> GetKeyState, state, F2<br /> if state = D<br /> {<br /> break<br /> }<br /> <br /> }<br /> <br /> <br /> <br /> if Cycle = %NumPulls%<br /> {<br /> Gui, Destroy<br /> Gui, Font, bold<br /> Gui, Add, Text, LocationText, Cast: %Cycle% of %NumPulls%<br /> Gui, Font, norm<br /> Gui, Add, Text,,<br /> ( LTrim<br /> All Done!<br /> <br /> Hope you caught lots of fish!<br /> <br /> Middle-click on this window to end the script.<br /> )<br /> Gui, Show<br /> <br /> Exit<br /> }<br /> <br /> <br /> <br /> <br /> }<br /> Gui, Destroy<br /> Gui, Add, Text,, Middle-click on this window to end the script.<br /> Gui, Show<br /> return<br /> }<br /> <br /> ^r::reload<br /> ^p::Pause<br /> &lt;/pre&gt;</div>

Cegaiel