#include <mudlib.h>

inherit MONSTER;
void make_nuts();
void reset(status arg) {
  ::reset(arg);

  if(arg && !present("nuts"))
    make_nuts();

  else {
    set_name("possum");
    set_alias("possum");
    set_short("A cute little ring tailed possum");
    set_long("A little grey possum. Although it looks cute and timid \n"+
             "it will probably right to keep its home, here in the rafters\n"+
             "here above the rotunda.\n");
    set_gender(random(2) + 1);
    set_race("possum");
    set_level(1);
    set_hp(50);
    set_ac(3);
    set_wc(5);
    load_chat(10,({ "Possum chatters away.\n",
     "Possum runs around in the rafters.\n",
     "Possum chatters happily.\n",
     "Possum chatters hungrily.\n",
     "Possum chatters noisily.\n",
     "Possum searches for more nuts.\n",
     "Possum bounces around.\n",
    }));

    load_a_chat(10,({ "Possum yelps in pain.\n",
     "Possum cries out for help!\n",
     "Possum snarls ferociously.\n",
     "Possum tries to run away, but fails!\n",
    }));
    set_heart_ob(this_object());
    make_nuts();
  }
}

void monster_heart_beat() {
  if(present("nuts") && !random(10)) 
    command("eat nuts",this_object());  /* he eats them!! */
}

void make_nuts() {
  object obj;
  int i;
  for(i=0; i<random(4)+1; i++) {
    obj = clone_object(FOOD);
    obj -> set_name("nuts");
    obj -> set_short("Some nuts");
    obj -> set_long(
               "A handful of tasty gum nuts.\n");
    obj -> set_value(5);
    obj -> set_weight(1);
    obj -> set_room_msg(
          "@@query_name:$this_player()$@@ hungrily munches on some "+
          "@@query_name:$this_object()$@@.\n");
    obj -> set_consumer_msg("The nuts taste so yummy! It's no wonder "+
          "possums love them so much!\n");
    obj -> set_strength(5);
    move_object(obj, this_object());
  }
}