FIshbot

04/28/2010 00:47 n0ngrada#1
well, i found onley 1 tread about this.

and since i just started fishing i was wondering if it was possible.

but i found a download link but there was a pass on it.

So, any1 help?

greetz
04/29/2010 15:49 Sode No Shirayuki#2
yeah is there any fishing bot?:o
04/29/2010 17:37 matii1509#3
[Only registered and activated users can see links. Click Here To Register...]
04/30/2010 00:23 Distortion69#4
Quote:
Originally Posted by matii1509 View Post
[Only registered and activated users can see links. Click Here To Register...]
yep thats my release password is in the topic ;)

seems that my fishbot is bugged, ill fix this asap
05/04/2010 05:45 pinky1#5
if oyu use Autoit this works pretty good, its what i use.

$title = "FishBOT"

Opt("SendKeyDownDelay", 5)


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

Start_Bot()

while 1
cast_pole()
wend

func cast_pole()
Send("l")
Sleep(5)
MouseClick("left")

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


twist3d posted this somewhere before. Search Autoit fish bot and it shows up.