/*
 * bottom_room.c
 *
 * SFUN: find the bottom room
 *
 * (C) Frank Schmidt, Jesus@NorseMUD
 *
 */

static varargs object bottom_room(object ob) {
  object env, old;
  if (!ob) ob = this_object();
  old = env = ob;
  while (env && !env->query_room())
    env = environment(old = env);
  return env ? env : old;
}