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

Разлаживание регов.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=11706		 Page 1 of 1
Author:  DemO [ 2007-03-30 01:24:00 ]
Post subject:  Разлаживание регов.
Есть сундук в сундуке лежат реги, во 2 сундуке куча пустых мешочков нужно чтобы чар брал из 2 сундука пустой мешок из 1 брал по 100 каждого рега и ложил мешок с регами в 1 сундук.

Заранее спасибо.
Author:  Question_GimFlex [ 2007-03-30 06:53:21 ]
Post subject: 
Code:
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
Author:  DemO [ 2007-03-30 13:11:50 ]
Post subject: 
Спасибо всё работает

Пи.Си. регов 8 видов.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/