[Request] Fish Bot

[ragingazn628]

i need a working fish bot for World of warcraft

i browsed this site and found some codes

http://www.autoitscript.com/forum/index.ph...hl=wow+fish+bot

http://www.autoitscript.com/forum/index.ph...hl=wow+fish+bot

http://www.autoitscript.com/forum/index.ph...st&id=11284

some of them have the script to it. can someone please use those to make a working bot?

i also found other fishing bots on another site

http://rpg-exploiters.shoq.net/forums/viewtopic.php?t=5650

QUOTE

UPDATED: July 7, 2006

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

- If you would still rather use the old version, 1.8.4, you can find it and its code on my forums at here: Fishbot v1.8.4

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.

expandcollapse popup

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

[Simucal]

Unless you have a specific question about a specific error in your code, dont expect too many scripting hand outs.

Why dont you take some time, learn how AutoIt scripts work, then write your own or fix someone elses?

[Valik]

Did not you not take the hint when the first thread was locked? Either put forth some effort or get lost. You may ask specific questions related to AutoIt but if you make another thread in which you ask for a fishing bot while demonstrating no effort, you will be removed for a period of time determined on a whim.