остановите.....

[Gromiz]

вот скрипт на затам лошадки, когда затамит перс садится на нее..но скрипт не останавливается .....????????????
и тут можно что-то лишнее убрать?

Code: Select all

sub tam_sedlo() 
var count=1
uo.print('Тотем') 
uo.exec('addobject Animal') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
while NOT UO.Dead() 
UO.DeleteJournal() 
UO.WaitTargetObject('Animal') 
UO.UseSkill('Animal Taming') 
CheckLag() 
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') 
If Uo.InJournal('It seems') Then 
UO.Useobject('Animal') 
Endif 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub

[SAMURAI]

Code: Select all

UO.Exec('exec tam_sedlo')

Вставь в нужное место. Если неошибся то так.

[Gromiz]

Code: Select all

UO.Exec('exec tam_sedlo')

Вставь в нужное место. Если неошибся то так.

что-то не получается впихнуть....сделал по другому...

Code: Select all

sub tam_sedlo() 
var Exit=0
uo.exec('addobject Animal') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
while Exit<>1 
UO.DeleteJournal() 
UO.WaitTargetObject('Animal') 
UO.UseSkill('Animal Taming') 
CheckLag() 
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') OR UO.InJournal('You can not see')
If Uo.InJournal('It seems') Then 
wait(2000)
UO.Useobject('Animal') 
CheckLag() 
Endif 
Exit=1 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub