[Program] Fishbot Refurbished - GUI

[Cypher]

Okay, so I've been at this one the last few nights and got it all seksy ^^ I'm posting the code, and the .exe, someone else can scan and post a screeny of it if they want, but I <3 you guys, I wouldn't try to attack you.

How to (Forgot this on my others):
0) Rename the file
1) Run WoW, go stand at the water edge, do you best to face away from Sun/Moon
2) Put game into Windowed Mode, Non-Maximized
3) Put your fishing skill on the "1" Hotkey spot of your actionbars
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 http://www.curse-gaming.com/mod.php?addid=1792

Changes from last release:
- GUI!!! You now no longer need to recompile to change what color your looking for incase it's night or something, it just stores the basic five colors and any other ones you put in into a .ini file that will generate when you first run the bot
- Works with ANY resolution setup, just make sure it's in Windowed Mode and NOT Maximised

If you are having any issues when running this please post them, I'd love to help you out ^^

EDIT: I got a PM and a post about this, if your worried about the WoWLauncher scanning for the hex.ini file at all, if you recompile this yourself and just change all instances of "hex.ini" in the code to the "*newname*.ini" that you want it should work just fine for you.

;+--------------------------------+----------------------------------+
;| Luvmachine's Fishbot GUI & All | Original design by Pantless Krab |
;+--------------------------+-----+-------+--------------------------+
;                           |Version 1.8.4|
;    +----------------------+-------------+----------------------+
; +--+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 = 20
$sear_step = 2
$spla_colo = 0xF6F6F6
$size_chck = 0

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

GUI_Gene()

Func GUI_Gene()
    GUICreate(Random(0,9999),300,200)

    $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",50,100,75,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("", 50, 50, 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")
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)
    If $size_chck = 0 Then Set_Size()

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

    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

    $size_chck = 1
EndFunc

Func Cast_Pole()
    global $star_time = TimerInit()
    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()
    Exit
EndFunc

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

[LightWave]

dude ur the best man thanks dude and lets all hope this one cant be detected lmao it probley wont i think fishing bots are bliz last on the list of worries

[janzi9]

OMAIGAWD! FISHIZ R MINE!
Gawd, you people wreck the game. Hacking, exploiting and botting. Bunch of noobs, play the game by hand.

[lopolop]

lol i play legit for a little bit but some times games get boreing :P
So then i hack lol...
and nice job on the bot!
(i was making a bot like acid's(name?!?!) autoit grinding bot)

[janzi9]

/sarcasticbtw

[LightWave]

i play the game buy hand but fishing is just way to boring for me it sux so i use thos lvl me up lol

[witiwap]

I had quite a few problems with the bot that was posted. After the first time, the bot never waited long enough for the bobber to show up before it searched for it, so it never found it. I modified the script so that the bot waits a little longer after it casts. I also added a color for the feather while in Hillsbrad foothills, as for some reason it doesn't seem to like Hillsbrad while its stormy. I suspect the color would work at any location while it's storming, but I haven't had a chance to test that. I also renamed all instances of hex.ini to settings.ini to make the bot harder to detect.

;+--------------------------------+----------------------------------+
;| Luvmachine's Fishbot GUI & All | Original design by Pantless Krab |
;|                       Updated by Witiwap                          |
;+--------------------------+-----+-------+--------------------------+
;                           |Version 1.8.5|
;    +----------------------+-------------+----------------------+
; +--+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 = 20
$sear_step = 2
$spla_colo = 0xF6F6F6
$size_chck = 0

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

GUI_Gene()

Func GUI_Gene()
    GUICreate(Random(0,9999),300,200)

    $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",50,100,75,23)

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

    $list = GUICtrlCreateCombo("", 50, 50, 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("settings.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("settings.ini","Values","Dark Purple","0x463B4D")
    IniWrite("settings.ini","Values","Red","0xA72C0B")
    IniWrite("settings.ini","Values","Hillsbrad","0x3C150B")
    IniWrite("settings.ini","Values","Stormwind Red","0x6B1F0C")
    IniWrite("settings.ini","Values","Beige","0xBB9B3D")
    IniWrite("settings.ini","Values","Wailing Caverns","0x210B04")
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)
    If $size_chck = 0 Then Set_Size()

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

    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

    $size_chck = 1
EndFunc

Func Cast_Pole()
    global $star_time = TimerInit()
    Send("1")
    Sleep(5000)
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()
    Exit
EndFunc

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

Oh, and I've tried numerous bots, and had a lot of trouble with them, and this one is the first to work quite well. It still only catches one in two or three of the splashes, but thats still a lot more than I do while I'm sleeping. As I go to new zones and fish new places, I'll add the colors when necessary, and make a new reply or thread. For those of you that don't know how to get the color values, I downloaded "the gimp" and "GTK runtime environment" (needed to run the gimp) and once you open the screenshot there is a zoom option and a little dropper icon, you just pick the red on the feather that appears to show up on the feather the most often, giving it a better chance of finding the color.

[LightWave]

thanks man ill have to try it out to see if it works better but thanks and i will see if i can get one of my friends to give me some colors for it

[liam eatu]

what do u open this with. scar is so difficult to use

[JoeRodge]

It's no big deal, but how come so many people don't compile them with offering the code? Seems like it would avoid a lot of confusion for small heads.