Below is code I have come up with for an Automated Lure Apply using the code from here http://www.mmowned.com/forums/bots-p...shing-bot.html
You will need to replace all of the func cast_pole() with what you see here.
Code:
; ##############################################################################
func apply_lure()
Send("c")
sleep(1000)
Send("8")
MouseClick("left", 90, 350)
sleep(5500)
Send("c")
EndFunc
; ##############################################################################
func cast_pole()
$LureApply = $LureCount * 5
If $CastAmt = $LureApply Then
apply_lure()
$RandomNum = Random(1000, 3000, 1)
$start_time = TimerInit()
Send($HotKey)
Sleep($RandomNum)
$CastAmt = $CastAmt + 1
$LureCount = $LureCount + 1
Else
$RandomNum = Random(1000, 3000, 1)
$start_time = TimerInit()
Send($HotKey)
Sleep($RandomNum)
$CastAmt = $CastAmt + 1
EndIf
endfunc
; ##############################################################################
In the Code above you can change the #5 in $LureApply = $LureCount * 5 to whatever multiple of casts for it to do a reapply of lure working on getting it to ask for that when you start the Bot, plus a way to turn it on and off.
You will also need to add a Dim statement dim $LureCount = 0 as you see below:
Code:
dim $start_time
dim $color_to_use
dim $catch_counter = 0
dim $LureCount = 0
dim $CastAmt = 0
dim $BobberAmt = 0
dim $SplashAmt = 0
At the time of testing my settings were
Desktop Resolution: 1280x1024
Game Resolution: 1024x768
Game: Windowed non-maximized
Lures HotKey: 8
Hope you all enjoy once i have another update I will add it