Tape wall and parts

experiment.t

@@ -50,6 +50,7 @@ gameMain: GameMainDef
 #include "src/item/advertisingDisplay.t"
 
 #include "src/room/cyanRoom.t"
+#include "src/item/tape.t"
 
 #include "src/room/pinkRoom.t"
 

src/item/tape.t

@@ -0,0 +1,58 @@
+tapeWall: Thing, RoomPartItem
+  'striped safety tape*tapes'
+  'safety tape'
+  " 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
+  isRagged = nil
+
+  dobjFor (Remove) {
+    action () {
+      " After a while, you clear the doorway
+        and make a mess on the floor.";
+
+      isRagged = true;
+
+      location.west = pinkRoom;
+
+      pieceOfTape.makePresent();
+      uselessTape.makePresent();
+
+      self.moveInto(nil);
+    }
+  }
+
+  dobjFor (Break) remapTo(Remove, self)
+  dobjFor (Pull) remapTo(Remove, self)
+
+  dobjFor (Take) {
+    action () {
+      tryImplicitAction(Remove, self);
+
+      "You take one strip.";
+      pieceOfTape.moveInto(me);
+    }
+  }
+;
+
+pieceOfTape: PresentLater, Thing
+  'long safety tape/strip/piece'
+  'long strip of tape'
+  @cyanRoom
+  " Quite a long piece of safety tape.
+    It can serve as a rope."
+;
+
+uselessTape: PresentLater, Decoration
+  'useless mess/tape'
+  'useless mess'
+  @cyanRoom
+  " Small pieces of black and yellow tape,
+    stuck together and crumpled."
+  isListed = true
+;

src/room/cyanRoom.t

@@ -11,13 +11,18 @@ cyanRoom: Room
     living units.
     <br>On the east wall you can see
     the armored door that says <q>Operating room</q>.
-    <br>Enclosed by safety tape,
+    <br><<tapeWall.isRagged
-    the doorway in the west wall
+      ? 'The'
+      : 'Enclosed by safety tape, the'>>
+    doorway in the west wall
     looks damaged and corrupted.
     <.p>"
 
   north = yellowRoom
   east = operatingRoomDoorOutside
+  west: FakeConnector {"
+    Striped safety tape blocks your way.
+  "}
 ;
 
 + Decoration, Fixture
@@ -31,15 +36,8 @@ cyanRoom: Room
 + operatingRoomDoorOutside: LockableWithKey, Door, RoomPartItem
   'armored operating door*doors'
   'armored door'
-  " Armored door marked <q>Operating room</q>.
+  " Armored door marked <q>Operating room</q>
-    <br>Next to the door is a keycard reader
+    and a massive mechanical locking device with a keyhole.
-    and a sign <q>Restricted area</q>.<br>"
+    <br>Next to the door is a sign <q>Restricted area</q>.<br>"
-  specialNominalRoomPartLocation = defaultEastWall
-;
-
-+ Decoration, Fixture, RoomPartItem
-  'keycard reader'
-  'keycard reader'
-  "Small security device without any visible indicators."
   specialNominalRoomPartLocation = defaultEastWall
 ;