/*    /lib/corpse.c
 *    from the Dead Souls LPC Library
 *    standard corpse object
 *    created by Descartes of Borg 960711
 *    Version: @(#) corpse.c 1.10@(#)
 *    Last Modified: 96/12/31
 */

#include <lib.h>
#include <message_class.h>

inherit LIB_SURFACE;

int DecayLife, Count, CallOut, Fresh;
string Owner, Race;

int eventDecay() {
    if( !environment() ) {
        Destruct();
        return 0;
    }
    Fresh = 0;
    switch(Count) {
    case 10:
        environment()->eventPrint(possessive_noun(Owner) + " corpse " +
          "is starting to stink.", MSG_ROOMDESC);
        SetId(GetId()..., "corpse", "remains","flesh","pile","pile of flesh");
        SetAdjectives(GetAdjectives()..., "stinky", "rotting");
        SetShort("the stinky remains of a rotting corpse");
        SetSmell("This corpse is beginning to stink up the entire area.");
        break;
    case 20:
        environment()->eventPrint("A rotting stench fills the entire "
          "area.", MSG_ROOMDESC);
        SetId(GetId()..., "flesh", "pile", "pile of flesh");
        SetShort("a pile of rotting flesh");
        SetSmell("Its smell is nearly unbearable.");
        break;
    case 30:
        Destruct();
        return 0;
    }
    Count++;
    return Count;
}

static int Destruct() {
    return ::Destruct();
}

int SetDecayLife(int x) { return (DecayLife = x); }

int GetDecayLife() { return DecayLife; }

void SetCorpse(object who) {
    string tmpshort = (string)who->GetShort();
    if(sizeof(who->GetRiders())) tmpshort = (string)who->GetPlainShort();
    if( DecayLife < 100 ) {
        DecayLife = 500;
    }
    SetKeyName(who->GetKeyName());
    SetId(({ "body","corpse",who->GetId()... }) );
    Owner = who->GetCapName();
    Race = who->GetRace();
    Count = 1;
    Fresh = 1;
    SetShort("the corpse of "+tmpshort);
    SetLong("As you look closely at " + who->GetCapName() +
      ", you notice that " +  nominative(who) +
      " does not appear to be moving.");
}

int isFreshCorpse() {
    return Fresh;
}

string GetHealthShort() {
    return "%^RED%^" + GetShort();
}

string GetOwner() { return Owner; }

string GetRace() { return Race; }

string GetSaveString() { return 0; }

int CanReceive(object ob) { return 1; }


static void create() {
    ::create();
    SetId( ({ "corpse", "flesh", "remains" }) );
    SetAdjectives( ({"pile of", "rotting", "stinky"}) );
    Count = 0;
    CallOut = 0;
    DecayLife = 100;
    Owner = 0;
    Race = 0;
    SetNoCondition(1);
}

int direct_animate_obj() {
    return 1;
}

int direct_offer_obj() {
    return 1;
}

string GetItemCondition() { return "";}