Yoko

Sub tim1() 
VAR AnimalCount=0,i=0,name=0,name2=0
Var MoveDelay=1000 
Var MoveNumber=1    
Var Ep=3 
var Stoplocation
uo.set("finddistance","3")
uo.ignorereset() 
uo.exec('resend') 
wait(200) 

Uo.Exec("addtype Animals") 
while Uo.Targeting() 
wait(100) 
wend
uo.findtype("Animals","-1","ground")
name=uo.getname("finditem") 
;
dim Animals[100] 
while not uo.dead() 
AnimalCount=0 
   for i=0 to 999
      wait(10) 
      uo.findtype("0",'-1',"ground") 
      if uo.findcount()>0 then 
            if uo.getname("finditem")==name and uo.getname("finditem") <> 0 then 
                  Animals[AnimalCount]=uo.getserial("finditem") 
                  AnimalCount=AnimalCount+1 
                  uo.ignore("finditem") 
                  uo.print("OK!"+" "+Animals[AnimalCount-1]) 
               else 
                  uo.ignore("finditem") 
                  wait(10) 
            end if 
         else 
            i=999 
            uo.print("Complete at = "+str(AnimalCount)) 
      end if 
   next 
   uo.print("Search complete!! at "+str(AnimalCount)+" was found!!") 
   UO.print("Reset ignored items...") 
   uo.ignorereset() 
   wait(1000) 
;
   for i=0 to AnimalCount-1 
      uo.addobject("Animal",Animals[i])
      repeat
      uo.Useskill("Peacemaking","Animal")
      wait(11000)
      until uo.injournal('cliloc# 0x03BC')or uo.injournal('cliloc# 0x03B7')
      taming() 
      release()
   next
   wait(200) 
wend 
end sub

DIM Animals[5]
Animals[0]="0x000"--- тут я вставлю типы разных животных.
Animals[1]="0x000"
Animals[2]="0x000"
Animals[3]="0x000"
Animals[4]="0x000"
for i=0 to 4

uo.findtype("Animals[i]","-1","ground") 

Sub tim1() 
VAR AnimalCount=0,i=0,name=0,name2=0 
Var MoveDelay=1000 
Var MoveNumber=1    
Var Ep=3 
var Stoplocation 
uo.set("finddistance","3") 
uo.ignorereset() 
uo.exec('resend') 
wait(200) 
;
DIM Animals[5] 
Animals[0]="0x000"
Animals[1]="0x000" 
Animals[2]="0x000" 
Animals[3]="0x000" 
Animals[4]="0x000" 
while not uo.dead() 
AnimalCount=0 
   for i=0 to 4 
      wait(10) 
      uo.findtype("Animals[i]","-1","ground") 
      name=uo.getname("finditem")
      if uo.findcount()>0 then 
            if uo.getname("finditem")==name and uo.getname("finditem") <> 0 then 
                  Animals[AnimalCount]=uo.getserial("finditem") 
                  AnimalCount=AnimalCount+1 
                  uo.ignore("finditem") 
                  uo.print("OK!"+" "+Animals[AnimalCount-1]) 
               else 
                  uo.ignore("finditem") 
                  wait(10) 
            end if 
         else 
            i=4 
            uo.print("Complete at = "+str(AnimalCount)) 
      end if 
   next 
   uo.print("Search complete!! at "+str(AnimalCount)+" was found!!") 
   UO.print("Reset ignored items...") 
   uo.ignorereset() 
   wait(1000) 
; 
   for i=0 to 4 
      uo.addobject("Animal",Animals[i]) 
      repeat 
      uo.Useskill("Peacemaking","Animal") 
      wait(11000) 
      until uo.injournal('cliloc# 0x03BC')or uo.injournal('cliloc# 0x03B7') 
      taming() 
      release() 
   next 
   wait(200) 
wend

else 
            i=999 <----- а тут тоже надо изменить значение на 4 типа?
            uo.print("Complete at = "+str(AnimalCount)) 
      end if 
   next