#include "path.h"
inherit "/std/room";
object booklet,chainmail;
void setup()
{
set_short("Trolls Cave");
set_long("This is a large cave with a largish entrance to the "
"North and and a smaller seemingly disused entrance to "
"the South. In the room is a Pile of bones, a small "
"fire and a mouldy head. There are no stools strong "
"enough to hold you which explains why there aren't any. "
"By the fire is a small taterred booklet, possibly the "
"next fire lighter. There is a pile of blankets in one "
"but apart from that the room seems bare.\n");
add_property("no_undead",1); set_light(100);
add_item("Cave", "This is a stone carved cave.\n");
add_item("Bones", "These seem to be of Goblioid type, possibly an orc's.\n");
add_item("Head" ,"Hmm, well it's a human head but it's green...must've gone "
"off. Looks tasty you think.\n");
add_item("Blankets", "These are large and worn, but may keep you warm..\n");
add_alias("cave", "Cave");
add_alias("lair", "Cave");
add_alias("bones", "Bones");
add_alias("head", "Head");
add_alias("blankets", "Blankets");
add_exit("leave", "/d/ss/daggerford/ladyluck", "door");
add_exit("north", PATH+"troll2", "door");
}
void reset()
{
if(!sizeof(find_match("booklet", this_object())))
{
booklet = clone_object(BOOK);
booklet->move(this_object());
}
} /* void reset */
void dest_me()
{
if (booklet) booklet->dest_me();
if (chainmail) chainmail->dest_me();
::dest_me();
}
int do_search(string str)
{
if (!chainmail)
{
chainmail=clone_object("/d/ss/baseobs/chainmail");
chainmail->move(this_player());
write("You find a Large Chainmail suit. It "
"is well rusted and worn, but may be of some use.\n");
tell_room(environment(this_player()), "searches arround and finds a "
"rusted chainmail.\n", (this_player()));
return 1;
}
notify_fail("You find nothing of interest");
tell_room(environment(this_player()), "scrambles arround for no "
"apparent reason", (this_player()));
return 0;
}
void add_equipment()
{
object boo;
boo = clone_object("/baseobs/weapon/spear");
boo->move(this_object());
/* You can use boo for all the equipment..*/
boo = clone_object("/baseobs/armour/cloak");
boo->move(this_object());
return;
}