Yoko
http://forum.yoko.com.ua/

Ошибка в скрипте на фишинг.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2051		 Page 1 of 1
Author:  Optical [ 2004-11-23 20:43:19 ]
Post subject:  Ошибка в скрипте на фишинг.
Вот, есть такой скрипт на фишинг, он прекрастно работает, вот только после того как дойдёт до mx=-6 ; my=-6, выдаёт ошибку и не хочет начинать сначала. Пробывал убрать repeat, тоже самое. Помогите исправить
Code:
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
Author:  Optical [ 2004-11-23 20:46:21 ]
Post subject: 
А, всё врубился "wend" лишний :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/