21a
@verb #51:"get_room" this none this rxdo #60
@program #51:"get_room" this none this
":get_room([player])  => correct room to match in on invocation."
who = {@args, player}[1]
if (who.location != this)
  return who.location
else
  origin = this
  while ((where = player in origin.active) && (valid(origin = origin.original[where]) && origin != this))
    if (!$object_utils:isa(origin, $editor))
      return origin
    endif
  endwhile
  return this
endif
"Last modified by Dax (#789) on Sun Aug 16 19:35:18 1998 EDT."
.

0