sub kill_bird()
var i
UO.set('finddistance','24')
dim Bird[3]
Bird[1]="0x0005"
Bird[2]="0x0006"
Bird[3]="0x00D0"
For i=1 to 3
UO.FindType(Bird[i],"-1","ground")
   If UO.FindCount() then
      UO.Attack("finditem")
      While UO.GetHP("finditem")>0
         Walker(UO.GetX("finditem"),UO.GetY("finditem"),1)
         Wait(100)
      Wend
   End If
Next
end sub

sub KillIt()
VAR MaxVes = 600
VAR n=1
var animal=0x000D #тип животного
uo.ignorereset()
Repeat
   uo.Set('finddistance', n)
   uo.FindType(animal, -1, 'ground')
   if uo.FindCount() then
      uo.resend()
      n=1                                 ; радиус поиска
      uo.attack('finditem')
      repeat                              ; Повторять
         if uo.GetDistance('finditem') > 2 then            ; если дистанция больше 2
            walker(uo.GetX('finditem'),uo.GetY('finditem'),2)      ; подкрадемся
         else 
            wait(100)
         end if
      until uo.dead() or uo.GetX('finditem')==0               ; пока мы не умерли или цель не перестала существовать.
      wait(100)
      Loot()
   else
      n=n+1
      if n>10 then
         n=1
      endif
   end if
   Loot()
Until uo.Dead() || UO.Weight > MaxVes
hanthome()
end sub