Yoko

Code: Select all

var fruit='0x09D1' ##Тип еды, которой кормим животное 
var food= '0x097B' ##Тип того что сами будем кушать 
var Timer=UO.Timer() 
var Animal, Staff 

sub AnimalTaming() 
#¤Leo¤# 
UO.Msg('All release') 

UO.Print('Выбери Животину...') 
UO.Exec('addobject Animal') 
   while uo.Targeting() 
      wait(100) 
   wend 

UO.Print('Выбери Палку...') 
UO.Exec('addobject Staff') 
   while uo.Targeting() 
      wait(100) 
   wend 

UO.DeleteJournal() 
while not UO.InJournal('It seems') or not UO.InJournal('see the creature') 
   UO.DeleteJournal() 
   UO.WaitTargetObject('Animal')  
   UO.UseObject('Staff') 
      repeat 
         wait(100) 
      until UO.InJournal('fail') or UO.InJournal('It seems') or UO.InJournal('see the creature') 
   if UO.Timer()>(Timer+1200) then 
      UO.SetReceivingContainer('Animal') 
         wait(500) 
      UO.FindType(fruit) 
         if UO.GetQuantity('finditem')>0 then 
            UO.Grab('5','finditem') 
               wait(500) 
         end if 
      UO.UnSetReceivingContainer('Animal') 
         wait(500) 
      UO.UseType(food) 
      Timer=UO.Timer() 
   end if 
UO.Msg('All release') 
wend 
end sub