Разлаживание регов.

[DemO]

Есть сундук в сундуке лежат реги, во 2 сундуке куча пустых мешочков нужно чтобы чар брал из 2 сундука пустой мешок из 1 брал по 100 каждого рега и ложил мешок с регами в 1 сундук.

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

[Question_GimFlex]

Code: Select all

sub kykaracha()
var i,p
var sunduk1='00000000'
var sunduk2='00000000'
var meshok='0000'
var n=7 ; сколько типов регов
dim reg[10]
 reg[1]='0000'
 reg[2]='0000'
 ...
 reg[7]='0000'
uo.useobject(sunduk1)
wait(500)
uo.useobject(sunduk2)
wait(500)
while not uo.dead()
 uo.findtype(meshok,'-1',sunduk2)
 p=uo.getserial('finditem')
 uo.moveitem(p,'1','backpack')
 wait(700)
 for i=1 to n
  uo.findtype(reg[i],'-1',sunduk1)
  uo.moveitem('finditem','100',p)
  wait(700)
 next
 uo.moveitem(p,'1',sunduk1)
wend
endsub

[DemO]

Спасибо всё работает

Пи.Си. регов 8 видов.