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 [Only registered and activated users can see links. ]
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.
Code:
;+--------------------------------+----------------------------------+
;| 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.*********/ |
; +-----------------------------------------------------------+
#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
*****tState()
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
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
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)
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.
Code:
;+--------------------------------+----------------------------------+
;| 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.*********/ |
; +-----------------------------------------------------------+
#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
*****tState()
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.
[Program] Fishbot Refurbished - GUI
