/*    /daemon/statistics.c
 *    from the Dead Souls Object Library
 *    Keeps track of RAM intensive data on players
 *    created by Descartes of Borg 951217
 *    Version: @(#) statistics.c 1.2@(#)
 *    Last modified: 96/10/08
 */

#include <lib.h>
#include <dirs.h>
#include "include/statistics.h"

inherit LIB_DAEMON;

mixed eventKill(object target) {
    mapping kills;
    object pl;
    string nom, file;

    if( !userp(pl = previous_object()) ) return 0;
    nom = (string)pl->GetKeyName();
    file = DIR_KILLS "/" + nom[0..0];
    if( file_size(file) != -2 ) {
	unguarded( (: mkdir, file :) );
    }
    file = file + "/" + nom;
    if( file_size(file) < 1 ) {
	kills = ([]);
    }
    else kills = restore_variable(unguarded((: read_file, file :)));
    nom = (string)target->GetShort() || (string)target->GetKeyName();
    if( !kills[nom] ) kills[nom] = 1;
    else kills[nom]++;
    unguarded((: rm, file :));
    unguarded((: write_file($(file), save_variable($(kills))) :));
    return 1;
}

mapping GetKills(string who) {
    string file;

    who = convert_name(who);
    file = DIR_KILLS "/" + who[0..0] + "/" + who;
    if( unguarded((: file_size, file :)) < 1 ) return ([]);
    else return restore_variable(unguarded((: read_file, file :)));
}