Yoko

Code: Select all

_____infogump_______
serial	0x0020f377
gumpid	0x00000009
X	0
Y	0
1050	packet size
0	reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] oclos
    2] omov
    3] esizepic 0 0 3600 470 20
    4] esizepic 10 10 3000 450 18
    5] esizepic 180 60 3000 110 4
    6] ext 20 15 372 
    7] ext 20 30 372 
    8] ext 190 70 20 
    9] ext 90 110 0 
   10] ext 170 110 0 
   11] ext 250 110 0 
   12] ext 330 110 0 
   13] ext 410 110 0 
   14] ext 60 150 0 
   15] utton 50 110 4005 4006 1 0 
   16] utton 130 110 4005 4006 1 0 
   17] utton 210 110 4005 4006 1 0 
   18] utton 290 110 4005 4006 1 0 
   19] utton 370 110 4005 4006 1 0 
Text: ____________
    0] Пожалуйста выполните данное арифметическое дейвствие 
    1] и нажмите кнопку, соответствующую верному ответу:
    2] 8.0 / 2.0 =
    3] 1.0
    4] 2.0
    5] 3.0
    6] 4.0
    7] 5.0
    8] (В противном случае вас выкинет из игры)

Code: Select all

sub main() 
   var opr = '' 
   var opr1, opr2, i 
   var line = '' 
   line = uo.LastGump('text', 2) 
   line = Left(line, len(line)-2) 
   i = 0 
   repeat 
      if line[i] == ' ' then 
         opr = line[i+1] 
      end if 
      i = i+1 
   until opr 
    
   opr1 = val(left(line, i-1)) 
   opr2 = val(right(line, len(line)-i-2)) 
    
   if opr == '+' then 
      opr1 = opr1+opr2 
   else 
      if opr == '-' then 
         opr1 = opr1-opr2 
      else 
         if opr == '*' then 
            opr1 = opr1*opr2 
         else 
            opr1 = opr1/opr2 
         end if 
      end if 
   end if 
   line = str(opr1, 1) 
   i = 3 
   while uo.LastGump('text', i) <> line 
      i = i+1 
   wend 
   line = uo.LastGump('command', i+11)
   uo.LClick(val(mid(line, 6, 3)), val(mid(line, 9, 3)))
       
end sub