гы

[TarantuL]

Вот такая беда, умножение, сложение,вычитание,деление))) , появляется после 10 юзов керки\топора)) Что скажите ?:))))
Имеет ктонить возможность помочь? Буду несказанно рад!!!

[Grin]

Сами... примеров куча...

[TarantuL]

Гг
ОК)

Если не трудно, покажите с арифметикой примеры, буду сам разбираться далее...

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] (В противном случае вас выкинет из игры)

[Grin]

8.0 / 2.0 = <- вот он

[TarantuL]

да это гампинфо моё. а вот вы говорите куча примеров, я нашел тока где рандомно цыферки нада выбирать, ане считать, как у нас

[KTO nyKHyJI???]

Грин , плиз удели этому минутку
на тебя все надежды (

[Grin]

аж челых 2 антимакроса есть (верней один, только во втором варианте были добавлены умножение и деление)

В чем сложность? берем из текста выделяем цфры, определяем что за опперация и в перед...

[TarantuL]

как ни пытался найти этот вариант - тщетно

[Grin]

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