Page 1 of 1
Разлаживание регов.
Posted: 2007-03-30 01:24:00
by DemO
Есть сундук в сундуке лежат реги, во 2 сундуке куча пустых мешочков нужно чтобы чар брал из 2 сундука пустой мешок из 1 брал по 100 каждого рега и ложил мешок с регами в 1 сундук.
Заранее спасибо.
Posted: 2007-03-30 06:53:21
by 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
Posted: 2007-03-30 13:11:50
by DemO
Спасибо всё работает
Пи.Си. регов 8 видов.