строка PUTLoot2(0x1f19, 0x1f71, '-1', corps, pack,'','','')
переместит ВСЕ свитки из контейнера corps в контейнер pack - даже если их там будет 100500 по 1 разложены.
Code:
sub main()
PUTLoot2(0x1f19, 0x1f71, '-1', corps, pack,'','','') ; scroll 1-8 круг
endsub
Sub PUTLoot2(Type1, Type2, Color, SourceContainer, TargetContainer,X,Y,Z)
for TType = Type1 to Type2
PUTLoot(TType, Color, SourceContainer, TargetContainer,X,Y,Z)
next
end sub
Sub PUTLoot(Type, Color, SourceContainer, TargetContainer,X,Y,Z)
UO.FindType(Type, Color, SourceContainer)
while UO.FindCount()
timemove=UO.Timer()
uo.MoveItem('finditem',0,TargetContainer,X,Y,Z)
repeat
wait(lootwait)
until UO.ContainerOf(itemID)<>'TargetContainer' || timemove+30>UO.Timer()
UO.FindType(Type, Color, SourceContainer)
wend
end sub