+Object lightsocket "light socket" mainroom
+ with name 'light' 'socket' 'lightsocket',
+ before [;
+ Take, Pull, Push, PushDir, Turn:
+ print_ret
+ "You don't have the tools to remove a light
+ socket.";
+ Receive:
+ if (noun ~= lightbulb) {
+ print "Put ";
+ print (a) noun;
+ print_ret
+ " into the light socket? Maybe you should come with a
+ warning label because you contain more than a trace
+ amount of nut.";
+ }
+ if (noun == lightbulb) {
+ give mainroom light;
+ give office light;
+ }
+ ],
+ has scenery container transparent open;
+
+Object lightbulb "light bulb" lightsocket
+ with name 'light' 'bulb' 'lightbulb',
+ after [;
+ Take, Pull, Push, PushDir, Turn:
+ give mainroom ~light;
+ give office ~light;
+ ];
+
+Object office "Office"
+ with description
+ "There seems to have been quite a fight in here. The room
+ is a wreck. Holes are in the walls and the windows are
+ broken, letting in the cold air from outside. Chunks of
+ drywall and insulation cover the floor. The desk has a
+ bullet hole through the middle.",
+ w_to mainroom,
+ has light;
+
+Object desk "solid oak desk" office
+ with name 'solid' 'oak' 'desk',
+ with description
+ "The desk is old and made of solid oak. The right side of
+ it has been smashed and all of the drawers have been
+ removed. A bullet hole goes straight through the middle of
+ the desk.",
+ before [;
+ Take, Pull, Push, PushDir, Turn:
+ print_ret (The) self, " is too heavy for that.";
+ ],
+ has scenery supporter enterable;
+
+Object businesscard "business card" desk
+ with name 'business' 'card',
+ with description
+ "The business card is white and has blacked edges. It
+ bears the name ~Lasting Solutions~, a local data recovery
+ company, in bold letters on the top. The company's
+ website URL is printed in blue at the bottom.";
+
+Object salesreceipt "sales receipt" desk
+ with name 'sales' 'receipt',
+ with description
+ "The sales receipt is for $200, dated three years ago.
+ It's printed on old tractor feed printer paper and bears
+ the name ~Lasting Solutions~, a local data recovery
+ company. A handwritten note is scrawled on the bottom:
+ ~Start working on these hard drives soon.~";
+
+Object computer "computer" desk
+ with name 'computer' 'PC',
+ with description
+ "It's a heavy older model that appears to have been
+ seriously damaged in a fight. It's clearly on its last
+ legs but is perhaps still useful.",
+ before [;
+ Take, Pull, Push, PushDir, Turn:
+ print_ret (The) self, " is too heavy for that.";
+ SwitchOn:
+ if (computer hasnt visited) {
+ print
+ "The computer makes some concerning noises while
+ lights on the front also illuminate. The last
+ file is quickly displayed. ~If anyone else reads
+ this, you're in serious danger. I've been fighting
+ a ferocious grue for the last three days. I'm
+ almost out of supplies and can't last much
+ longer. I'm going to take the last of the supplies
+ and escape through the office window in a
+ last-ditch effort to get away and get back into
+ town. I hope I can make it.~ The computer then
+ makes a sickly sound and finally dies as some
+ smoke comes out of it.^";
+ give computer visited;
+ }
+ else {
+ print
+ "The display briefly flickers but nothing
+ else happens.^";
+ }
+ return true;
+ ],
+ has switchable;
+