Z's Fishing Bot (Alpha - Source Included)

[=Z=]

Hey guys, for all of you who have been using my other BG bot, this is why I havn't been updating it lately, I've been working on this bot for a few days.

Anyways, this is a fishing bot, just like it says, it's pretty basic but it works and it follows the same principle as my other bot, it uses absolutely no injection or any kind of detectable code so it should be 100% safe to use.

As with my other bot, my practice is to keep code open source so everyone can learn and make the bots better, so this will remain open source as well.

Bot Features

1. User selected bobber color, this means the bot should always work reasonably well, no matter the location or any changes to the bobber
2. NO injection or any other kind of interaction with the client via memory etc, this is pure pixel searching, thusly it should be as safe as botting could possibly get (highly unlikely you will be banned unless reported.. even that is unlikely) due to...
3. Randomized timers, this means the bot will wait slightly different amounts of time when casting, this should make it a bit less obvious to anyone who bothers to watch it and should make it even less likely to be detected by Warden/GMs looking for highly repetitive tasks/timing.
4. Supports user-specified fishing area, so it will work in any resolution!

How to use the bot
Before you use this bot, one addon I DO recommend you pick up is called LootFilter. This mod will allow you to create a list of items you do not wish to keep in your bags, you will need to add things like Weeds etc. to Lootfilter so your bot does not fill up it's bags with a bunch of junk instead of fish. If a detailed guide is needed for setting up lootfilter, I will provide some help in another post, but it should be self explanatory (just look for the name tab and add any item/fish you dont want to keep in the right-hand column).

By default this bot uses "1" as the fishing key, so put your fishing skill in the 1 slot on your action bar, if you want to change this, look for the code near the top of the macro called "Global $FishKey = '1'", change the '1' to whatever you want (for example I use '{HOME}'

Using this bot is incredibly simple, just follow the steps listed below.

1. Copy and paste the code in the "code" section below into AutoIt
2. Save the macro
3. Log into WoW (I would suggest disabling any addons that take up your screen space, as anything that's in the middle-ish area of your screen can affect the bots performance).
4. Go to your fishing spot and zoom in so your character is in first person view
5. Tab-out and click Tools -> Go in AutoIt
6. The bot will maximize WoW, follow the instructions in the top left screen,
7. First the bot will ask you to specify the top left (TL) and bottom right (BR) corners of the area you want to fish in on your screen (so basically you're giving it the dimensions of a big rectangle on your screen to look for the bobber... you could always cast a few times before hand to get a good idea of where this should be).
8. Now the bot will cast and ask you to select the bobber, I would suggest selecting the upper area of the red feather for best results
9. The bot should now cast and be good to go, enjoy!

Depending on the area you decide to fish in, if there is too much variation in the colors of the bobber, it may not detect the bobber properly, the adjust this, look for the spot in the code that says the following: "$bobber = PixelSearch($searchL,$searchT,$searchR,$searchB, $color, 60) " try increasing or decreasing the value at the end of that (i.e: change 60 to 70 etc...) and see if it helps.

If you notice the bot is finding the bobber but not detecting the splash well enough then look for the following piece of code: "$splash = PixelSearch($bobber[0]-10,$bobber[1]-10,$bobber[0]+10,$bobber[1]+10, $color, 15)" and the same with the above, increase / decrease the last value until it works for you.

As with all screen-scraping and pixel searching methods, this bot will not be 100% accurate, anything that moves into the screen may cause anomalous results, regardless, running this over night you should be able to fill your bags easily.

Planned Features
The following is what i'm hoping to add to this bot at some point in the future.

1. GUI to track total casts and time running
2. GUI drop-down to select rods / lures and apply them on a timer (if possible)
3. More accurate searching for the bobber / splash

AutoIt Code

; __      __            .__       .___         _____ 
;/  \    /  \___________|  |    __| _/   _____/ ____\
;\   \/\/   /  _ \_  __ \  |   / __ |   /  _ \   __\ 
; \        (  <_> )  | \/  |__/ /_/ |  (  <_> )  |   
;  \__/\  / \____/|__|  |____/\____ |   \____/|__|   
;       \/                         \/                
; __      __                                    _____  __   
;/  \    /  \_____ _______   ________________ _/ ____\/  |_ 
;\   \/\/   /\__  \\_  __ \_/ ___\_  __ \__  \\   __\\   __\
; \        /  / __ \|  | \/\  \___|  | \// __ \|  |   |  |  
;  \__/\  /  (____  /__|    \___  >__|  (____  /__|   |__|  
;       \/        \/            \/           \/             
;/###########################################################\
; Fishing Bot	 							Created by: =Z=  #
;************************************************************#
;															 #
;*************												 #
; 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>
Global $wow = 'World of Warcraft'
Global $searchL, $searchT, $searchR, $searchB, $color

;FishKey - Change this to the key you use to fish
Global $FishKey = '1'

;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()
    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") 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") 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
    ;Msgbox(0,"Status", "Bobber color: "&$color) ;Debug, DONT TOUCH
    ToolTip("Starting macro in 15 secs", 0, 0) ; displays tooltip in top left corner
    Sleep (15000)
    Cast()
EndFunc


;Cast Function
func Cast()
    ToolTip("Casting...", 0, 0) ; displays tooltip in top left corner
    Sleep(2000)
    Send($FishKey)
    ToolTip("Searching for bobber...", 0, 0) ; displays tooltip in top left corner
    Sleep (3000)
    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(1175,2125))
		Cast() 
	EndIf
    If TimerDiff($current) > 10000 Then ;If the bobber is not seen in 10 sec. Then cast again
        Cast()
    EndIf
    sleep (1000)
    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 (500)
    
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

As always I hope everyone gets some use out of this bot, please post any features / additions / praise or criticism as I will do my best to respond in time.

Enjoy :wave:

[Jadd]

This might be a really stupid question.. but to my understanding sending keystrokes does update LastHardwareAction... correct?

I'm a little shaky on this one, it is called LastHardwareAction after all ;P

[=Z=]

To my knowledge yes, you won't get AFK logged if that's what you're worried about.

[Jadd]

To my knowledge yes, you won't get AFK logged if that's what you're worried about.

Awesome... you're just beginning programming are you not?

Edit: I feel sorry for you... the link to your profile doesn't even go to you >_<

Edit Edit: Rep * 3 ;D

[delatharis]

Edit: I feel sorry for you... the link to your profile doesn't even go to you >_<

HAX!!!

(filler)

[qwertyjunior]

I got busted last year with a fishing bot, is there trackable?

[=Z=]

Awesome... you're just beginning programming are you not?

Edit: I feel sorry for you... the link to your profile doesn't even go to you >_<

Edit Edit: Rep * 3 ;D

Again, this comment seems like another passive aggressive remark, but I do know how to program quite well actually (since I get paid to do it), I just started using AutoIt however.

[=Z=]

I made over 1000g last night using this bot, seems to be going pretty well, the best thing i've found is to select the middle darker area of the red feather, that seems to give the most consistent results.

Also, lootfilter hasn't been updated in awhile so it may have issues here and there, make sure you check "load outdated addons".

[azkza]

Thanks

[dep.ARTed]

Looks as awesome as your "honor bot"...
Thanks for your work...

[Darkbringer]

Sweet... Sweet.. Sweet post! Learned me alot in AutoIT! +rep!

Im still wondering a few things. Trying to learn meself some AutoIT.

In this example:

$mouse = MouseGetPos()
$searchR = $mouse[0]
$searchB = $mouse[1]

How come you take mouseposition twice? and how does it work?
Cheers in advance

[Ziddy1337]

Again, this comment seems like another passive aggressive remark, but I do know how to program quite well actually (since I get paid to do it), I just started using AutoIt however.

I dont think he was being aggressive. He was just asking if it was your first attempt at programming. If it is, it's a very good attempt.

Also, unless you misunderstood, he wasnt being rude about feeling sorry for you. The link to your public profile on the forum doesnt goto your profile page. Something you should probabaly speak to a staff member about.

OT: Nice bot. I've been using this for a short while and it works very well. Rep x2

[coldheartzero]

I'm having issues getting it running correctly. I followed your directions but it out of a literal 20 tries only 1 time did I manage to get it running right. It always seemed to target one of the areas I had targeted as a corner during set up.

When it ran though, it ran great except for when someone would run through my screen but it would correct itself right after that.

[=Z=]

Sweet... Sweet.. Sweet post! Learned me alot in AutoIT! +rep!

Im still wondering a few things. Trying to learn meself some AutoIT.

In this example:

$mouse = MouseGetPos()
$searchR = $mouse[0]
$searchB = $mouse[1]

How come you take mouseposition twice? and how does it work?
Cheers in advance

Glad to help, and that doesn't get the mouse pos twice, what that does is gets the mouse x & y coords and put them into the storage variable ($mouse) then we set $searchR to the data in the mouse[0] (X coords) and $searchB to the data in mouse[1] (Y coords). It's basically just storing coords in an array and then splitting the coords into 2 different variables to use them.

I'm having issues getting it running correctly. I followed your directions but it out of a literal 20 tries only 1 time did I manage to get it running right. It always seemed to target one of the areas I had targeted as a corner during set up.

When it ran though, it ran great except for when someone would run through my screen but it would correct itself right after that.

Sorry to hear you're having so much trouble, it really is very easy once you get used to it, once it casts and asks you to click on the lure, aim for the darker red line that runs through the middle of the bobber, that tends to give me a higher success rate.

Also as I said before, anywhere that has a lot of red is obviously not optimal, i've used this bot a ton in north rend with minimal issues though. If all else fails as I mentioned earlier in the thread, change the last digit in the pixelsearch code and see if that helps with detection.

[Darkbringer]

Okay thanks for the answer! I think i got the basic idea of it. Crazy simple imo! GJ