Class Room has light;

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

Class Decoration
    with before [;
        Take,Pull,Push,PushDir:
            print_ret "You can't do that with ", (the) self, ".";
    ],
    has static;

Class Furniture
    class Decoration,
    with before [;
        Take,Pull,Push,PushDir:
            print_ret (the) self, " is too heavy for that.";
    ],
    has supporter;