inherit "/lib/std/room";

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

    ::create();
    SetShort("among the roots of the tree");
    SetLong(
      "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. ");
    SetProperties( (["light"     : 2, 
	"indoors"   : 1 ,
	"no castle" : 1]) );
    SetItems( ([
	"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. "]) );
    SetExits( (["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()->GetLong());
}
