inherit "room/room";
#include "../valhalla.h"

#ifndef WAYS
#define WAYS ({ }) 
#endif
#ifndef SPEC_DESC
#define SPEC_DESC ""
#endif

reset (int arg)
{ int i;
  ::reset(arg);
  if(arg) return 0;

  set_light(-1);
  short_desc="In a tunnel.",
  long_desc=
"In a tunnel.\n"+
"	You are in a small and really narrow ancient tunnel heading\n"+
"somewhere northwards. Certain unkown sounds and whistles can be heard\n"+
"and make you feel very unpleasant. Not only the sounds and the air threats\n"
"you but also the smell.\n"+SPEC_DESC;

  items=({
	"tunnel","It's a very narrow one",
	"north","You see a long tall tunnel",
	"whistles","You don't see sounds",
         });

   smell="You smell death and rotten flesh";

   for(i=0;i<TUNNEL_MAX;i++)
   if(random(TUNNEL_PROB)==0)
     transfer(clone_object(WIZ+"/walhalla/monster/catamon"),TO);

   dest_dir=WAYS;
}
