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

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