/*    /secure/daemon/character.c
 *    from the Dead Souls V Object Library
 *    the multi-character management daemon
 *    created by Descartes of Borg 951216
 */

#include <lib.h>
#include <save.h>
#include <privs.h>
#include <link.h>
#include <config.h>
#include "include/character.h"

inherit LIB_DAEMON;

private mapping Links;

static void create() {
    daemon::create();
    SetNoClean(1);
    Links = ([]);
    if( unguarded( (: file_size(SAVE_CHARACTER __SAVE_EXTENSION__) :)) > 0 )
                                                                         unguarded((: restore_object, SAVE_CHARACTER :));
}

mixed eventConnect(string who) {
    class char_link c;
    string prime;
    int min_wait;

    if( base_name(previous_object()) != LIB_CONNECT ) return 0;
    if( !(c = Links[prime = who]) ) {
        foreach(string pl, class char_link cl in Links) {
            if( member_array(who, cl->Secondaries) != -1 ) {
                prime = pl;
                c = cl;
                break;
            }
        }
        if( !c ) return 1;
    }
    foreach(string ind in c->Secondaries + ({ prime })) {
        if( find_player(ind) )  {
            if( who == ind ) return 1;
            if(member_group(who, PRIV_SECURE) || member_group(who,PRIV_ASSIST))
                return 1;
            else if( archp(find_player(ind)) ) return 1;
            else return "You have a linked character currently logged in.\n";
        }
    }
    if( LINK_WAIT_PERIOD > uptime() ) min_wait = uptime();
    else min_wait = LINK_WAIT_PERIOD;
    if( c->LastOnDate > time() - min_wait ) {
        string tmp;
        int x;

        if( c->LastOnWith == who ) return 1;
        x = c->LastOnDate + min_wait - time();
        if( x < 60 ) tmp = consolidate(x, "a second");
        else tmp = consolidate(x/60, "a minute");
        if( !(member_group(who, PRIV_SECURE) || member_group(who,PRIV_ASSIST)))
            return "\nYour character " + capitalize(c->LastOnWith) +
                " recently logged in at " + ctime(c->LastOnDate) + ".\n" +
                "You must wait another " + tmp + ".\n";
    }
    c->LastOnDate = time();
    c->LastOnWith = who;
    save_object(SAVE_CHARACTER);
    return 1;
}

mixed eventLink(string primary, string secondary, string email) {
    class char_link ch;

    if( !((int)master()->valid_apply(({ PRIV_LAW }))) )
        return "Permission denied.";
    if( !user_exists(primary = convert_name(primary)) )
        return "No such user: primary";
    if( !email ) return "Email is required for linking.";
    secondary = convert_name(secondary);
    if( Links[primary] ) {
        ch = Links[primary];
        if( Links[secondary] ) {
            class char_link c2;

            c2 = Links[secondary];
            ch->Secondaries += ({ secondary });
            ch->Secondaries += c2->Secondaries;
            ch->Secondaries = distinct_array(ch->Secondaries);
            ch->Email = email;
            if( ch->LastOnDate < c2->LastOnDate ) {
                ch->LastOnDate = c2->LastOnDate;
                ch->LastOnWith = c2->LastOnWith;
            }
            Links[primary] = ch;
            map_delete(Links, secondary);
            if( !save_object(SAVE_CHARACTER) ) return "Error in saving.";
            return 1;
        }
    }
    else if( Links[secondary] ) {
        ch = Links[secondary];
        map_delete(Links, secondary);
    }
    else ch = new(class char_link);
    if( ch->Secondaries ) ch->Secondaries += ({ secondary });
    else ch->Secondaries = ({ secondary });
    ch->Email = email;
    ch->LastOnDate = 0;
    ch->LastOnWith = primary;
    Links[primary] = ch;
    if( !save_object(SAVE_CHARACTER) ) return "Error in saving.";
    return 1;
}

mixed eventSaveTime() {
    class char_link c;
    object ob;
    string who;

    if( !userp(ob = previous_object()) ) return 0;
    who = (string)ob->GetKeyName();
    if( !(c = Links[who]) ) {
        foreach(string pl, class char_link cl in Links) {
            if( member_array(who, cl->Secondaries) != -1 ) {
                c = cl;
                break;
            }
        }
        if( !c ) return 1;
    }
    c->LastOnDate = time();
    c->LastOnWith = who;
    unguarded((: save_object, SAVE_CHARACTER :));
    return 1;
}

mixed eventUnlink(string primary, string who) {
    class char_link ch;

    if( !((int)master()->valid_apply(({ PRIV_ASSIST }))) )
        return "Permission denied.";
    primary = convert_name(primary);
    who = convert_name(who);
    if( !(ch = Links[primary]) ) return "No such primary character.";
    if( who == primary ) {
        if( sizeof(ch->Secondaries) < 2) {
            map_delete(Links, primary);
            save_object(SAVE_CHARACTER);
            return 1;
        }
        primary = ch->Secondaries[0];
        ch->Secondaries = ch->Secondaries[1..];
        map_delete(Links, who);
        Links[primary] = ch;
        save_object(SAVE_CHARACTER);
        return 1;
    }
    if( member_array(who, ch->Secondaries) == -1 )
        return "Invalid secondary character for " + primary + ".";
    ch->Secondaries -= ({ who });
    Links[primary] = ch;
    save_object(SAVE_CHARACTER);
    return 1;
}

mapping GetLinks() {
    if( !((int)master()->valid_apply(({ PRIV_ASSIST }))) ) return ([]);
    else return Links;
}

mapping GetLink(string who) {
    class char_link ch;

    who = convert_name(who);
    if( Links[who] ) ch = Links[who];
    else {
        class char_link l;
        string pl;

        foreach(pl, l in Links) {
            if( member_array(who, l->Secondaries) != -1 ) {
                ch = l;
                who = pl;
                break;
            }
        }
        if( !ch ) return 0;
    }
    return ([ "primary" : who, "last char" : ch->LastOnWith,
            "secondaries" : ch->Secondaries, "last on" : ch->LastOnDate ]);
}