OnGump command - autochoice buttons/checks/text in gumps

Variant1a (repeat exact choice in exact gump):
   ,ongump repeat

Variant1b (repeat exact choice in any gump):
   ,ongump superrepeat

Variant2 (general form):
   ,ongump GUMP [CHOICE]
GUMP: identifyes gump, variants:
   <serial>|anyserial <gumpid>|anygump      example: anyserial 0x00112233
   anygump
   lastgump
   lastpos
   pos <x> <y>
   withtext 'text_part_to_seek'    example: withtext 'Blacksmith'
   withcommand 'command_part_to_seek'   example: withcommand 'tilepic 60 295 5181'
CHOICE: identifyes choice you make pressing buttons.
Consist of 3 parts:
1) (serial of) button you press to close gump e.g. 'Ok' (default is first button happend)
   <button_serial>           example: 315
   (button_number            example: (2
   [image_serial             example: [0x01
   lastbutton
2) (serials of) checks and radios enabled on moment of pressing 1)
   checks <ID1> <ID2> ...    example: checks 315 316 0x0102
   checks (num1 (num2 ...    example: checks (1 (3 (8
   lastchecks
   nochecks
3) (texts) what entered in textentry(es) (the same amount as in gump)
   entryes 'txt1' 'txt2' ... example: entryes 'macrocheck'
   lastentryes
   noentryes
So CHOICE have syntax:
   [1) [2)] [3)]]
Examples:
,ongump repeat
,ongump any 0x00001234 (1
,ongump withtext 'Blacksmith' 315 nochecks entryes '10'
,ongump anygump [0x0123 checks (1 316 entryes '10'

Команда OnGump - автоматический выбор кнопки/галки/текста в гампах 

Вариант 1а (повтор конкретного выбора в конкретном гампе - [i]думаю речь идет о последнем выборе в последнем гампе[/i]): 
   ,ongump repeat 

Вариант 1b (повтор конкретного выбора в любом гампе): 
   ,ongump superrepeat 

Вариант 2 (основная форма): 
   ,ongump GUMP [CHOICE] 
GUMP: идентификатор гампа, возможны следующие варианты: 
   <serial>|anyserial <gumpid>|anygump      Например: anyserial 0x00112233 
   anygump 
   lastgump 
   lastpos 
   pos <x> <y> 
   withtext 'text_part_to_seek'    Например: withtext 'Blacksmith' 
   withcommand 'command_part_to_seek'   example: withcommand 'tilepic 60 295 5181' 
CHOICE: идентификатор выбора для нажатия кнопок. 
Состоит из 3 частей: 
1) (сериал) кнопки, которую вы нажимаете для закрытия гампа, то есть 'Ok' (обычно это первая кнопка) 
   <button_serial>           Например: 315 
   (button_number            Например: (2 
   [image_serial             Например: [0x01 
   lastbutton 
2) (сериал) выбора (чекбокс или радио), доступного в момент нажатия 1) 
   checks <ID1> <ID2> ...    Например: checks 315 316 0x0102 
   checks (num1 (num2 ...    Например: checks (1 (3 (8 
   lastchecks 
   nochecks 
3) (текст) который надо ввести в текстовое поле(я) (такое же количество, сколько в гампе) 
   entryes 'txt1' 'txt2' ... Например: entryes 'macrocheck' 
   lastentryes 
   noentryes 
Итак, CHOICE имеет синтаксис: 
   [1) [2)] [3)]] 
Например: 
,ongump repeat 
,ongump any 0x00001234 (1 
,ongump withtext 'Blacksmith' 315 nochecks entryes '10' 
,ongump anygump [0x0123 checks (1 316 entryes '10'

###############################################################
#### Рунбука для шарда DRW с использованием команды ONGUMP ####
############################################################### 
####                   Crafted by Askaneli                 #### 
###############################################################
####     Необходима Injection.dll не ниже версии 505.16    ####
###############################################################
####           Передаваемы параметры в процедуру           ####
###############################################################
####  idrb - ИД рунбуки                                    ####
####  rejim - режим работы процедуры (1-4)                 ####
####       1 - рекол по рунбуке по рунке номер nrune       ####
####       2 - достать рунку nrune из рунбуки              ####
####       3 - перезарядить рунбуку                        ####
####       4 - вставить в рунбуку рунку с ИД idrune        ####
###############################################################
sub Runebook(idrb,rejim,nrune,idrune)
var gumpreturn
if rejim==1 then ; Реколимся по рунбуке
   if nrune==1 then
      gumpreturn="0x0015"
   end if
   if nrune==2 then
      gumpreturn="0x0021"
   end if
   if nrune==3 then
      gumpreturn="0x002E"
   end if
   if nrune==4 then
      gumpreturn="0x003A"
   end if
   if nrune==5 then
      gumpreturn="0x0040"
   end if
   if nrune==6 then
      gumpreturn="0x0049"
   end if
   if nrune==7 then
      gumpreturn="0x0058"
   end if
   if nrune==8 then
      gumpreturn="0x005E"
   end if
   if nrune==9 then
      gumpreturn="0x0401"
   end if
   uo.exec("ongump anygump "+gumpreturn)
   uo.useobject(idrb)
end if
if rejim==2 then ; Выдёргиваем рунку из рунбука (исправлено by Sfagnum)
   uo.exec("ongump anygump "+STR(nrune+11))
   ; или uo.exec("ongump anygump "+Int2Hex(nrune+11))
   ; отрабатывает одинаково и в INT и в DEX формате что даже радует.
   uo.useobject(idrb)
end if
if rejim==3 then ;Перезаряжаем рунбуку
   uo.exec("ongump anygump 0x0001")
   uo.useobject(idrb)
end if
if rejim==4 then ;Засовываем рунку в рунбук
   uo.waittargetobject(idrune)
   wait(100)
   uo.exec("ongump anygump 0x000B")
   uo.useobject(idrb)
end if
end sub

sub test()
UO.Recall('0x4001AA8A','1')
UO.OnGump('0x4001AA8A','0x00000009','16')
end sub