Помогите с тамингом)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
ychenik
Posts: 82
Joined: 2007-07-01 21:23:58

Помогите с тамингом)

Post by ychenik »

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.Say('All release')
Endif
wend
end sub



собственно скрипт идеальный) только есть одна проблема, на шарде не всегда выдвется сообщение об удачном/неудачном применении скила. Можно ли как то сделать проверку, чтобы если допустим черз 10 секунд нет никакого сообщения чар снова юзал таминг на животину? Хелп плс оч надо)
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Code: Select all

sub Taming() 
var k
var count=0
uo.print('Тотем')
uo.exec('addobject TOT')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
while NOT UO.Dead()
UO.DeleteJournal()
k=0
UO.WaitTargetObject('TOT')
UO.UseSkill('Animal Taming')
repeat
wait(1000)
k=k+1
until UO.InJournal('You fail') OR UO.InJournal('It seems') OR (k>10)
If Uo.InJournal('It seems') Then
UO.Say('All release')
Endif
wend
end sub
ychenik
Posts: 82
Joined: 2007-07-01 21:23:58

Post by ychenik »

огромное спасибо) а не мог бы обьяснить что в скрипте означает строчка к=к+1?
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Code: Select all

repeat 
wait(1000)
k=k+1
until UO.InJournal('You fail') OR UO.InJournal('It seems') OR (k>10)

Смотри в каком случае происходит выход из цикла
Post Reply