/* /cmds/player/body.c
* from the Dead Souls LPC Library
* gives player a report based on limb damage
* created by Blitz@Dead Souls
*/
#pragma save_binary
#include <lib.h>
#include <rounds.h>
inherit LIB_DAEMON;
varargs void eventCheckBody(object ob, object receiver);
static void create() {
daemon::create();
SetNoClean(1);
parse_init();
parse_add_rule("body", "LIV");
parse_add_rule("body", "");
}
static string *DamageDegree = ({
"is in critical condition!",
"is battered beyond recognition.",
"is severely wounded",
"is terribly damaged.",
"is in bad shape.",
"is hurting.",
"has a few bruises.",
"is in decent shape.",
"is in very good shape.",
"is in excellent shape.",
});
int livings_are_remote() { return 1; }
mixed can_body() {
return 1;
}
mixed can_body_liv() {
if( !creatorp(this_player()) )
return "Body does not require any arguments.";
return 1;
}
mixed do_body() {
message("other_action", (string)this_player()->GetName()+" checks "+
reflexive(this_player())+" for injuries.",
environment(this_player()), this_player() );
eventCheckBody(this_player());
return 1;
}
mixed do_body_liv(object ob) {
eventCheckBody(ob, this_player());
return 1;
}
varargs void eventCheckBody(object ob, object receiver) {
string ret, name;
string *limbs;
mapping mp;
int i, damage;
int *key;
mp = ([ ]);
if( !ob ) return;
if( !receiver ) receiver = ob;
i = sizeof(limbs = (string *)ob->GetLimbs());
while(i--) {
damage = to_int( percent( (int)ob->GetHealthPoints(limbs[i]),
(int)ob->GetMaxHealthPoints(limbs[i]) ));
if( !mp[damage] ) mp[damage] = ({ limbs[i] });
else mp[damage] += ({ limbs[i] });
}
i = sizeof(key = sort_array(keys(mp), 1));
name = (ob == receiver ? "Your" : capitalize(possessive(ob)));
ret = possessive_noun((string)ob->GetCapName()) + " bodily damage "
"report:\n\n";
foreach(damage in key) {
string str;
string color;
int x;
i = sizeof(limbs = mp[damage]);
while(i--) {
switch(damage) {
case 0..3: color = "%^BOLD%^%^RED%^"; break;
case 4..10: color = "%^RED%^"; break;
case 11..20: color = "%^YELLOW%^"; break;
default: color = "";
}
if( damage > 97 )
str = name +" "+ limbs[i] + " is in perfect condition.";
else if( damage < 4 )
str = name+" "+ limbs[i] +" is about to fall off!";
else {
x = damage / 10;
if(x>9) x = 9;
str = name +" "+ limbs[i] +" "+ DamageDegree[x];
}
if( creatorp(receiver) )
ret += sprintf("%s%-45s %s(%d / 100%%)%s\n", color, str,
"", damage,"%^RESET%^");
else ret += (color + str + "%^RESET%^\n");
}
}
if( i = sizeof(limbs = (string *)ob->GetMissingLimbs()) ) {
ret += "\n"+(ob == receiver ?
"You are missing " : (string)ob->GetName()+" is missing ");
switch(i) {
case 0: break;
case 1: ret += "a "+limbs[0]+"."; break;
case 2: ret += "a "+limbs[0]+" and a "+limbs[1]+"."; break;
default: ret += "a "+implode(limbs[0..(i-2)], ", ")+" and "
"a "+limbs[i-1]+".";
}
}
receiver->eventPage(explode(ret, "\n"), "info");
return;
}
string GetHelp(string str) {
if( creatorp(this_player()) )
return "Syntax: body LIVING\n\n"
"This command will display the current limb damage "
"statistics of the living object named.";
else
return "Syntax: body\n\n"
"This command will display your current limb damage "
"statistics. The limbs will be displayed in order "
"of the most damaged to the least.";
}
