Yoko
http://forum.yoko.com.ua/

Работа с регами
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6979		 Page 1 of 1
Author:  Vovilon [ 2006-03-15 11:07:51 ]
Post subject:  Работа с регами
1) нужен скрипт чтоб перекладывал определенное количество всех регов из одного мешка в другой (под ДРВ)!

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

Заранее спасибо
Author:  Scripts Writer [ 2006-03-15 12:32:55 ]
Post subject: 
иногда на дрв летаю-скупаю все реги сразу с бланками, написал себе вот такое-попробуй:



Code:
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 каждово в тот же мешок(сундук)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/