Yoko
http://forum.yoko.com.ua/

остановите.....
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3662		 Page 1 of 1
Author:  Gromiz [ 2005-04-11 20:24:03 ]
Post subject:  остановите.....
вот скрипт на затам лошадки, когда затамит перс садится на нее..но скрипт не останавливается .....????????????
и тут можно что-то лишнее убрать?
Code:
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
Author:  SAMURAI [ 2005-04-11 20:27:51 ]
Post subject: 
Code:
UO.Exec('exec tam_sedlo')

Вставь в нужное место. Если неошибся то так.
Author:  Gromiz [ 2005-04-12 13:26:59 ]
Post subject: 
SAMURAI wrote:
Code:
UO.Exec('exec tam_sedlo')

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


что-то не получается впихнуть....сделал по другому...
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/