Yoko

Posted: **2005-03-11 14:22:47**

Я играю на шарде где теймить надо без посоха как сисправить этот скрипт подскажите

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

Posted: **2005-03-11 16:23:49**

Code: Select all

#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

Yoko

Как исправить скрипт на тейминг??

Как исправить скрипт на тейминг??