Yoko

Code: Select all

sub Taming() 
var count=0 
uo.print('Тотем') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
while NOT UO.Dead() 
UO.DeleteJournal() 
UO.WaitTargetObject('TOT') 
UO.UseType('0x13F8') 
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') 
If Uo.InJournal('It seems') Then 
UO.Say('All release') 
Endif 
wend 
end sub

Code: Select all

sub AnimalTaming() 
var Count=0 
uo.Print('Выбери Животное...') 
uo.Exec('addobject Creature') 
while uo.Targeting() 
wait(100) 
wend 
uo.DeleteJournal() 
while not uo.Dead() 
uo.DeleteJournal() 
uo.WaitTargetObject('Creature') 
uo.UseType('0x13F8')
repeat 
wait(1000) 
until uo.InJournal('You fail') or uo.InJournal('It seems') 
if uo.InJournal('It seems') then 
uo.Say('all release') 
GiveEatToCreature()
end if 
wend
end sub 

sub GiveEatToCreature() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var f
dim Food[2] 
Food[0]=0x0994 ## - Грушы.
Food[1]=0x09D0 ## - Яблоки.
uo.Print('Кормим...')
uo.SetReceivingContainer('Creature')
wait(500) 
for f=0 to 1 
uo.FindType(Food[f]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('20','finditem') 
wait(500) 
end if
next 
uo.UnSetReceivingContainer('Creature')
end sub