Yoko

Discussion:______________
viewtopic.php?p=30260#30260
Author or poster:_________
Leo privmsg.php?mode=post&u=3146
Tested on:_______________
Dragon World (v0.55i) http://www.drw.ru
Must work:_______________
Sphere emu
Customization required:____
Yes/Char
Description:______________
Cкрипт тамит животное, если затамил, отпускает и опять тамит. Каждые 2 минуты даёт животному поесть и кушает сам.

Вписываем типы еды.
Запускаем скрипт, выбираем животное, потом таминг стафф.
Yoko comment:___________
none
________________________

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