Yoko

Code: Select all

_____infogump_______
serial   0x000b3863
gumpid   0x000000b3
X   0
Y   0
781   packet size
0   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] AGE 
    2] umppic 215 322 223
    3] umppic 266 328 222
    4] umppic 217 315 223
    5] umppic 250 334 222
    6] utton 180 265 2228 2228 1 1 
    7] utton 360 265 2230 2230 1 1 
    8] esizepic 160 260 5170 240 24
    9] ext 215 262 152 
   10] ext 190 285 0 
   11] utton 342 391 2228 2228 1 1 
   12] utton 226 402 2225 2225 1 1 1
   13] utton 247 407 2226 2226 1 1 
   14] utton 300 390 2227 2227 1 1 
   15] utton 262 441 2230 2230 1 1 
   16] utton 340 452 2232 2232 1 1 
   17] utton 210 437 2229 2229 1 1 
   18] utton 293 430 2231 2231 1 1 
   19] umppic 206 319 222
   20] umppic 260 320 223
   21] ext 190 343 0 
   22] ext 190 355 0 
   23] ext 300 355 0 
Text: ____________
    0] Antimacros System
    1] Choose this protection code
    2] ----------------------
    3] Entering code:
    4] 0

Code: Select all

_____infogump_______
serial   0x000b3863
gumpid   0x000000b3
X   0
Y   0
781   packet size
0   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] AGE 
    2] umppic 226 333 222
    3] umppic 255 314 222
    4] umppic 225 331 223
    5] umppic 246 312 222
    6] utton 180 265 2228 2228 1 1 
    7] utton 360 265 2230 2230 1 1 
    8] esizepic 160 260 5170 240 24
    9] ext 215 262 152 
   10] ext 190 285 0 
   11] utton 330 400 2228 2228 1 1 
   12] utton 205 396 2225 2225 1 1 1
   13] utton 259 392 2226 2226 1 1 
   14] utton 295 390 2227 2227 1 1 
   15] utton 257 448 2230 2230 1 1 
   16] utton 338 436 2232 2232 1 1 
   17] utton 216 439 2229 2229 1 1 
   18] utton 287 448 2231 2231 1 1 
   19] umppic 207 317 222
   20] umppic 260 327 223
   21] ext 190 343 0 
   22] ext 190 355 0 
   23] ext 300 355 0 
Text: ____________
    0] Antimacros System
    1] Choose this protection code
    2] ----------------------
    3] Entering code:
    4] 4

Code: Select all

_____infogump_______
serial   0x000b3863
gumpid   0x000000b3
X   0
Y   0
781   packet size
23   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] AGE 
    2] umppic 226 333 222
    3] umppic 255 314 222
    4] umppic 225 331 223
    5] umppic 246 312 222
    6] utton 180 265 2228 2228 1 1 
    7] utton 360 265 2230 2230 1 1 
    8] esizepic 160 260 5170 240 24
    9] ext 215 262 152 
   10] ext 190 285 0 
   11] utton 330 400 2228 2228 1 1 
   12] utton 205 396 2225 2225 1 1 1
   13] utton 259 392 2226 2226 1 1 
   14] utton 295 390 2227 2227 1 1 
   15] utton 257 448 2230 2230 1 1 
   16] utton 338 436 2232 2232 1 1 
   17] utton 216 439 2229 2229 1 1 
   18] utton 287 448 2231 2231 1 1 
   19] umppic 207 317 222
   20] umppic 260 327 223
   21] ext 190 343 0 
   22] ext 190 355 0 
   23] ext 300 355 0 
Text: ____________
    0] Antimacros System
    1] Choose this protection code
    2] ----------------------
    3] Entering code:
    4] 4
Reply: ___________
 [0005] primary reply
 Checks&Radios (0)
 Entryes (0)

Code: Select all

11 2228 4
12 2225 1
13 2226 2
14 2227 3
15 2230 6
16 2232 8
17 2229 5
18 2231 7

Code: Select all

sub OneClick() 

   dim reindex[8]
   reindex[0] = 11
   reindex[1] = 12
   reindex[2] = 13
   reindex[3] = 10
   reindex[4] = 16
   reindex[5] = 14
   reindex[6] = 17
   reindex[7] = 15
   var GumpID = 0 
   var ButtonID = 0 
   var ButtonText 
   var i = 18
    
   if uo.LastGump('text', 4) <> "0" then 
      i = 19 
   end if 
   GumpID = val(Mid(uo.LastGump('command', i), 16, 4)) 
   ButtonID = reindex[GumpID-2225]
   ButtonText = uo.LastGump('command', ButtonID) 
   uo.LClick(Val(Mid(ButtonText, 7, 3)), Val(Mid(ButtonText, 11, 3))) 
   while not uo.LastGump('replyed') 
      wait(100) 
   wend 
    
end sub 

sub AntiMacro() 

   while not uo.Dead() 
      if not uo.LastGump('replyed') then 
         if uo.LastGump('text', 0) == 'Antimacros System' then 
            OneClick() 
         end if 
      endif 
      wait(500) 
   wend 
    
end sub