Ultima Online Antares

sub Tailoring()
   var SewKit = '0x0F9D'
   var Cloth = '0x175D'
   repeat
      
      UO.WaittargetType(Cloth)
      uo.usetype(SewKit)
      UO.automenu('Cloth','Tops')
      wait(500)
      uo.automenu('Tops','Robe')
      
      UO.DeleteJournal()
      repeat
         wait(500)
      until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('destroyed')
   until uo.count(Cloth) < 5
end sub