18b
@verb #7412:"getwhere" this none this rxdo #9019
@program #7412:"getwhere" this none this
{OBJ, STR} = args
if (toint(OBJ) < 0)
  `OBJ = player:lookup_room(STR) ! ANY'
endif
if (toint(OBJ) <= 0)
  OBJ = $string_utils:match_player(STR)
  if (is_player(OBJ))
    OBJ = OBJ.location
  endif
endif
return OBJ
"Last modified by Mr.Underhill (#9019) on Thu Dec 27 21:55:37 2001 MST."
.

0