/*    /lib/interactive.c
 *    from the Dead Souls Object Library
 *    an interactive object
 *    created by Descartes of Borg 941001 for the Idea Exchange
 *    Version: @(#) interactive.c 1.17@(#)
 *    Last modified: 97/01/03
 */

#ifndef NM_STYLE_EXITS
#define NM_STYLE_EXITS 1
#endif

#include <lib.h>
#include <clock.h>
#include <privs.h>
#include <daemons.h>
#include <objects.h>
#include <rooms.h>
#include <marriage.h>
#include <medium.h>
#include <position.h>
#include <message_class.h>
#include <vision.h>
#include <voting.h>
#include "include/interactive.h"

inherit LIB_CONTAINER;
inherit LIB_OBJECT;
inherit LIB_AUTOSAVE;
inherit LIB_FILES;
inherit LIB_MOVE;
inherit LIB_PAGER;
inherit LIB_MESSAGES;
inherit LIB_INTERFACE;

private int Age, WhereBlock, Brief, LoginTime, BirthTime, RescueBit;
private string Password, Email, RealName, Rank, LoginSite, HostSite, WebPage;
private static string globaltmp;
private mapping News;
private class marriage *Marriages;
private static int LastAge, Setup;
private static object NetDiedHere;
private static mapping LastError;
private static string *UserId;
private static string altern_obvious;
private static object mount;
private static object *obs;
private static string key;
private static int val;
private static string mount_inv = "Nothing";
private static string *mount_stuffs = ({});
private static object *mount_obs = ({});

static void create() {
    object::create();
    messages::create();
    interface::create();
    SetOpacity(0);
    Marriages = ({});
    HostSite = "";
    Brief = 0;
    Password = 0;
    Email = 0;
    RealName = 0;
    Rank = "citizen";
    LoginSite = ROOM_START;
    BirthTime = time();
    LastAge = time();
    News = ([]);
    RescueBit = 0;
    SetShort("$N the unaccomplished");
    SetLong("$N is nondescript.");
}

int SetRescueBit(int i){
    RescueBit = i;
    return i;
}

/* ***************  /lib/interactive.c modal functions  *************** */

mixed CanDivorce() {
    class marriage m;

    if( !Marriages || !sizeof(Marriages) )
	return GetName() + " is not married!";
    m = Marriages[0];
    if( m->DivorceDate ) return GetName() + " is not married!";
    return 1;
}

mixed CanGet() {
    return GetName() + " is a living being!";
}

mixed CanMarry() {
    if( !Marriages ) Marriages = ({});
    if( GetSpouse() ) return GetName() + " is currently married!";
    return 1;
}

/* ***************  /lib/interactive.c lfuns  *************** */
int Setup() {
    mapping mp;
    string tmp;

    if(Setup) return 0;
    else Setup = 1;
    set_living_name(GetKeyName());
    interface::Setup();
    add_action((: cmdQuit :), "quit");
    HostSite = query_ip_name(this_object());
    LoginTime = time();
    SetId(({}));
    autosave::Setup();
    call_out("save_player", 2, GetKeyName());
    if( VOTING_D->GetStatus() == VOTE_RUNNING ) {
	if( VOTING_D->GetMode() == VOTE_MODE_CANDIDATES )
	    eventPrint("%^YELLOW%^Class Elections are in progress!  "
	      "Go nominate candidates!%^RESET%^");
	if( VOTING_D->GetMode() == VOTE_MODE_VOTING )
	    eventPrint("%^YELLOW%^Class Elections are in progress!  "
	      "Go vote for the candidates!%^RESET%^");
    } 

    if( VOTING_D->GetVoteStatus( this_object() ) != VOTE_ALREADY_VOTED ) {
	eventPrint("%^YELLOW%^You have not yet voted!  "
	  "Please vote now.%^RESET%^");
	eventMove( VOTING_D->GetVoteRoom() );
    } else {
	object env;

	catch(env = load_object(LoginSite));
	if( env && env->GetMedium() == MEDIUM_AIR ) {
	}
	if(!sizeof(LoginSite) || 
	  (!file_exists(LoginSite) && !file_exists(LoginSite+".c")) || 
	  !load_object(LoginSite) || !eventMove(LoginSite) || 
	  RescueBit || !(inherits(LIB_ROOM, load_object(LoginSite)))) {
	    LoginSite = ROOM_START;
	    eventMove(ROOM_START);
	    SetRescueBit(0);
	    //eventMove(LoginSite = ROOM_START);
	}
    }
    environment()->eventPrint(tmp, MSG_ENV, this_object());
    if( !(tmp = GetMessage("login")) )
	tmp = GetName() + " enters " + mud_name() + ".";
    if(!(archp(this_object()) && this_object()->GetInvis())){
	log_file("enter", GetCapName()+" (enter): "+ctime(time())+
	  " : "+query_ip_name(this_object())+"\n");
	CHAT_D->eventSendChannel("SYSTEM","connections","[" + GetCapName() + " logs in]",0);
    }

    if(!catch(mp = (mapping)FOLDERS_D->mail_status(GetKeyName()))) {
	if(mp["unread"]) {
	    eventPrint("\n%^RED%^%^BOLD%^>>> " + mp["unread"] + " of your " +
	      (mp["total"] == 1 ? mp["total"] + " letter is" :
		mp["total"] + " letters remain") + " unread. <<<%^RESET%^\n",
	      MSG_SYSTEM);
	}
    }
    NEWS_D->GeneralNews();
    return 1;
}

static void net_dead() {
    interface::net_dead();
    Age += time() - LastAge;
    LastAge = time();
    NetDiedHere = environment(this_object());
    save_player(GetKeyName());
    if(!(archp(this_object()) && this_object()->GetInvis())){
	log_file("enter", GetCapName() + " (net-dead): " + ctime(time()) + "\n");
	environment()->eventPrint(GetName() + " suddenly disappears into "
	  "a sea of irreality.", MSG_ENV, this_object());
	CHAT_D->eventSendChannel("SYSTEM","connections","[" + GetCapName() + " goes net-dead]",0);
    }
    SNOOP_D->ReportLinkDeath(this_object()->GetKeyName());
    eventMove(ROOM_FREEZER);
    if(query_snoop(this_object()))
	query_snoop(this_object())->eventPrint(GetCapName() + " has gone "
	  "net-dead.", MSG_SYSTEM);
}

void eventReconnect() {
    interface::eventReconnect();
    LastAge = time();
    HostSite = query_ip_name(this_object());
    eventPrint("Reconnected.", MSG_SYSTEM);
    if(!(archp(this_object()) && this_object()->GetInvis())){
	CHAT_D->eventSendChannel("SYSTEM","connections","[" + GetCapName() + " has rejoined " + mud_name() + "]",0);
	environment()->eventPrint(GetCapName() + " has rejoined this reality.",
	  MSG_ENV, this_object());
    }
    if( NetDiedHere ) eventMove(NetDiedHere);
    else eventMove(ROOM_START);
    NetDiedHere = 0;
}

void eventDescribeEnvironment(int brief) {
    object env;
    mixed tmp;
    string *shorts;
    string desc, smell, sound, touch;
    int i, maxi;
    altern_obvious = "";

    if(!(env = environment(this_object()))) {
	eventPrint("You are nowhere.", MSG_ROOMDESC);
	return;
    }

    if(env->GetMount() || base_name(env) == LIB_CORPSE){ 
	env = environment(environment(this_player()));
	if(!env){
	    eventPrint("You are in serious trouble. Ask an admin for help.");
	    return;
	}
	i = GetEffectiveVision(env); 
    }

    else i =  GetEffectiveVision();
    switch( i ) {
    case VISION_BLIND:
	eventPrint("You are blind and can see nothing.");
	break;
    case VISION_TOO_DARK:
	eventPrint("It is much too dark to see.");
	break;
    case VISION_DARK:
	eventPrint("It is too dark to see.");
	break;
    case VISION_TOO_BRIGHT:
	eventPrint("It is much too %^YELLOW%^bright%^RESET%^ to see.");
	break;
    case VISION_BRIGHT:
	eventPrint("It is too %^YELLOW%^bright%^RESET%^ to see.");
	break;
    }
    if( !brief ) {
	if( i == VISION_CLEAR ){
	    desc = (string)env->GetObviousExits() || "";
	    if(desc && desc != "")
		desc = capitalize((string)env->GetShort() || "")
		+ " [" + desc + "]\n";
	    else desc = capitalize((string)env->GetShort()+"\n" || "\n");
	    if(!NM_STYLE_EXITS){
		desc = capitalize((string)env->GetShort()+"\n" || "\n");
		altern_obvious = "Obvious exit$Q: "+(string)env->GetObviousExits() || "none";
	    }
	}
	else desc = "\n";
	if( i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM )
	    desc += (string)env->GetLong();
	if(functionp(tmp = (mixed)env->GetSmell("default")))
	    tmp = (string)(*tmp)("default");
	smell = tmp;
	if(functionp(tmp = (mixed)env->GetListen("default")))
	    tmp = (string)(*tmp)("default");
	sound = tmp;
	if( functionp(tmp = (mixed)env->GetTouch("default")) )
	    tmp = evaluate(tmp, "default");
	touch = tmp;
    }
    else {
	if(i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM){
	    desc = (string)env->GetShort();
	    if(NM_STYLE_EXITS){
		if( (tmp = (string)env->GetObviousExits()) && tmp != "" )
		    desc += " [" + tmp + "]";
		else desc += "\n";
	    }
	    else altern_obvious = "Obvious exits: "+(string)env->GetObviousExits() || "none";
	}
	else desc = "\n";
    }
    if( desc ) eventPrint(desc, MSG_ROOMDESC);
    if(sizeof(altern_obvious)){
        int quant = sizeof(env->GetExits()) + sizeof(env->GetEnters());
        if(quant > 1) altern_obvious = replace_string(altern_obvious,"$Q","s");
        else altern_obvious = replace_string(altern_obvious,"$Q","");
        eventPrint(altern_obvious,MSG_ROOMDESC);
    }
    if( smell ) eventPrint("%^GREEN%^" + smell, MSG_ROOMDESC);
    if( sound ) eventPrint("%^CYAN%^" + sound, MSG_ROOMDESC);
    if( touch ) eventPrint("%^YELLOW%^" + touch, MSG_ROOMDESC);
    desc = "";
    if( i == VISION_CLEAR ) {
	mapping lying = ([]);
	shorts = map(filter(all_inventory(env),
	    function(object ob) {
		if( living(ob) ) return 0;
		if( (int)ob->GetInvis(this_object()) && !ob->GetDoor() )
		    return 0;
		if(ob->GetDoor() && load_object(ob->GetDoor())->GetHiddenDoor()) return 0;
		if( (int)ob->isFreshCorpse() ) return 0;
		return 1;
	      }), (: (string)$1->GetShort() :));
	  foreach(string s in shorts) {
	      if( s ) {
		  lying[s]++;
	      }
	  }
	  for(i=0, desc = 0, maxi = sizeof(shorts = keys(lying)); i<maxi; i++) {
	      string key = shorts[i];
	      int val = lying[shorts[i]];

	      if( val < 2 ) {
		  if( !desc ) desc = "%^MAGENTA%^" +
		      capitalize(key) + "%^RESET%^MAGENTA%^";
		  else desc += key + "%^RESET%^MAGENTA%^";
	      }
	      else {
		  if( !desc ) desc = "%^MAGENTA%^" +
		      capitalize(consolidate(val, key)) +
		      "%^RESET%^MAGENTA%^";
		  else desc += consolidate(val, key) +
		      "%^RESET%^MAGENTA%^";
	      }
	      //globaltmp = "";
	      //if(grepp(desc," corpse of ") || grepp(desc," corpses of ")) globaltmp = "lying ";
	      if( i == maxi - 1 ) {
		  if( maxi > 1 || val >1 )
		      desc += " are here.%^RESET%^\n";
		  else desc += " is here.%^RESET%^\n";
	      }
	      else if( i == maxi - 2 ) {
		  if( maxi == 2 ) {
		      desc += " and ";
		  }
		  else {
		      desc += ", and ";
		  }
	      }
	      else desc += ", ";
	  }
      }
	i = GetEffectiveVision();
	if( i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM ) {
	    mapping lying = ([]), sitting = ([]), standing = ([]), flying = ([]);
	    mapping furniture = ([]);
	    mount = this_player()->GetProperty("mount");
	    obs = ({});
	    key = "";
	    val = 0;

	    obs = filter(all_inventory(env), function(object ob) {
		  if( (int)ob->GetInvis(this_object()) ) return 0;
		  if( living(ob) ) return 1;
		  if( (int)ob->isFreshCorpse() )
		      return 1;
		}) - ({ this_object(), mount });
	      maxi = sizeof(shorts = map(obs, (: (string)$1->GetHealthShort() :)));
	      foreach(object liv in obs) {
		  string s = (string)liv->GetHealthShort();
		  int pos = (int)liv->GetPosition();
		  if( !s ) continue;
		  if(liv->GetProperty("furniture")) {
		      s += "BEGIN"+random(999999)+"END";
		  }
		  if(liv->GetProperty("furniture")){ 
		      furniture[s] = liv->GetProperty("furniture");
		  }
		  else if(!furniture[s]) furniture[s] = 0;

		  if( pos == POSITION_STANDING) standing[s]++;
		  else if( pos == POSITION_LYING || (int)liv->isFreshCorpse() )
		      lying[s]++;
		  else if( pos == POSITION_SITTING ) sitting[s]++;
		  else if( pos == POSITION_FLYING ) flying[s]++;
		  else lying[s]++;
	      }
	      if( !desc ) {
		  tmp = "";
	      }
	      else {
		  tmp = desc;
	      }
	      desc = "";
	      foreach(key, val in lying) {
		  globaltmp = key;
		  if(grepp(key,"BEGIN")) {
		      sscanf(key,"%sBEGIN%*s",key);
		  }

		  if(lying[globaltmp]>1 && !furniture[globaltmp]){
		      desc += capitalize(consolidate(val, globaltmp)) +
		      "%^RESET%^ are lying down.";
		  }
		  else if(lying[globaltmp]<2 && !furniture[globaltmp]){
		      desc += capitalize(key) + "%^RESET%^ is lying down.";
		  }
		  else if(furniture[globaltmp]) {
		      desc += capitalize(key) + "%^RESET%^ is lying down"+
		      ((furniture[globaltmp]) ? furniture[globaltmp] : "") +".";
		  }
		  else if(furniture[key]) {
		      desc += capitalize(key) + "%^RESET%^ is lying down"+
		      ((furniture[key]) ? furniture[key] : "") +".";
		  }


		  else {
		      desc += "wtf. i am "+key+", furniture["+globaltmp+"] is: "+furniture[globaltmp]+"\n"+
		      "  furniture["+key+"] is: "+furniture[key]+", and val is: "+val;
		  }

		  desc += "\n";
	      }
	      foreach(key, val in sitting) {
		  globaltmp = key;
		  if(grepp(key,"BEGIN")) {
		      sscanf(key,"%sBEGIN%*s",key);
		  }

		  if(sitting[globaltmp]>1 && !furniture[globaltmp]){
		      desc += capitalize(consolidate(val, globaltmp)) +
		      "%^RESET%^ are sitting down.";
		  }
		  else if(sitting[globaltmp]<2 && !furniture[globaltmp]){
		      desc += capitalize(key) + "%^RESET%^ is sitting down.";
		  }
		  else if(furniture[globaltmp]) {
		      desc += capitalize(key) + "%^RESET%^ is sitting down"+
		      ((furniture[globaltmp]) ? furniture[globaltmp] : "") +".";
		  }
		  else if(furniture[key]) {
		      desc += capitalize(key) + "%^RESET%^ is sitting down"+
		      ((furniture[key]) ? furniture[key] : "") +".";
		  }


		  else {
		      desc += "wtf. i am "+key+", furniture["+globaltmp+"] is: "+furniture[globaltmp]+"\n"+
		      "  furniture["+key+"] is: "+furniture[key]+", and val is: "+val;
		  }
		  desc += "\n";
	      }
	      foreach(key, val in standing) {
		  if(grepp(key,"BEGIN")) {
		      sscanf(key,"%sBEGIN%*s",key);
		  }
		  if( val<2 )
		      desc += capitalize(key) + "%^RESET%^ is standing here.";
		  else desc += capitalize(consolidate(val, key)) +
		      "%^RESET%^ are standing here.";
		  desc += "\n";
	      }
	      foreach(key, val in flying) {
		  if( val<2 )
		      desc += capitalize(key) + "%^RESET%^ is hovering here.";
		  else desc += capitalize(consolidate(val, key)) +
		      "%^RESET%^ are hovering here.";
		  desc += "\n";
	      }

	  }
	    if( tmp ) {
		desc = tmp + desc;
	    }
	    if(this_player()->GetProperty("mount")) {
		mount_inv = "Nothing";
		mount_stuffs = ({});
		mount_obs = filter( all_inventory(this_player()->GetProperty("mount")),
		  (: !($1->GetInvis()) && !($1 == this_player()) :));
		if(sizeof(mount_obs)){
		    foreach(object element in mount_obs){
			mount_stuffs += ({ element->GetShort() });
		    }
		    mount_inv = conjunction(mount_stuffs);
		}
		if(!sizeof(desc)) desc = "";
		desc += "\nYou are mounted on "+
		(this_player()->GetProperty("mount"))->GetPlainShort()+".";
		desc += "\nOn "+(this_player()->GetProperty("mount"))->GetPlainShort()+
		" you see: "+mount_inv+".";
	    }
	    if( sizeof(desc) ) {
		if(check_string_length(desc)) eventPrint(desc + "\n", MSG_ROOMDESC);
		else print_long_string(this_player(), desc);
	    }
	}

	int eventDestruct() {
	    object ob;

	    interface::eventDestruct();
	    foreach(ob in deep_inventory(this_object())) {
		if( ob ) catch(ob->eventDestruct());
	    }
	    return object::Destruct();
	}

	mixed eventDivorce() {
	    class marriage m;

	    m = Marriages[0];
	    m->DivorceDate = time();
	    return 1;
	}

	mixed eventMarry(object who, object to_whom) {
	    class marriage m;
	    object env;

	    if( (env = previous_object()) != environment() ) return 0;
	    m = new(class marriage);
	    m->Spouse = (string)to_whom->GetCapName();
	    m->WeddingDate = time();
	    m->DivorceDate = 0;
	    m->Location = file_name(env);
	    Marriages = ({ m }) + Marriages;
	    return 1;
	}

	int eventMove(mixed dest) {
	    string str;
	    int x;

	    x = move::eventMove(dest);
	    if( x ) {
		if( !(str = (string)environment()->GetProperty("login")) )
		    LoginSite = base_name(environment());
		else LoginSite = str;
	    }
	    return x;
	}

	int cmdQuit() {
	    string tmp;
	    object env = environment(this_object());
	    int retain = RETAIN_ON_QUIT;
	    if(!env) env = load_object(ROOM_FURNACE);

	    if( previous_object() && !
	      ((int)master()->valid_apply( ({ GetKeyName() }) )) ) return 0;
	    if( (int)environment(this_object())->GetProperty("no quit") &&
	      ! sizeof(previous_object(-1)) ) {
		message("system", "You are unable to escape this reality!",
		  this_object());
		return 1;
	    }
	    message("system", "Please come back another time!", this_object());
	    if(!creatorp(this_object())){
		foreach(object ob in all_inventory(this_object())){
		    if((!retain && !ob->GetRetain()) || !ob->GetRetain()) ob->eventMove(env);
		}
		foreach(object ob in deep_inventory(this_object())){
		    if((!retain && !ob->GetRetain()) || !ob->GetRetain()) ob->eventMove(env);
		}
	    }
	    this_object()->AddCarriedMass(-5000);
	    tmp = GetMessage("logout") || (GetName() + " is gone from this reality!");
	    save_player(GetKeyName());
	    if(!(archp(this_object()) && this_object()->GetInvis())){
		log_file("enter", GetCapName()+" (quit): "+timestamp()+"\n");
		message("environment", tmp, environment(this_object()), ({this_object()}));
		CHAT_D->eventSendChannel("SYSTEM","connections","[" + GetCapName() + " quits]",0);
	    }
	    if(in_edit()){
		ed_cmd(".");
		ed_cmd("x");
		ed_cmd("Q");
	    }
	    this_object()->eventDestruct();
	    return 1;
	}

	int GetAge() {
	    int x;

	    if(!interactive(this_object())) return Age;
	    x = time() - LastAge;
	    Age += x;
	    LastAge = time();
	    return Age;
	}

	int GetBirth() { return BirthTime - (YEAR * 18); }

	string query_cwd() { return interface::query_cwd(); }

	void SetEmail(string str) {
	    if(!((int)master()->valid_apply(({ GetKeyName() })))) return;
	    Email = str;
	}

	string GetEmail() {
	    if(!((int)master()->valid_apply(({ GetKeyName() })))) return 0;
	    else return Email;
	}

	varargs string array SetId(string *bogus) {
	    int i;

	    if(UserId) return UserId;
	    if(!GetCapName()) {
		UserId = ({ GetKeyName() });
		return UserId;
	    }
	    UserId = ({ GetKeyName(), lower_case(GetCapName()) });
	    if((i=sizeof(bogus = explode(lower_case(GetCapName()), " "))) == 1)
		return UserId;
	    while(i--)
		if(!user_exists(bogus[i])) UserId += ({ bogus[i] });
	    return UserId;
	}

	string *GetId() { return UserId; }

	int id(string str) {
	    if(!str || !UserId) return 0;
	    else return member_array(lower_case(str), UserId) != -1;
	}

	int GetLoginTime() { return LoginTime; }

	string SetKeyName(string str) {
	    if( previous_object() != master() ) return GetKeyName();
	    return object::SetKeyName(str);
	}

	string GetKeyName() { return object::GetKeyName(); }

	void SetNews(string type, int sz) { News[type] = sz; }

	int GetNews(string type) { return News[type]; }

	void SetPassword(string str) {
	    if(!((int)master()->valid_apply(({ GetKeyName() })))) return;
	    Password = str;
	    save_player(GetKeyName());
	}

	string GetPassword() {
	    if(!((int)master()->valid_apply(({ GetKeyName() })))) return 0;
	    else return Password;
	}

	void SetRank(string str) { Rank = str; }

	string GetRank() { return Rank; }

	void SetRealName(string str) {
	    if(!((int)master()->valid_apply(({ GetKeyName() })))) return;
	    RealName = str;
	}

	string GetRealName() { return RealName; }

	string GetShort() {
	    string str;

	    str = object::GetShort(str);
	    if( !str ) str = "$N the unaccomplished";
	    if( strsrch(str, "$N") == -1 ) str = "$N";
	    str = replace_string(str, "$N", GetName());
	    if( interactive(this_object()) ) return str;
	    else return str + " (net-dead)";
	}

	varargs string GetLong() {
	    string str;

	    str = object::GetLong(str);
	    if(!str || strsrch(str, "$N") == -1) str = "$N is nondescript.";
	    str = replace_string(str, "$N", GetName());
	    return str;
	}

	int SetBriefMode(int x) { return (Brief = x); }

	int GetBriefMode() { return Brief; }

	int SetWhereBlock() { return (WhereBlock = !WhereBlock); }

	int GetWhereBlock() { return WhereBlock; }

	string get_path() {
	    log_file("get_path", identify(previous_object())+"\n");
	    return query_cwd();
	}

	void SetLastError(mapping m) {
	    if (previous_object() != master()) return;
	    LastError = m;
	}

	mapping GetLastError() {
	    string *allowed = ({ "/secure/cmds/creators/dbxwhere", "/secure/cmds/creators/dbxframe", "/secure/cmds/players/bug", file_name(master()) });
	    string caller = file_name(previous_object());
	    if(member_array(caller, allowed) != -1 ) {
		if(LastError) return LastError;
	    }
	    else error("Privilege Violation: " + caller);
	}

	string SetCapName(string str) {
	    if( base_name(previous_object(0)) != LIB_CONNECT ) return str;
	    return object::SetCapName(str);
	}

	void move_or_destruct() {
	    (eventMove(ROOM_START) || eventMove(ROOM_VOID));
	}

	string SetShort(string str) {
	    if( strsrch(str, "$N") == -1 ) return object::GetShort();
	    else return object::SetShort(str);
	}

	string SetLong(string str) {
	    if(strsrch(str, "$N") == -1) return object::GetLong();
	    else return object::SetLong(str);
	}

	string GetName() { return object::GetName(); }

	varargs int GetInvis(object ob) { return object::GetInvis(ob); }

	mixed *GetCommands() {
	    if( !((int)master()->valid_apply( ({ GetKeyName() }) )) ) return ({});
	    else return commands();
	}

	string GetSpouse() {
	    if( !Marriages || !sizeof(Marriages) ) return 0;
	    if( ((class marriage)Marriages[0])->DivorceDate ) return 0;
	    return ((class marriage)Marriages[0])->Spouse;
	}

	class marriage *GetMarriages() { return Marriages; }

	string GetHostSite() {
	    if( WhereBlock ) {
		if( !((int)master()->valid_access(({ PRIV_ASSIST }))) )
		    return "Confidential";
		else return HostSite;
	    }
	    return HostSite;
	}	//void eventLoadObject(mixed *value, int recurse) { }

	int GetRadiantLight(int ambient) {
	    return container::GetRadiantLight(ambient);
	}

	string GetWebPage() {
	    return WebPage;
	}

	string SetWebPage(string page) {
	    if( !master()->valid_apply(({ GetKeyName() })) ) {
		return WebPage;
	    }
	    return (WebPage = page);
	}
