Sub moveitem()
uo.print('!!Что будем передвигать?!! ')
uo.exec('addobject Item')
while uo.targeting()
wait(100)
wend 

uo.print('!!Откуда?!! ')
uo.exec('addobject Bag1')
while uo.targeting()
wait(100)
wend 

uo.print('!!И куда?!! ')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend 

Repeat
uo.findtype('Item',-1,'Bag1')
If uo.findcount() then
uo.moveitem('finditem','All','Bag2')
wait(1000)
until uo.findcount()==0
end if
end sub

Sub moveitem()

var n

uo.print('!!Откуда?!! ')
uo.exec('addobject Bag1')
while uo.targeting()
wait(100)
wend

uo.print('!!И куда?!! ')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend

Dim Loot[19]
Loot[1] = ' ' # лайт
Loot[2] = ' ' # фс
Loot[3] = ' ' # гха
Loot[4] = ' ' # рефлекты
Loot[5] = ' ' # парализы
Loot[6] = ' ' # филды
Loot[7] = ' ' # парализфилды
Loot[8] = ' ' # NS
Loot[9] = ' ' # BP
Loot[10] = ' ' # SS
Loot[11] = ' ' # SA
Loot[12] = ' ' # Gi
Loot[13] = ' ' # BM
Loot[14] = ' ' # Ga
Loot[15] = ' ' # MR
Loot[16] = ' ' # инвиски
Loot[17] = ' ' # рефрешки
Loot[18] = ' ' # тоталки
Loot[19] = ' ' # гхшки

for n=1 to 15

uo.findtype(Loot[n],-1,'Bag1')
If uo.findcount() then
uo.moveitem('finditem','100','Bag2')
wait(1000)
end if
next

for n=16 to 19

uo.findtype(Loot[n],-1,'Bag1')
if uo.findcount() then
uo.moveitem('finditem','50','Bag2')
wait(1000)
end if
next
end sub