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

Помогите со скриптом на Таминг
http://forum.yoko.com.ua/viewtopic.php?f=17&t=15730		 Page 1 of 1
Author:  Login9000 [ 2010-05-03 21:59:24 ]
Post subject:  Помогите со скриптом на Таминг
Доброго времени суток, уважаемый форум. Я уже потратил немножко времени на изучение языка Yoko (благо Паскали-Бэйсики с первых курсов помню), но тем ни менее толком разобраться что к чему не успел. Волею обстоятельств пришлось писать скрипт на таминг, т.к. на на нашем шарде таминг довольно оригинален: во-первых, он является активным скиллом и юзается непосредственно, а не при помощи Taming staff, как это нередко бывает, во-вторых, любая фраза со словом Release попадает под ворд-фильтр, поэтому для таминга "загнал домой - начал истязать" используется такая система: перс мучает живку, до тех пор, пока не затамит оную. Если живка затамена, то перс говорит All transfer и указывает на живку (передает ее самой себе), после чего процесс повторяется в N итераций. Проблема в том, что скрипт не указывает на живку, когда предлагается указать, кому передается во владение зверье (после команды All transfer). Помогите, скажите, что нет.

Code:
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


Прошу не судить строго и не посылать в далекое плаванье за тупые ошибки (а я уверен, ошибки тупые)
Author:  Buratino [ 2010-05-06 19:50:50 ]
Post subject:  Re: Помогите со скриптом на Таминг
попробуй отпускать животину только если она затамлена и паузу небольшую поставь
Code:
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
Author:  Login9000 [ 2010-05-06 21:58:56 ]
Post subject:  Re: Помогите со скриптом на Таминг
Скрипт работает, но постоянно сбивается в том случае, когда сбивается таргет на животину после слов All transfer. Нельзя ли добавить что-то вроде "если в журнале написано Already tame то сделать All transfer с таргетом на животину"?
Author:  Mirage [ 2010-05-07 10:15:51 ]
Post subject:  Re: Помогите со скриптом на Таминг
Code:
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
Author:  Login9000 [ 2010-05-07 20:35:35 ]
Post subject:  Re: Помогите со скриптом на Таминг
Благодарю.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/