#include "path.h"
inherit CASTLE+"baseroom.c";
int done;
void setup() { my_setup();
set_short("Realm of the Orc: Dungeon Room");
set_light(40);
set_long("\n Realm of the Orc: Dungeon Room.\n\n"
" This is a poor place to live "
"but no one lives here because they want to. Next to "
"the northern wall, there is a small cot. Other than that "
"you notice nothing that attracts any interest.\n\n");
add_item("cot"," This is a small wooden cot that would normally "
"be of no interest at all. However, this one is "
"because it is occupied by the skeletal remains of some "
"poor creature. \n");
add_item(({"remains","creature","skeleton"})," The deceased "
"creature looks to be a Dwarf of some high standing. The "
"clothes on the body seem to have a regal look to them. "
"There seems to be something clenched in the bony hand of this "
"poor creature.\n");
add_item(({"finger","hand"}),"What are left of the fingers of this "
"bony hand seem to be clentching something. "
"You might be able to open the hand and get it. "
"\n\n");
add_exit("east",DUNGEON +"dungeon13","door");
}
void init()
{
add_action("do_open","open");
::init();
}
void reset()
{
::reset();
done = 0;
}
int do_open(string str)
{
if(str == "hand")
{
if(done)
{
write(" It would appear that someone has beaten you to "
"the crown, perhaps you should try later.\n");
return 1;
}
if(!done)
{
done = 1;
write("\nYou manage to pry a crown out of the "
"skeletal hands.\n");
clone_object(MISC+"crown.c")->move(this_player());
this_player()->add_property("ORC_CROWN",1);
return 1;
}
}
else
{
return 0;
}
}