Z's Fishing Bot (Alpha - Source Included)

[Lollerskates]

How the hell does AutoIt even work, it doesn't even have an interface, wtf.

[undea]

Thanks:wave::wave::wave::wave::wave:

[Peps16]

I dun't understand, The bot never cast whereas i putted my fishing skill into the "1" slot of my action bar. Any idea?

[=Z=]

All you need to do for this bot is follow instructions, re-read the original post and there's a good chance you missed something simple.

This bot is not very hard to use at all, as long as you take a few seconds to learn how to set it up.

[zakpak23]

Z, i like the script, very simple, yet effective.

I had a problem with dual-monitors for a while, I wanted to run in full-screen mode so I could crank up the in-game gamma, but it would always use my wallpaper behind the game instead of the game itself. Turning down all the video settings and increasing the "find bobber" color sensitivity is working well though.

I added a few simple functions for pausing and exiting the script when key combos were pressed. And I added support for lure casting, but since you have to manually edit the script depending on how long your lure time duration is, it makes it a pain. Works though!

I'll play around with it some more and post my results, perhaps even collaborate on a GUI if you're still interested in making one.

[=Z=]

Z, i like the script, very simple, yet effective.

I had a problem with dual-monitors for a while, I wanted to run in full-screen mode so I could crank up the in-game gamma, but it would always use my wallpaper behind the game instead of the game itself. Turning down all the video settings and increasing the "find bobber" color sensitivity is working well though.

I added a few simple functions for pausing and exiting the script when key combos were pressed. And I added support for lure casting, but since you have to manually edit the script depending on how long your lure time duration is, it makes it a pain. Works though!

I'll play around with it some more and post my results, perhaps even collaborate on a GUI if you're still interested in making one.

I may be able to get behind that, post any enhancements you make and i'll be happy to test them and toss them in the bot if they work.

Anything that makes the bot more accurate with less misses is even better, if you find more optimal settings post them and i'll check em out.

[Random6]

I've modified it a bit to add lure re-casting and levitating (so i can fish in the middle of lakes).

"`" should be fishing
"-" should be your levitate button (or water walking or anything else you want to buff every ~90 seconds)
"0" should me a lure macro in the form of:

/cast LURENAME
/use FISHINGRODNAME

The only problem I'm having is getting the script to detect when I right click to take off a lure in the preparation phase (although it still works when it doesn't detect it properly, you just need to wait out the 10 second cool down). This is my first time playing with AutoIt so if someone knows how to fix that please let me know.

Oh, I also reduced some of the wait times to ones more to my liking but that doesn't really affect much.

; __      __            .__       .___         _____ 
;/  \    /  \___________|  |    __| _/   _____/ ____\
;\   \/\/   /  _ \_  __ \  |   / __ |   /  _ \   __\ 
; \        (  <_> )  | \/  |__/ /_/ |  (  <_> )  |   
;  \__/\  / \____/|__|  |____/\____ |   \____/|__|   
;       \/                         \/                
; __      __                                    _____  __   
;/  \    /  \_____ _______   ________________ _/ ____\/  |_ 
;\   \/\/   /\__  \\_  __ \_/ ___\_  __ \__  \\   __\\   __\
; \        /  / __ \|  | \/\  \___|  | \// __ \|  |   |  |  
;  \__/\  /  (____  /__|    \___  >__|  (____  /__|   |__|  
;       \/        \/            \/           \/             
;/###########################################################\
; Fishing Bot                                 Created by: =Z=  #
;                Levitate and Lure Re-Casting Added By: Random6#
;************************************************************#
;                                                             #
;*************                                                 #
; Description                                                  #
;*************                                                 #
; This bot will fish using a user-specified search area as      #
; well as a user-specified bobber color, this mean the macro #
; will ALWAYS detect the fish as it is not static.             #
;                                                             #
;*************                                                 #
; Features                                                     #
;*************                                                 #
; • Adjustable fishing area                                     #
; • User-selected colors, never static, always up to date!     #
; • Uses randomized wait times as anti-detection method      #
; • NO injection, this bot is as safe as botting can get!    #
;\###########################################################/


;DO NOT TOUCH - ALTERING THESE WILL BREAK THE MACRO
#include <WINAPI.au3>
#Include <Misc.au3>
$dll = DllOpen("user32.dll")

Global $wow = 'World of Warcraft'
Global $searchL, $searchT, $searchR, $searchB, $color
Global $count = 5
Global $time_lure = @HOUR * 60 *60 + @MIN*60
Global $time_levitate = @HOUR * 60 *60 + @MIN*60
Global $FirstCast = 1
Global $AcceptLureX
Global $AcceptLureY

;FishKey - Change this to the key you use to fish
Global $FishKey = '`'
Global $LevitateKey = '-'
Global $LureKey = "0"

;MAIN MACRO
WinActivate("World of Warcraft") ; activate window
ToolTip("Opening WoW window...", 0, 0); displays tooltip in top left corner
WinWaitActive("World of Warcraft") ; wait untill the window is active

While 1
WinWaitActive("World of Warcraft")
ToolTip("Executing script...", 0, 0) ; displays tooltip in top left corner
Sleep (2000)
    Prep()
Wend

;Prep functions - sets up macro
Func Prep()
    ;hits your levitate, waterwalk or path of frost macro
    ToolTip("Levitating...", 0, 0) ; displays tooltip in top left corner
    Send($LevitateKey)
    $time_levitate = @HOUR * 60 *60 + @MIN*60
    Sleep(1500)
    
    ToolTip("Setting up coordinates, prepare for further instructions...", 0, 0) ; displays tooltip in top left corner
    Sleep (2000)
    
    ;Prompts user to select the upper left of the search area
    ToolTip('Click in the top left corner of the search area',0,0,"",2)
    While 1
        If WinActive("World of Warcraft") = 0 Then WinActivate("World of Warcraft") ; Make sure WoW stays active while user is selecting position
        If _IsPressed("01",$dll) Then ExitLoop ; Exit loop when user left clicks
    WEnd
    $mouse = MouseGetPos()
    $searchL = $mouse[0]
    $searchT = $mouse[1]
    Sleep(1000)

    ;Prompts user to select the lower right of the search area
    ToolTip('Click in the bottom right corner of the search area',0,0,"",2)
    While 1
        If WinActive("World of Warcraft") = 0 Then WinActivate("World of Warcraft") ; Make sure Wow stays active while user is selecting position
        If _IsPressed("01",$dll) Then ExitLoop ; Exit loop when user left clicks
    WEnd
    $mouse = MouseGetPos()
    $searchR = $mouse[0]
    $searchB = $mouse[1]
    Sleep(3000)
        
    Send($FishKey)
    While 1
        If WinActive("World of Warcraft") = 0 Then WinActivate("World of Warcraft") ; Make sure Wow stays active while user is selecting color
        $mouse = MouseGetPos()
        $color = PixelGetColor($mouse[0],$mouse[1])
        ToolTip("Find the red part of the feather on the bobber and click it, if fishing timer runs out press your fishing key and try again.",0,0)  ; displays tooltip in top left corner
        
        If _IsPressed("01") Then ExitLoop; Exit loop when user left clicks
    WEnd

    Sleep(500)    
    ;instructions for taking off lures
    $x=10
    While 1
        ToolTip('Please take off any current lures. (Waiting '&$x&' seconds.).',0,0,"",2)
        $x = $x-1
        Sleep (1000)
        If WinActive("World of Warcraft") = 0 Then WinActivate("World of Warcraft") ; Make sure Wow stays active while user is selecting position
        If _IsPressed("02") Then ExitLoop
        If $x=0 Then ExitLoop
    WEnd
    
    ;promts user to click yes on the replace bobber dialog
    ToolTip('Preparing to apply lure.',0,0,"",2)
    Send($LureKey)
    Sleep(3000)
    Send($LureKey)
    ToolTip('Click yes to set the dialog box position.',0,0,"",2)
    While 1
        Sleep(10)
        If WinActive("World of Warcraft") = 0 Then WinActivate("World of Warcraft") ; Make sure Wow stays active while user is selecting position
        If _IsPressed("01",$dll) Then ExitLoop ; Exit loop when user left clicks
    WEnd
    $mouse = MouseGetPos()
    $AcceptLureX = $mouse[0]
    $AcceptLureY = $mouse[1]
    Sleep(500)
    Send("{SPACE}")
    Sleep(500)
    
    
    ;Msgbox(0,"Status", "Bobber color: "&$color) ;Debug, DONT TOUCH
    ToolTip("Starting macro in 3 secs", 0, 0) ; displays tooltip in top left corner
    Sleep (3000)
    Cast()
EndFunc


;Cast Function

func Cast()
    $current_time = @HOUR * 60 *60 + @MIN*60
    While ($current_time - $time_levitate>90)
        Send($LevitateKey)
        $time_levitate = $current_time
        ToolTip("Levitating...", 0, 0)
        Sleep(1500)
    WEnd
    While ($current_time - $time_lure > 580)
        $time_lure = $current_time
        ToolTip("Applying Lure...", 0, 0)
        Send($LureKey)
        $FirstCast = 0
        Sleep(200)
        MouseClick("Left", $AcceptLureX, $AcceptLureY, 1, 0)
        Sleep(2000)
    WEnd
        
    ToolTip("Casting...", 0, 0) ; displays tooltip in top left corner
    Sleep(300)
    Send($FishKey)
    Sleep (2000)
    ToolTip("Searching for bobber...", 0, 0) ; displays tooltip in top left corner
    Global $current = timerinit() ; Set a timeout for finding splash
    $bobber = PixelSearch($searchL,$searchT,$searchR,$searchB, $color, 60) ; Look for user selected color
    If @error = 1 Then 
        ToolTip("Could not locate bobber, recasting...", 0, 0) ; displays tooltip in top left corner
        Sleep(Random(500,1000))
        Cast() 
    EndIf
    If TimerDiff($current) > 10000 Then ;If the bobber is not seen in 10 sec. Then cast again
        Cast()
    EndIf
    sleep (200)
    MouseMove($bobber[0], $bobber[1]) ; Move the mouse to the bobber
    ToolTip("Found bobber, waiting for fish to be hooked...", 0, 0) ; displays tooltip in top left corner
    Sleep (200)
    
while 1
    Global $current = timerinit() ; Set a timeout for finding splash
    $splash = PixelSearch($bobber[0]-10,$bobber[1]-10,$bobber[0]+10,$bobber[1]+10, $color, 15) ; Search a tiny 20x20 square for the bobber color
    If @error = 1 Then ExitLoop ; When the color isn't found, the bobber has bobbed
    Sleep(100)
    if Round(timerdiff($current)/1000,0) >= 30 Then;If the splash is not seen in 30 sec. Then cast again
        Cast()
    EndIf
wend

    ;the bobber color has changed (a fish is hooked), loot bobber and repeat.
    ToolTip("Splash detected, looting fish...", 0, 0) ; displays tooltip in top left corner
    Sleep(Random(75,175))
    MouseClick("Right", $bobber[0], $bobber[1], 1, 0) ; Even if the user moves the mouse, this instantly moves it to the bobber and right-clicks
    Sleep(3000)
    ToolTip("Recasting...", 0, 0) ; displays tooltip in top left corner
    Sleep (2500)
    Cast()
EndFunc

Func On_Exit()
    DllClose($dll)
    Exit
EndFunc

[s1ppr99]

Hey Z and the rest of u:P
The bot is working fine for me, at day.
But i cant get it to work at night, is there anyway to make it work?

[TrippyAbsolute]

Silly Question, but how do you turn it off?

EDIT: Never mind. Stupid question.

[TrippyAbsolute]

It was casting for me, it just wouldn't loot. Suggestions?

[Ainew]

Forgive me I've never used this site but I don't see a download for this errr I guess i should be asking where to download autoIT

[husku]

It was casting for me, it just wouldn't loot. Suggestions?

Turn on auto looting in wow. If you want a good working fishing bot then try my bot, it has a GUI. GUI = a little window from where you can select different options, and start and stop the bot, heres the thread link:

http://www.mmowned.com/forums/bots-p...-fish-bot.html

[testerbot]

contact me skype koala_ee i need help with fishing bot i am total noob

[castout85]

This is a very simple bot, and Autoit was a great choice for the platform. The macro works flawlessly. I see no reason to use any other fishing bot.

Couple of pointers:
-Try standing a few feet back from the shore so your casts aren't going out too far, it seems the farther the casts are, the harder time the bot has of recognizing the bobber.

-when you initially click the bobber, you may need to do a few test runs to see if its recognizing the bobber accurately every cast.

-when selecting the pixel scan area, make sure theres nothing but water selected, anything else may throw the scanner off when searching for the bobber

Once you know you have it configured good, it takes off and goes.
I was able to get the bot running with a 100% catching chance every time.

+rep