###############################################################
#### Рунбука для шарда 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
_________________ "Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
Я не уверен что вапще работает ...
Когда то давно в прошлой жизни какой то работало _________________ "Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
