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

помогите со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=63
Page 1 of 1

Author:  999 [ 2004-04-10 21:42:54 ]
Post subject:  помогите со скриптом

люди я тут скрипт сам переделал из скрипта на мининг сделал скрипт на фишинг сделал так чтобы вылавливал токо карты ( то есть токо их поднимал) но у меня как токо он выловит карту скрипт продалжает работать а чар большет не ловит рубу тормозит и все хотя скрипт запушен помогите исправить скрипт
Code:
sub main()
   var mx, my, mz, i, j
   mx = UO.GetX("self")
   my = UO.GetY("self")
   mz = UO.GetZ("self")
   Repeat
   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 out a fish!") and not UO.InJournal("You put ")
            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 (100)
               if UO.InJournal("You pull") then
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (200)
end if
            wend
         wend
         UO.DeleteJournal()
      next
   next
Until (1 == 0)
   end sub

Author:  Pummy [ 2004-04-11 12:51:03 ]
Post subject: 

Попробуй убрать цикл:
Repeat
.
.
.
Until(1 == 0)

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/