Fishing prob : FFXI General Discussions

I been trying to get this right, I'm using an older version of XUfish program..works fine btw,
But I'm fishing in Sea Serpant Grotto w Lu'Shang and Shrimp lure.

I can get all the regular fish just fine, but I'm having a problem getting the one's that con a monster ie: Grimmonite's

I have the weight of the fish in the script but do to the fact it con a monster it drops it.... if i change the script to True on advfish it will catch everything including monsters and I dont want that.....Can anyone give me an idea what I'm missing? The script I'm using is below:





' Include variables declaration
XUScriptHost.ImportScript("xufish\fisher_variables.vbs")

scriptTimeInterval = 180

' Declare events
function onChangeZone
' Beep
if not scriptPaused then
ForcePause
Win32API.XUBeep 750,1000
end if
end function

function onStateChange
' Do nothing
end function

function onScriptTimeInterval
' Logout
waitForUser
ForcePause
doKeyboardCommand("/logout")
end function

function onMonsterCheck
' Do nothing
end function

function onNoBait
' Logout
waitForUser
ForcePause
doKeyboardCommand("/logout")
ForcePause
end function

function testFish(stamina, allowedStamina)
testFish = ((stamina >= allowedStamina * 0.955) and (stamina <= allowedStamina * 1.075))
end function

function doBiteAdv(stamina, isheavy, difficulty)
if isheavy then
doBiteAdv = false
else
doBiteAdv = testFish(stamina, 400) or testFish(stamina, 500) or testFish(stamina, 560) or testFish(stamina, 620) or testFish(stamina, 1190) or testFish(stamina, 1290)
end if
end function


' Include and start main script
XUScriptHost.ImportScript("xufish\fisher.vbs")
onBiteAdv = "doBiteAdv"
runFisher

WOW thanks for such a wonderful and fast responce , Glad to see there are real PRO's here.

your very welcome. i dont play so honestly i dont care. i just try to cleanup the forums when i get time and work.

I'm using this script too in SSG and I have it working good =)


alter the testFish and doBiteAdv functions to:

function testFish(stamina, allowedStamina)
testFish = ((stamina >= allowedStamina * 0.955) and (stamina <allowedStamina>= allowedStamina * 0.955) and (stamina <= allowedStamina * 2.075))
end function

function doBiteAdv(stamina, isheavy, difficulty)
if isheavy then
doBiteAdv = testFish(stamina,1190)
else
doBiteAdv = true
end if
end function


This should skip monsters for you and catch anything that is (!) including kelp and rusties, but your bot will clear them from your inventory automaticly.

Good luck and hope it works!

you have to understand that we do not sit in our chair spamming the refresh button waiting on people to help, this is not Dell's tech support in india. as far as i know the only help you'll get aking about older scripts is being told to use the most recent one

Well the problem is NOT catching the fish that con (!)
It's the Grimmonites that con (!!!) "Terrible Feeling"

Thats what I'm trying to get caught...any help is appreciated...Thanks

i use this to target specific fish. there are 3 weights, just put the fish weight in there x3 if you are only trying to catch one type of fish.
' Include variables declaration
XUScriptHost.ImportScript("xufish\fisher_variables.vbs")

scriptTimeInterval = 60

' Declare events
function onChangeZone
' Beep
if not scriptPaused then
ForcePause
Win32API.XUBeep 750,1000
end if
end function

function onStateChange
' Do nothing
end function

function onScriptTimeInterval
' Just beep three times
Win32API.XUBeep 750,1000
Sleep(250)
Win32API.XUBeep 750,1000
Sleep(250)
Win32API.XUBeep 750,1000
end function

function onMonsterCheck
' Do nothing
end function

function onNoBait
ForcePause
end function

function testFish(stamina, allowedStamina)
testFish = ((stamina >= allowedStamina * 0.963) and (stamina <= allowedStamina * 1.037))
end function

function doBiteAdv(stamina, isheavy, difficulty)
if isheavy then
doBiteAdv = false
else
doBiteAdv = testFish(stamina, 880) or testFish(stamina, 880) or testFish(stamina, 880)
end if
end function


' Include and start main script
XUScriptHost.ImportScript("xufish\fisher.vbs")
onBiteAdv = "doBiteAdv"
runFisher

replace all the 880 with your fish weight. hope it works for you.

sorry if I was unclear in my post, but it will catch Grimmonites (aswell as small fish) and skip monsters.

the key is to seperate the two cases of large and small fish (if isheavy function in the script) and if it is heavy (!!!) to compare the fish weight with a certain numer that is larger than moster weight and smaller than grimmonite weight. and I allow every fish that is small (!) to be caught aswell for the extra small gil.

Hey Mr_Seer, thanks for your help. But That last post does'nt work for me, It won't even catch the regular fish nor the Grimmonites

I copied the entire script as is and replaced the 880 with 1190,1250,1310

But cancel's every catch....any ideas?

I'll just copy paste the script I use and hope it helps =)



' Include variables declaration
XUScriptHost.ImportScript("xufish\fisher_variables.vbs")

scriptTimeInterval = 600

' Declare events
function onChangeZone
end function

function onStateChange
' Do nothing
end function

function onScriptTimeInterval

end function

function onMonsterCheck
' Do nothing
end function

function onNoBait
ForcePause
end function

function testFish(stamina, allowedStamina)
testFish = ((stamina >= allowedStamina * 0.963) and (stamina <= allowedStamina * 3.937))
end function

function doBiteAdv(stamina, isheavy, difficulty)

if isheavy then
doBiteAdv = testFish(stamina, 1100)
else
doBiteAdv = testFish(stamina, 400)
end if

end function


' Include and start main script
XUScriptHost.ImportScript("xufish\fisher.vbs")
onBiteAdv = "doBiteAdv"
runFisher

Works Perfect!!!!!

Thanks Very Much!!!

I noticed you have 2 weights in the script, If i wanted to add more fish weights to it Say like the fish off the Selbina boat, would I do it like i did at first post?