sub loot()
DIM Nado[3] 
   Nado[0]  = '0x0F7A'   ; свитки улучшения 
   Nado[1]  = '0x0F7B'   ; голда 
   Nado[2]  = '0x0F84'   ; garlic 
var serboby, i,  typ, serpack
UO.Set( 'finddistance', '6' )
   repeat
   uo.findtype('тип трупа дрейка', '-1', '1')
   if uo.findcount()>0 then
      serbody=uo.getserial('finditem')
      for i=0 to 2
         UO.FindType( Nado[i], '-1', 'serbody' )
         if uo.findcount()>0 then
         UO.MoveItem( 'finditem' ) 
                        wait( 500 )
         UO.FindType( Nado[i], '-1', 'Cont' )
         wait(500)
         end if
      next
          UO.Print( 'The loot was finished' )      
   else
      wait(500)
   end if
   until uo.findcount()==0   
end sub