/* /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");
}
