49 lines
1.7 KiB
C
49 lines
1.7 KiB
C
#include <lib.h>
|
|
inherit LIB_ROOM;
|
|
|
|
void create() {
|
|
::create();
|
|
SetProperty("light", 1);
|
|
SetShort( "Forlock's grave");
|
|
SetLong(
|
|
"You are in an old, dark cemetery. 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.");
|
|
SetItems(
|
|
(["cemetery" : "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."]) );
|
|
SetExits(
|
|
(["northwest" : "/domains/Praxis/cemetery/grave_yard6",
|
|
"west" : "/domains/Praxis/cemetery/grave_yard2",
|
|
"southwest" : "/domains/Praxis/cemetery/grave_yard4"]) );
|
|
}
|
|
void reset() {
|
|
::reset();
|
|
if (!present("ghost"))
|
|
new("/domains/Praxis/cemetery/mon/ghost5")->move(this_object());
|
|
}
|
|
|
|
void init() {
|
|
::init();
|
|
add_action("read","read");
|
|
}
|
|
|
|
int read(string str) {
|
|
if(str == "writing" || str == "plaque") {
|
|
write (::GetLong("writing"));
|
|
return 1;
|
|
}
|
|
notify_fail("Read what?\n");
|
|
return 0;
|
|
}
|
|
|