#include <std.h>
inherit ROOM;

void create() {
   ::create();
   set_property("light", 1);
   set_short( "Forlock's grave");
   set_long(
      "You are in an old, dark cemetary.  The eerie silence gets on your "
      "nerves.  At your feet is a new grave, dug in haste.  A few faded "
      "blossoms give mute, sad testimony to affections from the past.  A "
      "small marble plaque lies to one side, not having been installed "
      "at the head of the grave yet.");
   set_items(
      (["cemetary" : "All about you stretch the silent graves.  "
	  "You feel like you are being watched.",
	"grave" : "The grave is new and mounded with fresh dirt.",
	"blossoms" : "The flowers are wilted and faded.  They look sad.",
	"writing" : "Here lies poor old Forlock. His last words were: "
	  "Help!! I'm getting line noiss..fjjjdk..%$fffs..*squawk*.."
	  "0w0w0w0w0w!!",
	"plaque" : "The plaque is of grey marble.  You might be able "
	  "to read the writing on it."]) );
   set_exits( 
	     (["northwest" : "/domains/Praxis/cemetary/grave_yard6",
	       "west" : "/domains/Praxis/cemetary/grave_yard2",
	       "southwest" : "/domains/Praxis/cemetary/grave_yard4"]) );
}
void reset() {
  ::reset();
    if (!present("ghost"))
      new("/domains/Praxis/cemetary/mon/ghost5")->move(this_object());
}

void init() {
  ::init();
    add_action("read","read");
}

int read(string str) {
  if(str == "writing" || str == "plaque") {
    write (::query_long("writing"));
    return 1;
  }
  notify_fail("Read what?\n");
  return 0;
}