Runebook DRW

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Nelson
Posts: 10
Joined: 2009-02-10 10:18:14

Runebook DRW

Post by Nelson »

Собственно нигде немогу найти нормальный скрипт на рунбуку....

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)

Но мне хотелось бы понять как можно сделать так чтоб летал например по 5 рунке... Потратил часа 4 на форуме в поисках... так и ненашел. Помогите плиз!
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Re: Runebook DRW

Post by Kynep »

Nelson wrote:Но мне хотелось бы понять как можно сделать так чтоб летал например по 5 рунке... Потратил часа 4 на форуме в поисках... так и ненашел. Помогите плиз!


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
 
Nelson
Posts: 10
Joined: 2009-02-10 10:18:14

Post by Nelson »

Большое спасибо ! =)
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:

Post by ADEPT_ABP »

И вроде ещё надо:

Code: Select all

uo.set('norbcheck',1)
uo.set('norbcalc',1)
Играю на drw.ru
Использую инжект 505.18 VeNd0r
Начинающий скриптер.
Post Reply