@verb #8:"p*ut in*sert d*rop" any in/inside/into this rdo #55
@program #8:"p*ut in*sert d*rop" any in/inside/into this
if (this.location != player && this.location != player.location)
  $msg:mtell("not_here", this)
elseif (dobj == $nothing)
  $msg:mtell("iobj_only", verb, prepstr, iobjstr)
elseif ($command_utils:object_match_failed(dobj, dobjstr))
elseif (dobj.location != player)
  $msg:mtell("not_have", dobj)
elseif (!this.opened)
  $msg:mtell("closed")
else
  dobj:moveto(this)
  $msg:mtell(dobj.location == this ? "put" | "put_failed")
endif
"Last modified by manta (#7165) on Fri Oct 12 13:14:36 2001 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.