[REQUEST] Fishing Bot

He's right , most of/if not all of the links are dead

now I cant help you with the bypass its all over the forum but the bot is a simple script
download this one its not perfect but works fine for me

PS: this is NOT my work.

& here is the script if you need it

Quote:

;################################################# ########################
; FishBOT
;################################################# ########################

;###########
; Globals
;###########
$title = "FishBOT"
;################################################# ################################
; changes how long the key is pressed to allow for server lag increase if needed
;################################################# ################################
Opt("SendKeyDownDelay", 5)

;################################################# ########################
; Hot Keys Section
;
; Set up a Hot key to be used later to puase or end the script,
; the sleep(delay time) is added becuase not sure if program would recognize
; the puase key while spacebar key is held down.
;################################################# ########################

HotKeySet("{PAUSE}", "request_end")

;######################################
; Cast pole and start all over again,
; loops until you hit puase.
;######################################

Start_Bot()

while 1
cast_pole()
wend

;################################################# #############################
func cast_pole()
Send("l")
Sleep(5)
MouseClick("left")
;################################################# #################
; changed key down to 8000 to allow time for full catch sequence
;################################################# #################
Opt("SendKeyDownDelay", 8000)
send("{space}")
Opt("SendKeyDownDelay", 5)
Sleep(5)
endfunc

;################################################# #############################
func msg($text)
MsgBox(0, $title, $text)
endfunc

;################################################# #############################
func msg_array($title, $array, $num_elements)
dim $text
$text = $array[0]

for $j = 1 to $num_elements - 1
$text = $text & ", " & $array[$j]
next

MsgBox(0, $title, $text)
endfunc

;################################################# #########
func request_end()
$MB_YESNO = 4
$MB_YES = 6

if MsgBox($MB_YESNO, $title, "End script?") == $MB_YES then
Exit
endif
endfunc

;################################################# ##########
func Start_Bot()
$MB_YESNO = 4
$MB_YES = 6

if MsgBox($MB_YESNO, $title, "Do you want to start the Bot?") == $MB_Yes then

else
Exit
endif
endfunc
;