Yoko

Code: Select all

sub AnimalToShrink()
var idAnimal = uo.getserial('laststatus')
var cAnimal = uo.getcolor(idAnimal)
var xA,yA,zA,dA
   if uo.count('0x0F0E','0x0388') == 0 then
      uo.print('шринков то и нет :-(')
      return
   end if
   dA = uo.GetDistance(idAnimal)
   xA = uo.GetX(idAnimal)
   yA = uo.GetY(idAnimal)
   zA = uo.GetZ(idAnimal)
   uo.waittargetobject(idAnimal)
   uo.usetype('0x0F0E','0x0388')
   while uo.containerof(idAnimal) == '0xFFFFFFFF'
      wait(100)
   wend
   uo.set('finddistance',str(dA))
   uo.findtype('-1',cAnimal,'ground')
   while uo.findcount() > 0
      if uo.GetX('finditem') == xA and uo.GetZ('finditem') == zA and uo.GetZ('finditem') == zA then
         uo.moveitem('finditem','-1','backpack')
         return
      else
         uo.ignore('finditem')
      end if
   wend
   uo.set('finddistance','14')
end sub