/* This monster has a self destructing corpse. */
/* That is, it leaves no corpse when it dies.  */
/* Author : Goosestep                          */

inherit "inherit/monster";

void reset(status arg) {
  ::reset(arg);
  if(arg) return;
  set_name("cat");
  set_alias("demon");
  set_short("Alley Cat");
  set_long(
   "This cat is perhaps a little large and well fed to be an alley\n"+
   "cat. It's black coat has a glossy sheen, and it's eyes are red.\n"+
   "It looks like it means to do violence to you.\n\n");
  set_level(9);
  set_race("cat");
  load_chat(10,   ({ "Meow.\n", }));
  load_a_chat(20, ({ "MEOW!\n", }));
  set_random_pick(100);
  set_attack_msg(({
    "hits",      "weakly",
    "scratches", "on the leg",
    "scratches", "on the arm",
    "bites",     "on the hand",
    "claws",     "across the face",
    "rakes",     "across the abdomen",
    "massacres", "with it's claws",
  }));
  set_magic_resist(50);       /* 50% chance to resist any spell */
  set_aggressive(1);          /* fights players entering room */
  set_dead_ob(this_object()); /* set up to call monster_died() function */
}


/* if monster_died() returns 1, then the monster will not destruct
   itself. But remember that it would have hp < 0, and the fight
   stops. You should return 0 for normal operation.
 */

status monster_died() {
  object corpse;

  tell_room(environment(),
  "The cat falls to the ground and dissipates in a cloud of greasy smoke.\n");
  if((corpse = present("corpse",environment()))) destruct(corpse);
  return 0;
}