Yoko

sub gorget()
   VAR IngName, IngColor

   IngName="Shadow"
   IngColor='0x096B'

   UO.AutoMenu(IngName+' Plate','Platemail Gorget')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

   UO.FindType('0x1BEF',IngColor,'backpack')
   While UO.GetQuantity('finditem')>=10
      UO.DeleteJournal()
      UO.UseObject('finditem')

      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
            wait(500)
      wend
   Wend   
   UO.CancelMenu()
end sub