sub trash()
  var obj1 = uoPromptObject("Object_Of_Type_To_Trash"),obj2 = uoPromptObject("Trash")
  var type = uo.getgraphic(obj1)
  var cont = uo.containerof(obj1)
  uo.findtype(type,"-1",cont)
  while uo.findcount()
    uo.moveitem("finditem")
    while uo.containerof("finditem") == cont
      wait(400)
    wend
    uo.findtype(type)
    while uo.findcount()
      uo.waittargettype(type)
      uo.useobject(obj2)
        wait(600)
      uo.findtype(type)      
    wend
    uo.findtype(type,"-1",cont)
  wend
end sub

sub uoPromptObject(s)
  var needserial = 1
  while needserial
    uo.exec("addobject " + s)
    while uo.targeting()
      wait(50)
    wend
    if uo.getserial(s) <> "0x00000000" then
      needserial = 0
    endif
  wend
  return uo.getserial(s)
end sub