int dur;
object oldroom;

set_duration(d) {
    call_out("expire",d);
}

set_oldroom(ob) { oldroom=ob; }

expire() {
    tell_object(environment(),"Your surroundings shift a little.\n");
    call_out("expire2",4);
}

expire2() {
    tell_object(environment(),"You can see the real world coming and the etheral plane fading.\n");
    call_out("expire3",4);
}

expire3() {
    tell_object(environment(),"You drop down from the same height you climbed in.\n");
    environment()->move_player("X",oldroom);
    destruct(this_object());
}