|
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.
|
