//  /domains/Praxis/obj/mon/spider.c
//  Semi-Random spiders for the Pit of Spiders
//  Part of the Mortal Law system at Nightmare
//  Created by Manny@Nightmare 940831

#include <lib.h>

inherit LIB_NPC;

create() {
    ::create();
    SetKeyName("spider");
    switch(random(5)) {
    case 0:
	SetId( ({ "spider", "leaper", "black leaper" }) );
	SetShort("Black Leaper");
	SetLong("There are few spiders larger and more greusome than "
	  "the infamous Black Leaper..");
	SetLevel(20);
	break;
    case 1:
    case 2:
	SetId( ({ "spider", "timber spider", "giant timber spider" }) );
	SetShort("Giant Timber Spider");
	SetLong("A very large and ugly grey spider.  It looks quite "
	  "hungry.");
	SetLevel(random(3)+12);
	break;
    default:
	SetId( ({ "spider", "cave spider" }) );
	SetShort("Praxis cave spider");
	SetLong("A medium-sized black spider with a cresent-shaped "
	  "moon on its tail end.");
	SetLevel(random(3)+8);
	break;
    }
    SetRace("insect");
    SetGender("male");
    SetAggressive(999999);
    SetDie( (:"death_func":) );
}

int death_func() {
    message("say", "%^RED%^"+this_object()->query_name()+" squeals out "
      "a loud shreak, then falls dead.", environment(this_object()));
    if(!present("spider", environment(this_object()))) {
	int x;

	message("say", "%^RED%^You notice additional spiders "
	  "creeping in from cracks at the base of the pit!", 
	  environment(this_object()));
	for(x=0; x<10; ++x) {
	    new("/"+__DIR__+"obj/mon/spider")->move(environment(this_object()));
	}
    }
    return 1;
}