/* /verbs/players/score.c
* from the Dead Souls Library
* Displays a list of score and related info
* created by Blitz@Dead Souls
*/
#include <lib.h>
#include <daemons.h>
inherit LIB_DAEMON;
inherit LIB_HELP;
varargs mixed eventScore();
static void create() {
daemon::create();
SetNoClean(1);
SetHelp("Syntax: score\n\n"
"Displays information about your character.\n"
"See also: stat, status, env");
}
static string *FoodDegree =
({ "starving!", "very hungry.",
"hungry.", " partially hungry.",
"feeling full.", "quite full." });
static string *DrunkDegree =
({ "sober", "tipsy", "drunk", "blitzed",
"three sheets to the wind", "FUBAR" });
static string *DrinkDegree =
({ "parched", "extremely thirsty", "very thirsty", "thirsty",
"somewhat thirsty", "unthirsty" });
mixed cmd(string arg) {
eventScore(arg);
return 1;
}
varargs mixed eventScore(string arg) {
string *str;
int birth, age, x, y, z, qp, xp;
string *tmp;
mapping lev;
object who;
string prn, haben, be, poss;
string past, qual, cnj;
if(!arg || !creatorp(this_player()) || !(who = find_player(arg))){
who = this_player();
haben = "have";
be = "are";
poss = "your";
prn = "you";
past = "were";
qual = "qualify";
cnj = "";
}
else {
haben = "has";
be = "is";
poss = possessive(who);
prn = nominative(who);
past = "was";
qual = "qualifies";
cnj = "s";
}
str = ({ capitalize(prn)+" "+be+" "+who->GetShort() + " (" +
who->GetMoralityDescription() + ")." });
str += ({ sprintf(capitalize(prn)+" "+be+" a level %d %s%s %s.",
who->GetLevel(),
( who->GetUndead() ? "undead " : ""),
capitalize(who->GetRace() || "nothing"),
capitalize(who->GetClass() || "commoner")) });
str += ({ capitalize(poss)+" native town is "+who->GetTown()+", and "+
prn+" "+be+" "+ (who->GetReligion() ||
"agnostic") + " in faith." });
str += ({ sprintf(capitalize(prn)+" "+haben+" solved %s, and "+haben+" %s.",
consolidate(sizeof(who->GetQuests()),
"one quest"),
consolidate(sizeof(who->GetTitles()),
"one title") ) });
birth = who->GetBirth();
age = ( query_year(time()) - query_year(birth) );
str += ({ sprintf(capitalize(prn)+" "+past+
" born on the %d%s day of %s, year %d. "
"(%d years old)", query_date(birth), ordinal(query_date(birth)),
query_month(birth), query_year(birth), age) });
if( x = who->GetTrainingPoints() < 1 ) {
y = who->GetLevel() + 1 + (x / -4);
str += ({ "Training points await "+(who == this_player() ? "you" :
objective(who))+" at level " + y + "." });
}
else str += ({ capitalize(prn)+" "+haben+" " + consolidate(
who->GetTrainingPoints(),
"one training point") + "." });
if( who->GetWimpy() )
str += ({ capitalize(prn)+" "+be+" feeling wimpy." }); else
str += ({ capitalize(prn)+" "+be+" feeling brave." });
if( who->GetPoison() > 0 )
str += ({ capitalize(prn)+" "+be+" poisoned." });
x = who->GetFood() / 17;
if( x > sizeof(FoodDegree) - 1 ) x = (sizeof(FoodDegree) - 1);
y = who->GetDrink() / 17;
if( y > sizeof(DrinkDegree) - 1 ) y = (sizeof(DrinkDegree) - 1);
z = who->GetAlcohol();
if(z) z = (z/17) + 1;
if( z > sizeof(DrunkDegree) - 1 ) z = (sizeof(DrunkDegree) - 1);
str += ({ capitalize(prn)+" "+be+" "+FoodDegree[x] });
str += ({ sprintf(capitalize(prn)+" "+be+
" %s and %s.", DrinkDegree[y], DrunkDegree[z]) });
x = who->GetCustomStats();
tmp = ({});
qp = who->GetQuestPoints();
xp = who->GetExperiencePoints();
lev = PLAYERS_D->GetLevelList()[(who->GetLevel()) + 1];
if(lev){
if(REQUIRE_QUESTING){
qp = lev["qp"] - qp;
if(qp > 0) tmp += ({capitalize(prn)+" require"+cnj+" "+
comma(qp)+" more quest points to advance."});
}
xp = lev["xp"] - xp;
if(xp > 0) tmp += ({capitalize(prn)+" require"+cnj+" "+
comma(xp)+" more experience points to advance."});
if(!sizeof(tmp)) tmp = ({capitalize(prn)+" "+qual+
" to advance a level."});
str += tmp;
}
if(x){
str += ({ "\n"+capitalize(prn)+" "+haben+" "+x+
" customization points left. Type: help customize" });
}
this_player()->eventPage(str, "info");
return 1;
}
