Рсклад фулов

[xarek]

Можете написать скрипт, на раскладку фулов, суть скрипта в том:
есть два сундука в Одном лежит разный армор там агапит вирит блудрок и т.д. а в другом Лежат сумочки, и чтобы он из того сундука Где лежит арм перекладывал в другой сундук в разные сумки там агапит к агапиту верит к верут блуд рок к блудроку и т.д.
ЗЫ ПОсик юзал),
ЗЫЫ Заранее спасибо

[$keR]

держи
, если етот не подоидет, то я хз чем помоч..

[xarek]

НЕТУ там ничего, много страниц просматрел, кинь те ссылку Хотяб). что так сложно чтоль, я искал не нашел и решил обратится к вам, а мы меня опять на поиск посылаете:)

[xarek]

что ни кто не подскажет?

[Ururu]

Раскладывай по типу и цвету.
Вот пример. Можно добавить динамичное изменене контейнеров.

Code: Select all

VAR sunduk1 = '0x407917ED'
VAR sunduk2 = '0x40790AFD'
sub looting()
   DIM Items[51]
   Items[1] = '0x09AA' 
   Items[2] = '0x0F26'    
........................................
........................................
   Items[48] = '0x9999' 
   Items[49] = '0x9999'  
   Items[50] = '0x9999'  
VAR i
   For i = 1 To 49
      UO.FindType( Items[ i ], '-1', sunduk1 )
      while uo.findcount()
         UO.MoveItem('finditem','0',sunduk2)
         wait(100)
checklag()
         uo.findtype(Items[i],'-1',sunduk1)
      wend
   Next
endsub
Sub checklag()
uo.DeleteJournal()
repeat
    uo.click('backpack')
    wait(200)
until UO.InJournal("backpack|Backpack")
end sub

[xarek]

Items[48] = '0x9999'
Items[49] = '0x9999'
Items[50] = '0x9999'
VAR i
For i = 1 To 49

а можете обьяснить че это значит,
и можно добавить чтоб не один предмет брал а сесь

[xarek]

а все разбрался:) ток как тип добавить?

[Ururu]

С массивами разбирайся в уроках.
Добавь в массив типы, частей фулов.
Тут:

Code: Select all

UO.FindType( Items[ i ], '-1', sunduk1 )

Вместо '-1' ставь свой цвет арма. И скрипт перекидает все что нужно.

[Nmy]

в виде идеи можно так

Code: Select all

sub rasklad()
var i, color
var sunduk = '0x0000000'

var agapit = '0x0000000'
var mythril = '0x0000000'
var blood = '0x0000000'

Dim color[10]
color[0] = '0x0001' //agapit
color[1] = '0x0002' //mythril
color[2] = '0x0003' //blood rock etc

for i=0 to 10
uo.findtype( -1 , -1 , sunduk )
color=uo.getcolor('finditem')
while uo.findcount()

if color == 0x0001 then
uo.moveitem('finditem', -1 , agapit )
endif
if color == 0x0002 then
uo.moveitem('finditem', -1 , mythril )
endif

if color == 0x0003 then
uo.moveitem('finditem', -1 , blood )
else
uo.ignore('finditem')
uo.findtype( -1 , -1 , sunduk )
wend
next

end sub