Savage wrote:
'The item should'
Это к чему относится? Если не к чему, замени это сообщение на сообщение о поломке. Или добавь сообщение о поломке.
Code:
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')сюда.
По-моему не к чему.С пасибо,щас попробуем.
Я вот решил сделать,чтобы он не резал на стейки,а сразу в пак клал выловленную рыбу,ибо стейки весят больше...ды и дольше времени пока порежет и т.п. Вот,пытаюсь,но по-моему у меня такое не понятно сочитание,и не могу доделать ошибки всякие. Пожешь помочь,если не сложно!
Code:
var mX, mY, mZ, i, j
var f
var a=0
var TakeFish=1 ## 1
var MaxFailure=2 # Кол-во фейловых попыток перед переходом к след тайлу
sub main()
dim Fish[6]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6
Beginning:
uo.Set('finddistance','6')
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
if TakeFish==1 then
uo.Print('Собираем рыбу.')
uo.FindType(Fish[f],"-1","ground")
if uo.Count(Fish[2])> 0 then
a= a+1
end if
for f=0 to 3
uo.MoveItem("finditem","1","Fishs")
wait(200)
next
end if
wait(200)
next
end if
end sub
На 52-й линии ошибка Fish,что я забыл не пойму!(
Register
Login
FAQ
Search
