sub OneClick()

   var GumpID = 0
   var ButtonID = 0
   var ButtonText
   var i = 12
   
   if uo.LastGump('text', 4) <> "0" then
      i = 13
   end if
   GumpID = val(Mid(uo.LastGump('command', i), 16, 4))
   ButtonID = 4+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

_____infogump_______
serial   0x0000a5b2
gumpid   0x000000b3
X   0
Y   0
781   packet size
0   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] AGE 
    2] umppic 187 358 222
    3] umppic 225 362 222
    4] umppic 187 346 222
    5] umppic 242 346 222
    6] utton 160 295 2227 2227 1 1 
    7] utton 340 295 2231 2231 1 1 
    8] esizepic 140 290 5170 240 24
    9] ext 195 292 152 
   10] ext 170 315 0 
   11] utton 317 427 2228 2228 1 1 
   12] utton 205 431 2225 2225 1 1 1
   13] utton 240 423 2226 2226 1 1 
   14] utton 275 427 2227 2227 1 1 
   15] utton 248 468 2230 2230 1 1 
   16] utton 328 481 2232 2232 1 1 
   17] utton 197 475 2229 2229 1 1 
   18] utton 288 478 2231 2231 1 1 
   19] umppic 202 353 222
   20] umppic 231 347 223
   21] ext 170 373 0 
   22] ext 170 385 0 
   23] ext 280 385 0 
Text: ____________
    0] Antimacros System
    1] Choose this protection code
    2] ----------------------
    3] Entering code:
    4] 0

DIM mass[3]

mass[0]='0x0F51'
mass[1]='0x0F51'
mass[2]='0x0F51'