Yoko

Code: Select all

_____infogump_______
serial   0x0001e92d
gumpid   0x00000531
X   382
Y   25
193   packet size
23   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] OCLOSE
    2] OMOVE
    3] ext 255 128 152 
    4] utton 188 173 2472 2473 1 0 
    5] ext 219 165 455 
Text: ____________
    0] AFK Timer
    1] Click here if you'r not afk!
Reply: ___________
 [0001] primary reply
 Checks&Radios (0)
 Entryes (0)

Code: Select all

sub AFK()
   while true AND NOT UO.Dead()
      if uo.LastGump('replyed') == 0 then 
         uo.lclick(0,0)
      endif
      wait(1000)
   wend
end sub

Code: Select all

Sub decode()
var temp='',i=0
var pos=0
var line=5
var sX=0, sY=0
var code=''
var finding = 1
var CurrX=0
var CurrY=0
var NumSum
dim tempXY[2]
dim Num[9]
Num[0]=6
Num[1]=35
Num[2]=45
Num[3]=-24
Num[4]=34
Num[5]=-5
Num[6]=26
Num[7]=4
Num[8]=-6
   Repeat
      temp=uo.LastGump('command',line)
      GetXY(temp, tempXY)
      if pos >= 17 then
         if pos == 17 then
            NumSum=(CurrX-sX)*10+(CurrY-sY)
            finding = 1
            i=0
            while finding 
               if NumSum == num[i] then
                  code=code+str(i+1)
                  finding = 0
               end if
               i=i+1
            wend
         end if
         if tempXY[0]-CurrX > 5 then
            pos=0
         end if
      end if
      if not pos then
         sX=tempXY[0]
         sY=tempXY[1]
         pos=15
         line=line+15
      end if
      CurrX=tempXY[0]
      CurrY=tempXY[1]
      pos=pos+1
      line=line+1
   Until len(code) == 4
   return code
end sub