Ковырялся,так и не смог понять.Помогите плз...(=
Code: Select all
var MaxFailure=2 # Кол-во фейловых попыток перед переходом к след тайлу
sub main()
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 out') and not UO.InJournal('but fail to catch') and not UO.InJournal('no fish here') and not UO.InJournal('Try fishing in water') and not UO.InJournal('That is too far away') and not UO.InJournal('You are too quick') and not UO.InJournal('The item should')
wait(4000)
wend
if UO.InJournal('no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') then
return
end if
if UO.InJournal('You pull out') then
counter=0
GetFish()
end if
until UO.Injournal('no fish here') 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('0x13F6')
UO.Ignore('finditem')
wait(1000)
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(1000)
UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
end sub
