Deny access to the server room from the hallway

[the-server-room.git] / the-server-room.inf

diff --git a/the-server-room.inf b/the-server-room.inf
index fe4318221f07e6efbf76f3bc59923659bc00f5ae..f2855612b3834d96b309f8595a32e3d957b2baaa 100644 (file)
--- a/the-server-room.inf
+++ b/the-server-room.inf
@@ -38,7 +38,7 @@
 Constant Story "The Server Room";
 Constant Headline "^An Interactive Fiction by Daniel Bartholomew.^";
 Release 1;
-Serial "080625";                        !for keeping track of public releases
+Serial "190908";
 Constant MAX_SCORE = 6;
 Include "parser";
 Include "verblib";
@@ -62,7 +62,11 @@ Object  break_room "Break Room"
   has   light;
 
 Object  fridge "refrigerator" break_room
-  with  description "Your standard refrigerator.",
+  with  description
+            "This refrigerator makes a statement with a sleek, modern
+            and minimal stainless steel design. Featuring large doors
+            it seems quite an impressive refrigerator that can hold a
+            lot.",
         name 'fridge' 'refrigerator',
   has   container openable scenery;
 
@@ -75,11 +79,14 @@ Object  counter "long counter" break_room
   has   static supporter scenery;
 
 Object  microwave "microwave" counter
-  with  description "Your standard microwave.",
+  with  description
+            "A combination of silver and black, this microwave looks
+            like a real workhorse. It's compact, quiet, and works
+            great.",
         name 'microwave' 'micro',
   has   container openable scenery;
 
-Object  table "Table" break_room
+Object  table "table" break_room
   with  description "It's a table. Were you expecting something else?",
         name 'table',
         before [;
@@ -90,7 +97,12 @@ Object  table "Table" break_room
   has   supporter;
 
 Object  backpack "backpack" table
-  with  description "Your backpack.",
+  with  description
+            "This backpack looks like a modern art piece that was
+            made using brown and light blue-green watercolors. A black
+            line was traced around to make the stitching lines.
+            Well-worn and quite suitable for travel, it looks like it
+            could carry a lot of belongings.",
         name 'pack' 'back' 'bag' 'backpack',
         article "your",
         before [;
@@ -121,23 +133,20 @@ Object  disc "Trisquel CD" backpack
 Object  hallway "Hallway"
   with  description
             "Bereft of features, adornment or even adequate lighting,
-             this hallway is as plain as they come. Doors lead east
-             back to the break room, north to the server room, or
-             west to the restrooms.",
+            this hallway is as plain as they come. Doors lead east
+            back to the break room, north to the server room, or
+            west to the restrooms.",
         e_to break_room,
-        n_to server_room,
+        n_to
+            "You use your key card to open the server room door but
+            instead of a beep of approval and an unlocked door you
+            get a buzz of denial and the door remains locked. Plus:
+            Through the window in the door you can see someone moving
+            around inside but there shouldn't be anyone else here
+            today.",
         w_to
             "When nature calls, you'll know about it, but right now,
             it isn't calling.",
-        before [;
-          Go:
-            if (noun == n_obj) {
-                StartDaemon(server_room);
-                print
-                    "^^You use your key card to open the server room
-                    door and step into your world.^";
-            }
-        ],
   has   light;
 
 Object  server_room "Server Room"
@@ -149,9 +158,7 @@ Object  server_room "Server Room"
             up rack 7. The little indicator light is blinking red, and
             it is beeping.",
         s_to hallway,
-        daemon [;
-            if (location ~= server_room)
-                return;
+        each_turn [;
             beeping = random(7);
             switch (beeping) {
               1:
@@ -187,6 +194,9 @@ Object  tray "tray" server_room
   with  description "It's a CD tray. Just like every other CD tray.",
         name 'cd' 'tray',
         before [;
+          Receive:
+            if (noun ~= disc)
+                print_ret (The) noun, " is too big to fit.";
           Open:
             if (openedtray == 1) {
                 score = score + 2;