@verb #5450:"throw toss give" any at/to this rxo #9988
@program #5450:"throw toss give" any at/to this
dobj = player:my_match_object(dobjstr)
"Copied from Generic Container (#8):put by Slacker (#2) Oct 10 00:34:33 1995"
if (this.location != player && this.location != player.location)
  $msg:mtell("not_here", this)
elseif (dobj == $nothing)
  $msg:mtell("iobj_only", verb, prepstr, iobjstr)
elseif (dobj.location != player)
  $msg:mtell("not_have", dobj)
else
  $msg:mtell(dobj.location == this ? "put" | "put_failed")
endif
.