@verb #2030:"room_ID" this none this rxdo #987
@program #2030:"room_ID" this none this
"Receives a string; returns a room number (as best it can)."
target = args[1]
$object_utils:isa(result = $room_db:find(target), $room) || $object_utils:isa(result = $room_db:find("The " + target), $room) || (result = $room_db:find("A " + target))
if (!$object_utils:isa(result, $room))
  for thing in (player.owned_objects)
    if ($object_utils:isa(thing, $room) && target in thing.aliases)
      return thing
    endif
  endfor
  for room in ($object_utils:descendants_suspended($room))
    $command_utils:suspend_if_needed()
    if (target in room.aliases)
      return room
    endif
  endfor
endif
return result
"Last modified by Dax (#789) on Sat May 16 14:19:50 1998 EDT."
.