LuvMachine's AutoIt Fishbot

**Spitt** · 08-07-2006

Disclaimer: I did not create this, I have only copied it off of our forums, for you here. Please contact the author if you make any changes, for if they are good, it can be integrated. Enjoy.

How to use:
0) Rename the file (This is up to you, doubtful they look for filenames)
1) Run WoW, go stand at the water edge, do you best to face away from Sun/Moon. It should look like the waves are going away from you.
3) Put your fishing skill on the "1" Hotkey spot of your actionbars. It also helps if you scroll in to first person, this helps prevent it from catching color on armor or you blocking the bobber on your screen.
4) Run the script, best color to look for is the normal "Red" unless your in one of the other places.
5) I recommend something like Loot Filter so you only get the fish you want: Loot Filter

Changes from last release:
- Inside the .ini you can edit the tolerance and search step now rather than having to recompile the script again
- It sets WoW to "On top" meaning it will show over all other windows so things like pop ups and IM windows that may show won't show over WoW and interupt your bot
- It sets the WoW window to your active each time before it hits '1' so that incase a pop does happen and change your focus, it will be set back to WoW
- When using F6 to save a new color to the .ini file, it now moves the mouse away and then saves the color of the location where you pressed F6 at. This makes it so it won't save the color that's brighter from the normal bobber.

Notes:
- Some have issues about them catching files names, if you fear that then just change all locations of "hex.ini" in the script to a different filename, leave extension
- Post any questions or comments HERE , I do actually read all of them on a daily basis

FAQ:
Q: It finds the bobber but its not clicking it after it splashes
A: I always have my settings up so this eluded me for a while, a personal friend mentioned to me though that when he turned his Spell Detail up it lead to the bobber making a bigger splash that could get noticed by the bot much easier.
Q: What is Tolerance / Search Step
A: The higher the Tolerance the less exact the color of the splash has to be for it to detect it, turning this up may cause it to click early though. Search Step is the steps it takes while scanning the pixel box to find the bobber, 2 means it does every other one, higher numbers go faster, but are less accurate.

Code:

;+--------------------------------+----------------------------------+
;| Luvmachine's Fishbot GUI & All | Original design by Pantless Krab |
;+-------------------------+------+-------+--------------------------+
;                          |Version 1.11.2|
;    +---------------------+--------------+----------------------+
; +--+By using this in conjunction with World of Warcraft you are+--+
; |violating your EULA and TOS.  Using this bot can result in a temp|
; |or even a permanent ban.  The creator takes no responsibility for|
; +-----+what may happen to anyone who uses this original code.+----+
;     +-+------------------------------------------------------+--+
;     | Written for my friends at http://rpg-exploiters.shoq.net/ |
;     +-----------------------------------------------------------+

#include <GUIConstants.au3>
$wait_time = 30000
$tolerance = IniRead("hex.ini", "Variables", "Tolerance", 20)
$sear_step = IniRead("hex.ini", "Variables", "Step", 2)
$spla_colo = 0xF6F6F6

HotKeySet("{PAUSE}", "End")
HotKeySet("{F6}", "Set_Bobber")

GUI_Gene()

Func GUI_Gene()
    GUICreate(Random(0,9999),150,127)

    $menu_menu = GUICtrlCreateMenu("Menu")
    $menu_abou = GUICtrlCreateMenuItem("About",$menu_menu)
    $menu_line = GUICtrlCreateMenuItem("",$menu_menu)
    $menu_exit = GUICtrlCreateMenuItem("Exit",$menu_menu)

    $help_menu = GUICtrlCreateMenu("Help")
    $help_gene = GUICtrlCreateMenuItem("Generate Ini",$help_menu)

    $start = GUICtrlCreateButton("Start",37,58,76,23)

    $arra = IniReadSection("hex.ini","Values")
    If @error == 1 Then
        MsgBox(4096,"","Error loading ""Values"" from Ini" & @CRLF & "Generating basic Ini setup")
        Ini_Gene()
        $arra = IniReadSection("hex.ini","Values")
    EndIf

    $list = GUICtrlCreateCombo("", 25, 25, 100, 23)
    For $i = 1 to $arra[0][0]
        GUICtrlSetData($list,$arra[$i][0])
    Next

    GUISetState()

    While 1
        $mess = GUIGetMsg()

        If $mess = $start Then
            global $colo_use =IniRead("hex.ini","Values",GUICtrlRead($list),"")
            Start_Bot()
        EndIf
        If $mess = $help_gene Then Ini_Gene()
        If $mess = $GUI_EVENT_CLOSE or $mess = $menu_exit Then Exit
        If $mess = $menu_abou Then MsgBox(0,"About","Written by Luvmachine" & @CRLF & "Original design Pantless Krab")
    WEnd
EndFunc

Func Ini_Gene()
    IniWrite("hex.ini","Values","Dark Purple","0x463B4D")
    IniWrite("hex.ini","Values","Red","0xA72C0B")
    IniWrite("hex.ini","Values","Stormwind Red","0x6B1F0C")
    IniWrite("hex.ini","Values","Beige","0xBB9B3D")
    IniWrite("hex.ini","Values","Wailing Caverns","0x210B04")
    IniWrite("hex.ini","Variables","Tolerance","20")
   IniWrite("hex.ini","Variables","Step","2")
EndFunc

Func Start_Bot()
    GUIDelete()

    If Not WinExists("World of Warcraft") Then
        MsgBox(0, Random(0, 9999), "World of Warcraft must be open.")
        Exit
    EndIf

    WinActivate("World of Warcraft")
    WinSetOnTop("World of Warcraft", "", 0)
    Sleep(500)
    Set_Size()

    If MsgBox(4, Random(0, 9999), "Do you want to start the Bot?") == 6 Then
    Else
       Exit
   EndIf
   
   WinSetOnTop("World of Warcraft", "", 1)

    MouseMove($wind_left, $wind_top, 2)
    MouseMove($wind_righ, $wind_top, 2)
    MouseMove($wind_righ, $wind_bott, 2)
    MouseMove($wind_left, $wind_bott, 2)

    Cast_Pole()
    Find_Float()
EndFunc

Func Set_Size()
    $bord_vert = 23
    $bord_hori = 4
    $wind_size = WinGetClientSize("World of Warcraft")
    $wind_posi = WinGetPos("World of Warcraft")
    $wind_x = $wind_posi[0] + $bord_hori
    $wind_y = $wind_posi[1] + $bord_vert
    global $wind_top = $wind_y + (.25 * $wind_size[1])
    global $wind_bott = $wind_top + (.35 * $wind_size[1]) - 1
    global $wind_left = $wind_x + (.15 * $wind_size[0])
    global $wind_righ = $wind_left + $wind_size[0] - (.3 * $wind_size[0]) - 1
EndFunc

Func Cast_Pole()
    global $star_time = TimerInit()
   WinActivate("World of Warcraft")
    Send("1")
    Sleep(1000)
EndFunc

Func Find_Float()
   While 1
      If TimerDiff($star_time) >= $wait_time Then
         Cast_Pole()
      EndIf

      $pos = PixelSearch($wind_left, $wind_top, $wind_righ, $wind_bott, $colo_use, $tolerance, $sear_step)
         If @error Then
            SetError(0)
         Else
            MouseMove($pos[0], $pos[1], 2)
            Find_Splash($pos[0], $pos[1] )
         EndIf
         Sleep(10)
      WEnd
EndFunc

Func Find_Splash($float_x, $float_y)
    $sear_left = $float_x - 32
    $sear_righ = $sear_left + 52
    $sear_top = $float_y - 32
    $sear_bott = $sear_top + 64

    While TimerDiff($star_time) < $wait_time
        $pos = PixelSearch($sear_left, $sear_top, $sear_righ, $sear_bott, $spla_colo, $tolerance, $sear_step)
        If @error Then
            SetError(0)
        Else
            Send("{SHIFTDOWN}")
            MouseClick("right", $pos[0], $pos[1], 1, 2)
            Send("{ShiftUP}")
            Sleep(5500)
            ExitLoop
        EndIf
        Sleep(10)
    WEnd

    Cast_Pole()
EndFunc

Func End()
   WinSetOnTop("World of Warcraft", "", 0)
    Exit
EndFunc

Func Set_Bobber()
    $bob_pos = MouseGetPos()
   MouseMove(0, 0, 0)
    $colo_use = "0x" & Hex(PixelGetColor($bob_pos[0], $bob_pos[1]), 6)
    IniWrite("hex.ini","Values", $colo_use, $colo_use)
EndFunc