Yoko

Code: Select all

_____infogump_______
serial   0x00079931
gumpid   0x000000b3
X   0
Y   0
781   packet size
0   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] AGE 
    2] umppic 260 361 222
    3] umppic 293 351 222
    4] umppic 261 348 222
    5] umppic 293 355 223
    6] utton 220 295 2230 2230 1 1 
    7] utton 400 295 2231 2231 1 1 
    8] esizepic 200 290 5170 240 24
    9] ext 255 292 152 
   10] ext 230 315 0 
   11] utton 377 444 2228 2228 1 1 
   12] utton 251 420 2225 2225 1 1 1
   13] utton 301 434 2226 2226 1 1 
   14] utton 345 424 2227 2227 1 1 
   15] utton 285 480 2230 2230 1 1 
   16] utton 376 479 2232 2232 1 1 
   17] utton 245 477 2229 2229 1 1 
   18] utton 340 463 2231 2231 1 1 
   19] umppic 264 348 223
   20] umppic 302 341 223
   21] ext 230 373 0 
   22] ext 230 385 0 
   23] ext 340 385 0 
Text: ____________
    0] Antimacros System
    1] Choose this protection code
    2] ----------------------
    3] Entering code:
    4] 0

Code: Select all

sub AntiMacros()
  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

Code: Select all

_____infogump_______
serial   0x00079931
gumpid   0x000000b3
X   0
Y   0
781   packet size
23   reply packet size
Buttons: ________
 page 0
    1 [    1] image=0x08B4 at 180:325
    2 [    2] image=0x08B8 at 360:325
    3 [    9] image=0x08B4 at 347:464
    4 [   10] image=0x08B1 at 211:465
    5 [    3] image=0x08B2 at 261:463
    6 [    4] image=0x08B3 at 289:465
    7 [    5] image=0x08B6 at 246:509
    8 [    6] image=0x08B8 at 347:497
    9 [    7] image=0x08B5 at 215:508
   10 [    8] image=0x08B7 at 290:507
Checks&Radios: __
Entryes: ________
All commands: ____
    1] PAGE 0
    2] gumppic 212 391 2229
    3] gumppic 246 392 2226
    4] gumppic 222 381 2230
    5] gumppic 262 388 2226
    6] button 180 325 2228 2228 1 1 1
    7] button 360 325 2232 2232 1 1 2
    8] resizepic 160 320 5170 240 240
    9] text 215 322 152 0
   10] text 190 345 0 1
   11] button 347 464 2228 2228 1 1 9
   12] button 211 465 2225 2225 1 1 10
   13] button 261 463 2226 2226 1 1 3
   14] button 289 465 2227 2227 1 1 4
   15] button 246 509 2230 2230 1 1 5
   16] button 347 497 2232 2232 1 1 6
   17] button 215 508 2229 2229 1 1 7
   18] button 290 507 2231 2231 1 1 8
   19] gumppic 217 375 2228
   20] gumppic 264 376 2232
   21] text 190 403 0 2
   22] text 190 415 0 3
   23] text 300 415 0 4
Text: ____________
    0] Antimacros System
    1] Choose this protection code
    2] ----------------------
    3] Entering code:
    4] 4
Reply: ___________
 [0006] primary reply
 Checks&Radios (0)
 Entryes (0)

Code: Select all

sub main()
   dim button[10]
   button[1] = 10
   button[2] = 3
   button[3] = 4
   button[4] = 9
   button[5] = 7
   button[6] = 5
   button[7] = 8
   button[8] = 6
   
   var b0 = Val(Mid(uo.lastgump("button",0),21,1))
   var b1 = Val(Mid(uo.lastgump("button",1),21,1))
   uo.waitgump(button[b1])
   uo.sendgumpselect(button[b0])
end sub