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