/*    /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;

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");
    add_action((: cmdParseRefresh :), "parserefresh");
    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 room;
        if(grepp(LoginSite,"#")){
            room = find_object(LoginSite);
        }
        if(!room) catch(room = load_object(LoginSite));
        if( room && room->GetMedium() == MEDIUM_AIR ) {
        }
        if(!sizeof(LoginSite) || 
          (!room && !file_exists(LoginSite) && !file_exists(LoginSite+".c")) || 
          !eventMove(LoginSite) || RescueBit ){ 
            LoginSite = ROOM_START;
            eventMove(ROOM_START);
            SetRescueBit(0);
        }
    }
    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, transport;
    mixed tmp;
    string *shorts;
    string desc, smell, sound, touch;
    int i, maxi;
    string 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 ){
            if(this_object()->GetProperty("automapping")) desc += simple_map(env)+"\n"; 
            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(this_object()->GetProperty("automapping")) desc += simple_map(env)+"\n";
            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%^";
              }
              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(env);
        if( i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM ) {
            mapping lying = ([]), sitting = ([]), standing = ([]), flying = ([]);
            mapping furniture = ([]);
            object mount = this_player()->GetProperty("mount");
            object *obs;
            string key;
            int val;

            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(transport = this_player()->GetProperty("mount")) {
                string mount_inv = "Nothing";
                string *mount_stuffs = ({});
                object *mount_obs = filter( all_inventory(transport),
                  (: !($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 = "";
                if(inherits(LIB_VEHICLE,transport)){
                    string tmpdesc = transport->GetVehicleInterior();
                    if(!tmpdesc || !sizeof(tmpdesc)){ 
                        desc += "\nYou are riding in "+
                        transport->GetPlainShort()+".";
                    }
                    else desc += "\n"+tmpdesc;
                    desc += "\nHere you see: "+mount_inv+".";
                }
                else {
                    desc += "\nYou are mounted on "+
                    transport->GetPlainShort()+".";
                    desc += "\nOn "+transport->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")) ){
                    if(clonep(environment())) LoginSite = file_name(environment());
                    else LoginSite = base_name(environment());
                }
                else LoginSite = str;
            }
            return x;
        }

        void cmdParseRefresh(){
            parse_refresh();
        }

        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( env->GetProperty("no quit") &&
              ! sizeof(previous_object(-1)) ) {
                message("system", "You are unable to escape this reality!",
                  this_object());
                return 0;
            }
            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(-(this_object()->GetCarriedMass()));
            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");
                if(env) message("environment", tmp, env, ({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;

            UserId = ({ GetKeyName() });
            if(GetCapName()) UserId += ({ lower_case(GetCapName()) });

            if(sizeof(bogus)){
                if(this_player() && this_player() == this_object()){
                    if(!arrayp(bogus)) bogus = ({ bogus });
                    if(!UserId) UserId = bogus;
                    else UserId += bogus;
                }
            }

            UserId = singular_array(UserId);

            foreach(string sub in UserId){
                if(user_exists(sub) && GetKeyName() != sub){
                    if(member_array(sub,RACES_D->GetRaces()) == -1 || find_player(sub)){
                        UserId -= ({ sub });
                    }
                }
            }
            parse_init();
            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;
        }

        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);
        }