Помогите со скриптом на Таминг

[Login9000]

Доброго времени суток, уважаемый форум. Я уже потратил немножко времени на изучение языка Yoko (благо Паскали-Бэйсики с первых курсов помню), но тем ни менее толком разобраться что к чему не успел. Волею обстоятельств пришлось писать скрипт на таминг, т.к. на на нашем шарде таминг довольно оригинален: во-первых, он является активным скиллом и юзается непосредственно, а не при помощи Taming staff, как это нередко бывает, во-вторых, любая фраза со словом Release попадает под ворд-фильтр, поэтому для таминга "загнал домой - начал истязать" используется такая система: перс мучает живку, до тех пор, пока не затамит оную. Если живка затамена, то перс говорит All transfer и указывает на живку (передает ее самой себе), после чего процесс повторяется в N итераций. Проблема в том, что скрипт не указывает на живку, когда предлагается указать, кому передается во владение зверье (после команды All transfer). Помогите, скажите, что нет.

Code: Select all

sub main() 
uo.exec('addobject tam') 
while uo.targeting() 
wait(300) 
wend 
wait(1000) 
while NOT UO.Dead() 
UO.DeleteJournal() 
UO.WaitTargetObject('tam') 
UO.Say('all transfer')
UO.WaitTargetObject('tam') 
UO.Useskill('Animal Taming')   
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('The') 
wend 
endsub

Прошу не судить строго и не посылать в далекое плаванье за тупые ошибки (а я уверен, ошибки тупые)

[Buratino]

попробуй отпускать животину только если она затамлена и паузу небольшую поставь

Code: Select all

sub main() 
uo.exec('addobject tam') 
while uo.targeting() 
wait(300) 
wend 
wait(1000) 
while NOT UO.Dead() 
UO.DeleteJournal() 


UO.WaitTargetObject('tam') 
UO.Useskill('Animal Taming')   
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('The') 
If UO.InJournal('The') Then
  UO.WaitTargetObject('tam') 
  UO.Say('all transfer')
  Wait (500)
EndIf
wend 
endsub

[Login9000]

Скрипт работает, но постоянно сбивается в том случае, когда сбивается таргет на животину после слов All transfer. Нельзя ли добавить что-то вроде "если в журнале написано Already tame то сделать All transfer с таргетом на животину"?

[Mirage]

Code: Select all

sub AnimalTaming()
UO.Print('Где эта скотина?')
UO.Exec('addobject Animal')
  while uo.Targeting()
     wait(100)
  wend

UO.DeleteJournal()
while not UO.InJournal('It seems|see the creature|already|rememb')
  UO.DeleteJournal()
  UO.WaitTargetObject('Animal')  
  UO.Useskill('Animal Taming')
     repeat
        wait(100)
     until UO.InJournal('fail|It seems|already|rememb')
        wait(500)
If Uo.InJournal('It seems|already') Then
  UO.WaitTargetObject('Animal')
  UO.Say('all transfer')
  Wait (500)
Endif 
wend
end sub

[Login9000]

Благодарю.