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());
}
void init(){
    ::init();
}