Object computer "Computer"
    with name 'computer' 'ship',
        description "The computer of the ship uses non-sentient artificial intelligence^
            It can perform many tasks and answer questions.",
        found_in [; rtrue; ],
        orders [loc ;
            loc = parent(player);
            SetTo:
                if (noun == lights && second == 'full') {
                    give loc light;
                    print_ret "Lights at full.";
                }
                if (noun == lights && (second == 'zero' || second == 'off')) {
                    give loc ~light;
                    print_ret "Lights are off.";
                }
                print_ret "I do not know how to set ", (the) noun, " to ", (address) second;
            Open:
                switch(noun) {
                    bunk:
                        give noun open;
                        print_ret (The) noun, " is open.";
                }
            Close:
                switch(noun) {
                    bunk:
                        give noun ~open;
                        print_ret (The) noun, " is closed.";
                }
            Tell:
                ! @todo fill this out for various things to talk about
                print_ret "You want me to tell you about ", (string) second;
            NotUnderstood: print_ret "I do not understand.";
        ],
    has animate scenery;

Object lights "Lights"
    with name 'lights',
    found_in [; rtrue; ],
    has static scenery;