get_dark(i) {
    set_light(-1);
    call_out("undark",i);
}

undark() {
    set_light(1);
    say("The magical darkness dissolves.\n");
    destruct(this_object());
}