Yoko

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') 
end if 
wend 
end sub 

Code: Select all

 Uo.Say('all release')
 wait(300000) TЕсли именно 300 секунд (5 мин)

Code: Select all

#1-Если переменную mod=1 изменить на mod=0, то когда чар затамит 
# животину(ездовую), то он сядет на нее и скрипт закончится. 
#Если оставить mod=1 он просто стоит и тамит животинку  
#2-Введите тип вашего таминг стафа 'tamstaf' в переменных 
## 
#crafted by GimFlex from DRW v 1.01 
##ПЕРЕМЕННЫЕ## 
var mod=1 
var tamstaf='0x13F9' 
## 
sub main() 
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.UseType(tamstaf) 
CheckLag() 
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') 
If Uo.InJournal('It seems') 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

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