sub Item()
   UO.IgnoreReset()
   UO.FindType('-1', '-1', '2')
   while UO.FindCount() <> 0
      UO.DeleteJournal()
      UO.Click('finditem')
      repeat
         wait(50)
      until UO.InJournal("You see: ") == 0
      if UO.InJournal('[Not Identified]') then
         repeat
            UO.DeleteJournal()
            if UO.ContainerOf('finditem') <> '0x400A0B96' then
               UO.MoveItem('finditem')
               wait(100)
            endif
            UO.UseSkill('Item Identification', 'finditem')
            repeat
               wait(50)
            until UO.InJournal("to identify") <> 0
            wait(6000)
         until UO.InJournal("succesfully") <> 0 || UO.InJournal("already") <> 0 || UO.InJournal("destroyed") <> 0
      endif
      UO.Ignore('finditem')
      wait(50)
      UO.FindType('-1', '-1', '2')
   wend
end sub