Ошибка в скрипте на фишинг.
Posted: 2004-11-23 20:43:19
Вот, есть такой скрипт на фишинг, он прекрастно работает, вот только после того как дойдёт до mx=-6 ; my=-6, выдаёт ошибку и не хочет начинать сначала. Пробывал убрать repeat, тоже самое. Помогите исправить
Code: Select all
sub fishing()
var mx, my, mz, i, j
repeat
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-6 to mx+6
for j = my-6 to my+6
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") and not UO.InJournal("You pull")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF")
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water")
wait (1000)
if UO.InJournal("You pull") then
UO.findtype('0x14EB','0x0000' ,'ground') ;tattered map
UO.grab ('1','finditem')
UO.findtype('0x0DCA','0x0000','ground')
UO.grab ('1','finditem')
wait (100)
end if
wend
wend
UO.DeleteJournal()
next
next
wend
uo.print('---End of script---')
until uo.dead()
end sub
