Ultima Online Antares

Sub LootOne()

  UO.Set('finddistance', '2')
  if UO.GetSerial('~0x2006') == '0xFFFFFFFF' then
    return
  end if
  UO.UseObject('finditem')
  Wait(500)
  if UO.Count('0x0EC2') > 0 then
    UO.WaitTargetObject('finditem')
    UO.UseType('0x0EC2')
    Wait(500)
  end if
  while UO.GetSerial('<-1') <> '0xFFFFFFFF'
    if UO.GetDistance('lastcontainer') > 2 then
      return
    end if
    UO.MoveItem('finditem', '-1', 'LootBox')
    Wait(350)
  wend
  UO.Hide('lastcontainer')
  UO.Ignore('lastcontainer')
  
end sub