/*    /cmds/players/biography.c
 *    from the NIghtmare V Object Library
 *    biography
 *    created by Descartes of Borg 951217
 */

#include <lib.h>
#include <clock.h>
#include <daemons.h>
#include <marriage.h>
#include <message_class.h>

inherit LIB_DAEMON;

mixed cmd(string args) {
    class marriage *m;
    mapping *deaths;
    mapping kills;
    string *npcs, *tmp, *col1, *col2, *col3;
    string yrstr;
    int x, cols, birth, i;

    cols = ((int *)this_player()->GetScreen())[0];
    tmp = ({ center("Biography for " + (string)this_player()->GetShort() +
	" on " + mud_name(), cols), "" });
    birth = (int)this_player()->GetBirth();
    x = query_year(birth);
    if( x < 0 ) yrstr = (-x) + " BN";
    else yrstr = x + "";
    tmp += ({ sprintf("%:-"+(cols/2)+"s%"+(cols/2)+"s", "Level: " +
	(int)this_player()->GetLevel(), "Age: " +
	((time() - birth)/YEAR) + " years") });
    tmp = ({ "You are " + (string)this_player()->GetMoralityDescription()
      + "." });
    tmp += ({ sprintf("You were born on the %d%s day of %s, year %s.",
	query_date(birth), ordinal(query_date(birth)),
	query_month(birth), yrstr) });
    m = (class marriage *)this_player()->GetMarriages();
    if( !sizeof(m) ) tmp += ({ "You have never been married." });
    else {
	class marriage marr;
	string town;

	marr = m[0];
	if( !marr->DivorceDate ) {
	    x = query_year(marr->WeddingDate);
	    if( x < 0 ) yrstr = (-x) + " BN";
	    else yrstr = x + "";
	    town = (string)(marr->Location)->GetTown();
	    if( !town || town == "wilderness" ) town = ".";
	    else town = " in " + town + ".";
	    tmp += ({ "You married " + marr->Spouse + " the " +
	      ordinal(query_date(marr->WeddingDate)) + " of " +
	      query_month(marr->WeddingDate) + " " + yrstr + town });
	    if( sizeof(m) > 1 ) m = m[1..];
	    else m = ({});
	}
	if( i = sizeof(m) ) {
	    tmp += ({ "Past marriages:" });
	    while(i--) {
		string yrstr2;

		marr = m[i];
		x = query_year(marr->WeddingDate);
		if( x < 0 ) yrstr = (-x) + " BN";
		else yrstr = x + "";
		x = query_year(marr->DivorceDate);
		if( x < 0 ) yrstr2 = (-x) + " BN";
		else yrstr2 = x + "";
		town = (string)(marr->Location)->GetTown();
		if( !town || town == "wilderness" ) town = "";
		else town = " in " + town;		
		tmp += ({ "You married " + marr->Spouse + " " +
		  query_month(marr->WeddingDate) + " " +
		  query_date(marr->WeddingDate) + ", " + yrstr +
		  town + ", divorced " +
		  query_month(marr->DivorceDate) + " " +
		  query_date(marr->DivorceDate) + ", " + yrstr2 + "."
		});
	    }
	}
    }
    deaths = (mapping *)this_player()->GetDeaths();
    if( !(x = sizeof(deaths)) )
	tmp += ({ "You have never suffered the pain of death." });
    else {
	mapping *d1, *d2;

	tmp += ({ "", "Death has cast its shadow over you on the following " +
	  consolidate(x, "occasion") + ":" });
	if( x == 1 ) {
	    d1 = deaths[0..0];
	    d2 = ({});
	}
	else {
	    d1 = deaths[0..(x-1)];
	    d2 = deaths[x..];
	}
	for(i=0; i<x; i++)
	    tmp += ({ sprintf("%:-" + (cols/2) + "s%s",
		(i >= sizeof(d1)) ? "" :
		d1[i]["enemy"],
		(i >= sizeof(d2)) ? "" :			
		d2[i]["enemy"]) });
    }	    
    kills = (mapping)STATISTICS_D->GetKills((string)this_player()->GetKeyName());
    npcs = sort_array(keys(kills), 1);
    if( !(x = sizeof(npcs)) )
	tmp += ({ "You have never brought harm to another." });
    else {
	tmp += ({ "","You are responsible for the deaths of the following:" });
	if( x < 3 ) {
	    col1 = npcs[0..0];
	    if( x == 2 ) col2 = npcs[1..1];
	    else col2 = ({});
	    col3 = ({});
	}
	else {
	    x = x/3;
	    col1 = npcs[0..(x-1)];
	    col2 = npcs[x..(x+x-1)];
	    col3 = npcs[(2*x)..];
	}
	for(i=0; i<x; i++)
	    tmp += ({ sprintf("%:-" + (cols/2) + "s%:-" + (cols/2) + "s%s",
		(i >= sizeof(col1)) ? "" :			
		col1[i] + " (" + kills[col1[i]] + ")",
		(i >= sizeof(col2)) ? "" :			
		col2[i] + " (" + kills[col2[i]] + ")",
		(i >= sizeof(col3)) ? "" :
		col3[i] + " (" + kills[col3[i]] + ")") });
    }
    this_player()->eventPage(tmp, MSG_SYSTEM);
    return 1;
}

string GetHelp(string str) {
    return ("Syntax: <biography>\n\n"
      "Biography gives you a full account of the sort of life you "
      "have lived on " + mud_name() + ".  This information details "
      "such things as your birth, deaths, marriages, and other life "
      "information.\n\n"
      "See also: score");
}
