/*    /daemon/estates.c
 *    from Nightmare IV
 *    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;

void create() {
    daemon::create();
    __Estates = ([]);
    set_no_clean(1);
    if(file_exists(SAVE_ESTATES+__SAVE_EXTENSION__)) restore_object(SAVE_ESTATES);
    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();
    save_object(SAVE_ESTATES);
}