Yoko

Code: Select all

_____infogump_______ 
serial   0x0000954e 
gumpid   0x000af869 
X   0 
Y   0 
292   packet size 
0   reply packet size 
Buttons: ________ 
 page 0 
    1 [    1] image=0x0993 at 158:416 
Checks&Radios: __ 
Entryes: ________ 
All commands: ____ 
    1] noclose 1 
    2] page 0 
    3] nodispose 1 
    4] resizepic 118 192 5170 250 300 
    5] gumppic 143 227 92 
    6] gumppic 188 228 94 
    7] text 193 233 48 0 
    8] text 148 270 1001 1 
    9] button 158 416 2450 2451 1 0 1 
Text: ____________ 
    0] Macro Check 
    1] Click the 'okay' button: 

Code: Select all

sub antimacro() 
   var x, y 
   repeat 
      if uo.lastgump( 'replyed' ) == 0 and uo.lastgump( 'text', 0 ) == 'Macro Check' then 
         x = explode( uo.lastgump( 'command', 9 ), ' ', 1 )
         y = explode( uo.lastgump( 'command', 9 ), ' ', 2 )
         uo.lclick( x, y ) 
         while uo.lastgump( 'replyed' ) == 0 
            wait( 100 ) 
         wend
      endif 
      wait( 100 ) 
   until false 
endsub

Sub explode( string, pattern, num ) 
   var i, counter = 0, entry = 0 
   for i=0 to strlen( string ) -strlen( pattern ) 
      if mid( string, i, strlen( pattern ) ) == pattern then 
         counter = counter + 1 
         if num == counter-1 then 
            return mid( string, entry, i-entry ) 
         endif 
         entry = i + strlen( pattern ) 
      endif 
   next 
   if entry == 0 then 
      return false 
   endif 
   return mid( string, entry, strlen(string)-entry ) 
endsub