Discoverable lab coat

src/item/labCoat.t

@@ -0,0 +1,38 @@
+labCoat: Container
+  'bloody cloth'
+  'bloody cloth'
+  @dumpster
+  " The lab coat labeled <q>Dr. Smith</q>.
+    Aside from the bloodstains,
+    you can see some sloppy cuts obviously made in a hurry.
+    << labKey.location == labCoat
+      ? '<br>Something heavy is hidden inside one of the pockets. '
+      : ''>>"
+
+  firstLook = nil
+  initDesc = "
+    <<firstLook ? 'It\'s' : 'The lab coat'>>
+    covered in blood. <br>
+    You should take a closer look.
+    <<firstLook = nil>>"
+
+  dobjFor (Examine) {
+    action() {
+      if (!described) changeName();
+      inherited();
+    }
+  }
+
+  changeName () {
+    name = 'lab coat';
+    firstLook = true;
+    initializeVocabWith('cutted lab coat');
+    "The bloody cloth turns out to be a cutted lab coat.";
+  }
+;
+
++ labKey: Key, Hidden
+  'massive steel lab key*keys'
+  'massive key'
+  "Key"
+;

src/room/pinkRoom.t

@@ -11,3 +11,29 @@ pinkRoom: Room
   "Small security device without any visible indicators."
   specialNominalRoomPartLocation = defaultSouthWall
 ;
+
++ Decoration
+  'label'
+  'label'
+  "Label says <q>CAUTION! Do Not Load Over Top of Container</q>."
+;
+
++ dumpster: OpenableContainer
+  'big garbage container/dumpster'
+  'dumpster'
+  " A large metal container. <br>
+    The label says
+    <q>CAUTION! Do Not Load Over Top of Container</q>.
+    <br>"
+;
+
+
+++ Decoration
+  'construction waste/bricks/fragments/remains'
+  'construction waste'
+  " Gray bricks,
+    fragments of the wall and
+    the remains of the nearest door.
+    <br>Nothing intresting."
+  isListed = true
+;