inherit "std/room";

void create() {
   object pedestal, box;
   object for_test_only;

   ::create();
   set_short("among the roots of the tree");
   set_long(
"Here, among the huge, stalactite-like roots of the fabled mages' tree, a "+
"large room has been excavated. All moisture is magically funneled to the "+
"roots, so the air here is very dry. Apart from the tree itself (and the "+
"occasional mage), no life dares intrude upon the silence of this place. "+
"In the center of this room, a small pedestral juts up from the ground, while, "+
"Close to the north wall, a donations box reminds you of your financial "+
"responsibility to your class. A small stairway to the east leads up into "+
"the heart of the mage tree. ");
   set_properties( (["light"     : 2, 
		     "indoors"   : 1 ,
		     "no castle" : 1]) );
    set_items( ([
"room"       :  (: this_object(), "print_long" :),
"tree"       : "You are among the roots of the tree.",
"north wall" : "Near the north wall of the tree there's a donation box",
"wall"       : "Near the north wall of the tree there's a donation box",
"roots"      : "These enormous roots supply nourishment for the immense mage "+
               "tree. According to legend, the roots reach the very core of "+
               "the world, effectively making the mage tree as permanent as "+
               "the Earth. ",
"stairway"   : "The stairway has been carved out of the roots.  It seems "+
               "unsturdy, but as soon as you step on it you are reassured, "+
               "for the stairway partakes of the infinite stability of the "+
               "tree itself. "]) );
   set_exits( (["up" : "/domains/Praxis/mage_hall"]) );
    box = new("/realms/nialson/mages/donation");
   box->move(this_object());
   pedestal = new("/domains/Praxis/obj/misc/pedestal");
   pedestal->move(this_object());
#if 0
   for_test_only = new("/domains/Praxis/obj/magic/ball");
   for_test_only->move(this_object());
#endif
}

void print_long() {
write (this_object()->query_long());
}