/* Text alterations and additions by Grimbrand 2-4-96 */
#include "path.h"
inherit "/std/underground";
object *npcs;
void reset() {
int i;
for(i=0;i<sizeof(npcs);i++) {
if(!npcs[i]) {
npcs[i]=clone_object(DNPC+"dmaster04");
npcs[i]->move(this_object());
}
}
}
void setup() {
add_property("no_undead",1); set_light(10);
npcs = allocate(1);
set_short("Realm of the Duergar: Lore Masters Office");
set_long("\n Realm of the Duergar: Lore Masters Office.\n\n"
" Entering the office of the Lore Master you realize that "
"he is here to teach young duergar how to identify the "
"various races found throughout the realms. The room is "
"very spartanly furnished with only a desk and a chair for the "
"lore master to use. It might be wise to \"listen\" very "
"closely to his speech."
"\n\n");
add_item("desk",
" The desk appears to made out of some kind of hard, "
"dark wood. Upon the desk you can see quite a few scattered "
"papers giving it a cluttered look."
"\n\n");
add_item("chair",
" The chair behind the desk looks to be incredibly "
"comfortable and made by what could only be the finest of "
"craftsmen."
"\n\n");
add_item(({"papers","paper"}),
" Looking at the papers scattered across the desk, you begin "
"to make out what looks to be a list of names. Some of the "
"names seem to have been marked out with a reddish-brown "
"colored ink. Peering closer you start to read the first name "
"which is\n\n"
"Girthwer snatches the list from the desktop and quickly shoves "
"it into his pocket.\n\n"
"Girthwer says: Why don't ye mind yer own business!"
"\n\n");
add_exit("north",NEWBIE+"dlev5_01","door");
add_exit("south",NEWBIE+"main03","door");
modify_exit("north",({"function","bouncer"}));
}
void dest_me() {
int i;
/* if we kill off the room, kill off the contents as well */
for(i=0;i<sizeof(npcs);i++)
if(npcs[i]) npcs[i]->dest_me();
::dest_me();
}
int bouncer() {
int lv,xp;
object me = this_player();
lv = (int)me->query_level();
xp = (int)me->query_xp();
if(lv == 4 && xp < 20500) {
write(" The heavy door opens silently, allowing you to enter the next "
"room.\n\n");
tell_room(environment(me), me->query_cap_name()+" steps towards the "
"door and it opens quietly, allowing "+me->query_objective()+
" to enter the room beyond.\n\n",
({this_player()}));
return 1;
}
notify_fail(" You try to enter the training area, but the door doesn't "
"open.\n\n");
tell_room(environment(me), me->query_cap_name()+
" is unable to enter the Training Area.\n\n",
({this_player()}));
return 0;
}