Add richer room descriptions

diff --git a/the-mall.inf b/the-mall.inf
index b1d075d5035b3dca08222e2ff44a2985f13d1d8e..08268a3ace68344eeaa5f33bb700a85aee9df7fc 100644 (file)
--- a/the-mall.inf
+++ b/the-mall.inf
@@ -26,39 +26,92 @@ IFID 1AB626D5-E03F-4F03-836C-50F65B643B9B^";
 Include "parser";
 Include "verblib";
 Release 0;
 Include "parser";
 Include "verblib";
 Release 0;

-Serial "190322";
+Serial "190323";

 
 Object bank "Bank of Zork"
 with    description "The local branch of the Bank of Zork, the 
        largest banking institution of the Great Underground Empire. 
 
 Object bank "Bank of Zork"
 with    description "The local branch of the Bank of Zork, the 
        largest banking institution of the Great Underground Empire. 

-       The bank vault is to the north, and a small office is to the 
-       south. As with all branches of the Bank of Zork, a portrait 
-       of J. Pierpont Flathead hangs on the wall.",
+       The walls are redpainted and there is a distinct wash of pine 
+       and sandalwood that hovers in the air. Beyond the lobby of the 
+       bank, to the north, lies the vault. The air there is dark-- 
+       almost heavy-- and thick with the scents of fresh paper and 
+       silver and copper. A darkened office sits to the south. As 
+       with all branches of the Bank of Zork, a portrait of J. 
+       Pierpont Flathead hangs on the wall.",

 n_to   vaultdoor,
 s_to   securityoffice,
 w_to   mall,
 has    light;
 
 Object closet "Closet"
 n_to   vaultdoor,
 s_to   securityoffice,
 w_to   mall,
 has    light;
 
 Object closet "Closet"

-with    description "You've seen better closets, but at least this 
-       one seems pretty standard.",
+with    description "In the closet of the workshop, it is mostly 
+       dark. Here lie the new supplies waiting to be taken out to 
+       customers to make new teddy bears. Their beady eyes glisten as 
+       they reflect the light from the workshop, their bodies 
+       deflated in some places, bulging unnaturally in others.",

 e_to   workshop,
 has     light;
 
 e_to   workshop,
 has     light;
 

+object bears "teddy bears" closet
+with    name 'bear' 'bears' 'teddy' 'teddies' 'ted',
+before  [; Take,Pull,Push,PushDir:
+        print_ret "Shoplifting isn't the answer."; ],
+has     scenery;
+

 Object cookhouse "Cookhouse"
 Object cookhouse "Cookhouse"

-with    description "This is a restaurant called The Cookhouse, 
-       although since the mall closed all of the patrons have left.",
+with    description "The glowing letters atop indicate that this 
+       restaurant is called ~The Cookhouse.~ There's a light 
+       smokiness in the air, and the tables are covered in 
+       soft-looking linen tablecloths. Although, since the mall 
+       closed, all of the patrons have left.",

 n_to   mall,
 has     light;
 
 n_to   mall,
 has     light;
 

+Object table2 "table" cookhouse
+with name 'table',
+has     scenery supporter;
+
+Object tablecloth "tablecloth" table2
+with   name 'tablecloth' 'linen' 'cloth',
+       description "It's made of soft-looking linen.",
+before  [; Take,Pull,Push,PushDir:
+        print_ret "Shoplifting isn't the answer."; ],
+has     scenery;
+

 Object securityoffice "Security Office"
 with    description "A small office belonging to the bank's security 
 Object securityoffice "Security Office"
 with    description "A small office belonging to the bank's security 

-       officer. You scan the room, seeing a table.",
+       officer. You scan the room, seeing a table and a large bulky 
+       television.",

 n_to    bank,
 has     light;
 
 n_to    bank,
 has     light;
 

+Object television "television" securityoffice
+with   name 'television' 'tv' 'screen' 'monitor',
+       description "It's big, gray, and one of those old-fashioned 
+       CRT models.",
+watch_count 0,
+before [; Listen,Examine:
+       if (television has on) {
+       self.watch_count = self.watch_count + 1;
+       switch (self.watch_count) {
+       default: print "It's big, gray, and one of those old-fashioned 
+       CRT models. It looks very heavy.^The TV is currently switched 
+       on. It's showing grainy footage at odd angles from the vault's 
+       security cameras.^"; return true;
+       }
+       };
+       Take,Pull,Push,PushDir:
+       print_ret "The television is firmly attached to the wall.";
+       ],
+       after [; SwitchOn:
+               print "The television comes to life, showing grainy 
+               footage at odd angles from the vault's security 
+               cameras.^"; return true;
+       ],
+has    scenery switchable;
+

 Object table "table" securityoffice
 Object table "table" securityoffice

-with name 'table',
+with   name 'table',

         description "Made from metal, it looks to be a solid and 
        hefty table.",
 has    scenery supporter;
         description "Made from metal, it looks to be a solid and 
        hefty table.",
 has    scenery supporter;


@@ -75,8 +128,10 @@ with        name 'keycard' 'key' 'card',
        description "The keycard is used to open things.";
 
 Object mall "Mall"
        description "The keycard is used to open things.";
 
 Object mall "Mall"

-with   description "You're in the main walkway. An ordinary kind 
-       of place, with stores all around. The mall's exit is to the 
+with    description "You're in the main walkway. It's bright and clean 
+       with stores all around. Pale light glimmers off the polished 
+       tile like sunlight on water. The quietness of the closed mall 
+       floats by as if on the wind. The mall's exit is to the 

        southwest.",
 n_to   workshop,
 s_to   cookhouse,
        southwest.",
 n_to   workshop,
 s_to   cookhouse,


@@ -87,8 +142,9 @@ has  light;
 
 Object mallexit "door" mall
 with   name 'door' 'exit',
 
 Object mallexit "door" mall
 with   name 'door' 'exit',

-        description "A large doorway to the outside world, with the 
-       word ~Exit~ written above.",
+        description "A revolving door to the outside world, with the 
+       word ~Exit~ written above. Sunlight streams crisply in 
+       through the glass.",

 with_key keycard,
 before [; unlock: deadflag = 2; return true;
        ],
 with_key keycard,
 before [; unlock: deadflag = 2; return true;
        ],


@@ -106,11 +162,40 @@ Object salon "Salon"
 with    description [; print "You've just sauntered into a salon.";
        if (salon hasnt visited) print " Suddenly you bump your head 
        on the ceiling, but it's not such a bad bump that it's going 
 with    description [; print "You've just sauntered into a salon.";
        if (salon hasnt visited) print " Suddenly you bump your head 
        on the ceiling, but it's not such a bad bump that it's going 

-       to prevent you from looking at objects and even things.";
+       to prevent you from looking at things.";

        if (salon has visited) print " Remembering the low ceiling, 
        if (salon has visited) print " Remembering the low ceiling, 

-       you take care not to bump your head.";
+       you take care not to bump your head."; print " Behind the 
+       reception desk is a small display made up of backlit shampoos 
+       and conditioners in various shades of translucent blue. 
+       Continuing to the west is another room.";

        new_line; ],
 e_to   mall,
        new_line; ],
 e_to   mall,

+w_to   salon2,
+has     light;
+
+object desk "reception desk" salon
+with    name 'desk' 'reception',
+has     scenery;
+
+object shampoo "shampoos" salon
+with    name 'shampoo' 'shampoos' 'display',
+before  [; Take,Pull,Push,PushDir:
+        print_ret "Shoplifting isn't the answer."; ],
+has     scenery;
+
+object conditioner "conditioners" salon
+with    name 'conditioner' 'conditioners',
+before  [; Take,Pull,Push,PushDir:
+        print_ret "Shoplifting isn't the answer."; ],
+has     scenery;
+
+Object salon2 "Salon"
+with    description "This is a tranquil glasslit room where the 
+       stylists would work on peoples' hair. You can imagine the 
+       sounds of clipping shears and buzzing razors resounding 
+       through the air with the clarity of a ringing bell when this 
+       place is open.",
+e_to    salon,

 has     light;
 
 Object vaultdoor "vault door" bank
 has     light;
 
 Object vaultdoor "vault door" bank