sub Plav(typ, colr)
var ixx, forg
  forg = "0x400B8C20"
  UO.FindType(typ, colr)
  while UO.FindCount()
    uo.Print("Items = "+STR(UO.FindCount()))
    UO.DeleteJournal()
    UO.WaitTargetObject('finditem')
    UO.UseObject(forg)
    ixx = 0
    while not UO.InJournal("You put") and not UO.InJournal("It is") and ixx<= 15
      wait(200)
      ixx = ixx + 1
    wend
    UO.FindType(typ, colr)
  wend
end sub

sub PlavAll()
  Plav("0x0F51", "0x0000") ; дагеры  
end sub