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.
Code:
____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.
Code:
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