Ultima Online Antares

Sub lootTROLI()
  
   DIM R[7]
   VAR nozh = '0x13F6'
   VAR body     = '0x2006';   труп (не разделанный)
   VAR a, corpse
  
   R[1] = '0x1869'  # энч
   R[2] = '0x1087'  # СЕРЬГИ
   R[3] = '0x0F3F'  # стрелы
   R[4] = '0x1078'  # шкура животных
   R[5] = '0x1010'  # КЛЮЧ
   R[6] = '0x0EED'  # золото
   R[7] = '0x0F21'  #
  
   UO.Set('finddistance','2')
   UO.FindType(body,'-1','ground')
   if UO.FindCount() > 0 then
      uo.useobject('finditem')
      wait(200)
      corpse = uo.getSerial("finditem")
      uo.waittargetobject(corpse)
      uo.usetype(nozh)
      wait(600)
      uo.warmode(1)
   else
      UO.Exec('terminate all')
   end if
   for a=1 to 7
      uo.findtype(R[a],"-1",corpse)
      if UO.FindCount()>0 then
         wait(200)
         UO.Grab("0","finditem")  
         wait(650)
      end if
   next
   UO.Ignore(corpse)  
end sub