Антимакро

[XSjr]

На шарде X-Cellon установлен антимакрос: сложить три числа дать ответ... Числа пишутся в журнале
Кто может скрипт соорудить? помогите пожалуйста

[ZeroDX]

Code: Select all

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

[XSjr]

Благодарен за помощь!

К сожалению выдает ошибку на эту строку: DelJournal(msg)

Кстати еще вопрос. Как мне его интегрировать в скрипт на мининг?

[ZeroDX]

Code: Select all

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

Просто засунь в конец мининга и запусти

Запустить надо из уо ,exec AntiMacro или сделать из Sub Antimacro() => sub AntiMarco(), Но раз у тебя выдало ошибку, то ты наверное уже запустил

[XSjr]

Скрипт срабатывает, но только когда при первом использовании кирки выскакивает антимакрос, потом капает 20 минут и снова выскакивает антимакрос но чар стоит и нифига не делает. при дабл клике на кирку продолжает копать... т.е. скрипт срабатывает снова, но почему то не без моего вмешательства.

[ZeroDX]

Это уже мининг. Решение - это просто вставить в мининг таймер