#include <sys.h>

string long_desc,short_desc;
object owner,dropto;
int special,flags;

get_flags() { return flags; }
get_special() { return special; }
set_flags(f) { flags=f; return 1; }
set_special(s) { special=s; return 1; }
get_dropto() { return dropto; }
set_dropto(o) { dropto=o; return 1; }

self_destruct() { destruct(this_object()); return 1; }

get_type() { return TYPE_ROOM; }

set_long(arg) {
  long_desc=arg;
  return 1;
}

set_short(arg) { short_desc=arg; return 1; }

get_long() { return (long_desc?long_desc:
                     "You are nowhere."); }

get_short() { return short_desc ? short_desc:"Gray Mist"; }

stat() {
  tell_player(this_player(),"Object Type: ROOM\n");
  if (flags) tell_player(this_player(),"Flags: "+make_flags(flags)+"\n");
  if (special) tell_player(this_player(),"Special: "+itoa(special)+"\n");
  if (short_desc)
    tell_player(this_player(),"Short: "+short_desc+"\n");
  if (long_desc)
    tell_player(this_player(),"Long: "+long_desc+"\n");
  if (dropto)
    tell_player(this_player(),"Dropto: "+make_num(dropto)+"\n");
  if (owner)
    tell_player(this_player(),"Owner: "+make_num(owner)+"\n");
  return 1;
}