63 lines
2.1 KiB
C
63 lines
2.1 KiB
C
#include <lib.h>
|
|
|
|
inherit LIB_ROOM;
|
|
|
|
void create() {
|
|
::create();
|
|
SetProperties( ([ "no castle" : 1,"light" : 2, "indoors" : 1]) );
|
|
SetShort("a house with a thatched roof");
|
|
SetLong(
|
|
"The small thatch covered house has been standing for many years. "
|
|
"It is the dwelling of an old, dishonored knight. The house "
|
|
"is very sparse, devoid of any decorations or furnishings. The knight "
|
|
"is quite poor and cannot afford any more than a few meager belongings. "
|
|
"A rough wooden door leads into a room to the south, "
|
|
"and north leads back to Sun Alley.");
|
|
SetItems(
|
|
(["thatch" : "It is beginning to suffer from the weather "
|
|
"and ill-keeping.",
|
|
"house" : "It is very unimpressive.",
|
|
"furnishing" : "Nothing.",
|
|
"decoration" : "Absolutely nothing.",
|
|
"door" : (: this_object(), "look_at_door" :) ]) );
|
|
SetExits( ([
|
|
"north" : "/domains/Praxis/sun1",
|
|
]) );
|
|
SetDoor("/domains/Praxis/locked", "south");
|
|
//present("knight")->eventForce("close door");
|
|
//present("knight")->eventForce("lock door with key");
|
|
}
|
|
|
|
void reset() {
|
|
object mon, key;
|
|
|
|
::reset();
|
|
if(!present("knight")) {
|
|
mon = new("/domains/Praxis/obj/mon/knight");
|
|
mon->move(this_object());
|
|
new("/domains/Praxis/obj/armour/helm")->move(mon);
|
|
mon->command("wear helm");
|
|
key = new(LIB_ITEM);
|
|
key->SetKeyName("key");
|
|
key->SetId( ({ "key", "honor key" }) );
|
|
key->SetShort( "a wooden key");
|
|
key->SetLong("The wooden key is very coarse, and rough. "
|
|
"It doesn't look like it would lead to anything of "
|
|
"importance.");
|
|
key->SetValue(15);
|
|
key->SetMass(40);
|
|
key->move(mon);
|
|
}
|
|
if(query_reset_number() != 1) {
|
|
//present("knight")->eventForce("close door");
|
|
//present("knight")->eventForce("lock door with key");
|
|
}
|
|
}
|
|
|
|
void look_at_door() {
|
|
write("It is a door.");
|
|
}
|
|
void init(){
|
|
::init();
|
|
}
|