@verb #987:"_move_obj" any at/to any rxdo #987
@program #987:"_move_obj" any at/to any
"Morphs me in and out of rooms."
{dobj, iobjstr} = args
if (caller != this)
  raise(E_PERM)
elseif (this != dobj)
  return pass(@args)
elseif (!valid(iobj))
  return player:tell("That is not a valid location.")
endif
this.location:sub_announce_all("%N morphs into %1.", this:slither(this.location))
this:_move(this, iobj)
this.location:sub_announce_all("%1 morphs into %n.", this:slither(this.location))
if (this.location != iobj)
  $msg:mtell("arrive_quack", iobj)
endif
"Last modified by Odo (#987) on Sun Oct  4 16:35:39 1998 EDT."
.