Менять название ингов и цвет их в строках:
IngName="Shadow"
IngColor='0x096B'
Code:
;==-==-===-==-=-==-===-=--===-=-=-=-===--=-=-=-=-=-=-=-=
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