#include <lib.h>
#include <damage_types.h>

inherit LIB_NPC;

void SetStuff(int level);
void SetType(string what);
int count;

static void create(int level) {
    string type;
    npc::create();
    SetId(({"blob"}));
    if(level < 40) type = "rodent";
    if(level > 39 && level < 50) type = "bear";
    if(level > 49 && level < 70) type = "golem";
    if(level > 69 && level < 90) type = "unicorn";
    else type = "dragon";
    count = level;
    SetType(type);
}

void SetType(string what) {
    SetRace(what);
    if(!SetClass("monk")) SetClass("fighter");
    SetLevel(to_int(count/12));
    SetGender(({"female","male"})[random(2)]);
    switch(what) {
        case "rodent":
            SetLong("A cute little chipmunk.");
        SetShort("a chipmunk");
        SetKeyName("chipmunk");
        SetId(({"chipmunk"}));
        break;
        case "bear":
            SetLong("A big black bear.");
        SetShort("a bear");
        SetId(({"bear"}));
        SetKeyName("bear");
        break;
        case "golem":
            SetLong("A threatening looking golem.");
        SetShort("a golem");
        SetId(({"golem"}));
        SetKeyName("golem");
        break;
        case "unicorn":
            SetLong("A noble unicorn.");
        SetShort("a unicorn");
        SetId(({"unicorn"}));
        SetKeyName("unicorn");
        break;
        case "dragon":
            SetLong("A huge dragon with a threatening visage.");
        SetShort("a dragon");
        SetId(({"dragon"}));
        SetKeyName("dragon");
        break;
    }
}

void heart_beat() {
    ::heart_beat();
    count--;
    if(count <= 10) send_messages("flicker","$agent_name $agent_verb.",
            this_object(),0,environment());
    if(count <= 0) {
        send_messages("flicker","$agent_name slowly $agent_verb out"
                " of existence...",this_object(),0,environment());
        eventDestruct();
    }
}