redRoom: other interior

src/room/redRoom.t

@@ -18,6 +18,13 @@ redRoom: Room
   specialNominalRoomPartLocation = defaultWestWall
 ;
 
++ Decoration
+  'light*lights/lamp*lamps/system'
+  'light system'
+  " Complex lighting system.
+    <br>Only a few lamps are lit. "
+;
+
 + Bed, Heavy
   'operating table'
   'operating table'
@@ -28,8 +35,29 @@ redRoom: Room
 ;
 
 + Decoration
-  'light*lights/lamp*lamps/system'
+  'medical equipment/holders/manipulators'
-  'light system'
+  'medical equipment'
-  " Complex lighting system.
+  " Auxiliary manipulators
-    <br>Only a few lamps are lit. "
+    and holders for medical instruments. "
+;
+
++ Heavy, Surface
+  'medical supplies desk/table'
+  'table with medical supplies'
+  " A large table with
+    two compartments
+    for storing supplies. "
+;
+
+++ Component, IndirectLockable, OpenableContainer
+  'top compartment*compartments'
+  'top compartment'
+  "A compartment for storing supplies. "
+;
+
+++ Component, IndirectLockable, OpenableContainer
+  'bottom compartment*compartments'
+  'bottom compartment'
+  " A large compartment for storing supplies.
+    <br>Marked with <q>Environmental hazard</q> sign. "
 ;

test/gotoRedRoom

@@ -0,0 +1,16 @@
+>turn on the light
+>w
+>open locker
+>take floss
+>e
+>s
+>s
+>take tape
+>w
+>open dumpster
+>take cloth
+>search cloth
+>take key
+>e
+>unlock door
+>e