! ----------------------------------------------------------------------------
!   Museum 961111                   One of the standard Inform 6 example games
!
!                                                            created: 20.12.95
!                                             translated to Inform 6: 11.11.96
!
!   This "game" is a compendium of solved exercises from the Designer's
!   Manual.  Room numbers are section numbers within the Third Edition.
!   Many of these exercises are difficult, and so is some of the code below.
! ----------------------------------------------------------------------------

Constant Story "MUSEUM OF INFORM";
Constant Headline
    "^An Interactive Companion to the Designer's Manual (Third Edition)^";

!   The game is meant to be experimented with, so we always define:
Constant DEBUG;

Release 2;
Serial "961111";

Replace DrawStatusLine;
Include "Parser";

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

Object samples_bag "samples bag"
  with description "A capacious SACK_OBJECT (see section 20).",
       name "samples" "bag", article "your",
       when_closed "Your samples bag lies on the floor.",
       when_open "Your samples bag lies open on the floor.",
  has  container open openable;

Constant SACK_OBJECT = samples_bag;

Include "VerbLib";

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

Attribute crewmember;

Property weight 10;

Class Key with name "key";

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

Object  Foyer "Foyer"
 has    light
 with   description
           "The foyer of the magnificent Museum of Inform. A flight of 
            stairs sweeps upward to Chapters V and VI, and corridors 
            fan out on this level into Chapter IV. These run:^
            ^  north into Room 10 (the Halls of Sense and Direction),
            ^  south along Corridor 12 (doors) to Room 13 (switches),
            ^  @00 to Room 11 (the Wonderful World of Containers)
            ^  and @01 to Room 14 (which houses larger exhibits).^^
            (And a plain ladder descends into the basement; you can also 
             step out onto a balcony.)",
        e_to Room11, u_to Second_Floor, n_to Room10,
        s_to Corridor12, w_to Room14,
        d_to basement, out_to balcony;

Object -> "map"
  with name "map" "ground" "floor",
       initial "A map of the ground floor is embossed in one wall.",
       description
       [;  font off;
           print
          "^+------------------------------------------+
           ^|                              (mirror)    |
           ^|   Weights      Room 10  ---  Room 10a    |
           ^|    Room         senses      directions   |
           ^|      |            |                      |
           ^|   Room 14 ---   Foyer   ---   Room 11    |
           ^|  (changing  (you are here)   containers  |
           ^|  character)       |                      |
           ^|                   |                      |
           ^|   Room 15 --- Corridor 12                |
           ^|  (MS room)  (door, curator)              |
           ^|   (Bible)         |                      |
           ^|             Switches Hall 13             |
           ^|                (chasm)                   |
           ^|                   |                      |
           ^|           Far Side of Room 13            |
           ^+------------------------------------------+^";
           font on;
       ],
  has  static;

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

Object basement "Museum Basement"
  with u_to Foyer,
       description
          "Once Room 17, this space has been abandoned by the curators,
           who have simply sprayed its walls with moth-repellent and
           abandoned it.",
       before
       [;  Smell: "Napthalene.";
       ];

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