Yoko

Posted: **2005-04-11 20:24:03**

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

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

Posted: **2005-04-11 20:27:51**

Code: Select all

UO.Exec('exec tam_sedlo')

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

Posted: **2005-04-12 13:26:59**

SAMURAI wrote:
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

Yoko

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

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