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

Как исправить скрипт на тейминг??
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3356		 Page 1 of 1
Author:  DremWoker [ 2005-03-11 14:22:47 ]
Post subject:  Как исправить скрипт на тейминг??
Я играю на шарде где теймить надо без посоха как сисправить этот скрипт подскажите


sub main()
var animal = "animal", staff="staff"
var ixx = 0 , t = 1
uo.addobject(animal)
wait(5000)

uo.addobject(staff)
wait(5000)

while not uo.dead()
uo.useobject(staff)
uo.waittargetobject(animal)
uo.deletejournal()
ixx = 0
t = 1
while ixx <= 200 and t == 1
if uo.injournal("You fail to tame the creature.") then
t = 0
end if
if uo.injournal("It seems to accept you as master.") or uo.injournal("animal is already tame.") then
uo.print("here")
uo.say("animal release")
t = 0
end if
ixx = ixx + 1
wait(500)
wend
wend

end sub
Author:  Gromiz [ 2005-03-11 16:23:49 ]
Post subject: 
Code:
#1-Если переменную mod=1 изменить на mod=0, то когда чар затамит 
# животину(ездовую), то он сядет на нее и скрипт закончится. 
#Если оставить mod=1 он просто стоит и тамит животинку 
##ПЕРЕМЕННЫЕ## 
var mod=1
## 
sub taming() 
uo.exec('addobject Animal') 
while uo.targeting() 
wait(100) 
wend 
wait(1000) 
UO.Say('All release') 
wait(2000) 
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') OR UO.InJournal('The Llama remembers') ;при цикличном таминге надо менять имя лошади если она помнит хозяина
If Uo.InJournal('It seems') OR UO.InJournal('The Llama remembers')Then                            ;тут тоже
If mod==0 Then 
UO.Useobject('Animal') 
else 
UO.Say('All release') 
Endif 
Endif 
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/