Yoko

Posted: **2008-01-28 22:12:38**

Может кто сможет помочь, короче такая тема

Стоит 2 моих чара и поочереди теймят одну хорсу. 1 Затеймил пишет алл релиз и начинает теймить другой

а тот стоит и ждет пока 2й затеймит и напишет алл релиз

Posted: **2008-01-28 22:47:22**

if uo.injournal('pervijchar: all release') then
taming()
end if
if uo.injournal('vtorojchar: all release') then
taming()
end if

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

Posted: **2008-01-29 09:51:45**

Предлагаю добавить в скрипт проверку на очередность, если один из чаров тамит не в свою очередь, второй на него матом орет и лупит посохом по голове. :lol:

Posted: **2008-01-29 16:21:57**

Вот мой макрос как бы правльно это зделать ?

Code: Select all

sub Taming() 
var count=0 
uo.print('?????') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
while NOT UO.Dead() 
UO.DeleteJournal() 
UO.WaitTargetObject('TOT') 
UO.Useskill('Animal Taming')
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') 
If Uo.InJournal('It seems') Then 
UO.msg('All release') 
Endif 
wend 
end sub

Posted: **2008-01-29 16:34:03**

Shadowdancer wrote:Вот мой макрос как бы правльно это зделать ?

Попробуй так:

Code: Select all

sub Taming() 
  var count=0 
  uo.print('?????') 
  uo.exec('addobject TOT') 
  while uo.targeting() 
    wait(100) 
  wend 
  UO.DeleteJournal() 
  while NOT UO.Dead() 
    UO.DeleteJournal() 
    UO.WaitTargetObject('TOT') 
    UO.Useskill('Animal Taming') 
      repeat 
        wait(1000) 
      until UO.InJournal('You fail') OR UO.InJournal('It seems') 
    If Uo.InJournal('It seems') Then  
      UO.msg('All release') 
      UO.Say('Vasya Ready') #Вместо Vasya, поставь ник того кто качает
    Endif 
    UO.DeleteJournal() 
    repeat 
      wait(1000) 
    until UO.InJournal('Vasya2 Ready') #Здесь ник второго перца
  wend 
end sub

Меняешь ники в сообщениях у первого так у второго наоборот, сначала тамишь ПЕРВЫМ, пока не скажет Вася реди, ПОТОМ ЗАПУСКАЕШЬ СКРИПТ у второго и смотришь что получается, в принципе должно работать. Пробуй. На всякий случай пример для второго:

Code: Select all

If Uo.InJournal('It seems') Then  
      UO.msg('All release') 
      UO.Say('Vasya2 Ready') #Вместо Vasya2, поставь ник второго
    Endif 
    UO.DeleteJournal() 
    repeat 
      wait(1000) 
    until UO.InJournal('Vasya Ready') #Здесь ник первого перца

Надеюсь понятно обьяснил.

Posted: **2008-01-30 09:03:34**

Ну если аффтар молчит, значит все работает.... :oops:

логично

Posted: **2008-02-06 10:03:59**

Все класно, спасибо!

Только пишет что хорса вас вспомнила

( иза этого у меня на шарде не будет расти тейминг

Теперь нада найти скрипт что бы зверюшек 50 теймило!

Posted: **2008-02-06 10:21:55**

Придется писать скрипт, который бы шлялся по лесу и тамил всякую животину. Помнится я писал такой, только животина убивалась, а не тамилась.

Сделай поиск по форуму с ключем "asmGetTrace", примеры использования были тут точно. Как напишешь, выкладывай. Мы заценим.

Yoko

Тейминг на 2 чара

Тейминг на 2 чара