Yoko

Code: Select all

_____infogump_______
serial   0x000180a8
gumpid   0x000003fa
X   0
Y   0
446   packet size
0   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] esizepic 123 106 3600 245 28
    2] esizepic 136 120 9270 221 26
    3] ext 215 150 2594 
    4] esizepic 165 243 3000 167 3
    5] ext 178 205 2607 
    6] utton 212 296 12002 12002 1 0 
    7] utton 169 346 2714 2714 1 0 
    8] utton 76 284 82 82 1 0 
    9] ext 193 345 2594 
   10] ext 298 345 2594 
   11] utton 275 346 2714 2714 1 0 
   12] extentry 165 243 156 28 0 1 
Text: ____________
    0] AFK Check
    1] { 0 , 2 , 0 , 1  }
    2] Help
    3] Info
    4] Info

Code: Select all

sub Solve()

   var code = ""
   var line = ""
   var i = 0
   button 3 359
   if not uo.LastGump('replyed') then
      if uo.LastGump('text', 0) == 'AFK Check' then
         uo.LClick(3, val(Right(uo.LastGump('button', 0), 3)))
         repeat
            wait(1000)
         until uo.LastGump('replyed', 0)
         return 1
      else
         if uo.LastGump('text', 0) == 'AFK Check:' then
            line = uo.LastGump('text', 1)
            for i = 0 to int(len(line)/3)-1
               code = code+line[2+i*3]
            next
            uo.Say(code)
            wait(1000)
            line = Right(uo.LastGump('button', 0), 7)
            uo.LClick(val(Left(line, 3)), val(Right(line, 3)))
            repeat
               wait(1000)
            until uo.LastGump('replyed', 0)
            return 2
         end if
      end if
   endif
   
end sub