Тейминг на 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