infocom/compilers/inform5/examples/Museum6.inf

! *** This version for Inform 6 only ***

Constant DEBUG;

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

Release 1;
Serial "951220";

Replace DrawStatusLine;

Include "Parser";

Object samples_bag "samples bag"
  with description "A capacious SACK_OBJECT (see section 16).",
       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 is_key;
Attribute crewmember;

Lowstring east_str "east"; Lowstring west_str "west";
[ NormalWorld; string 0 east_str; string 1 west_str;
  e_obj.door_dir = e_to; w_obj.door_dir = w_to;
];
[ ReversedWorld; string 0 west_str; string 1 east_str;
  w_obj.door_dir = e_to; e_obj.door_dir = w_to;
];

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

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

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

Object basement "Museum Basement"
  with u_to Foyer,
       description "This used to be Room 13, but was considered unlucky \
           by the curators: they simply sprayed the walls with \
           moth-repellent and abandoned it.",
       before
       [;  Smell: "Napthalene.";
       ];

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

Object Room6 "Hall of Senses"
  with description
          "This is Room 6, north of the foyer.  If you try going further \
           north, a string will be printed instead.  The exit to the @00 \
           has a routine attached, and randomly leads either to the \
           Directions Room or back to the foyer.",
       s_to Foyer,
       n_to "This string is the ~n_to~ value for this room.",
       e_to
       [;  if (random(2)==1) return Foyer; return Room6a; ],
  has  light;

Nearby lever "TRAP lever"
  with name "trap" "lever",
       after
       [;  SwitchOn: move orange_cloud to location;
              "Clunk! An orange cloud suddenly descends upon you.";
           SwitchOff: remove orange_cloud; "Click! The orange cloud vanishes.";
       ],
  has  switchable static;

Nearby watch "gold watch"
  with name "gold" "watch",
       description "The watch has no hands, oddly.",
       react_before
       [;  Listen: if (noun==0 or self) "The watch ticks loudly."; ];

Nearby lavender "sprig of lavender"
  with name "sprig" "of" "lavender",
       react_before
       [;  Smell: if (noun==0 or self) "Lavender-perfume. Ahh!"; ];

Object orange_cloud "orange cloud"
  with name "orange" "cloud",
       react_before
       [;  Look: "You can't see for the orange cloud surrounding you.";
           Go, Exit: "You wander round in circles, choking.";
           Smell: if (noun==0 or self) "Cinnamon?  No, nutmeg.";
       ],
  has  scenery;

Object Room6a "Hall of Directions"
  with name "mirror",
       description
          "An annexe to Room 6: the main exit is back @01, and there's a \
           curiously misty mirror on the north wall.  Also, there's an exit \
           in the fourth, ~hyper~ dimension (which is only visible in the \
           weird geometry of this room).",
       initial
       [;  move hyper to compass; StartDaemon(hyper);
       ],
       w_to Room6,
       n_to
       [;  print "Walking through the mirror is confusing...^";
           if (self has general) NormalWorld(); else ReversedWorld();
           if (self has general) give self ~general; else give self general;
           <<Look>>;
       ],
       in_to [; print "Amazing! Your body corkscrews as you pass.^";
                return Room7; ],
  has  light;

Object hyper "hyper-dimensional direction"
  with name "hyper" "fourth" "dimension", article "the", door_dir in_to,
       daemon
       [;  if (location ~= Room6a) { remove self; StopDaemon(self); }
       ],
  has  scenery;

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

Object Room7 "Wonderful World of Containers"
  with description
          "This is Room 7, @00 of the foyer.  You notice a typical piece \
           of scenery which turns out to be a supporter: a mantelpiece.",
       w_to Foyer,
  has  light;

Nearby psychiatrist "bearded psychiatrist"
  with name "bearded" "doctor" "psychiatrist" "psychologist" "shrink",
       initial "A bearded psychiatrist has you under observation.",
       life
       [;  "He is fascinated by your behaviour, but makes no attempt to \
            interfere with it.";
       ],
       react_after
       [;  Insert: print "~Subject puts ", (a) noun, " in ", (the) second,
                      ". Interesting.~^";
           PutOn:  print "~Subject puts ", (a) noun, " in ", (the) second,
                      ". Interesting.~^";
       ],
       react_before
       [;  Take, Remove: print "~Subject feels lack of ", (the) noun,
               ". Suppressed Oedipal complex? Mmm.~^";
       ],
  has  animate;

Nearby mantelpiece "mantelpiece"
  with name "mantel" "mantle" "piece" "mantelpiece"
  has  scenery supporter;

Nearby green_ball "green ball" with name "green" "ball";
Nearby red_cone "red cone" with name "red" "cone";
Nearby blue_pyramid "blue pyramid" with name "blue" "pyramid";

Nearby plain_bag "plain shopping bag (which can only hold 2 things)"
  with name "plain" "shopping" "bag", capacity 2,
  has  container open;

Nearby glass_box "glass box with a lid" with name "glass" "box" "with" "lid"
  has  container transparent openable open;
Nearby steel_box "steel box with a lid" with name "steel" "box" "with" "lid"
  has  container openable open;

Nearby key "bolted key" with name "bolted" "key" has is_key;

Nearby bag "toothed bag"
  with name "toothed" "bag",
       description "A capacious bag with a toothed mouth.",
       before
       [; LetGo: "The bag defiantly bites itself \
                  shut on your hand until you desist.";
          Close: "The bag resists all attempts to close it.";
       ],
       after
       [; Receive:
                 print_ret "The bag wriggles hideously as it swallows ",
                           (the) noun, ".";
       ],
  has  container open;

Nearby cupboard "bolted cupboard"
  with name "bolted" "cupboard",
       describe
       [; if (self hasnt open)
              "^A pretty typical shut cupboard is bolted to one wall.";
          "^Bolted up on one wall is an open cupboard.";
       ],
       with_key key
  has  locked container openable lockable static;

Nearby television "portable television set"
  with name "tv" "television" "set" "portable",
       initial "A portable television set has two sub-objects attached: \
                a power button and a screen.",
       before
       [;  SwitchOn: <<SwitchOn power_button>>;
           SwitchOff: <<SwitchOff power_button>>;
           Examine: <<Examine screen>>;
       ],
  has  transparent;
Object power_button "power button" television
  with name "power" "button" "switch",
       after
       [;  SwitchOn, SwitchOff: <<Examine screen>>;
       ],
  has  switchable;
Object screen "television screen" television
  with name "screen",
       before
       [;  Examine: if (power_button hasnt on) "The screen is black.";
               "The screen writhes with a strange Japanese cartoon.";
       ];

Object macrame_bag "macrame bag" Room7
  with name "macrame" "bag" "string" "net" "sack",
       react_before
       [;  Examine, Search, Listen, Smell: ;
           default:
               if (inp1>1 && inp1 in self)
                   print_ret (The) inp1, " is tucked away in the bag.";
               if (inp2>1 && inp2 in self)
                   print_ret (The) inp2, " is tucked away in the bag.";
       ],
       describe
       [;  print "^A macrame bag hangs from the ceiling, shut tight";
           if (child(self)==0) ".";
           print ".  Inside you can make out ";
           WriteListFrom(child(self), ENGLISH_BIT); ".";
       ],
  has  container transparent static;
Object mbox "music box" macrame_bag
  with name "music" "box" "musical",
       description "Attractively lacquered.",
       react_before
       [;  Listen: if (noun==0 or self)
              "The musical box chimes some Tchaikovsky."; ];

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

Object Corridor8 "Corridor 8"
  with description
          "Runs south of the foyer.  A side exit leads @01 to Room 11, \
           the manuscripts room.",
       n_to Foyer, s_to Oak_Door, w_to Room11,
  has  light;

Object Oak_Door "oaken door"
  with name "oak" "door" "oaken",
       description "Despite appearances, there is no key to this door.",
       door_dir
       [; if (location==Corridor8) return s_to; return n_to; ],
       door_to
       [; if (location==Corridor8) return Room9; return Corridor8; ],
       describe
       [; if (self has open) "^The oaken door stands open.";
          if (self hasnt locked) "^The corridor ends in an oaken door.";
       ],
       found_in  Corridor8  Room9
  has  static door openable lockable;

Nearby curator "sinister curator"
  with name "sinister" "curator",
       initial
       [;  if (self hasnt general)
              "A sinister curator leans against the wall, asleep.";
          "The curator is here, casting menacing looks.";
       ],
       daemon
       [ i p j n k;
           if (random(3)~=1 || self hasnt general) rfalse;
           p=parent(self);
           objectloop (i in compass)
           {   j=p.(i.door_dir);
               if (ZRegion(j)==1 && j hasnt door) n++;
           }
           if (n==0) rfalse;
           k=random(n); n=0;
           objectloop (i in compass)
           {   j=p.(i.door_dir);
               if (ZRegion(j)==1 && j hasnt door) n++;
               if (n==k)
               {   move self to j;
                   if (p==location) "^The curator stalks away.";
                   if (j==location) "^The curator stalks in.";
                   rfalse;
               }
           }
       ],
       orders
       [;  if (self hasnt general) "The curator only snores.";
          "He raises a skeletal finger to his lips.  ~Shh!~";
       ],
       life
       [;  WakeOther:
               if (self hasnt general)
               {   give self general; move self to Foyer;
                  "He wakes and rouses to his feet, pushes past you \
                   and stalks away.";
               }
           default: "He rears back with disdain.";
       ],
  has  animate;

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

Object Room11 "Manuscripts Room"
  with description
          "This is Room 11, adjoining a corridor to the @00.",
       e_to Corridor8,
  has  light;

Nearby bible "black Tyndale Bible"
  with name "bible" "black" "book",
       initial "A black Bible rests on a spread-eagle lectern.",
       description "A splendid foot-high Bible, which must have survived \
           the burnings of 1520.",
       before
       [ w x; Consult:
               wn = consult_from; w = NextWord();
               switch(w)
               {   'matthew': x="Gospel of St Matthew";
                   'mark': x="Gospel of St Mark";
                   'luke': x="Gospel of St Luke";
                   'john': x="Gospel of St John";
                   default: "There are only the four Gospels.";
               }
               if (consult_words==1)
                   print_ret "You read the ", (string) x, " right through.";
               w = TryNumber(wn);
               if (w==-1000)
                   print_ret "I was expecting a chapter number in the ",
                             (string) x, ".";
               print_ret "Chapter ", (number) w, " of the ", (string) x,
                     " is too sacred for you to understand now.";
       ];

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

Object Room9 "Switches Hall"
  with description
          "This is Room 9, at the south end of a long corridor leading \
           north.  Progress further south is blocked by a chasm.",
       n_to Oak_Door, s_to PlankBridge,
  has  light;

Nearby searchlight "Gotham City searchlight"
  with name "gotham" "city" "search" "light" "template" "searchlight",
       article "the",
       description "It has some kind of template on it.",
       when_on "The old city searchlight shines out a bat against \
                the alabaster ceiling of the Museum.",
       when_off "The old Gotham city searchlight has been lovingly \
                restored and housed here."
  has  switchable static;

Nearby basement_ls "basement light switch"
  with name "basement" "light" "switch",
       after
       [;  SwitchOn: give basement light; "Click!";
           SwitchOff: give basement ~light; "Click!";
       ],
  has  switchable static;

Nearby PlankBridge "plank bridge"
  with description "Extremely fragile and precarious.",
       name "precarious" "fragile" "wooden" "plank" "bridge",
       when_open
           "A precarious plank bridge spans the chasm.",
       door_to
       [;  if (children(player)~=0)
            {   deadflag=1;
               "You step gingerly across the plank, which bows under \
                your weight. But your meagre possessions are the straw \
                which breaks the camel's back! There is a horrid crack...";
            }
            print "You step gingerly across the plank, grateful that \
                   you're not burdened.^";
           if (location==Room9) return FarSide; return Room9;
       ],
       door_dir
       [;  if (location==Room9) return s_to; return n_to;
       ],
       found_in Room9 FarSide,
  has  static door open;

Object FarSide "Far Side of Chasm in Room 9"
  with description
          "This side of the chasm is dull and dusty after all.",
       n_to PlankBridge,
  has  light;

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

Object Room10 "Large Exhibits Room"
  with description
          "This is Room 10, @01 of the foyer, which gives onto the Weights \
           Room to the south.",
       e_to Foyer, s_to Weights_Room,
  has  light;

Nearby portrait "hypnotic portrait"
  with name "hypnotic" "portrait" "warthog" "picture" "of" "hog",
       initial "A somewhat hypnotic full-length portrait of a warthog hangs \
           on the wall.",
       before
       [;  Examine: <Examine hog>; print "^...and somehow, so do you...^";
               ChangePlayer(hog); <<Look>>;
       ],
  has  static;

Nearby chair "Louis XV chair"
  with name "louis" "xv" "quinze" "chair",
       initial "A valuable Louis XV chair takes pride of place.",
  has  enterable supporter;

Nearby car "little red car"
  with name "little" "red" "car" "kar1",
       description "Large enough to sit inside.  Among the controls is a \
                 prominent on/off switch.  The numberplate is KAR 1.",
       when_on  "The red car sits here, its engine still running.",
       when_off "A little red car is parked here.",
       before
       [; PushDir: AllowPushDir(); rtrue;
          Go: if (car has on) { Achieved(1); "Brmm!  Brmm!"; }
              print "(The ignition is off at the moment.)^";
       ],
       after
       [; PushDir: "The car rolls very slowly as you push it.";
       ],
  has  switchable enterable static container open;

Nearby giant "Giant"
  with name "giant",
       initial "A Giant is here. (And you know the old legend... push a \
           Giant, become a Giant!)",
       before
       [;  Push: ChangePlayer(self); <<Look>>;
           Take: rtrue;
       ],
       number 0,
       orders
       [;  if (player==self)
           {   if (actor~=self)
                  "You only become tongue-tied and gabble.";
               if (action==##Push && noun==selfobj)
               {   ChangePlayer(selfobj); <<Look>>; }
               rfalse;
           }
           Attack: "The Giant looks at you with doleful eyes. \
                    ~Me not be so bad!~";
           default: "The Giant is unable to comprehend your instructions.";
       ],
  has  animate;

Object small_note "small note" car
  with name "small" "note",
       description
           "  !!!! FROBOZZ MAGIC CAR COMPANY !!!!^\
           ^Hello, Driver!^\
           ^Instructions for use:^\
           ^Switch on the ignition and off you go!^\
           ^Warranty:^\
           ^This car is guaranteed against all defects for a period of \
            76 milliseconds from date of purchase or until used, \
            whichever comes first.^\
           ^Good Luck!";

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

Object Caldera "Caldera"
  with description
          "An old volcanic crater of mud and ash, from which there is \
           nowhere to go.",
  has  light;

Nearby hog "Warthog"
  with name "wart" "hog" "warthog", description "Muddy and grunting.",
       number 0,
       initial "A warthog snuffles and grunts about in the ash.",
       orders
       [;  if (player~=self || actor~=self) rfalse;

           !  So now we have just the case where the player
           !  is currently the warthog, ordering himself about:

           Go, Look, Examine, Eat: rfalse;
           default: "Warthogs can't do anything as tricky as that!";
       ],
  has  animate proper;

Nearby berry "red berry"
  with name "red" "berry" "magic",
       initial "A magic red berry is half-uncovered in the mud.",
       after
       [;  Eat: print "The blood-taste of the berry brings you back, \
                    back...^";
                ChangePlayer(selfobj); <<Look>>;
       ];

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

Object Weights_Room "Weights Room"
  with description
          "This is an annexe, south of Room 10.  In here (though nowhere \
           else) objects have given weights, and \
           you can carry only a limited total weight.  (Items from elsewhere \
           in the museum all weigh 10 zobs, regardless of what they are.)",
       initial [; StartDaemon(weigher); ],
       n_to Room10,
  has  light;

Property weight 10;

Nearby feather "feather" with name "feather", weight 1;
Nearby lead "lead ingot" with name "lead ingot", weight 300;
Nearby weight_5 "five-zob weight" with name "five" "zob" "weight", weight 5;
Nearby weight_10 "ten-zob weight" with name "ten" "zob" "weight", weight 10;
Nearby weight_20 "twenty-zob weight" with name "twenty" "zob" "weight",
    weight 20;
Nearby weight_50 "fifty-zob weight" with name "fifty" "zob" "weight",
    weight 50;
Nearby weight_100 "hundred-zob weight" with name "hundred" "zob" "weight",
    weight 100;

Nearby cdata "Commander Data"
  with name "data" "commander",
       orders
       [; "~I regret that I am only here to make an example work elsewhere.  \
            Please proceed upstairs to 10 Forward to see.~";
       ],
  has  proper animate crewmember;

[ WeightOf obj t i;
   t = obj.weight;
   objectloop (i in obj) t=t+WeightOf(i);
   return t;
];
Object weigher "weigher"
  with number 500,
       time_left 5,
       daemon
       [ w s b bw;
            if (self notin Weights_Room) { StopDaemon(self); return; }
            w=WeightOf(player)-100-player.weight;
            s=self.number; s=s-w; if (s<0) s=0; if (s>500) s=500;
            self.number = s;
            if (s==0)
            {   bw=-1;
                objectloop(b in player)
                    if (WeightOf(b)>bw) { bw=WeightOf(b); w=b; }
                print "^Exhausted with carrying so much, you decide \
                    to discard ", (the) w, ": "; <<Drop w>>;
            }
            w=s/100; if (w==self.time_left) rfalse;
            if (w==3) print "^You are feeling a little tired.^";
            if (w==2) print "^You possessions are weighing you down.^";
            if (w==1) print "^Carrying so much weight is wearing you out.^";
            self.time_left = w;
       ];

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

Constant SUNRISE  360;  ! i.e., 6 am
Constant SUNSET  1140;  ! i.e., 7 pm
Global day_state = 2;

Object balcony "Balcony"
  with description
       [;  print "An open-air balcony on the cliffside wall of the \
               cathedral-like Museum, hundreds of feet above ";
           if (day_state==1) "sunlit plains of farms and settlements.";
           "a darkling plain.  Dim light from the walls above is \
            the only beacon in this vast night.";
       ],
       in_to Foyer,
       cant_go "The only way is back inside.",
       each_turn
       [ f;
           if (the_time >= SUNRISE && the_time < SUNSET) f=1;
           if (day_state == f) return;
           if (day_state==2) { day_state = f; return; }
           day_state = f;
           if (f==1) "^The sun rises, illuminating the landscape!";
         "^As the sun sets, the landscape is plunged into darkness.";
       ],
  has  light;

Nearby clock "giant clock"
  with name "giant" "clock" "face" "clockface" "clock-face",
       before
       [;  Examine: print_ret "According to the giant clockface on the wall \
               above, it is now ", the_time/60, ":", (the_time%60)/10,
               the_time%10, ".";
           default: "The giant clock-face is too high above you.";
       ],
       react_after [; Look: <Examine self>; ],
  has  static concealed;

Nearby moth "moth" with name "moth", initial "A catchable moth flits about.";

[ GoMothGo;
   if (moth in player)
   {   remove moth;
      "As your eyes try to adjust, you feel a ticklish sensation \
       and hear a tiny fluttering sound.";
   }
];

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

Object Second_Floor "Mezzanine"
  with description
          "Halfway up the marble staircase of the building, a second floor \
           mezzanine which leads south into Grammar Hall (an extension \
           purpose-built for the Room 12 exhibition).",
       d_to Foyer,
       s_to Grammar_Hall,
       u_to Third_Floor,
  has  light;

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

Object Grammar_Hall "Grammar Hall"
  has  light,
  with description
          "The main exhibit on the second floor: Room 12, south of the \
           mezzanine.  A Jeffreys Tube runs @00.",
       n_to Second_Floor, e_to Star_Trek;

Nearby booth "telepathy booth"
  with name "booth" "telepathy",
       initial
          "A telepathy booth stands invitingly open: \
           ~Talk To Telekinetic Martha~.",
  has  enterable static;

Nearby Charlotte "Charlotte"
  with name "charlotte" "charlie" "chas",
       number 0,
       grammar
       [;  give self ~general;
           wn=verb_wordnum;
           if (NextWord()=='simon' && NextWord()=='says')
           {   give self general;
               verb_wordnum=verb_wordnum+2;
           }
           self.number=TryNumber(verb_wordnum);
           if (self.number~=-1000)
           {    action=##Clap; noun=0; second=0; rtrue; }
       ],
       orders
       [ i;  if (self hasnt general) "Charlotte sticks her tongue out.";
           WaveHands: "Charlotte waves energetically.";
           Clap: if (self.number==0) "Charlotte folds her arms.";
                 for (i=0:i<self.number:i++)
                 {   print "Clap! ";
                     if (i==100)
                         print "(You must be regretting this by now.) ";
                     if (i==200)
                         print "(What a determined girl she is.) ";
                 }
                 if (self.number>100) "^^Charlotte is a bit out of breath now.";
                "^^~Easy!~ says Charlotte.";
           default: "~Don't know how,~ says Charlotte.";
       ],
       initial "Charlotte wants to play Simon Says.",
  has  animate female proper crewmember;

Nearby Dan "Dyslexic Dan"
  with name "dan" "dyslexic",
       grammar
       [;  if (verb_word == 'take') { verb_wordnum++; return 'drop'; }
           if (verb_word == 'drop') { verb_wordnum++; return 'take'; }
       ],
       orders
       [;
           Take: print_ret "~What,~ says Dan, ~ you want me to take ",
                     (the) noun, "?~";
           Drop: print_ret "~What,~ says Dan, ~ you want me to drop ",
                     (the) noun, "?~";
           Inv: "~That I can do,~ says Dan. ~I'm empty-handed.~";
           default: "~Don't know how,~ says Dan.";
       ],
       initial "Dyslexic Dan is here.",
  has  animate proper crewmember;

[ PrintTime x;
  print (x/60), ":", (x%60)/10, (x%60)%10;
];

Nearby alarm_clock "alarm clock"
  with name "alarm" "clock",
       number 480,
       description
       [;  print "The alarm is ";
           if (self has general) print "on, "; else print "off, but ";
           print_ret "the clock reads ", (PrintTime) the_time,
                 " and the alarm is set for ", (PrintTime) self.number, ".";
       ],
       react_after
       [;  Inv:  if (self in player)   { new_line; <<Examine self>>; }
           Look: if (self in location) { new_line; <<Examine self>>; }
       ],
       daemon
       [;  if (the_time >= self.number && the_time <= self.number+3
               && self has general) "^Beep! Beep! The alarm goes off.";
       ],
       grammar
       [;  return 'alarm,';
       ],
       orders
       [;  SwitchOn: give self general; StartDaemon(self); "~Alarm set.~";
           SwitchOff: give self ~general; StopDaemon(self);
               "~Alarm cancelled.~";
           SetTo:   self.number=noun; <<Examine self>>;
           default: "~Commands are on, off or a time of day only, pliz.~";
       ],
       life
       [;  Ask, Answer, Tell: "[Try ~clock, something~ to address the clock.]";
       ],
  has  talkable;

Object Zen "Zen" Grammar_Hall
  with name "zen" "flight" "computer",
       initial "Square lights flicker unpredictably across a hexagonal fascia \
                on one wall, indicating that the computer Zen is on-line.",
       grammar
       [;  return -'zen,';
       ],
       orders
       [;  Show: print_ret "The main screen shows a starfield, \
                     turning through ", noun, " degrees.";
           Go:  "~Confirmed.~  The ship turns to a new bearing.";
           SetTo: if (noun==0) "~Confirmed.~  The ship comes to a stop.";
               if (noun>12) print_ret "~Standard by ", (number) noun,
                                " exceeds design tolerances.~";
               print_ret "~Confirmed.~  The ship's engines step to \
                   standard by ", (number) noun, ".";
           Take: if (noun~=force_wall) "~Please clarify.~";
                "~Force wall raised.~";
           Drop: if (noun~=blasters)   "~Please clarify.~";
              "~Battle-computers on line.  \
                Neutron blasters cleared for firing.~";
           NotUnderstood: "~Language banks unable to decode.~";
           default: "~Information.  That function is unavailable.~";
       ],
  has  talkable proper static;
Object force_wall "force wall" Zen with name "force" "wall" "shields";
Object blasters "neutron blasters" Zen with name "neutron" "blasters";

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

Object captain "Captain Picard"
  with name "captain" "picard",
  has  proper animate crewmember;

Object Star_Trek "10 Forward"
  has  light,
  with description "The observation lounge from Star Trek, with a tube \
           leading back @01.",
       w_to Grammar_Hall;

Nearby computer "computer"
  with name "computer",
       initial "The computer, of course, always responds to your voice here.",
       grammar
       [;  return 'stc,';
       ],
       orders
       [;  Examine:
               if (parent(noun)==0)
                   print_ret "~", (name) noun,
                       " is no longer aboard this demonstration game.~";
               print_ret "~", (name) noun, " is in ", (name) parent(noun), ".~";
           default: "The computer's only really good for locating the crew.";
       ],
       life
       [;  Ask, Answer, Tell: "The computer is too simple.";
       ],
  has  talkable static;

Nearby tricorder "tricorder"
  with name "tricorder",
       grammar
       [;  return 'tc,';
       ],
       orders
       [;  Examine: if (noun==player) "~You radiate life signs.~";
               print "~", (The) noun, " radiates ";
               if (noun hasnt animate) print "no ";
              "life signs.~";
           default: "The tricorder bleeps.  It can only accept commands \
               ~tricorder, <something>~.";
       ],
       life
       [;  Ask, Answer, Tell: "The tricorder is too simple.";
       ],
  has  talkable;

Nearby replicator "replicator"
  with name "replicator",
       initial
          "A replicator (i.e. Star Trek drinks machine) occupies a niche \
           in one wall.",
       grammar
       [;  return 'rc,';
       ],
       orders
       [;  Give:
               print_ret "The replicator serves up a cup of ",
                   (name) noun, " which you drink eagerly.";
           default: "The replicator is unable to oblige.  You must give \
               it the name of a drink it knows about.";
       ],
       life
       [;  Ask, Answer, Tell: "The replicator has no conversation skill.";
       ],
  has  talkable static;
Object earl_grey "Earl Grey tea" replicator with name "earl" "grey" "tea";
Object brandy    "Aldebaran brandy" replicator with name "aldebaran" "brandy";
Object water     "distilled water" replicator with name "distilled" "water";

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

Object sealed_room "Sealed Room"
  with description
          "I'm in a sealed room, like a squash court without a door, \
           maybe six or seven yards across",
  has  light;
Nearby fish "fish" with name "fish";
Nearby key1 "cadmium key"
  with name "cadmium" "key",
       after
       [;  Drop: remove self; "The key smashes into smithereens!";
       ],
  has  is_key;

Nearby martha "Martha"
   has animate female concealed proper
  with name "martha",
       orders
       [ r; r=parent(self);
           Give:
               if (noun notin r) "~That's beyond my telekinesis.~";
               if (noun==self) "~Teleportation's too hard for me.~";
               move noun to player;
               print_ret "~Here goes...~ and Martha's telekinetic talents \
                   magically bring ", (the) noun, " to your hands.";
           Look:
               print "~", (string) r.description;
               if (children(r)==1) ".  There's nothing here but me.~";
               print ".  I can see ";
               WriteListFrom(child(r),CONCEAL_BIT+ENGLISH_BIT);
              ".~";
           default: "~Afraid I can't help you there.~";
       ],
       life
       [;  Ask: "~You're on your own this time.~";
           Tell: "Martha clucks sympathetically.";
           Answer: "~I'll be darned,~ Martha replies.";
       ];

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

Object Third_Floor "Third Floor"
  with description
          "Atop the marble staircase, this third floor \
           foyer fans out into Rooms from Chapter III.  These run:^\
           ^  south to Corridor 18 (inventories) \
           and the List Property Office,\
           ^  @00 to Room 20 (Curious Names),\
           ^  @01 to Room 24, which is divided by a glass window.^\
           ^On the north wall, a plaque is mounted.",
       d_to Second_Floor,
       e_to Room20, w_to window_w, s_to Corridor18,
  has  light;

Nearby plaque "plaque"
  with name "sign" "plaque" "north" "northern",
       description
          "Plaque 23:^\
          ^You might be interested to know that you have several unusual \
           verbs available in the Museum...^^\
           ~megalook~, ~threefold <noun> <noun> <noun>~, \
           ~time <time of day>~, \
           ~fp <floating-point number>~, ~dial <phone-style number>~; and \
           ~lock~ and ~unlock~ are cunningly able to presume keys as their \
           second objects.",
  has  scenery;

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

Object Corridor18 "Corridor 18"
  with description
          "Runs south of the top floor foyer, and leads to Room 19.  \
           In the floor is a curious \
           solid quartz window.",
       n_to Third_Floor, s_to Room19a,
       d_to "Solid quartz.",
  has  light;

Nearby quartz_window "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;

Nearby g_book "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.";
       ];

Nearby pyramid "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.";
       ];

Nearby ornate_box "ornate box"
  with name "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 hateful"; rtrue; }
           else print "an"; ],
  has  open openable container;

Object matchbook "matchbook" ornate_box
  with name "matchbook" "book" "matches",
       number 5,
       before
       [; Burn: if (match has light)
                {   remove match; remove matchbook;
                    "What a waste of matches!";
                }
       ],
       invent
       [;  if (inventory_stage==2)
           {   switch(self.number)
               {   0: print " (empty)";
                   1: print " (1 match left)";
                   default: print " (", self.number, " matches left)";
               }
           }
       ],
       description
       [;  print "The cover advertisement reads \
                  ~Jigsaw - Adventure of Other People's \
                  Lifetimes~.  The book ";
           switch(self.number)
           {   0: "is empty.";
               1: "has a single match left.";
               default:
                   print_ret "contains ", self.number, " matches.";
           }
       ],
       time_left 0,
       daemon
       [;   if (match notin matchbook && match notin player)
            {   move match to matchbook;
                if (match has light)
                {   give match ~light; StopTimer(match); }
                StopDaemon(self);
            }
       ],
  has  transparent;

Object match "match" matchbook
  with parse_name
       [ i j;   if (self has light) j='burning'; else j='unlit';
                while (NextWord()=='match' or j) i++;
                return i;
       ],
       time_left 0, article "an",
       before
       [ i; if (self in matchbook)
            {   i=matchbook.number;
                if (i==0) "There are no matches left in the book.";
                i--; matchbook.number=i;
                move self to player; StartDaemon(matchbook);
                print "(taking a match from the book, which ";
                if (i==0) print "is now empty)^";
                if (i==1) print "has one more left)^";
                if (i>1)  print "has ", i, " left)^";
                self.article = "an";
            }
            Take, Remove: if (self in player) "Done.";
            Burn:
                if (self has light) "The match is already alight.";
                if (matchbook notin player)
                   "You need the matchbook to strike the match.";
                give self light; StartTimer(self, 2+random(3));
                self.article = "a";
                "You strike the match.";
       ],
       short_name
       [;   if (self has light) print "burning match";
                           else print "unlit match";
            rtrue;
       ],
       time_out
       [;   move self to matchbook; give self ~light;
            "^You drop the match as the flame reaches your finger.";
       ];

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

Object Room19a "Inventory Annexe"
  with description
        "This is Room 19a, an annexe to the List Property Office to south, \
         though there's also a Chinese-looking shrine to the east.",
       n_to Corridor18, s_to Room19, e_to IChingRoom,
  has  light;

Object list_machine "listing machine" Room19a
  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)^";
                 }
             }
       ],
  has  transparent static;

Nearby 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);
           "...~";
       ],
  has  static;

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

Nearby bs1 "newline switch" class bit_switch
  with name "newline", number NEWLINE_BIT;
Nearby bs2 "indent switch" class bit_switch
  with name "indent", number indent_BIT;
Nearby bs3 "fullinv switch" class bit_switch
  with name "fullinv", number fullinv_BIT, has on;
Nearby bs4 "english switch" class bit_switch
  with name "english", number english_BIT, has on;
Nearby bs5 "recurse switch" class bit_switch
  with name "recurse", number recurse_BIT, has on;
Nearby bs6 "always switch" class bit_switch
  with name "always", number always_BIT;
Nearby bs7 "terse switch" class bit_switch
  with name "terse", number terse_BIT;
Nearby bs8 "partinv switch" class bit_switch
  with name "partinv", number partinv_BIT;
Nearby bs9 "defart switch" class bit_switch
  with name "defart", number defart_BIT;
Nearby bs10 "workflag switch" class bit_switch
  with name "workflag", number workflag_BIT;
Nearby bs11 "isare switch" class bit_switch
  with name "isare", number isare_BIT;
Nearby bs12 "conceal switch" class bit_switch
  with name "conceal", number conceal_BIT;

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

[ CoinsTogether attr i x y;
  for (i=selfobj+1:i<=top_object:i++)
      if (i has attr)
      {   x=parent(i);
          if (y==0) y=x; else { if (x~=y) return 0; }
      }
  return y;
];

Attribute is_gold; Attribute is_silver;
[ Face x; if (x.number==1) print "Heads"; else print "Tails"; ];
Array gold_trigrams --> "K'un" "Chen" "Pok" "Nah" "Splot" "P'arg" "Inf" "Deng";
Array silver_trigrams --> "Tui" "Ang" "Bong" "Fek" "Tel" "Cui" "Qan" "Chi";
[ Trigram attr i k state;
  for (i=selfobj+1:i<=top_object:i++)
      if (i has attr)
      {   print (Face) i; if (k++<2) print ","; print " ";
          state=state*2 + (i.number-1);
      }
  if (attr==is_gold) i=gold_trigrams; else i=silver_trigrams;
  print "(", (string) i-->state, ")";
];

[ CoinsLT attr k i c;
  if (inventory_stage==1)
  {   if (attr==is_gold) print "the gold"; else print "the silver";
      print " coins ";
      k=CoinsTogether(attr);
      if (k==location || k has supporter)
      {   for (i=selfobj+1:i<=top_object:i++)
          {   if (i has attr)
              {   print (name) i;
                  switch(++c)
                  {  1: print ", "; 2: print " and ";
                     3: print " (showing the trigram ", (Trigram) attr, ")";
                  }
              }
          }
          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 has is_silver) 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 has is_gold) j=is_gold; else j=is_silver;
                 if (CoinsTogether(j)~=0)
                 {   print "The ";
                     if (j==is_gold) print "gold"; else print "silver";
                     print_ret " trigram is now ", (Trigram) j, ".";
                 }
                 new_line; rtrue;
       ];

Class  gold_coin class coin
 has   is_gold with list_together [; return CoinsLT(is_gold); ];
Class  silver_coin class coin
 has   is_silver with list_together [; return CoinsLT(is_silver); ];

Object IChingRoom "Chinese Room"
  with description "A small, well-composed Chinese room for meditation, \
           through which ~a wind can blow~.  (But only if it blows from \
           west back to west, because that's the only exit.)  From each \
           cornice of the ceiling, a cherub looks down.",
       w_to Room19a,
  has  light;

Nearby cscroll "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.";

Nearby goat "goat" class gold_coin with name "goat";
Nearby deer "deer" class gold_coin with name "deer";
Nearby chicken "chicken" class gold_coin with name "chicken";

Nearby robin "robin" class silver_coin with name "robin";
Nearby snake "snake" class silver_coin with name "snake";
Nearby bison "bison" class silver_coin with name "bison";

Global c_warned = 0;
Class  cherub_class
  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 (c_warned==0)
                     print "(I'll let this go, \
                         but the plural of ~cherub~ is ~cherubim~.)^";
                 c_warned=1;                 
             }
             if (j=='cherubim')
             {   parser_action=##PluralFound; flag=1; }
             i++;
         }
         return i-1;
       ],
  has  scenery;

Nearby ne_cherub "northeast cherub"
 class cherub_class
  with name "northeast";
Nearby se_cherub "southeast cherub"
 class cherub_class
  with name "southeast";
Nearby nw_cherub "northwest cherub"
 class cherub_class
  with name "northwest";
Nearby sw_cherub "southwest cherub"
 class cherub_class
  with name "southwest";

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

Object Room19 "List Property Office"
  with name "trapdoor",
       description
          "This is Room 19, 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.^^\
           Above the table is a small trapdoor in the ceiling.",
       n_to Room19a,
       u_to roof,
  has  light;

Nearby table "green baize table"
  with name "green" "baize" "table"
  has  scenery supporter;

Class  plastic_cutlery
  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 ";
           }
       ];
Nearby fork  "fork"  class plastic_cutlery with name "fork";
Nearby knife "knife" class plastic_cutlery with name "knife";
Nearby spook "spoon" class plastic_cutlery with name "spoon";

Class hat_class with list_together "hats", name "hat" "hats", has clothing;
Nearby hat1 "fez" class hat_class with name "fez";
Nearby hat2 "Panama" class hat_class with name "panama";
Nearby hat3 "sombrero" class hat_class 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 ", (string) self.realname, " from a Scrabble set"; rtrue;
       ],
       article "the";
Nearby s1 "X" class letter with name "x", realname "X";
Nearby s2 "Y" class letter with name "y", realname "Y";
Nearby s3 "Z" class letter with name "z", realname "Z";
Nearby s4 "P" class letter with name "p", realname "P";
Nearby s5 "Q" class letter with name "q", realname "Q";
Nearby s6 "R" class letter with name "r", realname "R";

Nearby cake "defrosting Black Forest gateau"
  with name "black" "forest" "gateau" "cake",
  has  edible;

Nearby punch "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;
Nearby spectator "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;

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

Attribute is_star;
Class  star_class
  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 hasnt is_star) print " stars";
       ],
       short_name
       [;  if (listing_together has is_star)
           {   print (address) (self.&name)-->0; rtrue; }
       ],
       article
       [;  if (listing_together has is_star) print "one"; else print "a";
       ],
  has  is_star;
Class  gold_star_class   class star_class with name "gold";
Class  silver_star_class class star_class with name "silver";
Class  bronze_star_class class star_class with name "bronze";
Nearby star1 "silver star" class silver_star_class;
Nearby star2 "silver star" class silver_star_class;
Nearby star3 "silver star" class silver_star_class;
Nearby star4 "silver star" class silver_star_class;
Nearby star5 "bronze star" class bronze_star_class;
Nearby star6 "gold star"   class gold_star_class;
Nearby star7 "gold star"   class gold_star_class;
Nearby star8 "gold star"   class gold_star_class;

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

Object Room20 "Curious Names"
  with description
          "This is Room 20, @00 of the mezzanine.",
       w_to Third_Floor,
  has  light;

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

Nearby white_stone "white stone"
  with name "white" "stone";
Nearby black_stone "black stone"
  with name "black" "stone";
Nearby fia "fly in amber"
  with name "fly" "amber";

Nearby 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;
];

Nearby princess "/?%?/ (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;

Nearby fridge "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 pepper "green pepper" fridge
  with name "green" "pepper",
  has  edible;

Object tomato "red fried tomato" fridge
  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 drinksmat "drinks machine" Room20
  with name "drinks" "machine",
       initial
          "Next to the fridge is a drinks machine with buttons \
           for Cola, Coffee and Tea.",
  has  static transparent;
Nearby dm_button "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;
             print_ret "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.";
        ];

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

Property far_side;
Class  window_room
  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;
Object window_w "Room 24: @01 of Window"
 class window_room
  with e_to Third_Floor, far_side window_e;
Object window_e "Room 24: @00 of Window"
 class window_room
  with far_side window_w;
Nearby key3 "bronze key"
  with name "bronze" "key"
  has  is_key;
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.";
               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;

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

Object roof "Museum Roof"
  with name "trapdoor",
       description
          "A small trapdoor leads down from this tiled roof into the \
           museum.  The view is indescribable, which saves me some typing \
           and you some reading, right?  Yes -- this is one of those \
           post-modern room descriptions, the kind that makes you aware \
           you're only playing a game.",
       d_to Room19,
  has  light;

Global status_style = 3;

Nearby settable_dial "dial"
  with name "dial",
       initial "A dial here has four settings: 1 - invisible; 2 - centred; \
           3 -�Score/Turns; 4 - compass rose.",
       before
       [;  SetTo:
               if (second<1 || second>4) "There are only four settings.";
               status_style = second; "Set.";
       ],
  has  static;

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

[ Initialise;
  location = Foyer; move samples_bag to player;
  thedark.short_name = "An odd-smelling darkness";
  thedark.initial = GoMothGo;
  NormalWorld(); lookmode=2;
  SetTime(SUNRISE-10,1);

 "^^^^^Welcome indeed to the...^";
];

[ InScope actor;

   if (actor==martha) PlaceInScope(player);
   if (actor==player && scope_reason==TALKING_REASON && player in booth)
       PlaceInScope(martha);

   if (location==window_w && window_e has light)
       ScopeWithin(window_e);
   if (location==window_e && window_w has light)
       ScopeWithin(window_w);
   rfalse;
];

[ BeforeParsing i j;
  for (i=parse->1,j=2:j<i:j++)
  {   wn=j-1;
      if (NextWord()=='fly' && NextWord()=='in' && NextWord()=='amber')
          parse-->(j*2-1) = 'fly';
  }
   if (genies_lamp hasnt general) return;
   for (wn=1::)
   {   switch(NextWordStopped())
       {   'white': parse-->(wn*2-3) = 'black';
           'black': parse-->(wn*2-3) = 'white';
           -1: return;
       }
   }
];

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

Constant U_POS 28; Constant W_POS 30; Constant C_POS 31;
Constant E_POS 32; Constant IN_POS 34;

Array printed_text table 64;

[ DrawStatusLine j posa posb width;
  if (location==0) rfalse;
  width = 0->33; if (width==0) width=80;
  switch(status_style)
  {   1: @split_window 0;
      2: font off;
         @split_window 1; @buffer_mode 0; @set_window 1;
         style reverse; @set_cursor 1 1; spaces width;
         printed_text-->0 = 64;
         @output_stream 3 printed_text;
         print (name) location;
         @output_stream -3;
         j=(width-(printed_text-->0))/2;
         @set_cursor 1 j; print (name) location; spaces(j-1);
         style roman;
         @buffer_mode 1; @set_window 0; font on;
      3: @split_window 1; @set_window 1; @set_cursor 1 1; style reverse;
         posa = width-26; posb = width-13;
         spaces width;
         @set_cursor 1 2; print (name) location;
         if (width > 76)
         {   @set_cursor 1 posa; print "Score: ", sline1;
             @set_cursor 1 posb; print "Moves: ", sline2;
         }
         if (width > 63 && width <= 76)
         {   @set_cursor 1 posb; print sline1, "/", sline2;
         }
         @set_cursor 1 1; style roman; @set_window 0;
      4: if (e_obj.door_dir~=e_to)
         {   @split_window 1; @set_window 1; style reverse; font off;
             @set_cursor; spaces width;
             print "You're very disoriented in this reflected world";
             @set_cursor 1 1; style roman; @set_window 0; font on;
             rfalse;
         }
         @split_window 3; @set_window 1; style reverse; font off;
         @set_cursor 1 1; spaces width;
         @set_cursor 2 1; spaces width;
         @set_cursor 3 1; spaces width;
         @set_cursor 1 2;  print (name) location;
         @set_cursor 1 51; print "Score: ", sline1;
         @set_cursor 1 64; print "Moves: ", sline2;
         if (location ~= thedark)
         {   ! First line
             if (location.u_to ~= 0)  { @set_cursor 1 U_POS; print "U"; }
             if (location.nw_to ~= 0) { @set_cursor 1 W_POS; print "@@92"; }
             if (location.n_to ~= 0)  { @set_cursor 1 C_POS; print "@@124"; }
             if (location.ne_to ~= 0) { @set_cursor 1 E_POS; print "/"; }
             if (location.in_to ~= 0) { @set_cursor 1 IN_POS; print "I"; }
             ! Second line
             if (location.w_to ~= 0)  { @set_cursor 2 W_POS; print "-"; }
                                        @set_cursor 2 C_POS; print "o";
             if (location.e_to ~= 0)  { @set_cursor 2 E_POS; print "-"; }
             ! Third line
             if (location.d_to ~= 0)  { @set_cursor 3 U_POS; print "D"; }
             if (location.sw_to ~= 0) { @set_cursor 3 W_POS; print "/"; }
             if (location.s_to ~= 0)  { @set_cursor 3 C_POS; print "@@124"; }
             if (location.se_to ~= 0) { @set_cursor 3 E_POS; print "@@92"; }
             if (location.out_to ~= 0){ @set_cursor 3 IN_POS; print "O"; }
         }
         @set_cursor 1 1; style roman; @set_window 0; font on;
  }
];

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

Include "Grammar";

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

[ FPXSub;
    print_ret "You typed the floating point number ", noun/100, ".",
    (noun%100)/10, noun%10, " (rounded off to 2 decimal places.)";
];

[ DigitNumber n type x;
  x = NextWordStopped(); if (x==-1) return -1; wn--;
  if (type==0)
  {   x = WordAddress(wn);
      if (x->n>='0' && x->n<='9') return (x->n) - '0';
      return -1;
  }
  if (x=='nought' or 'oh') { wn++; return 0; }
  x = TryNumber(wn++); if (x==-1000 || x>=10) x=-1; return x;
];
[ FloatingPoint a x b w d1 d2 d3 type;
  a = TryNumber(wn++);
  if (a==-1000) return -1;
  w = NextWordStopped(wn); if (w==-1) return a*100;
  x = NextWordStopped(wn); if (x==-1) return -1; wn--;
  if (w=='point') type=1;
  else
  {   if (WordAddress(wn-1)->0~='.' || WordLength(wn-1)~=1)
          return -1;
  }
  d1 = DigitNumber(0,type);
  if (d1==-1) return -1;
  d2 = DigitNumber(1,type); d3 = DigitNumber(2,type);
  b=d1*10; if (d2>=0) b=b+d2; else d3=0;
  if (type==1)
  {   x=1; while (DigitNumber(x,type)>=0) x++; wn--;
  }
  else wn++;
  parsed_number = a*100 + b;
  if (d3>=5) parsed_number++;
  return 1;
];

Verb "fp" * FloatingPoint -> FPX;

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

Constant MAX_PHONE_LENGTH 30;
Array dialled_number string MAX_PHONE_LENGTH;
[ PhoneNumber f a l ch pp i;
  pp=1; if (NextWordStopped()==-1) return 0;
  do
  {   a=WordAddress(wn-1); l=WordLength(wn-1);
      for (i=0:i<l:i++)
      {   ch=a->i;
          if (ch<'0' || ch>'9')
          {   if (ch~='-') { f=1; if (i~=0) return -1; } }
          else
          {   if (pp<MAX_PHONE_LENGTH)
                  dialled_number->(pp++)=ch-'0';
          }
      }
  } until (f==1 || NextWordStopped()==-1);
  if (pp==1) return -1;
  dialled_number->0 = pp-1;
  return 0;
];

[ DialPhoneSub i;
  print "You dialled <";
  for (i=1:i<=dialled_number->0:i++) print dialled_number->i;
  ">";
];
Verb "dial"  * PhoneNumber -> DialPhone;

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

Global assumed_key;
[ DefaultLockSub;
  print "(with ", (the) assumed_key, ")^"; <<Lock noun assumed_key>>;
];
[ DefaultUnlockSub;
  print "(with ", (the) assumed_key, ")^"; <<Unlock noun assumed_key>>;
];

[ DefaultKeyTest i count;
  if (noun hasnt lockable) rfalse;
  objectloop (i in player)
      if (i has is_key) { count++; assumed_key = i; }
  if (count==1) rtrue; rfalse;
];

Extend "lock" first * noun = DefaultKeyTest -> DefaultLock;
Extend "unlock" first * noun = DefaultKeyTest -> DefaultUnlock;

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

Constant TWELVE_HOURS 720;
[ NumericTime hr mn word x;
  if (hr>=24) return -1;
  if (mn>=60) return -1;
  x=hr*60+mn; if (hr>=13) return x;
  x=x%TWELVE_HOURS; if (word=='pm') x=x+TWELVE_HOURS;
  if (word~='am' or 'pm' && hr==12) x=x+TWELVE_HOURS;
  return x;
];
[ MyTryNumber wordnum i j;
  i=wn; wn=wordnum; j=NextWordStopped(); wn=i;
  switch(j)
  {   'twenty-five': return 25;
      'thirty': return 30;
      default: return TryNumber(wordnum);
  }
];
[ TimeOfDay i j k x flag loop ch hr mn;
  i=NextWord();
  if (i=='midnight') { parsed_number=0; return 1; }
  if (i=='midday' or 'noon') { parsed_number=TWELVE_HOURS; return 1; }
  !   Next try the format 12:02
  j=WordAddress(wn-1); k=WordLength(wn-1);
  flag=0;
  for (loop=0:loop<k:loop++)
  {   ch=j->loop;
      if (ch==':' && flag==0 && loop~=0 && loop~=k-1) flag=1;
      else { if (ch<'0' || ch>'9') flag=-1; }
  }
  if (k<3 || k>5) flag=0;
  if (flag==1)
  {   for (loop=0:j->loop~=':':loop++, hr=hr*10)
          hr=hr+j->loop-'0';
      hr=hr/10;
      for (loop++:loop<k:loop++, mn=mn*10)
          mn=mn+j->loop-'0';
      mn=mn/10;
      j=NextWordStopped();
      parsed_number=NumericTime(hr, mn, j);
      if (parsed_number<0) return -1;
      if (j~='pm' or 'am') wn--;
      return 1;
  }
  !   Next the format "half past 12"
  j=-1; if (i=='half') j=30; if (i=='quarter') j=15;
  if (j<0) j=MyTryNumber(wn-1); if (j<0) return -1;
  if (j>=60) return -1;
  k=NextWordStopped();
  if ((k=='o^clock' or 'am' or 'pm')||(k==-1))
  {   hr=j; if (hr>12) return -1; jump TimeFound; }
  if (k=='to' or 'past')
  {   mn=j; hr=MyTryNumber(wn);
      if (hr<=0)
      {   x=NextWordStopped();
          if (x=='noon' or 'midday') hr=12;
          if (x=='midnight') hr=0;
          if (hr<0) return -1;
      }
      if (hr>=13) return -1;
      if (k=='to') { mn=60-mn; hr=hr-1; if (hr==-1) hr=23; }
      wn++; k=NextWordStopped();
      jump TimeFound;
  }
  hr=j; mn=MyTryNumber(--wn);
  if (mn<0 || mn>=60) return -1;
  wn++; k=NextWordStopped();
 .TimeFound;
  parsed_number = NumericTime(hr, mn, k);
  if (parsed_number<0) return -1;
  if (k~='pm' or 'am' or 'o^clock') wn--;
  return 1;
];

[ SetTheTimeSub;
  SetTime(noun,1);
  print_ret "The time is set to ", (PrintTime) noun, ".";
];
Verb "time"  * TimeOfDay -> SetTheTime;

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

Global third;
[ ThreefoldSub; print_ret "You do something involving ", (the) noun, ", ",
      (the) second, " and ", (the) third, ".";
];
[ GhostObject x;
  x=NounDomain(player,location,0);
  if (x==REPARSE_CODE) return x;
  if (x==0 or 1) return -1;
  third = x;
  return 0;
];
Verb "threefold" * noun noun GhostObject -> Threefold;
               
! --------------------------------------------------------------------------

[ MegaExam obj; print (a) obj, ": "; <Examine obj>; ];
[ MegaLookSub; <Look>; LoopOverScope(MegaExam); ];
Verb meta "megalook" *                           -> MegaLook;

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

[ ClapSub; "You clap."; ];
Verb "clap"   * -> Clap;

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

Verb "magnify" * noun                          -> Magnify;

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

Verb "alarm," * "on"      -> SwitchOn
              * "off"     -> SwitchOff
              * TimeOfDay -> SetTo
              * ConTopic  -> Inv;

Verb "tc,"    * noun      -> Examine
              * ConTopic  -> Inv;

[ Crew i;
  switch(scope_stage)
  {  1: rfalse;
     2: for (i=selfobj+1:i<=top_object:i++)
            if (i has crewmember) PlaceInScope(i); rtrue;
  }
];

Verb "stc,"   * "where" "is" scope=Crew        -> Examine
              * "locate" scope=Crew            -> Examine;

Verb "rc,"    * held      -> Give
              * ConTopic  -> Inv;

[ Planet;
  switch(NextWord())
  {   'centauro', 'earth': return 1;
      default: return -1;
  }
];

Verb "zen,"   * "scan" number "orbital"        -> Show
              * "set" "course" "for" Planet    -> Go
              * "speed" "standard" "by" number -> SetTo
              * "raise" held                   -> Take
              * "clear" held "for" "firing"    -> Drop;

end;