Работа с регами

[Vovilon]

1) нужен скрипт чтоб перекладывал определенное количество всех регов из одного мешка в другой (под ДРВ)!

2) и еще вопрос: почему при использовании команды massmove на 13 предмете появляется сообщение об ошибке и клиент закрывается?

Заранее спасибо

[Scripts Writer]

иногда на дрв летаю-скупаю все реги сразу с бланками, написал себе вот такое-попробуй:

Code: Select all

sub GetOffRegs() 
   VAR i=0
   VAR sunduk3='0x403E7D7E'   ; сундук с регами
   DIM Regs[8] 
   Regs[0]='0x0F7A'      ; Black Pearl 
   Regs[1]='0x0F7B'      ; Bood Moss 
   Regs[2]='0x0F86'      ; Mandrake Root 
   Regs[3]='0x0F84'      ; garlic 
   Regs[4]='0x0F85'      ; Ginseng 
   Regs[5]='0x0F88'      ; Night Shade 
   Regs[6]='0x0F8C'      ; Sulphorous Ash 
   Regs[7]='0x0F8D'      ; Spiders Silk 
     for i = 0 to 7   
       UO.FindType(Regs[i],'-1','backpack') 
         UO.MoveItem( 'finditem', '1000' , sunduk3) 
         wait( 1000 ) 
     next
endsub

sub GetOnRegs()
   VAR i=0
   VAR sunduk3='0x403E7D7E'   ; сундук с регами
   DIM Regs[8] 
   Regs[0]='0x0F7A'      ; Black Pearl 
   Regs[1]='0x0F7B'      ; Bood Moss 
   Regs[2]='0x0F86'      ; Mandrake Root 
   Regs[3]='0x0F84'      ; garlic 
   Regs[4]='0x0F85'      ; Ginseng 
   Regs[5]='0x0F88'      ; Night Shade 
   Regs[6]='0x0F8C'      ; Sulphorous Ash 
   Regs[7]='0x0F8D'      ; Spiders Silk 
     for i = 0 to 7   
       UO.FindType(Regs[i],'-1',sunduk3) 
         UO.MoveItem( 'finditem', '30' , 'backpack') 
         wait( 1000 ) 
     next
endsub

Geton- берёт по 30шт каждова
Getoff- выкладывает 1000 каждово в тот же мешок(сундук)