Elevator

src/room/blackRoom.t

@@ -0,0 +1,16 @@
+blackRoom: Room
+  'Long corridor'
+  " Long corridor.
+
+    <<blackElevatorDoor.makeOpen(nil)>>
+    <<blackElevatorDoor.makeLocked(true)>>"
+;
+
++ blackElevatorDoor: IndirectLockable, Door, RoomPartItem
+  'elevator door*doors'
+  'elevator doors'
+  " Steel doors marked <q>restricted access</q>.
+    <br>There are no controls here."
+
+  specialNominalRoomPartLocation = defaultWestWall
+;

src/room/pinkRoom.t

@@ -1,9 +1,11 @@
 pinkRoom: Room
   'Changing room'
   " An elevator vestibule with a row of lockers,
-    a dumpster and posters with safety rules. "
+    a dumpster and posters with safety rules.
+    <br>You can see the elevator doors on the north wall. "
 
   east = cyanRoom
+  south = elevatorDoor
 ;
 
 + Decoration
@@ -21,13 +23,6 @@ pinkRoom: Room
   ]}
 ;
 
-+ Decoration, RoomPartItem
-  'keycard reader'
-  'keycard reader'
-  "Small security device without any visible indicators. "
-  specialNominalRoomPartLocation = defaultSouthWall
-;
-
 + Decoration
   'dumpster label'
   'dumpster label'