@verb #5450:"re*move ta*ke g*et pr*end en*leve getverb2" any out of/from inside/from this rdo #7407
@program #5450:"re*move ta*ke g*et pr*end en*leve getverb2" any out of/from inside/from this
"Copied from Generic Container (#8):get by Slacker (#2) Sep 21 00:31:29 1995"
set_task_perms(player)
if ((dobj = this:match_object(dobjstr)) == $nothing)
  $msg:mtell("iobj_only", verb, prepstr, iobjstr)
elseif ($command_utils:object_match_failed(dobj, dobjstr))
elseif (!(dobj in this.contents))
  $msg:mtell("not_contain", iobj, dobj)
elseif (iobj.location != player && iobj.location != player.location)
  $msg:mtell("not_here", iobj)
else
  dobj:moveto(player)
  if (dobj.location == player)
    $msg:mtell("remove")
  else
    dobj:moveto(this.location)
    if (dobj.location == this.location)
      $msg:mtell("remove")
      $msg:mtell("fall_out")
    else
      $msg:mtell("remove_fail")
    endif
  endif
endif
"Last modified by Lao-Tzu (#8084) on Wed Jan 16 06:41:24 2002 MST."
.