Yoko

Sub AntiMacro()
  var x = -1, y = -1, z = -1, value, msg = 'Сколько будет'
  While true
    If UO.InJournal(msg) then
      Wait(500)
      x = Compare()
      y = Compare()
      z = Compare()
      If x > -1 and y > -1 and z > -1 then
        DelJournal(msg)
        UO.Print(str(x) + ' + ' + str(y) + ' + ' + str(z) +  ' = ' + str(x + y + z))
        UO.Say(str(x + y + z))
       else
        UO.Print('Ошибка в считывании журнала')
        UO.Print(str(x) + ' + ' + str(y) + ' + ' + str(z) +  ' = ' + str(x + y + z))
      Endif
     else
      Wait(100)
    Endif
  Wend
Endsub
          
Sub Compare()
  var a
  Dim Num[10]
    Num[0] = 'Нол'
    Num[1] = 'Оди'
    Num[2] = 'Дв'
    Num[3] = 'Тр'
    Num[4] = 'Четы'
    Num[5] = 'Пят'
    Num[6] = 'Шест'
    Num[7] = 'Сем'
    Num[8] = 'Восе'
    Num[9] = 'Девя'
  For a = 0 to 9
    If UO.InJournal(Num[a]) and UO.JournalSerial(UO.InJournal(Num[a]) - 1) == UO.GetSerial('self') then
      UO.SetJournalLine(UO.InJournal(Num[a]) - 1, '')
      Return a
     else
      Wait(10)
    Endif
  Next
  Return -1
Endsub

Sub DelJournal(msg)
  While UO.InJournal(msg)
    UO.SetJournalLine(UO.InJournal(msg) - 1, ' ')
  Wend
Endsub