#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();
    }
}