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

Подправьте пожалуйста скрипт.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=17323		 Page 1 of 1
Author:  Titan_Wild [ 2013-09-23 11:19:33 ]
Post subject:  Подправьте пожалуйста скрипт.
Скрипт по идеи должен наполнять флягу водой, потом поливать и удобрять, и так по очереди каждое дерево, но при запуске скрипта пишет-

Auto target cancelled
No item found

Где тут ошибка?

Code:
sub bonsay()
   DIM DEREVO[2]   
      DEREVO[0] = '0x4025A750'  
      DEREVO[1] = '0x4016EB3B'  
   VAR poilka   = '0x4003D00E' # Поилка
   VAR Fertile_Dirt = '0x0F81'  # Плодородная грязь.
   VAR Flask        = '0x182A'  # Фляга с водой.
   VAR Flask_empty  = '0x182D'  # Пустая фляга.
   VAR i
   repeat
      for i = 0 to 1  
         UO.FindType(Flask)                
         if UO.FindCount() == 0 then       
            UO.FindType(Flask_empty)   
            if UO.FindCount() > 0 then     
               UO.WaitTargetObject(poilka) 
               UO.UseObject('fainditem')   
             else
               UO.Print("У тебя нет бутылок для воды.")
               UO.Print("Скрипт выключен.")
               return
            endif
            UO.FindType(Flask)
         endif
         UO.FindType(Fertile_Dirt)         
         if UO.FindCount() == 0 then       
            UO.Print("У тебя нет удобрения.")  
            UO.Print("Скрипт выключен.")
            return
         endif
         UO.DeleteJournal()     
         UO.UseObject(DEREVO[i])  
         repeat                
            wait(200)          
         until UO.InJournal("Try to look after your bonsay better") 
         
         if UO.InJournal("Try to look after your bonsay better") then  
            UO.DeleteJournal()
            UO.WaitTargetObject(DEREVO[i])  
            UO.UseType(Flask)               
            repeat                          
               wait(200)
            until UO.InJournal("Your bonsay looks") or UO.InJournal("There is no need to use")
            UO.DeleteJournal()
            UO.WaitTargetObject(DEREVO[i])  
            UO.UseType(Fertile_Dirt)        
            repeat                          
               wait(200)
            until UO.InJournal("Your bonsay looks") or UO.InJournal("There is no need to use")
         endif
   
      next
      
      wait(20000)   
   until UO.Dead()
endsub
Author:  CxC [ 2013-09-23 11:48:54 ]
Post subject:  Re: Подправьте пожалуйста скрипт.
Quote:
UO.UseObject('fainditem')

лишняя буква, как минимум
Author:  Titan_Wild [ 2013-09-23 18:39:00 ]
Post subject:  Re: Подправьте пожалуйста скрипт.
Исправил, пишет-No item found. Никак не хочет наполнять флягу.
Author:  Titan_Wild [ 2013-09-24 21:38:26 ]
Post subject:  Re: Подправьте пожалуйста скрипт.
Разобрался. Все работает.
А как сделать, чтобы скрипт выполнял действия по кругу по очереди, сначала по кругу поливал деревья , а потом, по очереди удобрял ?
Author:  Titan_Wild [ 2013-09-25 01:58:49 ]
Post subject:  Re: Подправьте пожалуйста скрипт.
Все допер, оф топ.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/