the-mall.inf

   1 ! Copyright (C) 2019 Jason Self <j@jxself.org>
   2 !
   3 ! This file is free software: you may copy, redistribute and/or modify
   4 ! it under the terms of the GNU Affero General Public License as
   5 ! published by the Free Software Foundation, either version 3 of the
   6 ! License, or (at your option) any later version.
   7 !
   8 ! This file is distributed in the hope that it will be useful, but
   9 ! WITHOUT ANY WARRANTY; without even the implied warranty of
  10 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  11 ! Affero General Public License for more details.
  12 !
  13 ! You should have received a copy of the GNU Affero General Public
  14 ! License along with this file. If not, see https://gnu.org/licenses/
  15
  16 Constant NO_SCORE;
  17 Constant Story "The Mall";
  18 Constant Headline "^By Jason Self^
  19 If you get stuck try typing HELP.^
  20 This game gives you freedom; you can change and share it under the
  21 terms of the GNU Affero General Public License as published by the
  22 Free Software Foundation, either version 3 of the License, or (at your
  23 option) any later version. See the GNU Affero General Public License
  24 for details.^
  25 IFID 1AB626D5-E03F-4F03-836C-50F65B643B9B^";
  26 Include "parser";
  27 Include "verblib";
  28 Release 0;
  29 Serial "190322";
  30
  31 Object bank "Bank of Zork"
  32 with    description "The local branch of the Bank of Zork, the
  33         largest banking institution of the Great Underground Empire.
  34         The bank vault is to the north, and a small office is to the
  35         south. As with all branches of the Bank of Zork, a portrait
  36         of J. Pierpont Flathead hangs on the wall.",
  37 n_to    vaultdoor,
  38 s_to    securityoffice,
  39 w_to    mall,
  40 has     light;
  41
  42 Object closet "Closet"
  43 with    description "You've seen better closets, but at least this
  44         one seems pretty standard.",
  45 e_to    workshop,
  46 has     light;
  47
  48 Object cookhouse "Cookhouse"
  49 with    description "This is a restaurant called The Cookhouse,
  50         although since the mall closed all of the patrons have left.",
  51 n_to    mall,
  52 has     light;
  53
  54 Object securityoffice "Security Office"
  55 with    description "A small office belonging to the bank's security
  56         officer. You scan the room, seeing a table.",
  57 n_to    bank,
  58 has     light;
  59
  60 Object table "table" securityoffice
  61 with name 'table',
  62         description "Made from metal, it looks to be a solid and
  63         hefty table.",
  64 has     scenery supporter;
  65
  66 Object  coppercoin "copper coin" table
  67 with    name 'copper' 'coin' 'zorkmid',
  68         description "The coin seems to be very old, in very poor
  69         condition, and somewhat irregular in shape. The only things
  70         clearly visible are what appears to be a name on one side:
  71         Belwit The Flat and a date on the other: 699 GUE.";
  72
  73 Object keycard "keycard" table
  74 with    name 'keycard' 'key' 'card',
  75         description "The keycard is used to open things.";
  76
  77 Object mall "Mall"
  78 with    description "You're in the main walkway. An ordinary kind
  79         of place, with stores all around. The mall's exit is to the
  80         southwest.",
  81 n_to    workshop,
  82 s_to    cookhouse,
  83 sw_to   mallexit,
  84 e_to    bank,
  85 w_to    salon,
  86 has     light;
  87
  88 Object mallexit "door" mall
  89 with    name 'door' 'exit',
  90         description "A large doorway to the outside world, with the
  91         word ~Exit~ written above.",
  92 with_key keycard,
  93 before  [; unlock: deadflag = 2; return true;
  94         ],
  95 has     scenery door openable locked;
  96
  97 Object  portrait "portrait" bank
  98 with    name 'portrait' 'picture' 'photo',
  99         description "It's a portrait of J. Pierpont Flathead. His
 100         portrait adorns every branch of the Bank of Zork.",
 101 before  [; Take,Pull,Push,PushDir:
 102         print_ret (The) self, " is firmly attached to the wall."; ],
 103 has     scenery;
 104
 105 Object salon "Salon"
 106 with    description [; print "You've just sauntered into a salon.";
 107         if (salon hasnt visited) print " Suddenly you bump your head
 108         on the ceiling, but it's not such a bad bump that it's going
 109         to prevent you from looking at objects and even things.";
 110         if (salon has visited) print " Remembering the low ceiling,
 111         you take care not to bump your head.";
 112         new_line; ],
 113 e_to    mall,
 114 has     light;
 115
 116 Object vaultdoor "vault door" bank
 117         with name 'vault' 'safe',
 118         description "A large, circular, and hefty door. The words
 119         ~Manufactured By The Frobozz Magic Vault Company~ are engraved
 120         around the edge.",
 121         has scenery door openable locked;
 122
 123 Object workshop "Bear Workshop"
 124 with    description "A workshop for making stuffed bears although by
 125         now everything is put away. The workshop retains a pleasant
 126         atmosphere. You should try going west.",
 127 w_to    closet,
 128 s_to    mall,
 129 has     light;
 130
 131 [ Initialise;
 132
 133         Location = mall;
 134
 135         "^You fell asleep in the mall. Now it's closed, and the
 136         exit's locked. Can you get out?";
 137 ];
 138
 139 [ XyzzySub; "Nothing obvious happens."; ];
 140
 141 [ HelpSub; "If you need help try some of the commands from:
 142 ^http://pr-if.org/doc/play-if-card/"; ];
 143
 144 Include "grammar";
 145
 146 Verb 'About' * -> Version;
 147 Verb 'Info' * -> Version;
 148 Verb 'Help' * -> Help;
 149 Verb 'xyzzy' * -> Xyzzy;