Ultima Online Antares

sub Looting()
   if UO.FindType(0x2006, -1, 'ground', 2, -1, -1) <> '' then
      UO.UseObject('finditem')
      if not UO.WaitingForJournalText(Now(), 500, "You can't") && UO.Count(0x13F6) > 0 then
         UO.WaitTargetObject('finditem')
         uo.WarMode(0)
         UO.UseType(0x13F6)
         uo.WarMode(1)
         Wait(500)
      end if
      while UO.FindType(-1, -1, 'lastcontainer') <> ''
         if UO.GetDistance('lastcontainer') > 2 || UO.Dead() then
            return True
         end if
         UO.MoveItem('finditem', -1, '0x409FF753')
         Wait(350)
      wend
      
      UO.Hide('lastcontainer')
      UO.Forget('lastcontainer')
      
      return True
   end if
   return False
end sub