The Wiki for Tale 6 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.
If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.
User:Cegaiel/Macros/Fishing/Code
From ATITD6
< User:Cegaiel | Macros | Fishing
Jump to navigationJump to search;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 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... ) 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++ SecondsCountDown := Seconds ;Loops to do nothing but display seconds countdown loop, %Seconds% { GuiControl, Text, LocationText, Cast: %Cycle% of %NumPulls% Next: %SecondsCountdown%s SecondsCountdown := SecondsCountdown - 1 Sleep 1000 GetKeyState, state, F2 if state = D { break } } if Cycle = %NumPulls% { Gui, Destroy Gui, Font, bold Gui, Add, Text, LocationText, Cast: %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 } ^r::reload ^p::Pause