Yoko

Code: Select all

uo.LastGump("text", 9)

Code: Select all

sub an()
  var text
  while 1
    if uo.LastGump('text',11) == 'Ответ' and uo.LastGump('replyed') == 0  and (not uo.getglobal("code_text") == uo.LastGump('text',9)) then
   #if uo.LastGump('text',11) == 'Ответ' and uo.LastGump('replyed') == 0  then
   #if not uo.LastGump('text',9) == '0' then
   uo.print(uo.LastGump('text',9))
   #uo.print(uo.LastGump('text',1))
     #uo.print(text)
     antimacros(uo.LastGump('text',9))
     wait(1000)
   end if
  wait(1)
  wend
end sub

sub antimacros(text)
#Adм1R 2008 ForeVeR 
var st,i=1,n,slovo
var slog_12=1
var summa

var slog1 = 0
var slog2 = 0
var mnogitel

var znak_num=2
Dim znak[3]
znak[0]="Умножить"
znak[1]="Сложить"
znak[2]="Отнять"

var chis_num=90
dim chis[91]
chis[0]="Ноль"
chis[1]="Один"
chis[2]="Два"
chis[3]="Три"
chis[4]="Четыре"
chis[5]="Пять"
chis[6]="Шесть"
chis[7]="Семь"
chis[8]="Восемь"
chis[9]="Девять"
chis[10]="Десять"
chis[11]="Одиннадцать"
chis[12]="Двенадцать"
chis[13]="Тринадцать"
chis[14]="Четырнадцать"
chis[15]="Пятнадцать"
chis[16]="Шестнадцать"
chis[17]="Семнадцать"
chis[18]="Восемнадцать"
chis[19]="Девятнадцать"
chis[20]="Двадцать"
chis[30]="Тридцать"
chis[40]="Сорок"
chis[50]="Пятьдесят"
chis[60]="Шестьдесят"
chis[70]="Семьдесят"
chis[80]="Восемьдесят"
chis[90]="Девяносто"

uo.print(text)
uo.print(uo.lastgump('text',9))
##st=uo.lastgump('text',9)
st=text
#if uo.LastGump('text',11) == 'Ответ' and uo.LastGump('replyed') == 0 and (not uo.getglobal("code_text") == st) then
  uo.setglobal("code_text",st)
  st=mid( st, 0,len(st)-2)
  slovo = getword(st,i)
  while (not slovo == "")
    for n=0 to chis_num
      if slovo == chis[n] then
       if slog_12 == 1 then
         slog1=slog1+n
       else
         slog2=slog2+n
       end if
     end if
    next
    for n=0 to znak_num
      if slovo == znak[n] then
       slog_12=2
       mnogitel=znak[n]
     end if
    next
    i=i+1
    slovo = getword(st,i)
    wait(10)
  wend
  If mnogitel == znak[0] then
    summa = slog1 * slog2
  end if
  If mnogitel == znak[1] then
    summa = slog1 + slog2
  end if
  If mnogitel == znak[2] then
    summa = slog1 - slog2
  end if
  uo.print(str(slog1)+" "+mnogitel+" "+str(slog2)+" = "+str(summa))
  uo.lclick(128,108)
  wait(100)
  uo.Say( Chr( 8 ) )
  wait(300)
   uo.lclick(128,108)
   wait(300)
  uo.sayu(summa)
  wait(100)
  uo.lclick(107,162)
#end if  
end sub

Sub GetWord( st, nom )
    ; (c) Edred
    ; Возвращает слово из строки str за номером num
    ; если такого слова нет - возвращаем ''
    ;
    ; Разделителем слов считаем пробел. Несколько пробелов подряд считаются за один.
    ; Функция сделана без рекурсии специально для считывания слов из сверхдлинных строк!
    ;
    VAR tmpst, i, dlin, kol = 0, start = 0
    dlin = len( st )
    For i=0 To dlin - 1
        If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
            kol = kol + 1
            If kol == nom Then
                ; это первый пробел после нужного нам слова
                tmpst = mid( st, start, i - start )
                return tmpst
            Else
                While mid( st, i, 1 ) == ' '
                    i = i + 1
                Wend
                If kol == nom - 1 Then
                    start = i
                Endif
            Endif
        Endif
    Next
    tmpst = ''
    return tmpst
endsub

Code: Select all

07:21:47.828 Server -> Client: 0xB0 (SendGump), frequ: 1, len: 0x3C9
0000: B0 C9 03 40 1D 19 F1 28 1C 10 70 00 00 00 00 00 ->...@...(..p.....
0010: 00 00 00 01 3A 7B 74 65 78 74 20 35 33 20 36 33 ->....:{text 53 63
0020: 20 35 34 20 30 7D 7B 74 65 78 74 20 35 33 20 36 -> 54 0}{text 53 6
0030: 33 20 35 34 20 31 7D 7B 74 65 78 74 20 35 33 20 ->3 54 1}{text 53 

Code: Select all

07:21:47.828 Server -> Client: 0xB0 (SendGump), frequ: 2, len: 0x3C3
0000: B0 C3 03 40 1D 19 F1 12 6F B0 40 00 00 03 E8 00 ->...@....o.@.....
0010: 00 03 E8 01 38 7B 72 65 73 69 7A 65 70 69 63 20 ->....8{resizepic 
0020: 30 20 30 20 33 36 30 30 20 34 37 30 20 32 32 30 ->0 0 3600 470 220
0030: 7D 7B 74 65 78 74 20 33 30 20 32 30 20 37 33 20 ->}{text 30 20 73 
0040: 30 7D 7B 74 65 78 74 20 35 33 20 36 33 20 35 34 ->0}{text 53 63 54

Code: Select all

07:21:47.828 Server -> Client: 0xBF (NewCommand::CloseGump), frequ: 1, len: 0x0D
0000: BF 0D 00 00 04 12 6F B0 40 00 00 00 00          ->......o.@....

07:21:47.844 Client -> Server: 0xB1 (GumpReply), frequ: 1, len: 0x1D
0000: B1 00 1D 40 1D 19 F1 12 6F B0 40 00 00 00 00 00 ->...@....o.@.....
0010: 00 00 00 00 00 00 01 00 00 00 01 00 30          ->............0