Yoko

;-- Лить Дедли поизоны
sub Alchemy_DPosion()
VAR Reg = '0x0F88'
VAR k
  UO.FindType( Reg )
    While UO.GetQuantity( 'finditem' ) > 17
      UO.DeleteJournal() 
      UO.Waitmenu('What potion', 'deadly poison')
      UO.UseType( Reg )
      k = 0 
       While NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
           Wait(500)
           k = k + 1
       Wend
    Wend
end sub