Class Room has light;

Class Set
    with before [;
        Examine: return false;
        default: print_ret "You can't do that with ", (the) self, ".";
    ],
    has scenery;