sub MoveALotOfItems()
  var idSundukWithBags='0x410E510C'
  var tBag='0x0E76'
  var idNpc='0x003EBFDD'
  var idTmpBag
  var movedelay=750
  var i

  Dim tItem[2]
  tItem[0]='0x1EFF'
  tItem[1]='0x1F03'

  uo.UseObject(idSundukWithBags)
  wait(1000)
  uo.FindType(tBag,'-1',idSundukWithBags)
  if uo.FindCount() then
    idTmpBag=uo.GetSerial('finditem')
    uo.UseObject(idTmpBag)
    wait(1000)
    for i = 0 to 1
      uo.FindType(tItem[i],'-1',idTmpBag)
      repeat
        uo.MoveItem('finditem','all',idNpc)
        wait(movedelay)
        uo.FindType(tItem[i],'-1',idTmpBag)
      until uo.FindCount() == 0  
    next
  else
    uo.Print('There are not any Bags with Items.')
  endif  
end sub