Object Third_Floor "Third Floor"
  with name "trapdoor",
       description
          "Atop the marble staircase, this third floor 
           foyer fans out into Rooms from Chapter V. These run:^
           ^  south to Corridor 22 (inventories) 
           and the List Property Office,
           ^  @00 to Room 24 (Curious Names),
           ^  @01 to Room 28, which is divided by a glass window.^
           ^Only a very rickety
           ladder goes further up, through an open trapdoor to the roof.",
       d_to Second_Floor, u_to roof,
       e_to Room24, w_to window_w, s_to Corridor22,
  has  light;

Object -> "map"
  with name "map" "third" "floor",
       initial "A map of the third floor is embossed in one wall.",
       description
       [;  font off;
           print
          "^+------------------------------------------+
           ^|                                          |
           ^|    (glass                                |
           ^|     window)                              |
           ^|      !                                   |
           ^| Room ! 28  ---  Stairs  ---   Room 24    |
           ^|      !       (you are here)     Names    |
           ^|                   |              |       |
           ^|                   |          Museum Cafe |
           ^|               Corridor 22                |
           ^|              (Inventories)               |
           ^|            /      |        @@92             |
           ^|           /       |         @@92            |
           ^| Room 23 W ---   Room 23  --- Room 23 E   |
           ^| (listing     List Property    (I Ching)  |
           ^| machine)        Office                   |
           ^+------------------------------------------+^";
           font on;
       ],
  has  static;

Object -> "Lexicon"
  with name "lexicon",
       initial
          "On the top step is a discarded Lexicon of verbs.",
       description
          "(The lexicon has the number 27 written on the spine.)^^
           Inside are many familiar verbs that you regularly use
           when navigating through Inform games. There are also
           some special ones, only available in the Museum...^^
           ~megalook~ : like ~look~ but much fuller;^
           ~threefold <noun> <noun> <noun>~ : this doesn't
           actually do anything, but it shows how a verb can
           be parsed which has three objects, not just 0 to 2
           as usual;^
           ~time <time of day>~ : sets the current time of day
           (go out onto the Balcony to see sunrise at 6 AM);^
           ~fp <floating-point number>~ : shows how floating-point
           numbers can be parsed;^
           ~dial <phone-style number>~ : likewise phone numbers.^^
           Also, in the Museum, ~lock~ and ~unlock~ are cunningly
           able to presume keys as their second objects.";

! --------------------------------------------------------------------------

Object Corridor22 "Corridor 22"
  with description
          "Runs south of the top floor foyer, and leads to Room 23,
           such a long room that you can enter it to southwest, south
           or southeast.^^
           In the floor is a curious solid quartz window.",
       n_to Third_Floor,
       s_to Room23, se_to Room23b, sw_to Room23a,
       d_to "Solid quartz.",
  has  light;

Object -> "quartz window"
  with name "quartz" "window",
       before
       [;  Examine, Search, LookUnder:
               print "Through the window you can hazily make out the contents 
                      of the Grammar Hall below...^";
               if (Locale(Grammar_Hall, "You can see",
                          "You can also see")~=0)
                   " on the floor below.";
               rtrue;
       ],
  has  scenery;

Object -> "Geoffrey's book"
  with name "book" "old" "harmless" "lethal" "of" "geoffrey^s",
       invent "that harmless old book of Geoffrey's",
       before
       [;  Examine:
               self.invent = "that lethal old book of Geoffrey's";
              "The apparently harmless book turns fiery hot in your hands, 
               and your eyes are dragged toward the hideous sigils 
               inscribed within it... Just in time, you break the gorgon 
               gaze and look away.^^
               [From this moment, its inventory entry changes.]";
       ],
  has  proper;

Object -> "platinum pyramid"
  with name "platinum" "pyramid",
       description "No matter how many times you pick this up and put it 
           down again, it never becomes an ~ordinary~ object for room 
           description purposes -- it always has a line to itself.",
       describe
       [;  "^The platinum pyramid catches the light beautifully.";
       ];

Object -> "ornate box"
  with name "decorated" "ornate" "box",
       invent
       [;  if (inventory_stage==1) give self general;
           else give self ~general;
       ],
       short_name
       [;  if (self has general) { print "box"; rtrue; } ],
       article
       [;  if (self has general)
           {   print "that most remarkably decorated"; rtrue;
           }
           else print "an"; ],
       description
          "[What's interesting about the ornate box is that its
            inventory listing overrides its short name entirely,
            and yet its contents will still be inventoried.]",
  has  open openable container;

Object -> -> "pearl"
  with name "pearl",
       description "Don't look at me - I'm irrelevant.";

! --------------------------------------------------------------------------

Object Room23a "Room 23 @01: Inventory Annexe"
  with description
        "The @01ern end of Room 23 is a housing for the Listing Machine.",
       e_to Room23, ne_to Corridor22,
  has  light;

Object -> list_machine "listing machine"
  with name "listing" "list" "machine",
       describe
       [ i;  print "The listing machine has a go button and a number of 
                    switches, whose current settings are as follows:^";
             objectloop (i in self)
             {   if (i~=list_go)
                 {   print (address) (i.&name)-->0, "  ";
                     if (i has on) print "(on)^"; else print "(off)^";
                 }
             }
             rtrue;
       ],
  has  transparent static;

Object -> -> list_go "go button"
  with name "go" "button" "control",
       before
       [ i j;  Push:
            objectloop (i in list_machine)
                if (i~=self && i has on) j=j+i.number;
            print "~In this style, your inventory is listed as 
                follows...^";
            WriteListFrom(child(player), j, 1);
           "...~";
       ],
  has  static;

Class  BitSwitch
  with name "switch" "control",
  has  switchable static;

BitSwitch -> -> "newline switch" 
  with name "newline",  number NEWLINE_BIT;
BitSwitch -> -> "indent switch" 
  with name "indent",   number INDENT_BIT;
BitSwitch -> -> "fullinv switch" 
  with name "fullinv",  number FULLINV_BIT, has on;
BitSwitch -> -> "english switch" 
  with name "english",  number ENGLISH_BIT, has on;
BitSwitch -> -> "recurse switch" 
  with name "recurse",  number RECURSE_BIT, has on;
BitSwitch -> -> "always switch" 
  with name "always",   number ALWAYS_BIT;
BitSwitch -> -> "terse switch" 
  with name "terse",    number TERSE_BIT;
BitSwitch -> -> "partinv switch" 
  with name "partinv",  number PARTINV_BIT;
BitSwitch -> -> "defart switch" 
  with name "defart",   number DEFART_BIT;
BitSwitch -> -> "workflag switch" 
  with name "workflag", number WORKFLAG_BIT;
BitSwitch -> -> "isare switch" 
  with name "isare",    number ISARE_BIT;
BitSwitch -> -> "conceal switch" 
  with name "conceal",  number CONCEAL_BIT;

! --------------------------------------------------------------------------

[ CoinsTogether cla i x y;
  objectloop (i ofclass cla)
  {   x=parent(i);
      if (y==0) y=x; else { if (x~=y) return 0; }
  }
  return y;
];

[ Face x; if (x.number==1) print "Heads"; else print "Tails"; ];

Array gold_trigrams -->   "fortune" "change" "river flowing" "chance"
                          "immutability" "six stones in a circle"
                          "grace" "divine assistance";
Array silver_trigrams --> "happiness" "sadness" "ambition" "grief"
                          "glory" "charm" "sweetness of nature"
                          "the countenance of the Hooded Man";

[ Trigram cla i k state;
  objectloop (i ofclass cla)
  {   print (Face) i; if (k++<2) print ","; print " ";
      state=state*2 + (i.number-1);
  }
  if (cla == GoldCoin) i=gold_trigrams; else i=silver_trigrams;
  print "(", (string) i-->state, ")";
];

[ CoinsLT cla k i c;
  if (inventory_stage==1)
  {   if (cla == GoldCoin) print "the gold"; else print "the silver";
      print " coins ";
      k=CoinsTogether(cla);
      if (k==location || k has supporter)
      {   objectloop (i ofclass cla)
          {   print (name) i;
              switch(++c)
              {  1: print ", "; 2: print " and ";
                 3: print " (showing the trigram ", (Trigram) cla, ")";
              }
          }
          rtrue;
      }
      c_style = c_style | (ENGLISH_BIT+NOARTICLE_BIT);
      if (c_style & NEWLINE_BIT ~= 0) c_style = c_style - NEWLINE_BIT;
      if (c_style & INDENT_BIT ~= 0)  c_style = c_style - INDENT_BIT;
  }
  rfalse;
];

Class  Coin
  with number 1, article "the",
       parse_name
       [ i j w;
         if (parser_action==##TheSame) return -2;
         w='gold'; if (self ofclass SilverCoin) w='silver';
         for (::i++)
         {   j=NextWord();
             if (j=='coins') parser_action=##PluralFound;
             else if (j~='coin' or w or self.name) return i;
         }
       ],
       after
       [ j;
           Drop, PutOn:
                 self.number=random(2); print (Face) self, ". ";
                 if (self ofclass GoldCoin) j=GoldCoin; else j=SilverCoin;
                 if (CoinsTogether(j)~=0)
                 {   print "The ";
                     if (j == GoldCoin) print "gold"; else print "silver";
                     " trigram is now ", (Trigram) j, ".";
                 }
                 new_line; rtrue;
       ];

Class  GoldCoin class Coin
  with list_together [; return CoinsLT(GoldCoin); ];
Class  SilverCoin class Coin
  with list_together [; return CoinsLT(SilverCoin); ];

Object Room23b "Room 23 @00: Chinese Room"
  with description "A small, well-composed Chinese room for meditation, 
           through which ~a wind can blow~. (But only if it blows from 
           @01 back to north@01, because they're the only exits.)
           From each cornice of the ceiling, a cherub looks down.",
       w_to Room23, nw_to Corridor22,
  has  light;

Object -> "Chinese scroll"
  with name "chinese" "scroll" "instructions",
       initial "A scroll hangs on one wall.",
       description
          "Instructing you in the arts of the I Ching, the scroll advises 
           you to throw the two trigrams of gold and silver coins, that 
           you may find wisdom in the result.";

GoldCoin -> "goat" with name "goat";
GoldCoin -> "deer" with name "deer";
GoldCoin -> "chicken" with name "chicken";

SilverCoin -> "robin" with name "robin";
SilverCoin -> "snake" with name "snake";
SilverCoin -> "bison" with name "bison";

Global cherub_warning_given;
Class  Cherub
  with parse_name
       [ i j flag;
         for (flag=1:flag==1:)
         {   flag=0;
             j=NextWord();
             if (j=='cherub' || j==self.name) flag=1;
             if (j=='cherubs')
             {   parser_action=##PluralFound; flag=1;
                 if (cherub_warning_given==0)
                     print "(I'll let this go, 
                         but the plural of ~cherub~ is ~cherubim~.)^";
                 cherub_warning_given = true;
             }
             if (j=='cherubim')
             {   parser_action=##PluralFound; flag=1; }
             i++;
         }
         return i-1;
       ],
  has  scenery;

Cherub -> "northeast cherub"  with name "northeast";
Cherub -> "southeast cherub"  with name "southeast";
Cherub -> "northwest cherub"  with name "northwest";
Cherub -> "southwest cherub"  with name "southwest";

! --------------------------------------------------------------------------

Object Room23 "Room 23: List Property Office"
  with description
          "This the List Property Office (it seems that an ~O~ 
           was lost some time ago), at the southern end of the top floor; 
           the management have kindly provided a green baize table, while 
           the rest is presumably the work of patrons.^^
           Room 23 continues @00 to @01.",
       n_to Corridor22,
       e_to Room23b,
       w_to Room23a
  has  light;

Object -> "green baize table"
  with name "green" "baize" "table"
  has  scenery supporter;

Class  PlasticCutlery
  with name "plastic" "cutlery", article "a plastic",
       list_together
       [;  if (inventory_stage==1)
           { if (c_style & NOARTICLE_BIT == 0) c_style=c_style+NOARTICLE_BIT;
             if (c_style & ENGLISH_BIT == 0)   c_style=c_style+ENGLISH_BIT;
             if (c_style & NEWLINE_BIT ~= 0)   c_style=c_style-NEWLINE_BIT;
             if (c_style & INDENT_BIT ~= 0)    c_style=c_style-INDENT_BIT;
             print "a plastic ";
           }
       ];

PlasticCutlery -> "fork"  with name "fork";
PlasticCutlery -> "knife" with name "knife";
PlasticCutlery -> "spoon" with name "spoon";

Class Hat with list_together "hats", name "hat" "hats", has clothing;

Hat -> "fez"      with name "fez";
Hat -> "Panama"   with name "panama";
Hat -> "sombrero" with name "sombrero";

Class Letter
  with list_together
       [;  if (inventory_stage==1)
           { print "the letters ";
             c_style = c_style | (ENGLISH_BIT+NOARTICLE_BIT);
             if (c_style & NEWLINE_BIT ~= 0) c_style = c_style - NEWLINE_BIT;
             if (c_style & INDENT_BIT ~= 0)  c_style = c_style - INDENT_BIT;
           }
           else print " from a Scrabble set";
       ],
       short_name
       [;  if (listing_together ofclass Letter) rfalse;
           print "letter ", (object) self, " from a Scrabble set"; rtrue;
       ],
       article "the";

Letter -> "X" with name "x";
Letter -> "Y" with name "y";
Letter -> "Z" with name "z";
Letter -> "P" with name "p";
Letter -> "Q" with name "q";
Letter -> "R" with name "r";

Object -> "defrosting Black Forest gateau"
  with name "black" "forest" "gateau" "cake",
  has  edible;

Object -> "Punch magazine"
  with name "punch" "magazine",
       description
          "Five years out of date by the cover, a hundred by the contents.",
       list_together 1,
  has  proper;
Object -> "issue of the Spectator"
  with name "spectator" "issue" "magazine", article "a recent",
       description
          "Up to date by the cover, a nightmare view of the future within.",
       list_together 1;

Object -> "die"
  with name "die" "dice",
       after [; Drop: print "It comes up ", random(6); "!"; ];


Class  Star
  with name "star",
       description
           "A little star of precious-metal, perhaps exotic currency.",
       parse_name
       [ i j w;
         if (parser_action==##TheSame)
         {   if ((parser_one.&name)-->0 == (parser_two.&name)-->0) return -1;
             return -2;
         }
         w=(self.&name)-->0;
         for (::i++)
         {   j=NextWord();
             if (j=='stars') parser_action=##PluralFound;
             else if (j~='star' or w) return i;
         }
       ],
       list_together "stars",
       plural
       [;  print (address) (self.&name)-->0;
           if (~~(listing_together ofclass Star)) print " stars";
       ],
       short_name
       [;  if (listing_together ofclass Star)
           {   print (address) (self.&name)-->0; rtrue; }
       ],
       article
       [;  if (listing_together ofclass Star) print "one"; else print "a";
       ];

Class  GoldStar   class Star with name "gold";
Class  SilverStar class Star with name "silver";
Class  BronzeStar class Star with name "bronze";

SilverStar -> "silver star";
SilverStar -> "silver star";
SilverStar -> "silver star";
SilverStar -> "silver star";
BronzeStar -> "bronze star";
GoldStar -> "gold star";
GoldStar -> "gold star";
GoldStar -> "gold star";

! --------------------------------------------------------------------------

Object Room24 "Curious Names"
  with description
          "This is Room 24, @00 of the mezzanine. The exhibits are
           packed in here, but fortunately there's a plaque making
           some sense of it all.",
       w_to Third_Floor, s_to Museum_Cafe,
  has  light;

Object -> plaque "plaque"
  with name "plaque",
       description
          "Room 24 Plaque^^
           Princess is capable of a startling change of name when kissed.^^
           The genie's lamp, when rubbed, may make alarming things
           happen to your ability to refer to the colours ~black~ and
           ~white~. The stones may help you to experiment with this.^^
           Carrying the magnifying glass allows you to ~magnify~ things.^^
           The game's parser has been specially programmed for the
           fly in amber object, so that ~put the fly in amber in box~
           will work correctly (and not be interpreted as ~put (the fly) in
           (amber in box)~).",
  has  scenery;

Object -> genies_lamp "genie's lamp"
  with name "lamp",
       before
       [;  Rub:
               if (self hasnt general) give self general;
               else give self ~general;
               "A genie appears from the lamp, declaring:^^
                  ~Mischief is my sole delight:^ 
                   If white means black, black means white!~";
       ];

Object -> "white stone"   with name "white" "stone";
Object -> "black stone"   with name "black" "stone";

Object -> "fly in amber"  with name "fly" "amber";

Object -> magnifier "magnifying glass"
  with name "glass" "magnifying" "magnifier" "lense",
       description "Using this, you can ~magnify~ things.";

[ MagnifySub;
   if (magnifier notin player)
      "You're not holding a magnifying glass.";
   if (noun==magnifier) "Light is not so flexible as that.";
   print "You can just make out that ", (the) noun,
      " is inscribed as being ~object ", noun, "~.^";
   if (magnifier hasnt general)
   {   give magnifier general;
      "^(When you're carrying the magnifier, you can refer to 
        things by their numbers like this; and you can even use 
        # to mean ~any single object~ and * to mean ~all objects~.)";
   }
];

[ ParseNoun obj;
  if (magnifier notin player) return -1;
  if (NextWord() == 'object' && TryNumber(wn) == obj) return 2;
  wn--;
  if (WordLength(wn)==1 && WordAddress(wn)->0 == '#') return 1;
  if (WordLength(wn)==1 && WordAddress(wn)->0 == '*')
  {   parser_action = ##PluralFound; return 1; }
  return -1;
];

Object -> "/?%?/ (the artiste formally known as Princess)"
  with name "princess" "artiste" "formally" "known" "as",
       description "You somehow feel it would be appropriate 
                    to kiss Princess.",
       short_name
       [;   if (self hasnt general) { print "Princess"; rtrue; }
       ],
       react_before
       [;  Listen: print_ret (name) self, " sings a soft siren song.";
       ],
       initial
       [;  print_ret (name) self, " is singing softly.";
       ],
       parse_name
       [ x n; if (self hasnt general)
            {   if (NextWord()=='princess') return 1;
                return 0;
            }
            x=WordAddress(wn);
            if (   x->0 == '/' && x->1 == '?' && x->2 == '%'
                && x->3 == '?' && x->4 == '/')
            {   while (wn<=parse->1 && WordAddress(wn++)<x+5) n++;
                return n;
            }
            return -1;
       ],
       life
       [;   Kiss: give self general; self.life = NULL;
                "In a fairy-tale transformation, the Princess 
                 steps back and astonishes the world by announcing 
                 that she will henceforth be known as ~/?%?/~.";
       ],
  has  animate proper female;

! --------------------------------------------------------------------------

Object Museum_Cafe "Room 24 Annexe: The Museum Cafe"
  with description
          "Very much a self-service refreshments area, which
           somehow cunningly continues the exhibition from the north.",
       n_to Room24,
  has  light;

Object -> "upright fridge"
  with name "upright" "fridge",
       initial "There is an upright fridge in one corner.",
       after
       [;  Open:
               print
              "On the inside of the door is a note to the effect 
               that the pepper is a standardly-named Inform object 
               and can be called ~green~, ~pepper~, ~green pepper~, 
               ~pepper green~, etc.; 
               whereas, in the case of the red tomato, ~red~ and 
               ~tomato fried red~, etc., will not be allowed.^^";
               <<Search self>>;
       ],
  has  openable container static;

Object -> -> "green pepper"
  with name "green" "pepper",
  has  edible;

Object -> -> "red fried tomato"
  with name "red" "pepper",
       parse_name
       [ i w; w=NextWord();
              while (w=='red' or 'fried')
              {   w=NextWord(); i++;
              }
              if (w=='tomato') return i+1;
              return 0;
       ],
  has  edible;

Object -> "drinks machine"
  with name "drinks" "machine",
       initial
          "Next to the fridge is a drinks machine with buttons 
           for Cola, Coffee and Tea.",
  has  static transparent;
Object -> -> "drinks machine button"
  has  scenery
 with  parse_name
       [ i flag type;
            for (: flag == 0: i++)
            {   flag = 1;
                switch(NextWord())
                {   'button', 'for': flag = 0;
                    'coffee': if (type == 0) { flag = 0; type = 1; }
                    'tea':    if (type == 0) { flag = 0; type = 2; }
                    'cola':   if (type == 0) { flag = 0; type = 3; }
                }
            }
            if (type==drink.number && i==2 && type~=0 && drink in player)
                return 0;
            self.number=type; return i-1;
        ],
        number 0,
        before
        [; Push, SwitchOn:
             if (self.number == 0)
                "You'll have to say which button to press.";
             if (parent(drink) ~= 0) "The machine's broken down.";
             drink.number = self.number; move drink to player; itobj = drink;
             "Whirr! The machine puts ", (a) drink, " into your 
                 glad hands.";
           Attack: "The machine shudders and squirts cola at you.";
           Drink:  "You can't drink until you've worked the machine.";
        ];
Object  drink "drink"
  with  parse_name
        [ i flag type;
            for (: flag == 0: i++)
            {   flag = 1;
                switch(NextWord())
                {   'drink', 'cup', 'of': flag = 0;
                    'coffee': if (type == 0) { flag = 0; type = 1; }
                    'tea':    if (type == 0) { flag = 0; type = 2; }
                    'cola':   if (type == 0) { flag = 0; type = 3; }
                }
            }
            if (type ~= 0 && type ~= self.number) return 0;
            return i-1;
        ],
        short_name
        [;  print "cup of ";
            switch (self.number)
            { 1: print "coffee"; 2: print "tea"; 3: print "cola"; }
            rtrue;
        ],
        number 0,
        before
        [; Drink: remove self;
            "Ugh, that was awful. You crumple the cup and responsibly 
             dispose of it.";
        ];

! --------------------------------------------------------------------------

Class  WindowRoom
  with description
       [;  print "This is one end of a long east/west room. ";
           if (self==window_w) "An exit leads back @00.";
          "There appears to be no way in or out at this end.";
       ],
       before
       [;  Examine, Search: ;
           default:
             if (inp1~=1 && noun~=0 && noun in self.far_side)
                 print_ret (The) noun, " is on the far side of 
                    the glass.";
             if (inp2~=1 && second~=0 && second in self.far_side)
                 print_ret (The) second, " is on the far side of 
                    the glass.";
       ],
       after
       [;  Look:
             if (ggw has general) rfalse;
             print "^The room is divided by a great glass window";
             if (location.far_side hasnt light) " onto darkness.";
             print ", stretching from floor to ceiling.^";
             if (Locale(location.far_side,
                    "Beyond the glass you can see",
                    "Beyond the glass you can also see")~=0) ".";
       ],
  has  light;

WindowRoom window_w "Room 28: @01 of Window"
  with e_to Third_Floor, w_to "The window is in your way.",
       far_side window_e;

Object -> "plastic cup"
  with name "plastic" "cup";

WindowRoom window_e "Room 28: @00 of Window"
  with far_side window_w;

Key -> "bronze key"
  with name "bronze";

Object -> "golden chalice"
  with name "golden" "chalice" "cup" "grail" "holy";

Object ggw "great glass window"
  with name "great" "glass" "window",
       before
       [ place; Examine, Search: place=location;
               if (place.far_side hasnt light)
                   "The other side is dark.";
               print "The view through the window:^";
               give self general;
               PlayerTo(place.far_side,1); <Look>; PlayerTo(place,1);
               give self ~general;
               give place.far_side ~visited; rtrue;
       ],
       found_in window_w window_e,
  has  scenery;

! ==========================================================================