Yoko

Tut uzhe davno napisali skript na antimakro dla oldp.
y nas antimakro sistema takaja zhe, no nemnoga proshe. cifri vrode na adnoj liniji.

starij Aantimakro:


a etot katorij mne nuzhen:


vot infogump tago aantimakro katorij mne nuzhen.

 ____infogump_______
serial   0x00009c37
gumpid   0x0000040c
X   260
Y   222
2688   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 38 15 48 
    5] esizepic 65 63 83 80 3
    6] ilepic 65 35 382
    7] ilepic 66 35 382
    8] ilepic 67 35 382
    9] ilepic 68 35 382
   10] ilepic 64 36 382
   11] ilepic 65 36 382
   12] ilepic 68 36 382
   13] ilepic 69 36 382
   14] ilepic 68 37 382
   15] ilepic 69 37 382
   16] ilepic 68 38 382
   17] ilepic 69 38 382
   18] ilepic 67 39 382
   19] ilepic 68 39 382
   20] ilepic 66 40 382
   21] ilepic 67 40 382
   22] ilepic 68 40 382
   23] ilepic 66 41 382
   24] ilepic 67 41 382
   25] ilepic 65 42 382
   26] ilepic 66 42 382
   27] ilepic 64 43 382
   28] ilepic 65 43 382
   29] ilepic 64 44 382
   30] ilepic 65 44 382
   31] ilepic 66 44 382
   32] ilepic 67 44 382
   33] ilepic 68 44 382
   34] ilepic 69 44 382
   35] ilepic 78 36 382
   36] ilepic 79 36 382
   37] ilepic 78 37 382
   38] ilepic 79 37 382
   39] ilepic 77 38 382
   40] ilepic 78 38 382
   41] ilepic 79 38 382
   42] ilepic 77 39 382
   43] ilepic 78 39 382
   44] ilepic 79 39 382
   45] ilepic 76 40 382
   46] ilepic 78 40 382
   47] ilepic 79 40 382
   48] ilepic 76 41 382
   49] ilepic 78 41 382
   50] ilepic 79 41 382
   51] ilepic 75 42 382
   52] ilepic 78 42 382
   53] ilepic 79 42 382
   54] ilepic 75 43 382
   55] ilepic 76 43 382
   56] ilepic 77 43 382
   57] ilepic 78 43 382
   58] ilepic 79 43 382
   59] ilepic 80 43 382
   60] ilepic 78 44 382
   61] ilepic 79 44 382
   62] ilepic 78 45 382
   63] ilepic 79 45 382
   64] ilepic 88 36 382
   65] ilepic 89 36 382
   66] ilepic 90 36 382
   67] ilepic 91 36 382
   68] ilepic 92 36 382
   69] ilepic 93 36 382
   70] ilepic 92 37 382
   71] ilepic 93 37 382
   72] ilepic 91 38 382
   73] ilepic 92 38 382
   74] ilepic 91 39 382
   75] ilepic 92 39 382
   76] ilepic 90 40 382
   77] ilepic 91 40 382
   78] ilepic 90 41 382
   79] ilepic 91 41 382
   80] ilepic 90 42 382
   81] ilepic 91 42 382
   82] ilepic 89 43 382
   83] ilepic 90 43 382
   84] ilepic 89 44 382
   85] ilepic 90 44 382
   86] ilepic 89 45 382
   87] ilepic 90 45 382
   88] ilepic 100 36 382
   89] ilepic 101 36 382
   90] ilepic 102 36 382
   91] ilepic 103 36 382
   92] ilepic 99 37 382
   93] ilepic 100 37 382
   94] ilepic 103 37 382
   95] ilepic 104 37 382
   96] ilepic 99 38 382
   97] ilepic 100 38 382
   98] ilepic 103 38 382
   99] ilepic 104 38 382
  100] ilepic 99 39 382
  101] ilepic 100 39 382
  102] ilepic 103 39 382
  103] ilepic 104 39 382
  104] ilepic 99 40 382
  105] ilepic 100 40 382
  106] ilepic 103 40 382
  107] ilepic 104 40 382
  108] ilepic 100 41 382
  109] ilepic 101 41 382
  110] ilepic 102 41 382
  111] ilepic 103 41 382
  112] ilepic 104 41 382
  113] ilepic 103 42 382
  114] ilepic 104 42 382
  115] ilepic 103 43 382
  116] ilepic 104 43 382
  117] ilepic 99 44 382
  118] ilepic 100 44 382
  119] ilepic 103 44 382
  120] ilepic 100 45 382
  121] ilepic 101 45 382
  122] ilepic 102 45 382
  123] extentry 75 69 145 32 998 1 
  124] utton 77 108 4005 4006 1 0 
  125] utton 103 108 4005 4006 1 0 
  126] esizepic 77 108 5120 57 2
  127] ext 87 108 1067 
Text: ____________
    0] Enter anti macro code
    1]  
    2] enter

vot skript starogo aantimakro, pahodu grin pisal. esli zapuskaju ego shas to skript vobshe nechego nedelaet.

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

if uo.LastGump('text',0) == 'enter anti macro code:' and uo.LastGump('replyed') == 0 then

=>

if uo.LastGump('text',0) == 'Enter anti macro code' and uo.LastGump('replyed') == 0 then

blin nu kak ja eta nezametil:)) eto kak smotri na kartinku i naidi 10 otlichenie. thx