This is my first post here so plz be gentle. I haven't done any real programing but played a little, so here's a nasty try at a fishing script for AutoIt v3. You need AutoIt installed and a gameguard emulator, both of which you can find links to and instructions in other threads. Then just highlight the following text and paste it into a notepad document. Name the document with the .au3 extension, save it in your mydocuments(or where your autoit looks for scripts) and fish hands free.
;################################################# ########################
; 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
;#### DO NOT COPY THIS OR WHAT FOLLOWS ###
It looks like it pasted ok, I don't think any lines got wrapped. The way I use it is run 2moons in window mode so I can reach my AutoIt run script icon.
Go to where you are going to fish.
Hit "L" to check you have your pole equipped and are in a fishable spot.
Run the script.
After you start the script you may need to move your mouse back to the fishable spot just look for the fishhook. I'm low level so I don't know if it takes longer to catch higher level fish, if so just add to the 8000 number in "Opt("SendKeyDownDelay", 8000)". This code keeps the space bar held down for 8000 milleseconds, which works in level one fishing areas. I'm sure this can be improved upon but hey, it's free.
 |
