Yoko

Posted: **2006-08-25 00:49:47**

Если увас есть желание, и если уменя будет свободное врем, то свашей же помощью можно переделать антимакрос под новый вариант (смешно было у видить, что цифры были сдвинуты по высоте, роли это не играет, главное предкновение это шрифт).
Что требуется...
постить сюда ЦЕЛИКОВЫЙ infogump снятый после того как вы правельно ввели антимакрокод и нажали на кнопку. Интересуют инфо гампы в котором содержится хотябы 1 цифра из списка: 0 (если вообще встречается), 4, 6. Остальные цифры есть;)

Posted: **2006-08-25 12:54:24**

Grin wrote:Если увас есть желание, и если уменя будет свободное врем, то свашей же помощью можно переделать антимакрос под новый вариант (смешно было у видить, что цифры были сдвинуты по высоте, роли это не играет, главное предкновение это шрифт).
Что требуется...
постить сюда ЦЕЛИКОВЫЙ infogump снятый после того как вы правельно ввели антимакрокод. Интересуют инфо гампы в котором содержится хотябы 1 цифра из списка: 0 (если вообще встречается), 1, 4, 6, 8. Остальные цифры есть;)

у меня он работал норм всегда, траблы небыли, там кажысь только один гамп макро неумеит правильно подсчитать но следующий раз все норм.

я работаю к другому- вот он, только он наверно покачто только для меня, вот скелет- недоработаный...

Code: Select all

sub Alert()
UO.TextClear()
UO.DeleteJournal()
while true and not uo.dead()
If UO.JournalSerial()<>'0x00000000' && UO.JournalSerial()<>'0xFFFFFFFF' && UO.JournalSerial()<>'0x4013129C' && UO.JournalSerial()<>'0x001312A8' && UO.JournalSerial()<>'0x4009AECB' then
UO.PlayWAV('D:\games\ultima online old paradise\inject\alert2.wav')
UO.TextPrint(UO.JournalSerial())
UO.DeleteJournal()
end if
wait(200)
wend
end sub

по журналу работать невозможно, так как майнинг у меня этого непозволяет...

Posted: **2006-08-25 14:06:44**

я пока даже не смотрел изменилась ли матрица тех цифр чт оуменя уже есть... когда все будут тогда и посмотрим;)
Поповоду проверки пожурналу...
Нуты не делай делейт журнал то...
Делай обыкновеный через setjournalline
нестрашно же правда;) + тут уже готовые скрипты были от Деста и еще ктото выкладывал...

Posted: **2006-08-25 17:40:15**

Code: Select all

_____infogump_______
serial   0x00075bd0
gumpid   0x000003ee
X   278
Y   144
3033   packet size
0   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] oclose
    2] omove
    3] esizepic 0 0 3500 210 16
    4] ext 28 15 48 
    5] esizepic 55 63 83 100 3
    6] ilepic 57 34 382
    7] ilepic 58 34 382
    8] ilepic 59 34 382
    9] ilepic 60 34 382
   10] ilepic 56 35 382
   11] ilepic 57 35 382
   12] ilepic 60 35 382
   13] ilepic 61 35 382
   14] ilepic 56 36 382
   15] ilepic 57 36 382
   16] ilepic 60 36 382
   17] ilepic 61 36 382
   18] ilepic 56 37 382
   19] ilepic 57 37 382
   20] ilepic 60 37 382
   21] ilepic 61 37 382
   22] ilepic 57 38 382
   23] ilepic 58 38 382
   24] ilepic 59 38 382
   25] ilepic 60 38 382
   26] ilepic 56 39 382
   27] ilepic 57 39 382
   28] ilepic 60 39 382
   29] ilepic 61 39 382
   30] ilepic 56 40 382
   31] ilepic 57 40 382
   32] ilepic 60 40 382
   33] ilepic 61 40 382
   34] ilepic 56 41 382
   35] ilepic 57 41 382
   36] ilepic 60 41 382
   37] ilepic 61 41 382
   38] ilepic 56 42 382
   39] ilepic 57 42 382
   40] ilepic 60 42 382
   41] ilepic 61 42 382
   42] ilepic 57 43 382
   43] ilepic 58 43 382
   44] ilepic 59 43 382
   45] ilepic 60 43 382
   46] ilepic 89 42 382
   47] ilepic 90 42 382
   48] ilepic 88 43 382
   49] ilepic 89 43 382
   50] ilepic 90 43 382
   51] ilepic 87 44 382
   52] ilepic 88 44 382
   53] ilepic 89 44 382
   54] ilepic 90 44 382
   55] ilepic 87 45 382
   56] ilepic 89 45 382
   57] ilepic 90 45 382
   58] ilepic 89 46 382
   59] ilepic 90 46 382
   60] ilepic 89 47 382
   61] ilepic 90 47 382
   62] ilepic 89 48 382
   63] ilepic 90 48 382
   64] ilepic 89 49 382
   65] ilepic 90 49 382
   66] ilepic 89 50 382
   67] ilepic 90 50 382
   68] ilepic 89 51 382
   69] ilepic 90 51 382
   70] ilepic 99 42 382
   71] ilepic 100 42 382
   72] ilepic 101 42 382
   73] ilepic 102 42 382
   74] ilepic 98 43 382
   75] ilepic 99 43 382
   76] ilepic 102 43 382
   77] ilepic 103 43 382
   78] ilepic 98 44 382
   79] ilepic 99 44 382
   80] ilepic 102 44 382
   81] ilepic 103 44 382
   82] ilepic 98 45 382
   83] ilepic 99 45 382
   84] ilepic 102 45 382
   85] ilepic 103 45 382
   86] ilepic 99 46 382
   87] ilepic 100 46 382
   88] ilepic 101 46 382
   89] ilepic 102 46 382
   90] ilepic 98 47 382
   91] ilepic 99 47 382
   92] ilepic 102 47 382
   93] ilepic 103 47 382
   94] ilepic 98 48 382
   95] ilepic 99 48 382
   96] ilepic 102 48 382
   97] ilepic 103 48 382
   98] ilepic 98 49 382
   99] ilepic 99 49 382
  100] ilepic 102 49 382
  101] ilepic 103 49 382
  102] ilepic 98 50 382
  103] ilepic 99 50 382
  104] ilepic 102 50 382
  105] ilepic 103 50 382
  106] ilepic 99 51 382
  107] ilepic 100 51 382
  108] ilepic 101 51 382
  109] ilepic 102 51 382
  110] ilepic 111 42 382
  111] ilepic 112 42 382
  112] ilepic 113 42 382
  113] ilepic 114 42 382
  114] ilepic 110 43 382
  115] ilepic 111 43 382
  116] ilepic 114 43 382
  117] ilepic 115 43 382
  118] ilepic 114 44 382
  119] ilepic 115 44 382
  120] ilepic 114 45 382
  121] ilepic 115 45 382
  122] ilepic 112 46 382
  123] ilepic 113 46 382
  124] ilepic 114 46 382
  125] ilepic 114 47 382
  126] ilepic 115 47 382
  127] ilepic 114 48 382
  128] ilepic 115 48 382
  129] ilepic 114 49 382
  130] ilepic 115 49 382
  131] ilepic 110 50 382
  132] ilepic 111 50 382
  133] ilepic 114 50 382
  134] ilepic 115 50 382
  135] ilepic 111 51 382
  136] ilepic 112 51 382
  137] ilepic 113 51 382
  138] ilepic 114 51 382
  139] extentry 75 69 145 32 998 1 
  140] utton 77 108 4005 4006 1 0 
  141] utton 103 108 4005 4006 1 0 
  142] esizepic 77 108 5120 57 2
  143] ext 87 108 1067 
Text: ____________
    0] enter anti macro code:
    1]  
    2] enter

[/code]

Posted: **2006-08-25 21:51:55**

По-моему, Grin имел ввиду, что гамп надо сначало отправить, а потом смотреть infogump - тогда появляется еще один раздел - Reply.

Тогда и скрины не нужны.

Posted: **2006-08-28 11:06:51**

4
78] ilepic 96 42 382
79] ilepic 97 42 382
80] ilepic 96 43 382
81] ilepic 97 43 382
82] ilepic 95 44 382
83] ilepic 96 44 382
84] ilepic 97 44 382
85] ilepic 95 45 382
86] ilepic 96 45 382
87] ilepic 97 45 382
88] ilepic 94 46 382
89] ilepic 96 46 382
90] ilepic 97 46 382
91] ilepic 94 47 382
92] ilepic 96 47 382
93] ilepic 97 47 382
94] ilepic 93 48 382
95] ilepic 96 48 382
96] ilepic 97 48 382
97] ilepic 93 49 382
98] ilepic 94 49 382
99] ilepic 95 49 382
100] ilepic 96 49 382
101] ilepic 97 49 382
102] ilepic 98 49 382
103] ilepic 96 50 382
104] ilepic 97 50 382
105] ilepic 96 51 382
106] ilepic 97 51 382

6
70] ilepic 89 34 382
71] ilepic 90 34 382
72] ilepic 91 34 382
73] ilepic 88 35 382
74] ilepic 91 35 382
75] ilepic 92 35 382
76] ilepic 87 36 382
77] ilepic 88 36 382
78] ilepic 87 37 382
79] ilepic 88 37 382
80] ilepic 87 38 382
81] ilepic 88 38 382
82] ilepic 89 38 382
83] ilepic 90 38 382
84] ilepic 91 38 382
85] ilepic 87 39 382
86] ilepic 88 39 382
87] ilepic 91 39 382
88] ilepic 92 39 382
89] ilepic 87 40 382
90] ilepic 88 40 382
91] ilepic 91 40 382
92] ilepic 92 40 382
93] ilepic 87 41 382
94] ilepic 88 41 382
95] ilepic 91 41 382
96] ilepic 92 41 382
97] ilepic 87 42 382
98] ilepic 88 42 382
99] ilepic 91 42 382
100] ilepic 92 42 382
101] ilepic 88 43 382
102] ilepic 89 43 382
103] ilepic 90 43 382
104] ilepic 91 43 382

0
не когда не было

[/b]

Posted: **2006-08-28 11:08:55**

4
78] ilepic 96 42 382
79] ilepic 97 42 382
80] ilepic 96 43 382
81] ilepic 97 43 382
82] ilepic 95 44 382
83] ilepic 96 44 382
84] ilepic 97 44 382
85] ilepic 95 45 382
86] ilepic 96 45 382
87] ilepic 97 45 382
88] ilepic 94 46 382
89] ilepic 96 46 382
90] ilepic 97 46 382
91] ilepic 94 47 382
92] ilepic 96 47 382
93] ilepic 97 47 382
94] ilepic 93 48 382
95] ilepic 96 48 382
96] ilepic 97 48 382
97] ilepic 93 49 382
98] ilepic 94 49 382
99] ilepic 95 49 382
100] ilepic 96 49 382
101] ilepic 97 49 382
102] ilepic 98 49 382
103] ilepic 96 50 382
104] ilepic 97 50 382
105] ilepic 96 51 382
106] ilepic 97 51 382

6
70] ilepic 89 34 382
71] ilepic 90 34 382
72] ilepic 91 34 382
73] ilepic 88 35 382
74] ilepic 91 35 382
75] ilepic 92 35 382
76] ilepic 87 36 382
77] ilepic 88 36 382
78] ilepic 87 37 382
79] ilepic 88 37 382
80] ilepic 87 38 382
81] ilepic 88 38 382
82] ilepic 89 38 382
83] ilepic 90 38 382
84] ilepic 91 38 382
85] ilepic 87 39 382
86] ilepic 88 39 382
87] ilepic 91 39 382
88] ilepic 92 39 382
89] ilepic 87 40 382
90] ilepic 88 40 382
91] ilepic 91 40 382
92] ilepic 92 40 382
93] ilepic 87 41 382
94] ilepic 88 41 382
95] ilepic 91 41 382
96] ilepic 92 41 382
97] ilepic 87 42 382
98] ilepic 88 42 382
99] ilepic 91 42 382
100] ilepic 92 42 382
101] ilepic 88 43 382
102] ilepic 89 43 382
103] ilepic 90 43 382
104] ilepic 91 43 382

0
не когда не было
[/b]

Posted: **2006-08-28 11:31:49**

можеш запостить старый алгоритм проверки по матрице

Posted: **2006-08-28 11:35:58**

Алгоритм был упрощен. На самомом деле получив все цифпы и достаточно было сравнить только в 1 точке для 100% идентификации.
Что бы не тратить время на выделение 1 цифры мы прыгали сразуже к предпологаемой точке и так дажее;) Вроде ничего сложного...
И на сколько я виу ты сам уже смог логически выделить цифры изгампа.

Posted: **2006-08-28 12:18:18**

Шрифт ни на паксель не был изменен;)
А что анти макрос реально не работает?;)
М\помойму так все пучком болжно бвть... сейчас копнем...

Posted: **2006-10-10 19:37:02**

узрить можно твое творение ?

Posted: **2006-10-12 18:05:29**

Code: Select all

sub GetXY(str,arnum)
   arnum[0]=val(mid(str, 7, 3))
   arnum[1]=val(mid(str, 10, 3))
end sub

sub decode()
   var temp='',i=0
   var pos=0
   var line=5
   var sX=0, sY=0
   var code=''
   var finding = 1
   var CurrX=0
   var CurrY=0
   var NumSum
   
   dim tempXY[2]
   dim Num[9]
   
   Num[0]=6
   Num[1]=35
   Num[2]=45
   Num[3]=-24
   Num[4]=34
   Num[5]=-5
   Num[6]=26
   Num[7]=4
   Num[8]=-6
   
   Repeat
      temp=uo.LastGump('command',line)
      GetXY(temp, tempXY)
      if pos >= 17 then
         if pos == 17 then
            NumSum=(CurrX-sX)*10+(CurrY-sY)
            finding = 1
            i=0
            while finding  
               if NumSum == num[i] then
                  code=code+str(i+1)
                  finding = 0
               end if
               i=i+1
            wend
         end if
         if tempXY[0]-CurrX > 5 then
            pos=0
         end if
      end if
      if not pos then
         sX=tempXY[0]
         sY=tempXY[1]
         pos=15
         line=line+15
      end if
      CurrX=tempXY[0]
      CurrY=tempXY[1]
      pos=pos+1
      line=line+1
   Until len(code) == 4
   return code
end sub

sub AAmacro()
   while not uo.dead()
      if uo.LastGump('text',0) == 'enter anti macro code:' and uo.LastGump('replyed') == 0 then
         uo.lclick(uo.LastGump('x')+75, uo.LastGump('y')+69)
         wait(300)
         uo.say(decode())
         wait(300)
         uo.lclick(uo.LastGump('x')+77, uo.LastGump('y')+108)
      end if
      wait(1000)
   wend
end sub

держи

Posted: **2006-10-12 18:06:58**

Не авторизировался;)

Posted: **2006-10-14 21:29:14**

Провеирил циферки сходятся , нолика в антимакро гампе нету ?
на перле не писал его же ?

Posted: **2006-10-14 21:33:38**

Ты чё на ОЛДП играешь?
ЖестЬ!
Кстате от этого дебугера сейчас толку мало... Там новая система-Канслер летает и задаёт вопросы если не отвечаешь на них то следовательно ты на макросе-Джайл или стоун. Зы я замутил скрипт но так и не испробовал его.Да и нужны доработки на которых времени не очень да и самому леняво в это кувыряться.

Posted: **2006-10-14 23:10:31**

JacК тоже там )
лумба уже 70 3мя чарами рублю .

Posted: **2006-10-14 23:32:05**

Ладно тогда у меня вопрос если пишеш в инвизе(.invis(гм команда)) это заноситься в Journal? И можно ли както по "invis Messages" выделить и поставить на них условие? Просто Иногда Журнал глючит и неотображает Ник того кто пишет...
Крч как мне на этого канслера поставить условие ?
If UO.InJournal("WuBrothers|"отличительная черта invis Messages"then
pobazarit()
Del(так еще вопрос существует ли что то вроде deletlastmsg)
Вот тогда то Антимакро и будет работать на все 100%

Posted: **2006-10-15 00:39:12**

ну лей нету. и на перле он написан;)
Поповоду сообщений... все сообщения кросе системыных и скилов
фиксируются коректно;)
отловить сообщение ерунда по сравнению с грамотным ответом на вопрос;))

Posted: **2006-10-15 01:39:29**

uo.msg("Sorji mnje pora )");
logout

Грин на Перле бы сюда в топик скриптец .

Posted: **2006-10-15 02:24:18**

Code: Select all

sub decode{
my($pos, $line, $sx, $sy, $code, $currx, $curry, $sum);
$line=5;
@num=(6, 35, 45, -24, 34, -5, 26, 4, -6);
   while (length($code)<4){
      @words=split(/ /, uo::lastgump("command",$line), 4);
      uo::print(@words);
      &wait(100);
      if ($pos>=17){
         if ($pos==17){
            $sum=($currx-$sx)*10+($curry-$sy);
            for($i=0; $i<9; $i++){
               if ($numsum==$num[$i]){
                  $code.=$i+1;
                  last;
               }
            }
         }
         if ($words[1]-$currx>5){
            $pos=0;
         }
      }
      if (!$pos){
         $sx=$words[1];
         $sy=$words[2];
         $pos=15;
         $line+=15;
      }
      $currx=$words[1];
      $curry=$words[2];
      $pos++;
      $line++;
   }
   return $code;
}

Не помню только протестил ли я это доконца...
Остальное сам допишешь.

Yoko

OLDP антимакро

OLDP антимакро

Re: OLDP антимакро