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

Проблема с банковским сундуком.
http://forum.yoko.com.ua/viewtopic.php?f=3&t=10019		 Page 1 of 1
Author:  romandze [ 2006-11-25 18:17:16 ]
Post subject:  Проблема с банковским сундуком.
У меня такая проблема, есть пещера, в ней стоит сундук банковский, как сделать так чтобы он в него скидывал например выкопаную руду, обьясните просто как заставить туда складывать, как выкопать и как подойти к сундуку я знаю, просто нельзя в него бросить методом перетаскивания, нужно обязательно открывать. Подскажите, а?
Author:  omi4 [ 2006-11-25 19:00:11 ]
Post subject: 
поиск знает все...
http://forum.yoko.com.ua/viewtopic.php?p=54294#54294
Author:  slonopotam [ 2006-11-25 19:29:29 ]
Post subject: 
Когда задаешь такие вопросы, нужно как минимум указать как открывается банк, сказав "bank" или дабл кликом?
Author:  romandze [ 2006-11-26 01:49:50 ]
Post subject: 
банк открывается двойным кликом..
Author:  slonopotam [ 2006-11-26 02:09:47 ]
Post subject: 
А что именно непонятно, как открыть банк или как переложить руду?

Открывается банк обычным uo.usetype(type,[color]),

А чтоб переложить, ненужно мудрить, брось в банк какойнибудь контейнер (сундук, мешок). И перекладывай в него. Предварительно создав массив с типами руды.
Code:
Sub DropOre() 
uo.Print('Начинаем разгрузку.') 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var a,Exit 
dim Ruda[1] 
Ruda[0]=0x19B9 
uo.Print('Выкладываем руду.') 
uo.SetReceivingContainer(Sunduk2) 
wait(500) 
for a=0 to 0 
Exit=0 
repeat 
uo.FindType(Ruda[a]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500)
else 
Exit=1 
end if 
until Exit==1 
next 
if SteikFat==1 then 
SteikFat() 
end if 
uo.UnSetReceivingContainer(Sunduk2) 
uo.Print('Руда Выложена.') 
end sub
Author:  romandze [ 2006-11-26 10:21:02 ]
Post subject: 
спасибо
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/