Restyle the source code
authorJason Self <j@jxself.org>
Sun, 14 Jul 2019 22:19:52 +0000 (15:19 -0700)
committerJason Self <j@jxself.org>
Sun, 14 Jul 2019 22:19:52 +0000 (15:19 -0700)
the-mall.inf

index d90dcdb8c933ab02a307531bf2de4a3b7fba8722..2584eb0dd9b58dfd4f18655e1a2b6d001739f2fa 100644 (file)
 !
 ! You should have received a copy of the GNU Affero General Public 
 ! License along with this file. If not, see https://gnu.org/licenses/
-
 Constant NO_SCORE;
 Constant Story "The Mall";
-Constant Headline "^By Jason Self^
-If you get stuck try typing HELP.^
-This game gives you freedom; you can change and share it under the 
-terms of the GNU Affero General Public License as published by the 
-Free Software Foundation, either version 3 of the License, or (at your 
-option) any later version. See the GNU Affero General Public License 
-for details.^
-IFID 1AB626D5-E03F-4F03-836C-50F65B643B9B^";
+Constant Headline 
+    "^By Jason Self^
+    If you get stuck try typing HELP.^
+    ^Send bugs and feedback by email to j@@64jxself.org.
+    ^Copyright (C) 2019 Jason Self
+    This game gives you freedom; you can change and share it under 
+    the terms of the GNU Affero General Public License as published by 
+    the Free Software Foundation, either version 3 of the License, or 
+    (at your option) any later version. See the GNU Affero General 
+    Public License for details.^
+    IFID 1AB626D5-E03F-4F03-836C-50F65B643B9B^";
 Include "parser";
 Include "verblib";
 Release 0;
-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. 
-       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"
-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;
-
-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"
-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;
-
-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 
-       officer. You scan the room, seeing a table and a large bulky 
-       television.",
-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
-with   name 'table',
-        description "Made from metal, it looks to be a solid and 
-       hefty table.",
-has    scenery supporter;
-
-Object coppercoin "copper coin" table
-with   name 'copper' 'coin' 'zorkmid',
-       description "The coin seems to be very old, in very poor 
-       condition, and somewhat irregular in shape. The only things 
-       clearly visible are what appears to be a name on one side: 
-       Belwit The Flat and a date on the other: 699 GUE.";
-
-Object keycard "keycard" table
-with   name 'keycard' 'key' 'card',
-       description "The keycard is used to open things.";
-
-Object mall "Mall"
-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,
-sw_to  mallexit,
-e_to    bank,
-w_to   salon,
-has    light;
-
-Object mallexit "door" mall
-with   name 'door' 'exit',
-        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;
-       ],
-has    scenery openable locked;
-
-Object portrait "portrait" bank
-with   name 'portrait' 'picture' 'photo',
-       description "It's a portrait of J. Pierpont Flathead. His 
-       portrait adorns every branch of the Bank of Zork.",
-before [; Take,Pull,Push,PushDir:
-       print_ret (The) self, " is firmly attached to the wall."; ],
-has    scenery;
-
-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 
-       to prevent you from looking at things.";
-       if (salon has visited) print " Remembering the low ceiling, 
-       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,
-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
-       with name 'vault' 'safe',
-       description "A large, circular, and hefty door. The words 
-       ~Manufactured By The Frobozz Magic Vault Company~ are engraved 
-       around the edge.",
-       has scenery door openable locked;
-
-Object workshop "Bear Workshop"
-with    description "A workshop for making stuffed bears although by 
-       now everything is put away. The workshop retains a pleasant 
-       atmosphere. You should try going west.",
-w_to   closet,
-s_to   mall,
-has     light;
+Serial "190714";
 
-[ Initialise;
+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 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"
+  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;
+
+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"
+  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;
+
+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 officer. 
+            You scan the room, seeing a table and a large bulky 
+            television.",
+        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
+  with  name 'table',
+        description 
+            "Made from metal, it looks to be a solid and hefty table.",
+  has   scenery supporter;
+
+Object  coppercoin "copper coin" table
+  with  name 'copper' 'coin' 'zorkmid',
+        description 
+            "The coin seems to be very old, in very poor condition, 
+            and somewhat irregular in shape. The only things clearly 
+            visible are what appears to be a name on one side: Belwit 
+            The Flat and a date on the other: 699 GUE.";
+
+Object  keycard "keycard" table
+  with  name 'keycard' 'key' 'card',
+        description "The keycard is used to open things.";
+
+Object  mall "Mall"
+  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,
+        sw_to mallexit,
+        e_to bank,
+        w_to salon,
+  has   light;
+
+Object  tile "tile" mall
+  with  name 'tile' 'tiles',
+  has   scenery;
+
+Object  walkway "walkway" mall
+  with  name 'walkway' 'hallway',
+  has   scenery;
 
-       Location = mall;
+Object  stores "stores" mall
+  with  name 'store' 'stores' 'shop' 'shops',
+  has   scenery;
 
-       "^You fell asleep in the mall. Now it's closed, and the 
-       exit's locked. Can you get out?";
+Object  mallexit "door" mall
+  with  name 'door' 'exit' 'glass',
+        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;
+        ],
+  has   scenery openable locked;
+
+Object  portrait "portrait" bank
+  with  name 'portrait' 'picture' 'photo',
+        description 
+            "It's a portrait of J. Pierpont Flathead. His portrait 
+            adorns every branch of the Bank of Zork.",
+        before [;
+          Take, Pull, Push, PushDir:
+            print_ret (The) self, " is firmly attached to the wall.";
+        ],
+  has   scenery;
+
+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 
+                    to prevent you from looking at things.";
+            if (salon has visited)
+                print 
+                    " Remembering the low ceiling, 
+                    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,
+        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
+  with  name 'vault' 'safe',
+        description 
+            "A large, circular, and hefty door. The words 
+            ~Manufactured By The Frobozz Magic Vault Company~ are 
+            engraved around the edge.",
+  has   scenery door openable locked;
+
+Object  workshop "Bear Workshop"
+  with  description 
+            "A workshop for making stuffed bears although by now 
+            everything is put away. The workshop retains a pleasant 
+            atmosphere. You should try going west.",
+        w_to closet,
+        s_to mall,
+  has   light;
+
+[ Initialise;
+    Location = mall;
+    "^You fell asleep in the mall. Now it's closed, and the exit's 
+    locked. Can you get out?";
 ];
 
-[ XyzzySub; "Nothing obvious happens."; ];
+[ XyzzySub;
+    "Nothing obvious happens.";
+];
 
-[ HelpSub; "If you need help try some of the commands from:
-^http://pr-if.org/doc/play-if-card/"; ];
+[ HelpSub;
+    "If you need help try some of the commands from:
+    ^http://pr-if.org/doc/play-if-card/";
+];
 
 Include "grammar";
 
-Verb 'About' * -> Version;
-Verb 'Info' * -> Version;
-Verb 'Help' * -> Help;
-Verb 'xyzzy' * -> Xyzzy;
\ No newline at end of file
+Verb 'About'
+    * -> Version;
+
+Verb 'Info'
+    * -> Version;
+
+Verb 'Help'
+    * -> Help;
+
+Verb 'xyzzy'
+    * -> Xyzzy;
\ No newline at end of file