#include <lib.h>
#include <rooms.h>

inherit LIB_SENTIENT;

int Dying, LastHeal;

static void create() {
    ::create();
}

varargs int eventDie(object agent) {
    int x;

    SetUndead(!(x = GetUndead()));
    if( agent ) {
	if( x ) agent->eventDestroyEnemy(this_object());
	else agent->eventKillEnemy(this_object());
    }
    if( environment() ) {
	object *obs;
	string *currs;
	object ob;
	string curr;
	int i;

	ob = new("/lib/bot_corpse");
	ob->SetCorpse(this_object());
	ob->eventMove(environment());
	obs = filter(all_inventory(), (: !((int)$1->GetRetainOnDeath()) :));
	i = sizeof(obs);
	while(i--) obs[i]->eventMove(ob);
	currs = (string *)this_object()->GetCurrencies() || ({});
	foreach(curr in currs) {
	    object pile;
	    int amt;

	    if( amt = (int)this_object()->GetCurrency(curr) ) {
		pile = new(LIB_PILE);
		pile->SetPile(curr, amt);
		pile->eventMove(ob);
		this_object()->AddCurrency(curr, -amt);
	    }
	}
    }
    //call_out( function() { Dying = 0; }, 0);
    this_object()->eventMove(ROOM_FURNACE);
    return 1;
}

string GetLong(string nom) {
    string *limbs;
    string str;
    float h;

    if(!nom) nom = this_object()->GetKeyName();
    str = ::GetLong();
    str += capitalize(nom);
    h = percent(GetHealthPoints(), GetMaxHealthPoints());
    if( h < 10.0 ) str += " is barely functional.\n";
    else if( h < 20.0 ) str += " is functioning poorly.\n";
    else if( h < 30.0 ) str += " is severely damaged.\n";
    else if( h < 40.0 ) str += " is badly damaged.\n";
    else if( h < 50.0 ) str += " is damaged.\n";
    else if( h < 60.0 ) str += " has sustained minor damage.\n";
    else if( h < 70.0 ) str += " looks a bit battered.\n";
    else if( h < 80.0 ) str += " is in decent shape.\n";
    else if( h < 90.0 ) str += " is quite keen.\n";
    else str += " is operating at optimal levels.\n";
    limbs = GetMissingLimbs();
    if( sizeof(limbs) ) {
	int i, maxi;

	str += nom + " is missing " + add_article(limbs[0]); 
	for(i=1, maxi = sizeof(limbs); i<maxi; i++) {
	    if( i < maxi-1 ) str += ", " + add_article(limbs[i]);
	    else {
		if( maxi > 2 ) str += ",";
		str += " and " + add_article(limbs[i]);
	    }
	}
	str += ".\n";
    }
    return str;
}