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

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
Shadowdancer
Posts: 96
Joined: 2005-08-25 23:35:29

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

Post by Shadowdancer »

Может кто сможет помочь, короче такая тема :)
Стоит 2 моих чара и поочереди теймят одну хорсу. 1 Затеймил пишет алл релиз и начинает теймить другой :) а тот стоит и ждет пока 2й затеймит и напишет алл релиз
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

if uo.injournal('pervijchar: all release') then
taming()
end if
if uo.injournal('vtorojchar: all release') then
taming()
end if
если ктото будет мешать можно делать проверку на сериал через журнал
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:

Post by AGRS »

Предлагаю добавить в скрипт проверку на очередность, если один из чаров тамит не в свою очередь, второй на него матом орет и лупит посохом по голове. :lol:
Shadowdancer
Posts: 96
Joined: 2005-08-25 23:35:29

Post by Shadowdancer »

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

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 
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

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') #Здесь ник первого перца
Надеюсь понятно обьяснил.
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

Ну если аффтар молчит, значит все работает.... :oops: логично 8)
Shadowdancer
Posts: 96
Joined: 2005-08-25 23:35:29

Post by Shadowdancer »

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

Только пишет что хорса вас вспомнила :(( иза этого у меня на шарде не будет расти тейминг :( Теперь нада найти скрипт что бы зверюшек 50 теймило!
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:

Post by AGRS »

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

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