No replies to this topic

[IGROK23]

ужасно быстрый фишинг.
можно добавить ходилку....
var MaxFailure=40 # Через сколько подряд безрезультатных попыток переходить к другой клетке.

sub FishingAround()
var iX,iY
for var iStep=0 to 1000
for iX=-6 to 6
for iY=-6 to 6
GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
next
next
next
end sub



Sub GetAllFish(iX,iY)
var counter=0
repeat
counter=counter+1
UO.DeleteJournal()
UO.WaitTargetTile(0,iX,iY,0)
UO.UseType('0x0DBF')
while not UO.InJournal('You pull') and not UO.InJournal('You fish') and not UO.InJournal('There') and not UO.InJournal('Try') and not UO.InJournal('That is too far away')
wait(100)
wend
if UO.InJournal('There') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') then
return
end if
if UO.InJournal('You pull') then
counter=0
GetFish()
end if
until UO.Injournal('There') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR counter>MaxFailure
end sub


Sub GetFish()
UO.set('finddistance',0)
UO.IgnoreReset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
UO.WaitTargetObject('finditem')
UO.UseType('0x0F51')
UO.Ignore('finditem')
wait(500)
UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
UO.Grab(0,'finditem')
wait(100)
UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()

end sub