Ultima Online Antares

sub DAiL_Alchim()
   DIM Req[8]
   Req[1] = '0x0F7B'; Blood moss
   Req[2] = '0x0F8C'; Sulphorous Ash
   Req[3] = '0x0F8D'; Spider silk
   Req[4] = '0x0F86'; Mandrake root
   Req[5] = '0x0F88'; Nightshade
   Req[6] = '0x0F84'; Garlic
   Req[7] = '0x0F7A'; Black pearl
   Req[8] = '0x0F85'; Ginseng
   var Mortar = '0x0E9B'; mortar
   VAR n = 8; меняй это значение, в зависимости какой рег использовать
   repeat
      UO.WaittargetType(Req[n])
      uo.usetype(Mortar)
      UO.WaitMenu('What sort of potion do you want','Lesser')   ;  Lesser  Greater
      UO.DeleteJournal()
      repeat
         wait(500)
      until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('target')
   until uo.count(Req[n]) < 3
end sub