Теперь уже точно ошибка maxcol , а перед этим ругалось на "Item[0] = '0x1402' ; шапка" Так что я в замешательстве 
MERFY wrote:Не помогло
Code: Select all
sub SortItem()
var AlchBox,TypeP,ColorP,x,y,i,col,j
i=5 ; шаг
x=50 ; координата X первого предмета
y=50 ; координата Y первого предмета
col=0
var maxcol=5
var box1 = '0x012345678' ; откуда перекладываем
var box2 = '0x012345678' ; куда перекладываем
DIM Item[5]
Item[0] = '0x0123' ; шапка
Item[1] = '0x0123' ; шея
Item[2] = '0x0123' ; пузо
Item[3] = '0x0123' ; руки
Item[4] = '0x0123' ; ноги
for j = 0 to 4
repeat
UO.FindType(Item[j],-1,box1)
if UO.findcount()>0 then
UO.MoveItem('finditem','1',box2,x,y,'0')
else
return
end if
wait(500)
x=x+i
col=col+1
Until UO.Count(Item[j],-1,box1)<1 or col>=maxcol
x=50
y=y+i
next
End sub
©MirageCode: Select all
sub SortItem()
var AlchBox,TypeP,ColorP,x,y,i,col,j,maxcol
i=5 ; шаг
x=50 ; координата X первого предмета
y=50 ; координата Y первого предмета
col=0
maxcol=5
var box1 = '0x012345678' ; откуда перекладываем
var box2 = '0x012345678' ; куда перекладываем
DIM Item[5]
Item[0] = '0x0123' ; шапка
Item[1] = '0x0123' ; шея
Item[2] = '0x0123' ; пузо
Item[3] = '0x0123' ; руки
Item[4] = '0x0123' ; ноги
for j = 0 to 4
repeat
UO.FindType(Item[j],-1,box1)
if UO.findcount()>0 then
UO.MoveItem('finditem','1',box2,x,y,'0')
else
return
end if
wait(500)
x=x+i
col=col+1
Until UO.Count(Item[j],-1,box1)<1 or col>=maxcol
x=50
y=y+i
next
End sub