Style and polish

src/actor/surgeryAssistant.t

@@ -18,8 +18,7 @@ surgeryAssistant: Person
 + Decoration
   'indicator display'
   'indicator display'
-  " You can see the message
+  "Small indicator display. "
-    <q>Connection lost</q> on the indicator display. "
 ;
 
 + Decoration
@@ -28,6 +27,8 @@ surgeryAssistant: Person
   "Parts of this mechanism look very technologically advanced. "
 ;
 
+/* Offline */
+
 + HermitActorState
   specialDesc = "
     There's a surgical assistant in the corner of the room. "
@@ -45,6 +46,8 @@ surgeryAssistant: Person
   isInitState = true
 ;
 
+/* Online */
+
 + robotOnline: InConversationState
   specialDesc = "
     The surgical assistant examines the room. "

src/item/advertisingDisplay.t

@@ -1,12 +1,11 @@
 advertisingDisplay: Decoration
   'bright lcd screen/display/monitor'
   'bright lcd display'
+  @yellowRoom
   " Huge and bright display mounted on the wall.
     <br>Images changes one by another.<.p>
     On the screen you see "
 
-  location = yellowRoom
-
   dobjFor (Examine) {
     action () {
       inherited;

src/item/lockers.t

@@ -5,7 +5,7 @@ lockers: Fixture
   " A row of service lockers with a numpad keyboard on the side.
     <br>This row, according to the signs,
     includes (from left to right) the lockers of
-    Dr. O'Neill, Alice, and Mark. "
+    <br>Dr. O'Neill, Alice Dash, and Mark Hopper. "
 ;
 
 modify VerbRule(SetTo)
@@ -27,8 +27,7 @@ modify VerbRule(SetTo)
       : '0';
   }
 
-  dobjFor(TypeLiteralOn)
+  dobjFor (TypeLiteralOn) remapTo(SetTo, self, OtherObject)
-    remapTo(SetTo, self, OtherObject)
 
   dobjFor (SetTo) {
     action () {

src/item/tape.t

@@ -1,11 +1,11 @@
 tapeWall: Thing, RoomPartItem
   'striped safety tape*tapes'
   'safety tape'
+  @cyanRoom
   " Many layers of strips of
     two-tone safety tape obscure the doorway.
     <br>Looks like the black and yellow wall. "
 
-  location = cyanRoom
   specialNominalRoomPartLocation = defaultWestWall
 
   isListed = nil

src/item/whitePanels.t

@@ -7,6 +7,8 @@
     orangeRoom,
     orangeBathroom,
     yellowRoom,
-    cyanRoom
+    cyanRoom,
+    pinkRoom,
+    redRoom
   ]
 ;

src/room/orangeBathroom.t

@@ -10,6 +10,12 @@ orangeBathroom: Room
   'shower cabine'
   'shower cabine'
   "It's a minimalistic shower cabine. "
+
+  dobjFor (Take) {
+    verify () {
+      illogical('Not now. ');
+    }
+  }
 ;
 
 + Decoration

src/room/orangeRoom.t

@@ -48,7 +48,8 @@ orangeRoom: DarkRoom
     isListed = val ? nil : true;
 
     val
-      ? "You hear slight hum of neon lamps, followed with bright light."
+      ? " You hear slight hum of neon lamps,
+          followed with bright light. "
       : " Darkness filled the room. ";
   }
 ;

src/room/yellowRoom.t

@@ -23,7 +23,7 @@ yellowRoom: Room
 + orangeDoorOutside: Door, AutoClosingDoor, RoomPartItem
   -> orangeDoor
   'orange door*doors'
-  'door with <b>orange</b> triangle'
+  'orange door'
   " Sliding door with the number
     <q><<gameMain.experimentNumber>></q>
     and an orange triangle.<br>"
@@ -32,7 +32,7 @@ yellowRoom: Room
 
 + khakiDoor: IndirectLockable, Door, RoomPartItem
   'khaki door*doors'
-  'door with <b>khaki</b> triangle'
+  'khaki door'
   " Sliding door with the number
     <q><<gameMain.experimentNumber - 1>></q>
     and a khaki triangle.<br>"
@@ -42,7 +42,7 @@ yellowRoom: Room
 
 + brownDoor: IndirectLockable, Door, RoomPartItem
   'brown door*doors'
-  'door with <b>brown</b> triangle'
+  'brown door'
   " Sliding door with the number
     <q><<gameMain.experimentNumber - 2>></q>
     and a brown triangle.