Yoko

sub rasklad()
  var arm=' type of armor '
  var pack1=' ID of pack where are full repeared armors '
  var pack2=' ID of pack where are badly damaged armors '
  var sunduk=' ID of pack-where are all arms '
  var msg1=' msg of full repeared arms '
  var msg2=' msg of badly demaged armors '
  var k
  uo.FindType(arm,'-1',sunduk)
  while uo.FindCount()
    uo.FindType(arm,'-1',sunduk)   
    uo.WaitTargetObject('finditem')
    uo.UseSkill('Arms Lore')
    k = 0
    uo.DeleteJournal()
    repeat
      wait(100) 
      k = k + 1
    until uo.InJournal(msg1) or uo.InJournal(msg2) or k(>50)
    if uo.InJournal(msg1) then
      uo.MoveItem('finditem','-1',pack1)
      wait(1000)
    end if
    if uo.InJournal(msg2) then
      uo.MoveItem('finditem','-1',pack2)
      wait(1000)
    end if   
  wend
end sub

sub unload()
  var n
  var pack1=' ID of pack where are full repeared armors '
  var pack2=' ID of pack where are badly damaged armors '
  var sunduk=' ID of pack-where are all arms '
  var msg=' msg of full repeared arms '
Dim arm[7]
arm[1] = '0x1412' #helm
arm[2] = '0x1413' #gorget
arm[3] = '0x1410' #arms
arm[4] = '0x1414' #gauntlets
arm[5] = '0x1415' #platemail
arm[6] = '0x1411' #legs
arm[7] = '0x1B76' #heater

For n=1 To 7
  repeat
    uo.FindType(arm[n],'-1',sunduk)
    if uo.findcount() then
    uo.deletejournal()
    uo.WaitTargetObject('finditem')
    uo.UseSkill('Arms Lore')
    if uo.InJournal(msg) then
      uo.MoveItem('finditem','-1',pack1)
      wait(1000)
      else
      uo.MoveItem('finditem','-1',pack2)
      wait(1000)
     until uo.findcount()==0
      next
    end if   
   end if
end sub

var msg='This item is in full repair'

var msg='full repair|bit worn'