/*    /secure/daemon/estates.c
 *    from Dead Souls
 *    a daemon for handling Estate events
 *    created by Descartes of Borg 940702
 */

#include <std.h>
//#include <security.h>
#include <objects.h>
#include <save.h>
#include "include/estates.h"

inherit DAEMON;

private mapping __Estates;
static string SaveFile;

void create() {
    daemon::create();
    SaveFile = save_file(SAVE_ESTATES);
    __Estates = ([]);
    set_no_clean(1);
    if(file_exists(SaveFile)) RestoreObject(SaveFile);
    preload_estates();
}

static private void preload_estates() {
    object ob;
    string *who;
    string desc;
    int i, j;

    i = sizeof(who = keys(__Estates));
    while(i--) {
        if((j = sizeof(__Estates[who[i]])) > 1)
            desc = "an estate of "+who[i];
        else desc = possessive_noun(who[i])+" estate";
        while(j--) {
            ob = new(OB_ESTATE);
            ob->set_short(desc);
            ob->set_long(__Estates[who[i]][j][2]);
            ob->set_exit(__Estates[who[i]][j][0]);
            __Estates[who[i]][j][1]->set_no_clean(1);
            ob->move(__Estates[who[i]][j][1]);
        }
    }
}

void add_estate(string who, string sortie, string where, string long) {
    object ob;

    if(base_name(previous_object()) != OB_DEED) return;
    if(!__Estates[who]) __Estates[who] = ({ ({ sortie, where, long }) });
    else __Estates[who] += ({ ({ sortie, where, long }) });
    ob = new(OB_ESTATE);
    ob->set_short(possessive_noun(who)+" estate");
    ob->set_long(long);
    ob->set_exit(sortie);
    where->set_no_clean(1);
    ob->move(where);
    ob->reinitiate();
    SaveObject(SaveFile);
}