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