Yoko
http://forum.yoko.com.ua/

Антимакро
http://forum.yoko.com.ua/viewtopic.php?f=20&t=16752		 Page 1 of 1
Author:  XSjr [ 2011-09-06 16:57:45 ]
Post subject:  Антимакро
На шарде X-Cellon установлен антимакрос: сложить три числа дать ответ... Числа пишутся в журнале
Кто может скрипт соорудить? помогите пожалуйста
Author:  ZeroDX [ 2011-09-06 22:24:59 ]
Post subject:  Re: Антимакро
Code:
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
Author:  XSjr [ 2011-09-07 11:45:04 ]
Post subject:  Re: Антимакро
Благодарен за помощь!

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

Кстати еще вопрос. Как мне его интегрировать в скрипт на мининг?
Author:  ZeroDX [ 2011-09-07 12:04:04 ]
Post subject:  Re: Антимакро
Code:
Sub DelJournal(msg)
  While UO.InJournal(msg)
    UO.SetJournalLine(UO.InJournal(msg) - 1, ' ')
  Wend
Endsub


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

Запустить надо из уо ,exec AntiMacro или сделать из Sub Antimacro() => sub AntiMarco(), Но раз у тебя выдало ошибку, то ты наверное уже запустил
Author:  XSjr [ 2011-09-07 15:15:19 ]
Post subject:  Re: Антимакро
Скрипт срабатывает, но только когда при первом использовании кирки выскакивает антимакрос, потом капает 20 минут и снова выскакивает антимакрос но чар стоит и нифига не делает. при дабл клике на кирку продолжает копать... т.е. скрипт срабатывает снова, но почему то не без моего вмешательства.
Author:  ZeroDX [ 2011-09-07 19:41:42 ]
Post subject:  Re: Антимакро
Это уже мининг. Решение - это просто вставить в мининг таймер
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/