Yoko

Code: Select all

############################################################### 
#### Рунбука для шарда 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) 
Dim gumpreturn[9] 
gumpreturn[1]="0x0015" 
gumpreturn[2]="0x0021" 
gumpreturn[3]="0x002E" 
gumpreturn[4]="0x003A" 
gumpreturn[5]="0x0040" 
gumpreturn[6]="0x0049" 
gumpreturn[7]="0x0058" 
gumpreturn[8]="0x005E" 
gumpreturn[9]="0x0401" 
UO.exec('resend') 
UO.UseObject('backpack') 
if rejim==1 then ; Реколимся по рунбуке 
   uo.useobject(idrb) 
   uo.exec("ongump anygump "+gumpreturn[nrune]) 
end if 
if rejim==2 then ; Выдёргиваем рунку из рунбука 
   uo.useobject(idrb) 
   uo.exec("ongump anygump "+uo.int2hex(11+nrune)) 
end if 
if rejim==3 then ;Перезаряжаем рунбуку 
   uo.useobject(idrb) 
   uo.exec("ongump anygump 0x0001") 
end if 
if rejim==4 then ;Засовываем рунку в рунбук 
   uo.waittargetobject(idrune) 
   wait(100) 
   uo.useobject(idrb) 
   uo.exec("ongump anygump 0x000B") 
end if 
end sub

Code: Select all

uo.exec("recall Runebook 21") ;(слот 1)
uo.exec("recall Runebook 94") ;(слот 8)

Code: Select all

UO.Recall(RuneBook, 21) ; - 1 
UO.Recall(RuneBook, 33) ; - 2 
UO.Recall(RuneBook, 46) ; - 3 
UO.Recall(RuneBook, 58) ; - 4 
UO.Recall(RuneBook, 64) ; - 5 
UO.Recall(RuneBook, 73) ; - 6 
UO.Recall(RuneBook, 88) ; - 7 
UO.Recall(RuneBook, 94) ; - 8 
UO.Recall(RuneBook, 1025) ; - 9
 

Code: Select all

uo.set('norbcheck',1)
uo.set('norbcalc',1)