/*    /cmds/player/body.c
 *    from the Nightmare IV LPC Library
 *    gives player a report based on limb damage
 *    created by Blitz@Nightmare IV
 */
 
#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() {
  if( creatorp(this_player()) )
    return "Creator syntax: body <living>";
  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.";
}