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.
Quote:
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: [Only registered and activated users can see links. ]
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 [Only registered and activated users can see links. ] , 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.*********/ |
; +-----------------------------------------------------------+
#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
Where is the actual bot? DO i got to download something first?oO
Technically you do need to download something.
Auto-It
first link on google
Want to make money completing easy surveys? [ [Only registered and activated users can see links. ] ]
Pre-paid All Access Visa Cards [ [Only registered and activated users can see links. ] ]
Get Hosted by me.. [ [Only registered and activated users can see links. ] ] Packed with features.. not overcrowding. Proud Administrator of [Only registered and activated users can see links. ] [Only registered and activated users can see links. ] Please Post Reviews for Gold & Power Leveling Services you try out here. PM me any additions.
LuvMachine's AutoIt Fishbot
LuvMachine's AutoIt Fishbot -
08-07-2006
