sub main() 
 var corpse='0x2006' ; objtype для всех трупов, независимо от того, чей труп.
 var waittime=500
 var body,bodypack,i
 DIM Loot[12] 
 Loot[0]=0x0EED 
 Loot[1]=0x13B9 
 Loot[2]=0x1B76 
 Loot[3]=0x1411 
 Loot[4]=0x141A 
 Loot[5]=0x1416 
 Loot[6]=0x1410 
 Loot[7]=0x1417 
 Loot[8]=0x1418 
 Loot[9]=0x1419 
 Loot[10]=0x0E76 
 Loot[11]=0x1413 
 Loot[12]=0x1086 
 uo.set('finddistance','2')
 repeat 
  while uo.countonground(corpse)>0
   uo.findtype(corpse,'-1','ground')
   body=uo.getserial('finditem')
#-----------открываем свой пак
   uo.useobject('backpack')
#-----------ждем открытия своего пака
   repeat
    wait(100)
   until uo.getserial('lastcontainer')==uo.getserial('backpack')
#-----------открываем труп
   uo.useobject(body)
   repeat
    wait(100)
   until uo.getserial('lastcontainer')<>uo.getserial('backpack')
#------------
   bodypack=uo.getserial('lastcontainer')
   For i=0 to 12
    repeat
     UO.FindType(Loot[i],-1,bodypack) 
     if UO.GetQuantity('finditem') then 
      UO.MoveItem('finditem','backpack')
      repeat
       wait(100)
      until uo.containerof('finditem')==uo.getserial('backpack')
      wait(waittime) 
     endif
    until uo.findcount()==0
   next
   uo.ignore(body)
  wend
 until UO.Dead() 
endsub