From dd1407a7073a851f93bfad57ec9541e7780acaaa Mon Sep 17 00:00:00 2001
From: He4eT <He4eTHb1u@gmail.com>
Date: Wed, 13 Nov 2019 03:15:06 +0500
Subject: [PATCH] Tape wall and parts

---
 experiment.t        |  1 +
 src/item/tape.t     | 58 +++++++++++++++++++++++++++++++++++++++++++++
 src/room/cyanRoom.t | 22 ++++++++---------
 3 files changed, 69 insertions(+), 12 deletions(-)
 create mode 100644 src/item/tape.t

diff --git a/experiment.t b/experiment.t
index 8863b25..1f4d497 100644
--- a/experiment.t
+++ b/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"
 
diff --git a/src/item/tape.t b/src/item/tape.t
new file mode 100644
index 0000000..0689ada
--- /dev/null
+++ b/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
+;
diff --git a/src/room/cyanRoom.t b/src/room/cyanRoom.t
index 7a0e08c..e5b7fcd 100644
--- a/src/room/cyanRoom.t
+++ b/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,
-    the doorway in the west wall
+    <br><<tapeWall.isRagged
+      ? '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>.
-    <br>Next to the door is a keycard reader
-    and a sign <q>Restricted area</q>.<br>"
-  specialNominalRoomPartLocation = defaultEastWall
-;
-
-+ Decoration, Fixture, RoomPartItem
-  'keycard reader'
-  'keycard reader'
-  "Small security device without any visible indicators."
+  " Armored door marked <q>Operating room</q>
+    and a massive mechanical locking device with a keyhole.
+    <br>Next to the door is a sign <q>Restricted area</q>.<br>"
   specialNominalRoomPartLocation = defaultEastWall
 ;