Inform - Resources - Examples

Back to List

Inventory
Complete

Plain
Coloured
Gaudy

Browsing Museum.inf

This is the complete source code of the example game Museum.inf.

0001  ! ----------------------------------------------------------------------------
0002  !   Museum 961111                   One of the standard Inform 6 example games
0003  !
0004  !                                                            created: 20.12.95
0005  !                                             translated to Inform 6: 11.11.96
0006  !
0007  !   This "game" is a compendium of solved exercises from the Designer's
0008  !   Manual.  Room numbers are section numbers within the Third Edition.
0009  !   Many of these exercises are difficult, and so is some of the code below.
0010  ! ----------------------------------------------------------------------------
0011   
0012  Constant Story "MUSEUM OF INFORM";
0013  Constant Headline
0014      "^An Interactive Companion to the Designer's Manual (Third Edition)^";
0015   
0016  !   The game is meant to be experimented with, so we always define:
0017  Constant DEBUG;
0018   
0019  Release 2;
0020  Serial "961111";
0021   
0022  Replace DrawStatusLine;
0023  Include "Parser";
0024   
0025  ! --------------------------------------------------------------------------
0026   
0027  Object samples_bag "samples bag"
0028    with description "A capacious SACK_OBJECT (see section 20).",
0029         name "samples" "bag", article "your",
0030         when_closed "Your samples bag lies on the floor.",
0031         when_open "Your samples bag lies open on the floor.",
0032    has  container open openable;
0033   
0034  Constant SACK_OBJECT = samples_bag;
0035   
0036  Include "VerbLib";
0037   
0038  ! --------------------------------------------------------------------------
0039   
0040  Attribute crewmember;
0041   
0042  Property weight 10;
0043   
0044  Class Key with name "key";
0045   
0046  ! --------------------------------------------------------------------------
0047   
0048  Object  Foyer "Foyer"
0049   has    light
0050   with   description
0051             "The foyer of the magnificent Museum of Inform. A flight of 
0052              stairs sweeps upward to Chapters V and VI, and corridors 
0053              fan out on this level into Chapter IV. These run:^
0054              ^  north into Room 10 (the Halls of Sense and Direction),
0055              ^  south along Corridor 12 (doors) to Room 13 (switches),
0056              ^  @00 to Room 11 (the Wonderful World of Containers)
0057              ^  and @01 to Room 14 (which houses larger exhibits).^^
0058              (And a plain ladder descends into the basement; you can also 
0059               step out onto a balcony.)",
0060          e_to Room11, u_to Second_Floor, n_to Room10,
0061          s_to Corridor12, w_to Room14,
0062          d_to basement, out_to balcony;
0063   
0064  Object -> "map"
0065    with name "map" "ground" "floor",
0066         initial "A map of the ground floor is embossed in one wall.",
0067         description
0068         [;  font off;
0069             print
0070            "^+------------------------------------------+
0071             ^|                              (mirror)    |
0072             ^|   Weights      Room 10  ---  Room 10a    |
0073             ^|    Room         senses      directions   |
0074             ^|      |            |                      |
0075             ^|   Room 14 ---   Foyer   ---   Room 11    |
0076             ^|  (changing  (you are here)   containers  |
0077             ^|  character)       |                      |
0078             ^|                   |                      |
0079             ^|   Room 15 --- Corridor 12                |
0080             ^|  (MS room)  (door, curator)              |
0081             ^|   (Bible)         |                      |
0082             ^|             Switches Hall 13             |
0083             ^|                (chasm)                   |
0084             ^|                   |                      |
0085             ^|           Far Side of Room 13            |
0086             ^+------------------------------------------+^";
0087             font on;
0088         ],
0089    has  static;
0090   
0091  ! --------------------------------------------------------------------------
0092   
0093  Object basement "Museum Basement"
0094    with u_to Foyer,
0095         description
0096            "Once Room 17, this space has been abandoned by the curators,
0097             who have simply sprayed its walls with moth-repellent and
0098             abandoned it.",
0099         before
0100         [;  Smell: "Napthalene.";
0101         ];
0102   
0103  ! --------------------------------------------------------------------------
0104   
0105  Object Room10 "Hall of Senses"
0106    with description
0107            "This is Room 10, north of the foyer. If you try going further 
0108             north, a string will be printed instead. The exit to the @00 
0109             has a routine attached, and randomly leads either to the 
0110             Directions Room or back to the foyer.",
0111         s_to Foyer,
0112         n_to "This string is the ~n_to~ value for this room.",
0113         e_to
0114         [;  if (random(2)==1) return Foyer; return Room10a; ],
0115    has  light;
0116   
0117  Object -> "TRAP lever"
0118    with name "trap" "lever",
0119         before
0120         [;  Pull, Push:
0121                 if (self has on) <<SwitchOff self>>;
0122                 <<SwitchOn self>>;
0123         ],
0124         after
0125         [;  SwitchOn: move orange_cloud to location;
0126                "Clunk! An orange cloud suddenly descends upon you.";
0127             SwitchOff: remove orange_cloud;
0128                "Click! The orange cloud vanishes.";
0129         ],
0130    has  switchable static;
0131   
0132  Object -> "gold watch"
0133    with name "gold" "watch",
0134         description "The watch has no hands, oddly.",
0135         react_before
0136         [;  Listen: if (noun==0 or self) "The watch ticks loudly."; ];
0137   
0138  Object -> "sprig of lavender"
0139    with name "sprig" "of" "lavender",
0140         react_before
0141         [;  Smell: if (noun==0 or self) "Lavender-perfume. Ahh!"; ];
0142   
0143  Object orange_cloud "orange cloud"
0144    with name "orange" "cloud",
0145         react_before
0146         [;  Look: "You can't see for the orange cloud surrounding you.";
0147             Go, Exit: "You wander round in circles, choking.";
0148             Smell: if (noun==0 or self) "Cinnamon? No, nutmeg.";
0149         ],
0150    has  scenery;
0151   
0152  ! --------------------------------------------------------------------------
0153  !   For east-west reflection
0154  ! --------------------------------------------------------------------------
0155   
0156  Lowstring east_str "east"; Lowstring west_str "west";
0157  [ NormalWorld; string 0 east_str; string 1 west_str;
0158    e_obj.door_dir = e_to; w_obj.door_dir = w_to;
0159  ];
0160  [ ReversedWorld; string 0 west_str; string 1 east_str;
0161    w_obj.door_dir = e_to; e_obj.door_dir = w_to;
0162  ];
0163   
0164  Object Room10a "Hall of Directions"
0165    with name "mirror",
0166         description
0167            "An annexe to Room 10: the main exit is back @01, and there's a 
0168             curiously misty mirror on the north wall. Also, there's an exit 
0169             in the fourth, ~hyper~ dimension (which is only visible in the 
0170             weird geometry of this room).",
0171         initial
0172         [;  move hyper to compass; StartDaemon(hyper);
0173         ],
0174         w_to Room10,
0175         n_to
0176         [;  print "Walking through the mirror is confusing...^";
0177             if (self has general) NormalWorld(); else ReversedWorld();
0178             if (self has general) give self ~general; else give self general;
0179             <<Look>>;
0180         ],
0181         in_to [; print "Amazing! Your body corkscrews as you pass.^";
0182                  return Room11; ],
0183    has  light;
0184   
0185  Object hyper "hyper-dimensional direction"
0186    with name "hyper" "fourth" "dimension", article "the", door_dir in_to,
0187         daemon
0188         [;  if (location ~= Room10a) { remove self; StopDaemon(self); }
0189         ],
0190    has  scenery;
0191   
0192  ! --------------------------------------------------------------------------
0193   
0194  Object Room11 "Wonderful World of Containers"
0195    with description
0196            "This is Room 11, @00 of the foyer. You notice a typical piece 
0197             of scenery which turns out to be a supporter: a mantelpiece.",
0198         w_to Foyer,
0199    has  light;
0200   
0201  Object -> "bearded psychiatrist"
0202    with name "bearded" "doctor" "psychiatrist" "psychologist" "shrink",
0203         initial "A bearded psychiatrist has you under observation.",
0204         life
0205         [;  "He is fascinated by your behaviour, but makes no attempt to 
0206              interfere with it.";
0207         ],
0208         react_after
0209         [;  Insert: print "~Subject puts ", (a) noun, " in ", (the) second,
0210                        ". Interesting.~^";
0211             PutOn:  print "~Subject puts ", (a) noun, " in ", (the) second,
0212                        ". Interesting.~^";
0213         ],
0214         react_before
0215         [;  Take, Remove: print "~Subject feels lack of ", (the) noun,
0216                 ". Suppressed Oedipal complex? Mmm.~^";
0217         ],
0218    has  animate;
0219   
0220  Object -> "mantelpiece"
0221    with name "mantel" "mantle" "piece" "mantelpiece"
0222    has  scenery supporter;
0223   
0224  Object -> "green ball" with name "green" "ball";
0225  Object -> "red cone" with name "red" "cone";
0226  Object -> "blue pyramid" with name "blue" "pyramid";
0227   
0228  Object -> "plain shopping bag (which can only hold 2 things)"
0229    with name "plain" "shopping" "bag", capacity 2,
0230    has  container open;
0231   
0232  Object -> "glass box with a lid" with name "glass" "box" "with" "lid"
0233    has  container transparent openable open;
0234  Object -> "steel box with a lid" with name "steel" "box" "with" "lid"
0235    has  container openable open;
0236   
0237  Key -> bolted_key "bolted key" with name "bolted";
0238   
0239  Object -> "toothed bag"
0240    with name "toothed" "bag",
0241         description "A capacious bag with a toothed mouth.",
0242         before
0243         [; LetGo: "The bag defiantly bites itself 
0244                    shut on your hand until you desist.";
0245            Close: "The bag resists all attempts to close it.";
0246         ],
0247         after
0248         [; Receive:
0249                   "The bag wriggles hideously as it swallows ",
0250                   (the) noun, ".";
0251         ],
0252    has  container open;
0253   
0254  Object -> "bolted cupboard"
0255    with name "bolted" "cupboard",
0256         describe
0257         [; if (self hasnt open)
0258                "^A pretty typical shut cupboard is bolted to one wall.";
0259            "^Bolted up on one wall is an open cupboard.";
0260         ],
0261         with_key bolted_key
0262    has  locked container openable lockable static;
0263   
0264  Object -> "portable television set"
0265    with name "tv" "television" "set" "portable",
0266         initial "A portable television set has two sub-objects attached: 
0267                  a power button and a screen.",
0268         before
0269         [;  SwitchOn: <<SwitchOn power_button>>;
0270             SwitchOff: <<SwitchOff power_button>>;
0271             Examine: <<Examine screen>>;
0272         ],
0273    has  transparent;
0274  Object -> -> power_button "power button"
0275    with name "power" "button" "switch",
0276         after
0277         [;  SwitchOn, SwitchOff: <<Examine screen>>;
0278         ],
0279    has  switchable;
0280  Object -> -> screen "television screen"
0281    with name "screen",
0282         before
0283         [;  Examine: if (power_button hasnt on) "The screen is black.";
0284                 "The screen writhes with a strange Japanese cartoon.";
0285         ];
0286   
0287  Object -> "macrame bag"
0288    with name "macrame" "bag" "string" "net" "sack",
0289         react_before
0290         [;  Examine, Search, Listen, Smell: ;
0291             default:
0292                 if (inp1>1 && inp1 in self)
0293                     print_ret (The) inp1, " is tucked away in the bag.";
0294                 if (inp2>1 && inp2 in self)
0295                     print_ret (The) inp2, " is tucked away in the bag.";
0296         ],
0297         describe
0298         [;  print "^A macrame bag hangs from the ceiling, shut tight";
0299             if (child(self)==0) ".";
0300             print ". Inside you can make out ";
0301             WriteListFrom(child(self), ENGLISH_BIT); ".";
0302         ],
0303    has  container transparent static;
0304  Object -> -> "music box"
0305    with name "music" "box" "musical",
0306         description "Attractively lacquered.",
0307         react_before
0308         [;  Listen: if (noun==0 or self)
0309                "The musical box chimes some Tchaikovsky."; ];
0310   
0311  ! --------------------------------------------------------------------------
0312   
0313  Object Corridor12 "Corridor 12"
0314    with description
0315            "Runs south of the foyer. A side exit leads @01 to Room 15, 
0316             the manuscripts room.",
0317         n_to Foyer, s_to Oak_Door, w_to Room15,
0318    has  light;
0319   
0320  Object -> "sinister curator"
0321    with name "sinister" "curator",
0322         initial
0323         [;  if (self hasnt general)
0324                "A sinister curator leans against the wall, asleep.";
0325            "The curator is here, casting menacing looks.";
0326         ],
0327         daemon
0328         [ i p j n k;
0329             if (random(3)~=1 || self hasnt general) rfalse;
0330             p=parent(self);
0331             objectloop (i in compass)
0332             {   j=p.(i.door_dir);
0333                 if (ZRegion(j)==1 && j hasnt door) n++;
0334             }
0335             if (n==0) rfalse;
0336             k=random(n); n=0;
0337             objectloop (i in compass)
0338             {   j=p.(i.door_dir);
0339                 if (ZRegion(j)==1 && j hasnt door) n++;
0340                 if (n==k)
0341                 {   move self to j;
0342                     if (p==location) "^The curator stalks away.";
0343                     if (j==location) "^The curator stalks in.";
0344                     rfalse;
0345                 }
0346             }
0347         ],
0348         orders
0349         [;  if (self hasnt general) "The curator only snores.";
0350            "He raises a skeletal finger to his lips. ~Shh!~";
0351         ],
0352         life
0353         [;  WakeOther:
0354                 if (self hasnt general)
0355                 {   give self general; move self to Foyer;
0356                    "He wakes and rouses to his feet, pushes past you 
0357                     and stalks away.";
0358                 }
0359             default: "He rears back with disdain.";
0360         ],
0361    has  animate;
0362   
0363  Object Oak_Door "oaken door"
0364    with name "oak" "door" "oaken",
0365         description "Despite appearances, there is no key to this door.",
0366         door_dir
0367         [; if (location==Corridor12) return s_to; return n_to; ],
0368         door_to
0369         [; if (location==Corridor12) return Room13; return Corridor12; ],
0370         describe
0371         [; if (self has open) "^The oaken door stands open.";
0372            if (self hasnt locked) "^The corridor ends in an oaken door.";
0373         ],
0374         found_in  Corridor12  Room13
0375    has  static door openable lockable;
0376   
0377  ! --------------------------------------------------------------------------
0378   
0379  Object Room15 "Manuscripts Room"
0380    with description
0381            "This is Room 15, adjoining a corridor to the @00.",
0382         e_to Corridor12,
0383    has  light;
0384   
0385  Object -> "black Tyndale Bible"
0386    with name "bible" "black" "book",
0387         initial "A black Bible rests on a spread-eagle lectern.",
0388         description "A splendid foot-high Bible, which must have survived 
0389             the burnings of 1520.",
0390         before
0391         [ w x; Consult:
0392                 wn = consult_from; w = NextWord();
0393                 switch(w)
0394                 {   'matthew': x="Gospel of St Matthew";
0395                     'mark': x="Gospel of St Mark";
0396                     'luke': x="Gospel of St Luke";
0397                     'john': x="Gospel of St John";
0398                     default: "There are only the four Gospels.";
0399                 }
0400                 if (consult_words==1)
0401                     "You read the ", (string) x, " right through.";
0402                 w = TryNumber(wn);
0403                 if (w==-1000)
0404                     "I was expecting a chapter number in the ",
0405                               (string) x, ".";
0406                 "Chapter ", (number) w, " of the ", (string) x,
0407                       " is too sacred for you to understand now.";
0408         ];
0409   
0410  ! --------------------------------------------------------------------------
0411   
0412  Object Room13 "Switches Hall"
0413    with description
0414            "This is Room 13, at the south end of a long corridor leading 
0415             north. Progress further south is blocked by a chasm.",
0416         n_to Oak_Door, s_to PlankBridge,
0417    has  light;
0418   
0419  Object -> "Gotham City searchlight"
0420    with name "gotham" "city" "search" "light" "template" "searchlight",
0421         article "the",
0422         description "It has some kind of template on it.",
0423         when_on "The old city searchlight shines out a bat against 
0424                  the alabaster ceiling of the Museum.",
0425         when_off "The old Gotham city searchlight has been lovingly 
0426                  restored and housed here."
0427    has  switchable static;
0428   
0429  Object -> "basement light switch"
0430    with name "basement" "light" "switch",
0431         after
0432         [;  SwitchOn: give basement light; "Click!";
0433             SwitchOff: give basement ~light; "Click!";
0434         ],
0435    has  switchable static;
0436   
0437  Object -> PlankBridge "plank bridge"
0438    with description "Extremely fragile and precarious.",
0439         name "precarious" "fragile" "wooden" "plank" "bridge",
0440         when_open
0441             "A precarious plank bridge spans the chasm.",
0442         door_to
0443         [;  if (children(player)~=0)
0444              {   deadflag=1;
0445                 "You step gingerly across the plank, which bows under 
0446                  your weight. But your meagre possessions are the straw 
0447                  which breaks the camel's back! There is a horrid crack...";
0448              }
0449              print "You step gingerly across the plank, grateful that 
0450                     you're not burdened.^";
0451             if (location==Room13) return FarSide; return Room13;
0452         ],
0453         door_dir
0454         [;  if (location==Room13) return s_to; return n_to;
0455         ],
0456         found_in Room13 FarSide,
0457    has  static door open;
0458   
0459  Object FarSide "Far Side of Chasm in Room 13"
0460    with description
0461            "This side of the chasm is dull and dusty after all.",
0462         n_to PlankBridge,
0463    has  light;
0464   
0465  ! --------------------------------------------------------------------------
0466   
0467  Object Room14 "Large Exhibits Room"
0468    with description
0469            "This is Room 14, @01 of the foyer, which gives onto the Weights 
0470             Room to the north.",
0471         e_to Foyer, n_to Weights_Room,
0472    has  light;
0473   
0474  Object -> "hypnotic portrait"
0475    with name "hypnotic" "portrait" "warthog" "picture" "of" "hog",
0476         initial "A somewhat hypnotic full-length portrait of a warthog hangs 
0477             on the wall.",
0478         before
0479         [;  Examine: <Examine hog>; print "^...and somehow, so do you...^";
0480                 ChangePlayer(hog); <<Look>>;
0481         ],
0482    has  static;
0483   
0484  Object -> "Louis XV chair"
0485    with name "louis" "xv" "quinze" "chair",
0486         initial "A valuable Louis XV chair takes pride of place.",
0487    has  enterable supporter;
0488   
0489  Object -> car "little red car"
0490    with name "little" "red" "car" "kar1",
0491         description "Large enough to sit inside. Among the controls is a 
0492                   prominent on/off switch. The numberplate is KAR 1.",
0493         when_on  "The red car sits here, its engine still running.",
0494         when_off "A little red car is parked here.",
0495         before
0496         [; PushDir: AllowPushDir(); rtrue;
0497            Go: if (car has on) { Achieved(1); "Brmm! Brmm!"; }
0498                print "(The ignition is off at the moment.)^";
0499         ],
0500         after
0501         [; PushDir: "The car rolls very slowly as you push it.";
0502         ],
0503    has  switchable enterable static container open;
0504   
0505  Object -> -> "small note"
0506    with name "small" "note",
0507         description
0508             "  !!!! FROBOZZ MAGIC CAR COMPANY !!!!^
0509             ^Hello, Driver!^
0510             ^Instructions for use:^
0511             ^Switch on the ignition and off you go!^
0512             ^Warranty:^
0513             ^This car is guaranteed against all defects for a period of 
0514              76 milliseconds from date of purchase or until used, 
0515              whichever comes first.^
0516             ^Good Luck!";
0517   
0518  Object -> "Giant"
0519    with name "giant",
0520         initial "A Giant is here. (And you know the old legend... push a 
0521             Giant, become a Giant!)",
0522         before
0523         [;  Push: ChangePlayer(self); <<Look>>;
0524             Take: rtrue;
0525         ],
0526         number 0,
0527         orders
0528         [;  if (player==self)
0529             {   if (actor~=self)
0530                    "You only become tongue-tied and gabble.";
0531                 if (action==##Push && noun==selfobj)
0532                 {   ChangePlayer(selfobj); <<Look>>; }
0533                 rfalse;
0534             }
0535             Attack: "The Giant looks at you with doleful eyes. 
0536                      ~Me not be so bad!~";
0537             default: "The Giant is unable to comprehend your instructions.";
0538         ],
0539    has  animate;
0540   
0541   
0542  ! --------------------------------------------------------------------------
0543   
0544  Object "Caldera"
0545    with description
0546            "An old volcanic crater of mud and ash, from which there is 
0547             nowhere to go.",
0548    has  light;
0549   
0550  Object -> hog "Warthog"
0551    with name "wart" "hog" "warthog",
0552         description "Muddy, sniffing and grunting.",
0553         number,
0554         orders
0555         [;  if (player~=self || actor~=self) rfalse;
0556   
0557             ! So now we have just the case where the player
0558             ! is currently the warthog, ordering himself about:
0559   
0560             Go, Look, Examine, Eat, Smell, Taste, Touch: rfalse;
0561             default: "Warthogs can't do anything as tricky as that!";
0562         ],
0563    has  animate proper;
0564   
0565  Object -> "red berry"
0566    with name "red" "berry" "magic",
0567         initial "A magic red berry is half-uncovered in the mud.",
0568         before
0569         [;  Smell, Taste, Touch:
0570                 print "The blood-smell of the berry brings you back, 
0571                      back...^";
0572                  ChangePlayer(selfobj); <<Look>>;
0573         ];
0574   
0575  ! --------------------------------------------------------------------------
0576   
0577  Constant CARRYING_STRENGTH = 500;
0578  Constant HEAVINESS_THRESHOLD = 100;
0579   
0580  Object Weights_Room "Weights Room"
0581    with description
0582            "This is an annexe, south of Room 14. In here (though nowhere 
0583             else) objects have given weights, and 
0584             you can carry only a limited total weight. (Items from elsewhere 
0585             in the museum all weigh 10 zobs, regardless of what they are.)
0586             The longer you carry heavy objects, the more tired you become,
0587             until you're forced to drop them; your strength recovers once
0588             you're carrying only a light load.",
0589         initial [; weight_monitor.activate(); ],
0590         s_to Room14,
0591    has  light;
0592   
0593  Object -> "feather" with name "feather", weight 1;
0594  Object -> "iron anvil" with name "iron" "anvil", article "an", weight 300;
0595  Object -> "five-zob weight" with name "five" "zob" "weight", weight 5;
0596  Object -> "ten-zob weight" with name "ten" "zob" "weight", weight 10;
0597  Object -> "twenty-zob weight" with name "twenty" "zob" "weight", weight 20;
0598  Object -> "fifty-zob weight" with name "fifty" "zob" "weight", weight 50;
0599  Object -> "hundred-zob weight" with name "hundred" "zob" "weight", weight 100;
0600   
0601  [ WeightOf obj t i;
0602     t = obj.weight;
0603     objectloop (i in obj) t = t + WeightOf(i);
0604     return t;
0605  ];
0606   
0607  Object weight_monitor
0608    with
0609         players_strength,
0610         warning_level 5,
0611   
0612         activate
0613         [;  self.players_strength = CARRYING_STRENGTH; StartDaemon(self);
0614         ],
0615         daemon
0616         [ w s b bw;
0617              if (location ~= Weights_Room) { StopDaemon(self); return; }
0618   
0619              s = self.players_strength
0620                  - WeightOf(player) + HEAVINESS_THRESHOLD;
0621              if (s<0) s=0; if (s>CARRYING_STRENGTH) s=CARRYING_STRENGTH;
0622              self.players_strength = s;
0623   
0624              if (s==0)
0625              {   bw=-1;
0626                  objectloop(b in player)
0627                      if (WeightOf(b) > bw) { bw = WeightOf(b); w=b; }
0628                  self.players_strength = self.players_strength + bw;
0629                  print "^Exhausted with carrying so much, you decide 
0630                      to discard ", (the) w, ": "; <<Drop w>>;
0631              }
0632   
0633              w=s/100; if (w==self.warning_level) return;
0634   
0635              self.warning_level = w;
0636              switch(w)
0637              {   3: "^You are feeling a little tired.";
0638                  2: "^You possessions are weighing you down.";
0639                  1: "^Carrying so much weight is wearing you out.";
0640                  0: "^You're nearly exhausted enough to drop everything
0641                       at an inconvenient moment.";
0642              }
0643         ];
0644   
0645  ! --------------------------------------------------------------------------
0646   
0647  Constant SUNRISE  360;  ! i.e., 6 am
0648  Constant SUNSET  1140;  ! i.e., 7 pm
0649  Global day_state = 2;
0650   
0651  Object balcony "Balcony"
0652    with description
0653         [;  print "An open-air balcony on the cliffside wall of the 
0654                 cathedral-like Museum, hundreds of feet above ";
0655             if (day_state==1) "sunlit plains of farms and settlements.";
0656             "a darkling plain. Dim light from the walls above is 
0657              the only beacon in this vast night.";
0658         ],
0659         in_to Foyer,
0660         cant_go "The only way is back inside.",
0661         each_turn
0662         [ f;
0663             if (the_time >= SUNRISE && the_time < SUNSET) f=1;
0664             if (day_state == f) return;
0665             if (day_state==2) { day_state = f; return; }
0666             day_state = f;
0667             if (f==1) "^The sun rises, illuminating the landscape!";
0668           "^As the sun sets, the landscape is plunged into darkness.";
0669         ],
0670    has  light;
0671   
0672  Object -> "giant clock"
0673    with name "giant" "clock" "face" "clockface" "clock-face",
0674         before
0675         [;  Examine: "According to the giant clockface on the wall 
0676                 above, it is now ", the_time/60, ":", (the_time%60)/10,
0677                 the_time%10, ".";
0678             default: "The giant clock-face is too high above you.";
0679         ],
0680         react_after [; Look: new_line; <Examine self>; ],
0681    has  static concealed;
0682   
0683  Object -> moth "moth"
0684    with name "moth",
0685         initial "A catchable moth flits about.";
0686   
0687  [ GoMothGo;
0688     if (moth in player)
0689     {   remove moth;
0690        "As your eyes try to adjust, you feel a ticklish sensation 
0691         and hear a tiny fluttering sound.";
0692     }
0693  ];
0694   
0695  Object -> "Commander Data"
0696    with name "data" "commander",
0697         orders
0698         [; "~I regret that I am only here to make an example work elsewhere. 
0699              Please proceed upstairs to 10 Forward to see.~";
0700         ],
0701    has  proper animate crewmember;
0702   
0703  ! ==========================================================================
0704   
0705  Object Second_Floor "Mezzanine"
0706    with description
0707            "Halfway up the marble staircase of the building, a second floor 
0708             mezzanine which leads south into Grammar Hall (an extension 
0709             purpose-built for the Room 16 exhibition).",
0710         d_to Foyer,
0711         s_to Grammar_Hall,
0712         u_to Third_Floor,
0713    has  light;
0714   
0715  Object -> "map"
0716    with name "map" "mezzanine" "level",
0717         initial "A map of the mezzanine level is embossed in one wall.",
0718         description
0719         [;  font off;
0720             print
0721            "^+------------------------------------------+
0722             ^|                                          |
0723             ^|                                          |
0724             ^|                                          |
0725             ^|                                          |
0726             ^|               Mezzanine                  |
0727             ^|             (you are here)               |
0728             ^|                   |                      |
0729             ^|                   |                      |
0730             ^|             Grammar Hall 16              |
0731             ^|       (telepathy, clock)                 |
0732             ^|       (Charlotte, Dan)   --- Ten Forward |
0733             ^|                   |         (replicator) |
0734             ^|               Liberator     (computer)   |
0735             ^|                Bridge       (tricorder)  |
0736             ^|                 (Zen)                    |
0737             ^+------------------------------------------+^";
0738             font on;
0739         ],
0740    has  static;
0741   
0742  Object -> "Room 16 exhibition leaflet"
0743    with name "leaflet" "exhibition" "guide" "room" "sixteen",
0744         initial "An exhibition leaflet has fallen to the floor.",
0745         description
0746            "Among the rare & fascinating exhibits in Room 16 are:...^^
0747             Telekinetic (and telepathic) Martha. In the telepathy
0748             booth, you can speak to her as though she were in Room 16
0749             with you -- but she's not, she is far away. Tell her to
0750             ~look~ to find out where, and you can also ask her to give
0751             you things (by telekinesis).^^
0752             Charlotte, who is playing Simon Says. She'll obey
0753             instructions you give as long as you preface it with
0754             ~simon says~. (Though she only knows how to wave, or how to
0755             clap many times (just tell her a number).)^^
0756             Dyslexic Dan knows how to take and drop things and how to
0757             perform an inventory, but unfortunately confuses Take and
0758             Drop orders.^^
0759             The alarm clock can be told ~on~, ~off~ or a time of day
0760             (to set its alarm to).";
0761             
0762  ! --------------------------------------------------------------------------
0763   
0764  Object Grammar_Hall "Grammar Hall"
0765    has  light,
0766    with description
0767            "The main exhibit on the second floor: Room 16, south of the 
0768             mezzanine. A Jeffreys Tube runs @00 into a Star Trek: The
0769             Next Generation room, while a hexagonal corridor to the south
0770             leads to the bridge of the spaceship ~Liberator~.",
0771         n_to Second_Floor, e_to Star_Trek, s_to Blakes_Seven;
0772   
0773  Object -> booth "telepathy booth"
0774    with name "booth" "telepathy",
0775         initial
0776            "A telepathy booth stands invitingly open: 
0777             ~Talk To Telekinetic Martha~.",
0778    has  enterable static;
0779   
0780  Object -> "Charlotte"
0781    with name "charlotte" "charlie" "chas",
0782         number 0,
0783         grammar
0784         [;  give self ~general;
0785             wn=verb_wordnum;
0786             if (NextWord()=='simon' && NextWord()=='says')
0787             {   give self general;
0788                 verb_wordnum=verb_wordnum+2;
0789             }
0790             self.number=TryNumber(verb_wordnum);
0791             if (self.number~=-1000)
0792             {    action=##Clap; noun=0; second=0; rtrue; }
0793         ],
0794         orders
0795         [ i;  if (self hasnt general) "Charlotte sticks her tongue out.";
0796             WaveHands: "Charlotte waves energetically.";
0797             Clap: if (self.number==0) "Charlotte folds her arms.";
0798                   for (i=0:i<self.number:i++)
0799                   {   print "Clap! ";
0800                       if (i==100)
0801                           print "(You must be regretting this by now.) ";
0802                       if (i==200)
0803                           print "(What a determined girl she is.) ";
0804                   }
0805                   if (self.number>100)
0806                       "^^Charlotte's a bit out of breath now.";
0807                  "^^~Easy!~ says Charlotte.";
0808             default: "~Don't know how,~ says Charlotte.";
0809         ],
0810         initial "Charlotte wants to play Simon Says.",
0811    has  animate female proper crewmember;
0812   
0813  Object -> "Dyslexic Dan"
0814    with name "dan" "dyslexic",
0815         grammar
0816         [;  if (verb_word == 'take') { verb_wordnum++; return 'drop'; }
0817             if (verb_word == 'drop') { verb_wordnum++; return 'take'; }
0818         ],
0819         orders
0820         [;
0821             Take: "~What,~ says Dan, ~ you want me to take ",
0822                       (the) noun, "?~";
0823             Drop: "~What,~ says Dan, ~ you want me to drop ",
0824                       (the) noun, "?~";
0825             Inv: "~That I can do,~ says Dan. ~I'm empty-handed.~";
0826             default: "~Don't know how,~ says Dan.";
0827         ],
0828         initial "Dyslexic Dan is here.",
0829    has  animate proper crewmember;
0830   
0831  [ PrintTime x;
0832    print (x/60), ":", (x%60)/10, (x%60)%10;
0833  ];
0834   
0835  Object -> "alarm clock"
0836    with name "alarm" "clock", article "an",
0837         number 480,
0838         description
0839         [;  print "The alarm is ";
0840             if (self has general) print "on, "; else print "off, but ";
0841             "the clock reads ", (PrintTime) the_time,
0842             " and the alarm is set for ", (PrintTime) self.number, ".";
0843         ],
0844         react_after
0845         [;  Inv:  if (self in player)   { new_line; <<Examine self>>; }
0846             Look: if (self in location) { new_line; <<Examine self>>; }
0847         ],
0848         daemon
0849         [;  if (the_time >= self.number && the_time <= self.number+3
0850                 && self has general) "^Beep! Beep! The alarm goes off.";
0851         ],
0852         grammar
0853         [;  return 'alarm,';
0854         ],
0855         orders
0856         [;  SwitchOn: give self general; StartDaemon(self); "~Alarm set.~";
0857             SwitchOff: give self ~general; StopDaemon(self);
0858                 "~Alarm cancelled.~";
0859             SetTo:   self.number=noun; <<Examine self>>;
0860             default: "~Commands are on, off or a time of day only, pliz.~";
0861         ],
0862         life
0863         [;  Ask, Answer, Tell:
0864             "[Try ~clock, something~ to address the clock.]";
0865         ],
0866    has  talkable;
0867   
0868  ! --------------------------------------------------------------------------
0869   
0870  Object Blakes_Seven "Spaceship Liberator: Bridge"
0871    has  light,
0872    with description
0873            "The great serried bridge of the alien spaceship Liberator,
0874             captured by Blake's group of revolutionary criminals on the
0875             run from the oppressive Earth Federation.  (Don't worry --
0876             it's just a convincing replica, and the museum still lies
0877             back north.)",
0878         n_to Grammar_Hall;
0879   
0880  Object -> "informative plaque"
0881    with name "informative" "plaque",
0882         article "an",
0883         description
0884            "[Among the commands which Zen was often given by the hard-pressed
0885             Liberator crew were:^^
0886             zen, scan 360 orbital^
0887             zen, speed standard by six^
0888             zen, clear the neutron blasters for firing^
0889             zen, raise the force wall^
0890             zen, set course for centauro]",
0891    has  static;
0892   
0893  Object -> "Zen"
0894    with name "zen" "flight" "computer",
0895         initial
0896            "Square lights flicker unpredictably across a hexagonal fascia 
0897             on one wall, indicating that the flight computer Zen is on-line.",
0898         grammar
0899         [;  return -'zen,';
0900         ],
0901         orders
0902         [;  Show: "The main screen shows a starfield, 
0903                    turning through ", noun, " degrees.";
0904             Go:  "~Confirmed.~  The ship turns to a new bearing.";
0905             SetTo: if (noun==0) "~Confirmed.~  The ship comes to a stop.";
0906                 if (noun>12) "~Standard by ", (number) noun,
0907                              " exceeds design tolerances.~";
0908                 "~Confirmed.~  The ship's engines step to 
0909                  standard by ", (number) noun, ".";
0910             Take: if (noun~=force_wall) "~Please clarify.~";
0911                  "~Force wall raised.~";
0912             Drop: if (noun~=blasters)   "~Please clarify.~";
0913                "~Battle-computers on line. 
0914                  Neutron blasters cleared for firing.~";
0915             NotUnderstood: "~Language banks unable to decode.~";
0916             default: "~Information. That function is unavailable.~";
0917         ],
0918    has  talkable proper static;
0919  Object -> -> force_wall "force wall"     with name "force" "wall" "shields";
0920  Object -> -> blasters "neutron blasters" with name "neutron" "blasters";
0921   
0922  ! --------------------------------------------------------------------------
0923   
0924  Object "Captain Picard"
0925    with name "captain" "picard",
0926    has  proper animate crewmember;
0927   
0928  Object Star_Trek "10 Forward"
0929    has  light,
0930    with description
0931            "The starswept observation lounge forward of deck 10
0932             of the Starship Enterprise, where many milkshakes have
0933             been consumed in crisis situations. (It's only a replica,
0934             of course, and the museum lies back @01.)",
0935         w_to Grammar_Hall;
0936   
0937  Object -> "informative plaque"
0938    with name "informative" "plaque",
0939         article "an",
0940         description
0941            "[The computer, called just ~computer~, is useful for locating
0942             crew-members: try ~computer, where is commander data~, or
0943             ~...captain picard~, or any of the other people who can be
0944             found in the Museum.^^
0945             The tricorder will scan something if you tell it the name of
0946             whom or what you wish to scan.^^
0947             The replicator is a superior drinks machine: for instance,
0948             Captain Picard is fond of saying ~replicator, tea earl grey~.
0949             There's also brandy and distilled water.]",
0950    has  static;
0951   
0952  Object -> "computer"
0953    with name "computer",
0954         initial "The computer, of course, always responds to your voice here.",
0955         grammar
0956         [;  return 'stc,';
0957         ],
0958         orders
0959         [;  Examine:
0960                 if (parent(noun)==0)
0961                     "~", (name) noun,
0962                     " is no longer aboard this demonstration game.~";
0963                 "~", (name) noun, " is in ", (name) parent(noun), ".~";
0964             default: "The computer's only really good for locating the crew.";
0965         ],
0966         life
0967         [;  Ask, Answer, Tell: "The computer is too simple.";
0968         ],
0969    has  talkable static;
0970   
0971  Object -> "tricorder"
0972    with name "tricorder",
0973         grammar
0974         [;  return 'tc,';
0975         ],
0976         orders
0977         [;  Examine: if (noun==player) "~You radiate life signs.~";
0978                 print "~", (The) noun, " radiates ";
0979                 if (noun hasnt animate) print "no ";
0980                "life signs.~";
0981             default: "The tricorder bleeps. It can only accept commands 
0982                 ~tricorder, ~.";
0983         ],
0984         life
0985         [;  Ask, Answer, Tell: "The tricorder is too simple.";
0986         ],
0987    has  talkable;
0988   
0989  Object -> "replicator"
0990    with name "replicator",
0991         initial
0992            "A replicator (i.e. Star Trek drinks machine) occupies a niche 
0993             in one wall.",
0994         grammar
0995         [;  return 'rc,';
0996         ],
0997         orders
0998         [;  Give:
0999                 "The replicator serves up a cup of ",
1000                 (name) noun, " which you drink eagerly.";
1001             default: "The replicator is unable to oblige. You must give 
1002                 it the name of a drink it knows about.";
1003         ],
1004         life
1005         [;  Ask, Answer, Tell: "The replicator has no conversation skill.";
1006         ],
1007    has  talkable static;
1008  Object -> -> "Earl Grey tea"    with name "earl" "grey" "tea";
1009  Object -> -> "Aldebaran brandy" with name "aldebaran" "brandy";
1010  Object -> -> "distilled water"  with name "distilled" "water";
1011   
1012  ! --------------------------------------------------------------------------
1013   
1014  Object "Sealed Room"
1015    with description
1016            "I'm in a sealed room, like a squash court without a door, 
1017             maybe six or seven yards across",
1018    has  light;
1019  Object -> "fish" with name "fish";
1020  Key -> "cadmium key"
1021    with name "cadmium",
1022         after
1023         [;  Drop: remove self; "The key smashes into smithereens!";
1024         ];
1025   
1026  Object -> martha "Martha"
1027     has animate female concealed proper crewmember
1028    with name "martha",
1029         orders
1030         [ r; r=parent(self);
1031             Give:
1032                 if (noun notin r) "~That's beyond my telekinesis.~";
1033                 if (noun==self) "~Teleportation's too hard for me.~";
1034                 move noun to player;
1035                 "~Here goes...~ and Martha's telekinetic talents 
1036                  magically bring ", (the) noun, " to your hands.";
1037             Look:
1038                 print "~", (string) r.description;
1039                 if (children(r)==1) ". There's nothing here but me.~";
1040                 print ". I can see ";
1041                 WriteListFrom(child(r),CONCEAL_BIT+ENGLISH_BIT);
1042                ".~";
1043             default: "~Afraid I can't help you there.~";
1044         ],
1045         life
1046         [;  Ask: "~You're on your own this time.~";
1047             Tell: "Martha clucks sympathetically.";
1048             Answer: "~I'll be darned,~ Martha replies.";
1049         ];
1050   
1051  ! ==========================================================================
1052   
1053  Object Third_Floor "Third Floor"
1054    with name "trapdoor",
1055         description
1056            "Atop the marble staircase, this third floor 
1057             foyer fans out into Rooms from Chapter V. These run:^
1058             ^  south to Corridor 22 (inventories) 
1059             and the List Property Office,
1060             ^  @00 to Room 24 (Curious Names),
1061             ^  @01 to Room 28, which is divided by a glass window.^
1062             ^Only a very rickety
1063             ladder goes further up, through an open trapdoor to the roof.",
1064         d_to Second_Floor, u_to roof,
1065         e_to Room24, w_to window_w, s_to Corridor22,
1066    has  light;
1067   
1068  Object -> "map"
1069    with name "map" "third" "floor",
1070         initial "A map of the third floor is embossed in one wall.",
1071         description
1072         [;  font off;
1073             print
1074            "^+------------------------------------------+
1075             ^|                                          |
1076             ^|    (glass                                |
1077             ^|     window)                              |
1078             ^|      !                                   |
1079             ^| Room ! 28  ---  Stairs  ---   Room 24    |
1080             ^|      !       (you are here)     Names    |
1081             ^|                   |              |       |
1082             ^|                   |          Museum Cafe |
1083             ^|               Corridor 22                |
1084             ^|              (Inventories)               |
1085             ^|            /      |        @@92             |
1086             ^|           /       |         @@92            |
1087             ^| Room 23 W ---   Room 23  --- Room 23 E   |
1088             ^| (listing     List Property    (I Ching)  |
1089             ^| machine)        Office                   |
1090             ^+------------------------------------------+^";
1091             font on;
1092         ],
1093    has  static;
1094   
1095  Object -> "Lexicon"
1096    with name "lexicon",
1097         initial
1098            "On the top step is a discarded Lexicon of verbs.",
1099         description
1100            "(The lexicon has the number 27 written on the spine.)^^
1101             Inside are many familiar verbs that you regularly use
1102             when navigating through Inform games. There are also
1103             some special ones, only available in the Museum...^^
1104             ~megalook~ : like ~look~ but much fuller;^
1105             ~threefold   ~ : this doesn't
1106             actually do anything, but it shows how a verb can
1107             be parsed which has three objects, not just 0 to 2
1108             as usual;^
1109             ~time 
1110             (go out onto the Balcony to see sunrise at 6 AM);^
1111             ~fp ~ : shows how floating-point
1112             numbers can be parsed;^
1113             ~dial ~ : likewise phone numbers.^^
1114             Also, in the Museum, ~lock~ and ~unlock~ are cunningly
1115             able to presume keys as their second objects.";
1116   
1117  ! --------------------------------------------------------------------------
1118   
1119  Object Corridor22 "Corridor 22"
1120    with description
1121            "Runs south of the top floor foyer, and leads to Room 23,
1122             such a long room that you can enter it to southwest, south
1123             or southeast.^^
1124             In the floor is a curious solid quartz window.",
1125         n_to Third_Floor,
1126         s_to Room23, se_to Room23b, sw_to Room23a,
1127         d_to "Solid quartz.",
1128    has  light;
1129   
1130  Object -> "quartz window"
1131    with name "quartz" "window",
1132         before
1133         [;  Examine, Search, LookUnder:
1134                 print "Through the window you can hazily make out the contents 
1135                        of the Grammar Hall below...^";
1136                 if (Locale(Grammar_Hall, "You can see",
1137                            "You can also see")~=0)
1138                     " on the floor below.";
1139                 rtrue;
1140         ],
1141    has  scenery;
1142   
1143  Object -> "Geoffrey's book"
1144    with name "book" "old" "harmless" "lethal" "of" "geoffrey^s",
1145         invent "that harmless old book of Geoffrey's",
1146         before
1147         [;  Examine:
1148                 self.invent = "that lethal old book of Geoffrey's";
1149                "The apparently harmless book turns fiery hot in your hands, 
1150                 and your eyes are dragged toward the hideous sigils 
1151                 inscribed within it... Just in time, you break the gorgon 
1152                 gaze and look away.^^
1153                 [From this moment, its inventory entry changes.]";
1154         ],
1155    has  proper;
1156   
1157  Object -> "platinum pyramid"
1158    with name "platinum" "pyramid",
1159         description "No matter how many times you pick this up and put it 
1160             down again, it never becomes an ~ordinary~ object for room 
1161             description purposes -- it always has a line to itself.",
1162         describe
1163         [;  "^The platinum pyramid catches the light beautifully.";
1164         ];
1165   
1166  Object -> "ornate box"
1167    with name "decorated" "ornate" "box",
1168         invent
1169         [;  if (inventory_stage==1) give self general;
1170             else give self ~general;
1171         ],
1172         short_name
1173         [;  if (self has general) { print "box"; rtrue; } ],
1174         article
1175         [;  if (self has general)
1176             {   print "that most remarkably decorated"; rtrue;
1177             }
1178             else print "an"; ],
1179         description
1180            "[What's interesting about the ornate box is that its
1181              inventory listing overrides its short name entirely,
1182              and yet its contents will still be inventoried.]",
1183    has  open openable container;
1184   
1185  Object -> -> "pearl"
1186    with name "pearl",
1187         description "Don't look at me - I'm irrelevant.";
1188   
1189  ! --------------------------------------------------------------------------
1190   
1191  Object Room23a "Room 23 @01: Inventory Annexe"
1192    with description
1193          "The @01ern end of Room 23 is a housing for the Listing Machine.",
1194         e_to Room23, ne_to Corridor22,
1195    has  light;
1196   
1197  Object -> list_machine "listing machine"
1198    with name "listing" "list" "machine",
1199         describe
1200         [ i;  print "The listing machine has a go button and a number of 
1201                      switches, whose current settings are as follows:^";
1202               objectloop (i in self)
1203               {   if (i~=list_go)
1204                   {   print (address) (i.&name)-->0, "  ";
1205                       if (i has on) print "(on)^"; else print "(off)^";
1206                   }
1207               }
1208               rtrue;
1209         ],
1210    has  transparent static;
1211   
1212  Object -> -> list_go "go button"
1213    with name "go" "button" "control",
1214         before
1215         [ i j;  Push:
1216              objectloop (i in list_machine)
1217                  if (i~=self && i has on) j=j+i.number;
1218              print "~In this style, your inventory is listed as 
1219                  follows...^";
1220              WriteListFrom(child(player), j, 1);
1221             "...~";
1222         ],
1223    has  static;
1224   
1225  Class  BitSwitch
1226    with name "switch" "control",
1227    has  switchable static;
1228   
1229  BitSwitch -> -> "newline switch" 
1230    with name "newline",  number NEWLINE_BIT;
1231  BitSwitch -> -> "indent switch" 
1232    with name "indent",   number INDENT_BIT;
1233  BitSwitch -> -> "fullinv switch" 
1234    with name "fullinv",  number FULLINV_BIT, has on;
1235  BitSwitch -> -> "english switch" 
1236    with name "english",  number ENGLISH_BIT, has on;
1237  BitSwitch -> -> "recurse switch" 
1238    with name "recurse",  number RECURSE_BIT, has on;
1239  BitSwitch -> -> "always switch" 
1240    with name "always",   number ALWAYS_BIT;
1241  BitSwitch -> -> "terse switch" 
1242    with name "terse",    number TERSE_BIT;
1243  BitSwitch -> -> "partinv switch" 
1244    with name "partinv",  number PARTINV_BIT;
1245  BitSwitch -> -> "defart switch" 
1246    with name "defart",   number DEFART_BIT;
1247  BitSwitch -> -> "workflag switch" 
1248    with name "workflag", number WORKFLAG_BIT;
1249  BitSwitch -> -> "isare switch" 
1250    with name "isare",    number ISARE_BIT;
1251  BitSwitch -> -> "conceal switch" 
1252    with name "conceal",  number CONCEAL_BIT;
1253   
1254  ! --------------------------------------------------------------------------
1255   
1256  [ CoinsTogether cla i x y;
1257    objectloop (i ofclass cla)
1258    {   x=parent(i);
1259        if (y==0) y=x; else { if (x~=y) return 0; }
1260    }
1261    return y;
1262  ];
1263   
1264  [ Face x; if (x.number==1) print "Heads"; else print "Tails"; ];
1265   
1266  Array gold_trigrams -->   "fortune" "change" "river flowing" "chance"
1267                            "immutability" "six stones in a circle"
1268                            "grace" "divine assistance";
1269  Array silver_trigrams --> "happiness" "sadness" "ambition" "grief"
1270                            "glory" "charm" "sweetness of nature"
1271                            "the countenance of the Hooded Man";
1272   
1273  [ Trigram cla i k state;
1274    objectloop (i ofclass cla)
1275    {   print (Face) i; if (k++<2) print ","; print " ";
1276        state=state*2 + (i.number-1);
1277    }
1278    if (cla == GoldCoin) i=gold_trigrams; else i=silver_trigrams;
1279    print "(", (string) i-->state, ")";
1280  ];
1281   
1282  [ CoinsLT cla k i c;
1283    if (inventory_stage==1)
1284    {   if (cla == GoldCoin) print "the gold"; else print "the silver";
1285        print " coins ";
1286        k=CoinsTogether(cla);
1287        if (k==location || k has supporter)
1288        {   objectloop (i ofclass cla)
1289            {   print (name) i;
1290                switch(++c)
1291                {  1: print ", "; 2: print " and ";
1292                   3: print " (showing the trigram ", (Trigram) cla, ")";
1293                }
1294            }
1295            rtrue;
1296        }
1297        c_style = c_style | (ENGLISH_BIT+NOARTICLE_BIT);
1298        if (c_style & NEWLINE_BIT ~= 0) c_style = c_style - NEWLINE_BIT;
1299        if (c_style & INDENT_BIT ~= 0)  c_style = c_style - INDENT_BIT;
1300    }
1301    rfalse;
1302  ];
1303   
1304  Class  Coin
1305    with number 1, article "the",
1306         parse_name
1307         [ i j w;
1308           if (parser_action==##TheSame) return -2;
1309           w='gold'; if (self ofclass SilverCoin) w='silver';
1310           for (::i++)
1311           {   j=NextWord();
1312               if (j=='coins') parser_action=##PluralFound;
1313               else if (j~='coin' or w or self.name) return i;
1314           }
1315         ],
1316         after
1317         [ j;
1318             Drop, PutOn:
1319                   self.number=random(2); print (Face) self, ". ";
1320                   if (self ofclass GoldCoin) j=GoldCoin; else j=SilverCoin;
1321                   if (CoinsTogether(j)~=0)
1322                   {   print "The ";
1323                       if (j == GoldCoin) print "gold"; else print "silver";
1324                       " trigram is now ", (Trigram) j, ".";
1325                   }
1326                   new_line; rtrue;
1327         ];
1328   
1329  Class  GoldCoin class Coin
1330    with list_together [; return CoinsLT(GoldCoin); ];
1331  Class  SilverCoin class Coin
1332    with list_together [; return CoinsLT(SilverCoin); ];
1333   
1334  Object Room23b "Room 23 @00: Chinese Room"
1335    with description "A small, well-composed Chinese room for meditation, 
1336             through which ~a wind can blow~. (But only if it blows from 
1337             @01 back to north@01, because they're the only exits.)
1338             From each cornice of the ceiling, a cherub looks down.",
1339         w_to Room23, nw_to Corridor22,
1340    has  light;
1341   
1342  Object -> "Chinese scroll"
1343    with name "chinese" "scroll" "instructions",
1344         initial "A scroll hangs on one wall.",
1345         description
1346            "Instructing you in the arts of the I Ching, the scroll advises 
1347             you to throw the two trigrams of gold and silver coins, that 
1348             you may find wisdom in the result.";
1349   
1350  GoldCoin -> "goat" with name "goat";
1351  GoldCoin -> "deer" with name "deer";
1352  GoldCoin -> "chicken" with name "chicken";
1353   
1354  SilverCoin -> "robin" with name "robin";
1355  SilverCoin -> "snake" with name "snake";
1356  SilverCoin -> "bison" with name "bison";
1357   
1358  Global cherub_warning_given;
1359  Class  Cherub
1360    with parse_name
1361         [ i j flag;
1362           for (flag=1:flag==1:)
1363           {   flag=0;
1364               j=NextWord();
1365               if (j=='cherub' || j==self.name) flag=1;
1366               if (j=='cherubs')
1367               {   parser_action=##PluralFound; flag=1;
1368                   if (cherub_warning_given==0)
1369                       print "(I'll let this go, 
1370                           but the plural of ~cherub~ is ~cherubim~.)^";
1371                   cherub_warning_given = true;
1372               }
1373               if (j=='cherubim')
1374               {   parser_action=##PluralFound; flag=1; }
1375               i++;
1376           }
1377           return i-1;
1378         ],
1379    has  scenery;
1380   
1381  Cherub -> "northeast cherub"  with name "northeast";
1382  Cherub -> "southeast cherub"  with name "southeast";
1383  Cherub -> "northwest cherub"  with name "northwest";
1384  Cherub -> "southwest cherub"  with name "southwest";
1385   
1386  ! --------------------------------------------------------------------------
1387   
1388  Object Room23 "Room 23: List Property Office"
1389    with description
1390            "This the List Property Office (it seems that an ~O~ 
1391             was lost some time ago), at the southern end of the top floor; 
1392             the management have kindly provided a green baize table, while 
1393             the rest is presumably the work of patrons.^^
1394             Room 23 continues @00 to @01.",
1395         n_to Corridor22,
1396         e_to Room23b,
1397         w_to Room23a
1398    has  light;
1399   
1400  Object -> "green baize table"
1401    with name "green" "baize" "table"
1402    has  scenery supporter;
1403   
1404  Class  PlasticCutlery
1405    with name "plastic" "cutlery", article "a plastic",
1406         list_together
1407         [;  if (inventory_stage==1)
1408             { if (c_style & NOARTICLE_BIT == 0) c_style=c_style+NOARTICLE_BIT;
1409               if (c_style & ENGLISH_BIT == 0)   c_style=c_style+ENGLISH_BIT;
1410               if (c_style & NEWLINE_BIT ~= 0)   c_style=c_style-NEWLINE_BIT;
1411               if (c_style & INDENT_BIT ~= 0)    c_style=c_style-INDENT_BIT;
1412               print "a plastic ";
1413             }
1414         ];
1415   
1416  PlasticCutlery -> "fork"  with name "fork";
1417  PlasticCutlery -> "knife" with name "knife";
1418  PlasticCutlery -> "spoon" with name "spoon";
1419   
1420  Class Hat with list_together "hats", name "hat" "hats", has clothing;
1421   
1422  Hat -> "fez"      with name "fez";
1423  Hat -> "Panama"   with name "panama";
1424  Hat -> "sombrero" with name "sombrero";
1425   
1426  Class Letter
1427    with list_together
1428         [;  if (inventory_stage==1)
1429             { print "the letters ";
1430               c_style = c_style | (ENGLISH_BIT+NOARTICLE_BIT);
1431               if (c_style & NEWLINE_BIT ~= 0) c_style = c_style - NEWLINE_BIT;
1432               if (c_style & INDENT_BIT ~= 0)  c_style = c_style - INDENT_BIT;
1433             }
1434             else print " from a Scrabble set";
1435         ],
1436         short_name
1437         [;  if (listing_together ofclass Letter) rfalse;
1438             print "letter ", (object) self, " from a Scrabble set"; rtrue;
1439         ],
1440         article "the";
1441   
1442  Letter -> "X" with name "x";
1443  Letter -> "Y" with name "y";
1444  Letter -> "Z" with name "z";
1445  Letter -> "P" with name "p";
1446  Letter -> "Q" with name "q";
1447  Letter -> "R" with name "r";
1448   
1449  Object -> "defrosting Black Forest gateau"
1450    with name "black" "forest" "gateau" "cake",
1451    has  edible;
1452   
1453  Object -> "Punch magazine"
1454    with name "punch" "magazine",
1455         description
1456            "Five years out of date by the cover, a hundred by the contents.",
1457         list_together 1,
1458    has  proper;
1459  Object -> "issue of the Spectator"
1460    with name "spectator" "issue" "magazine", article "a recent",
1461         description
1462            "Up to date by the cover, a nightmare view of the future within.",
1463         list_together 1;
1464   
1465  Object -> "die"
1466    with name "die" "dice",
1467         after [; Drop: print "It comes up ", random(6); "!"; ];
1468   
1469   
1470  Class  Star
1471    with name "star",
1472         description
1473             "A little star of precious-metal, perhaps exotic currency.",
1474         parse_name
1475         [ i j w;
1476           if (parser_action==##TheSame)
1477           {   if ((parser_one.&name)-->0 == (parser_two.&name)-->0) return -1;
1478               return -2;
1479           }
1480           w=(self.&name)-->0;
1481           for (::i++)
1482           {   j=NextWord();
1483               if (j=='stars') parser_action=##PluralFound;
1484               else if (j~='star' or w) return i;
1485           }
1486         ],
1487         list_together "stars",
1488         plural
1489         [;  print (address) (self.&name)-->0;
1490             if (~~(listing_together ofclass Star)) print " stars";
1491         ],
1492         short_name
1493         [;  if (listing_together ofclass Star)
1494             {   print (address) (self.&name)-->0; rtrue; }
1495         ],
1496         article
1497         [;  if (listing_together ofclass Star) print "one"; else print "a";
1498         ];
1499   
1500  Class  GoldStar   class Star with name "gold";
1501  Class  SilverStar class Star with name "silver";
1502  Class  BronzeStar class Star with name "bronze";
1503   
1504  SilverStar -> "silver star";
1505  SilverStar -> "silver star";
1506  SilverStar -> "silver star";
1507  SilverStar -> "silver star";
1508  BronzeStar -> "bronze star";
1509  GoldStar -> "gold star";
1510  GoldStar -> "gold star";
1511  GoldStar -> "gold star";
1512   
1513  ! --------------------------------------------------------------------------
1514   
1515  Object Room24 "Curious Names"
1516    with description
1517            "This is Room 24, @00 of the mezzanine. The exhibits are
1518             packed in here, but fortunately there's a plaque making
1519             some sense of it all.",
1520         w_to Third_Floor, s_to Museum_Cafe,
1521    has  light;
1522   
1523  Object -> plaque "plaque"
1524    with name "plaque",
1525         description
1526            "Room 24 Plaque^^
1527             Princess is capable of a startling change of name when kissed.^^
1528             The genie's lamp, when rubbed, may make alarming things
1529             happen to your ability to refer to the colours ~black~ and
1530             ~white~. The stones may help you to experiment with this.^^
1531             Carrying the magnifying glass allows you to ~magnify~ things.^^
1532             The game's parser has been specially programmed for the
1533             fly in amber object, so that ~put the fly in amber in box~
1534             will work correctly (and not be interpreted as ~put (the fly) in
1535             (amber in box)~).",
1536    has  scenery;
1537   
1538  Object -> genies_lamp "genie's lamp"
1539    with name "lamp",
1540         before
1541         [;  Rub:
1542                 if (self hasnt general) give self general;
1543                 else give self ~general;
1544                 "A genie appears from the lamp, declaring:^^
1545                    ~Mischief is my sole delight:^ 
1546                     If white means black, black means white!~";
1547         ];
1548   
1549  Object -> "white stone"   with name "white" "stone";
1550  Object -> "black stone"   with name "black" "stone";
1551   
1552  Object -> "fly in amber"  with name "fly" "amber";
1553   
1554  Object -> magnifier "magnifying glass"
1555    with name "glass" "magnifying" "magnifier" "lense",
1556         description "Using this, you can ~magnify~ things.";
1557   
1558  [ MagnifySub;
1559     if (magnifier notin player)
1560        "You're not holding a magnifying glass.";
1561     if (noun==magnifier) "Light is not so flexible as that.";
1562     print "You can just make out that ", (the) noun,
1563        " is inscribed as being ~object ", noun, "~.^";
1564     if (magnifier hasnt general)
1565     {   give magnifier general;
1566        "^(When you're carrying the magnifier, you can refer to 
1567          things by their numbers like this; and you can even use 
1568          # to mean ~any single object~ and * to mean ~all objects~.)";
1569     }
1570  ];
1571   
1572  [ ParseNoun obj;
1573    if (magnifier notin player) return -1;
1574    if (NextWord() == 'object' && TryNumber(wn) == obj) return 2;
1575    wn--;
1576    if (WordLength(wn)==1 && WordAddress(wn)->0 == '#') return 1;
1577    if (WordLength(wn)==1 && WordAddress(wn)->0 == '*')
1578    {   parser_action = ##PluralFound; return 1; }
1579    return -1;
1580  ];
1581   
1582  Object -> "/?%?/ (the artiste formally known as Princess)"
1583    with name "princess" "artiste" "formally" "known" "as",
1584         description "You somehow feel it would be appropriate 
1585                      to kiss Princess.",
1586         short_name
1587         [;   if (self hasnt general) { print "Princess"; rtrue; }
1588         ],
1589         react_before
1590         [;  Listen: print_ret (name) self, " sings a soft siren song.";
1591         ],
1592         initial
1593         [;  print_ret (name) self, " is singing softly.";
1594         ],
1595         parse_name
1596         [ x n; if (self hasnt general)
1597              {   if (NextWord()=='princess') return 1;
1598                  return 0;
1599              }
1600              x=WordAddress(wn);
1601              if (   x->0 == '/' && x->1 == '?' && x->2 == '%'
1602                  && x->3 == '?' && x->4 == '/')
1603              {   while (wn<=parse->1 && WordAddress(wn++)<x+5) n++;
1604                  return n;
1605              }
1606              return -1;
1607         ],
1608         life
1609         [;   Kiss: give self general; self.life = NULL;
1610                  "In a fairy-tale transformation, the Princess 
1611                   steps back and astonishes the world by announcing 
1612                   that she will henceforth be known as ~/?%?/~.";
1613         ],
1614    has  animate proper female;
1615   
1616  ! --------------------------------------------------------------------------
1617   
1618  Object Museum_Cafe "Room 24 Annexe: The Museum Cafe"
1619    with description
1620            "Very much a self-service refreshments area, which
1621             somehow cunningly continues the exhibition from the north.",
1622         n_to Room24,
1623    has  light;
1624   
1625  Object -> "upright fridge"
1626    with name "upright" "fridge",
1627         initial "There is an upright fridge in one corner.",
1628         after
1629         [;  Open:
1630                 print
1631                "On the inside of the door is a note to the effect 
1632                 that the pepper is a standardly-named Inform object 
1633                 and can be called ~green~, ~pepper~, ~green pepper~, 
1634                 ~pepper green~, etc.; 
1635                 whereas, in the case of the red tomato, ~red~ and 
1636                 ~tomato fried red~, etc., will not be allowed.^^";
1637                 <<Search self>>;
1638         ],
1639    has  openable container static;
1640   
1641  Object -> -> "green pepper"
1642    with name "green" "pepper",
1643    has  edible;
1644   
1645  Object -> -> "red fried tomato"
1646    with name "red" "pepper",
1647         parse_name
1648         [ i w; w=NextWord();
1649                while (w=='red' or 'fried')
1650                {   w=NextWord(); i++;
1651                }
1652                if (w=='tomato') return i+1;
1653                return 0;
1654         ],
1655    has  edible;
1656   
1657  Object -> "drinks machine"
1658    with name "drinks" "machine",
1659         initial
1660            "Next to the fridge is a drinks machine with buttons 
1661             for Cola, Coffee and Tea.",
1662    has  static transparent;
1663  Object -> -> "drinks machine button"
1664    has  scenery
1665   with  parse_name
1666         [ i flag type;
1667              for (: flag == 0: i++)
1668              {   flag = 1;
1669                  switch(NextWord())
1670                  {   'button', 'for': flag = 0;
1671                      'coffee': if (type == 0) { flag = 0; type = 1; }
1672                      'tea':    if (type == 0) { flag = 0; type = 2; }
1673                      'cola':   if (type == 0) { flag = 0; type = 3; }
1674                  }
1675              }
1676              if (type==drink.number && i==2 && type~=0 && drink in player)
1677                  return 0;
1678              self.number=type; return i-1;
1679          ],
1680          number 0,
1681          before
1682          [; Push, SwitchOn:
1683               if (self.number == 0)
1684                  "You'll have to say which button to press.";
1685               if (parent(drink) ~= 0) "The machine's broken down.";
1686               drink.number = self.number; move drink to player; itobj = drink;
1687               "Whirr! The machine puts ", (a) drink, " into your 
1688                   glad hands.";
1689             Attack: "The machine shudders and squirts cola at you.";
1690             Drink:  "You can't drink until you've worked the machine.";
1691          ];
1692  Object  drink "drink"
1693    with  parse_name
1694          [ i flag type;
1695              for (: flag == 0: i++)
1696              {   flag = 1;
1697                  switch(NextWord())
1698                  {   'drink', 'cup', 'of': flag = 0;
1699                      'coffee': if (type == 0) { flag = 0; type = 1; }
1700                      'tea':    if (type == 0) { flag = 0; type = 2; }
1701                      'cola':   if (type == 0) { flag = 0; type = 3; }
1702                  }
1703              }
1704              if (type ~= 0 && type ~= self.number) return 0;
1705              return i-1;
1706          ],
1707          short_name
1708          [;  print "cup of ";
1709              switch (self.number)
1710              { 1: print "coffee"; 2: print "tea"; 3: print "cola"; }
1711              rtrue;
1712          ],
1713          number 0,
1714          before
1715          [; Drink: remove self;
1716              "Ugh, that was awful. You crumple the cup and responsibly 
1717               dispose of it.";
1718          ];
1719   
1720  ! --------------------------------------------------------------------------
1721   
1722  Class  WindowRoom
1723    with description
1724         [;  print "This is one end of a long east/west room. ";
1725             if (self==window_w) "An exit leads back @00.";
1726            "There appears to be no way in or out at this end.";
1727         ],
1728         before
1729         [;  Examine, Search: ;
1730             default:
1731               if (inp1~=1 && noun~=0 && noun in self.far_side)
1732                   print_ret (The) noun, " is on the far side of 
1733                      the glass.";
1734               if (inp2~=1 && second~=0 && second in self.far_side)
1735                   print_ret (The) second, " is on the far side of 
1736                      the glass.";
1737         ],
1738         after
1739         [;  Look:
1740               if (ggw has general) rfalse;
1741               print "^The room is divided by a great glass window";
1742               if (location.far_side hasnt light) " onto darkness.";
1743               print ", stretching from floor to ceiling.^";
1744               if (Locale(location.far_side,
1745                      "Beyond the glass you can see",
1746                      "Beyond the glass you can also see")~=0) ".";
1747         ],
1748    has  light;
1749   
1750  WindowRoom window_w "Room 28: @01 of Window"
1751    with e_to Third_Floor, w_to "The window is in your way.",
1752         far_side window_e;
1753   
1754  Object -> "plastic cup"
1755    with name "plastic" "cup";
1756   
1757  WindowRoom window_e "Room 28: @00 of Window"
1758    with far_side window_w;
1759   
1760  Key -> "bronze key"
1761    with name "bronze";
1762   
1763  Object -> "golden chalice"
1764    with name "golden" "chalice" "cup" "grail" "holy";
1765   
1766  Object ggw "great glass window"
1767    with name "great" "glass" "window",
1768         before
1769         [ place; Examine, Search: place=location;
1770                 if (place.far_side hasnt light)
1771                     "The other side is dark.";
1772                 print "The view through the window:^";
1773                 give self general;
1774                 PlayerTo(place.far_side,1); <Look>; PlayerTo(place,1);
1775                 give self ~general;
1776                 give place.far_side ~visited; rtrue;
1777         ],
1778         found_in window_w window_e,
1779    has  scenery;
1780   
1781  ! ==========================================================================
1782   
1783  Object roof "Museum Roof: area 33"
1784    with name "trapdoor",
1785         description
1786            "A small trapdoor leads down from this tiled roof into the 
1787             museum. The view is indescribable, which saves me some typing 
1788             and you some reading, right? Yes -- this is one of those 
1789             post-modern room descriptions, the kind that makes you aware 
1790             you're only playing a game.",
1791         d_to Third_Floor,
1792    has  light;
1793   
1794  Global status_style = 3;
1795   
1796  Object -> "dial"
1797    with name "dial",
1798         initial
1799            "A dial here has four settings, which control the appearance
1800             of the status line drawn by the computer to indicate the
1801             state of play.  Settings are: 1 - invisible; 2 - centred
1802             place name only; 3 - standard Score/Turns display;
1803             4 - a compass rose of possible directions to go in.",
1804         before
1805         [;  SetTo:
1806                 if (second<1 || second>4) "There are only four settings.";
1807                 status_style = second; "Set.";
1808         ],
1809    has  static;
1810   
1811  ! --------------------------------------------------------------------------
1812   
1813  [ Initialise;
1814    location = Foyer; move samples_bag to player;
1815    thedark.short_name = "An odd-smelling darkness";
1816    thedark.initial = GoMothGo;
1817    NormalWorld(); lookmode=2;
1818    SetTime(SUNRISE-10,1);
1819   
1820   "^^^^^Welcome indeed to the...^";
1821  ];
1822   
1823  [ InScope actor;
1824   
1825     if (actor==martha) PlaceInScope(player);
1826     if (actor==player && scope_reason==TALKING_REASON && player in booth)
1827         PlaceInScope(martha);
1828   
1829     if (location==window_w && window_e has light)
1830         ScopeWithin(window_e);
1831     if (location==window_e && window_w has light)
1832         ScopeWithin(window_w);
1833     rfalse;
1834  ];
1835   
1836  [ BeforeParsing i j;
1837    for (i=parse->1,j=2:j<i:j++)
1838    {   wn=j-1;
1839        if (NextWord()=='fly' && NextWord()=='in' && NextWord()=='amber')
1840            parse-->(j*2-1) = 'fly';
1841    }
1842     if (genies_lamp hasnt general) return;
1843     for (wn=1::)
1844     {   switch(NextWordStopped())
1845         {   'white': parse-->(wn*2-3) = 'black';
1846             'black': parse-->(wn*2-3) = 'white';
1847             -1: return;
1848         }
1849     }
1850  ];
1851   
1852  ! --------------------------------------------------------------------------
1853   
1854  Constant U_POS 28; Constant W_POS 30; Constant C_POS 31;
1855  Constant E_POS 32; Constant IN_POS 34;
1856   
1857  Array printed_text table 64;
1858   
1859  [ DrawStatusLine j posa posb width;
1860    if (location==0) rfalse;
1861    width = 0->33; if (width==0) width=80;
1862    switch(status_style)
1863    {   1: @split_window 0;
1864        2: font off;
1865           @split_window 1; @buffer_mode 0; @set_window 1;
1866           style reverse; @set_cursor 1 1; spaces width;
1867           printed_text-->0 = 64;
1868           @output_stream 3 printed_text;
1869           print (name) location;
1870           @output_stream -3;
1871           j=(width-(printed_text-->0))/2;
1872           @set_cursor 1 j; print (name) location; spaces(j-1);
1873           style roman;
1874           @buffer_mode 1; @set_window 0; font on;
1875        3: @split_window 1; @set_window 1; @set_cursor 1 1; style reverse;
1876           posa = width-26; posb = width-13;
1877           spaces width;
1878           @set_cursor 1 2; print (name) location;
1879           if (width > 76)
1880           {   @set_cursor 1 posa; print "Score: ", sline1;
1881               @set_cursor 1 posb; print "Moves: ", sline2;
1882           }
1883           if (width > 63 && width <= 76)
1884           {   @set_cursor 1 posb; print sline1, "/", sline2;
1885           }
1886           @set_cursor 1 1; style roman; @set_window 0;
1887        4: if (e_obj.door_dir~=e_to)
1888           {   @split_window 1; @set_window 1; style reverse; font off;
1889               @set_cursor; spaces width;
1890               print "You're very disoriented in this reflected world";
1891               @set_cursor 1 1; style roman; @set_window 0; font on;
1892               rfalse;
1893           }
1894           @split_window 3; @set_window 1; style reverse; font off;
1895           @set_cursor 1 1; spaces width;
1896           @set_cursor 2 1; spaces width;
1897           @set_cursor 3 1; spaces width;
1898           @set_cursor 1 2;  print (name) location;
1899           @set_cursor 1 51; print "Score: ", sline1;
1900           @set_cursor 1 64; print "Moves: ", sline2;
1901           if (location ~= thedark)
1902           {   ! First line
1903               if (location.u_to ~= 0)  { @set_cursor 1 U_POS; print "U"; }
1904               if (location.nw_to ~= 0) { @set_cursor 1 W_POS; print "@@92"; }
1905               if (location.n_to ~= 0)  { @set_cursor 1 C_POS; print "@@124"; }
1906               if (location.ne_to ~= 0) { @set_cursor 1 E_POS; print "/"; }
1907               if (location.in_to ~= 0) { @set_cursor 1 IN_POS; print "I"; }
1908               ! Second line
1909               if (location.w_to ~= 0)  { @set_cursor 2 W_POS; print "-"; }
1910                                          @set_cursor 2 C_POS; print "o";
1911               if (location.e_to ~= 0)  { @set_cursor 2 E_POS; print "-"; }
1912               ! Third line
1913               if (location.d_to ~= 0)  { @set_cursor 3 U_POS; print "D"; }
1914               if (location.sw_to ~= 0) { @set_cursor 3 W_POS; print "/"; }
1915               if (location.s_to ~= 0)  { @set_cursor 3 C_POS; print "@@124"; }
1916               if (location.se_to ~= 0) { @set_cursor 3 E_POS; print "@@92"; }
1917               if (location.out_to ~= 0){ @set_cursor 3 IN_POS; print "O"; }
1918           }
1919           @set_cursor 1 1; style roman; @set_window 0; font on;
1920    }
1921  ];
1922   
1923  ! --------------------------------------------------------------------------
1924   
1925  Include "Grammar";
1926   
1927  ! --------------------------------------------------------------------------
1928   
1929  [ FPXSub;
1930      "You typed the floating point number ", noun/100, ".",
1931      (noun%100)/10, noun%10, " (rounded off to 2 decimal places.)";
1932  ];
1933   
1934  [ DigitNumber n type x;
1935    x = NextWordStopped(); if (x==-1) return -1; wn--;
1936    if (type==0)
1937    {   x = WordAddress(wn);
1938        if (x->n>='0' && x->n<='9') return (x->n) - '0';
1939        return -1;
1940    }
1941    if (x=='nought' or 'oh') { wn++; return 0; }
1942    x = TryNumber(wn++); if (x==-1000 || x>=10) x=-1; return x;
1943  ];
1944  [ FloatingPoint a x b w d1 d2 d3 type;
1945    a = TryNumber(wn++);
1946    if (a==-1000) return -1;
1947    w = NextWordStopped(wn); if (w==-1) return a*100;
1948    x = NextWordStopped(wn); if (x==-1) return -1; wn--;
1949    if (w=='point') type=1;
1950    else
1951    {   if (WordAddress(wn-1)->0~='.' || WordLength(wn-1)~=1)
1952            return -1;
1953    }
1954    d1 = DigitNumber(0,type);
1955    if (d1==-1) return -1;
1956    d2 = DigitNumber(1,type); d3 = DigitNumber(2,type);
1957    b=d1*10; if (d2>=0) b=b+d2; else d3=0;
1958    if (type==1)
1959    {   x=1; while (DigitNumber(x,type)>=0) x++; wn--;
1960    }
1961    else wn++;
1962    parsed_number = a*100 + b;
1963    if (d3>=5) parsed_number++;
1964    return 1;
1965  ];
1966   
1967  Verb "fp" * FloatingPoint -> FPX;
1968   
1969  ! --------------------------------------------------------------------------
1970   
1971  Constant MAX_PHONE_LENGTH 30;
1972  Array dialled_number string MAX_PHONE_LENGTH;
1973  [ PhoneNumber f a l ch pp i;
1974    pp=1; if (NextWordStopped()==-1) return 0;
1975    do
1976    {   a=WordAddress(wn-1); l=WordLength(wn-1);
1977        for (i=0:i<l:i++)
1978        {   ch=a->i;
1979            if (ch<'0' || ch>'9')
1980            {   if (ch~='-') { f=1; if (i~=0) return -1; } }
1981            else
1982            {   if (pp<MAX_PHONE_LENGTH)
1983                    dialled_number->(pp++)=ch-'0';
1984            }
1985        }
1986    } until (f==1 || NextWordStopped()==-1);
1987    if (pp==1) return -1;
1988    dialled_number->0 = pp-1;
1989    return 0;
1990  ];
1991   
1992  [ DialPhoneSub i;
1993    print "You dialled <";
1994    for (i=1:i<=dialled_number->0:i++) print dialled_number->i;
1995    ">";
1996  ];
1997  Verb "dial"  * PhoneNumber -> DialPhone;
1998   
1999  ! --------------------------------------------------------------------------
2000   
2001  Global assumed_key;
2002  [ DefaultLockSub;
2003    print "(with ", (the) assumed_key, ")^"; <<Lock noun assumed_key>>;
2004  ];
2005  [ DefaultUnlockSub;
2006    print "(with ", (the) assumed_key, ")^"; <<Unlock noun assumed_key>>;
2007  ];
2008   
2009  [ DefaultKeyTest i count;
2010    if (noun hasnt lockable) rfalse;
2011   
2012    objectloop (i in player && i ofclass Key)
2013    {   count++; assumed_key = i; }
2014   
2015    if (count==1) rtrue; rfalse;
2016  ];
2017   
2018  Extend "lock" first * noun = DefaultKeyTest -> DefaultLock;
2019  Extend "unlock" first * noun = DefaultKeyTest -> DefaultUnlock;
2020   
2021  ! --------------------------------------------------------------------------
2022   
2023  Constant TWELVE_HOURS 720;
2024  [ NumericTime hr mn word x;
2025    if (hr>=24) return -1;
2026    if (mn>=60) return -1;
2027    x=hr*60+mn; if (hr>=13) return x;
2028    x=x%TWELVE_HOURS; if (word=='pm') x=x+TWELVE_HOURS;
2029    if (word~='am' or 'pm' && hr==12) x=x+TWELVE_HOURS;
2030    return x;
2031  ];
2032  [ MyTryNumber wordnum i j;
2033    i=wn; wn=wordnum; j=NextWordStopped(); wn=i;
2034    switch(j)
2035    {   'twenty-five': return 25;
2036        'thirty': return 30;
2037        default: return TryNumber(wordnum);
2038    }
2039  ];
2040  [ TimeOfDay i j k x flag loop ch hr mn;
2041    i=NextWord();
2042    if (i=='midnight') { parsed_number=0; return 1; }
2043    if (i=='midday' or 'noon') { parsed_number=TWELVE_HOURS; return 1; }
2044    !   Next try the format 12:02
2045    j=WordAddress(wn-1); k=WordLength(wn-1);
2046    flag=0;
2047    for (loop=0:loop<k:loop++)
2048    {   ch=j->loop;
2049        if (ch==':' && flag==0 && loop~=0 && loop~=k-1) flag=1;
2050        else { if (ch<'0' || ch>'9') flag=-1; }
2051    }
2052    if (k<3 || k>5) flag=0;
2053    if (flag==1)
2054    {   for (loop=0:j->loop~=':':loop++, hr=hr*10)
2055            hr=hr+j->loop-'0';
2056        hr=hr/10;
2057        for (loop++:loop<k:loop++, mn=mn*10)
2058            mn=mn+j->loop-'0';
2059        mn=mn/10;
2060        j=NextWordStopped();
2061        parsed_number=NumericTime(hr, mn, j);
2062        if (parsed_number<0) return -1;
2063        if (j~='pm' or 'am') wn--;
2064        return 1;
2065    }
2066    !   Next the format "half past 12"
2067    j=-1; if (i=='half') j=30; if (i=='quarter') j=15;
2068    if (j<0) j=MyTryNumber(wn-1); if (j<0) return -1;
2069    if (j>=60) return -1;
2070    k=NextWordStopped();
2071    if ((k=='o^clock' or 'am' or 'pm')||(k==-1))
2072    {   hr=j; if (hr>12) return -1; jump TimeFound; }
2073    if (k=='to' or 'past')
2074    {   mn=j; hr=MyTryNumber(wn);
2075        if (hr<=0)
2076        {   x=NextWordStopped();
2077            if (x=='noon' or 'midday') hr=12;
2078            if (x=='midnight') hr=0;
2079            if (hr<0) return -1;
2080        }
2081        if (hr>=13) return -1;
2082        if (k=='to') { mn=60-mn; hr=hr-1; if (hr==-1) hr=23; }
2083        wn++; k=NextWordStopped();
2084        jump TimeFound;
2085    }
2086    hr=j; mn=MyTryNumber(--wn);
2087    if (mn<0 || mn>=60) return -1;
2088    wn++; k=NextWordStopped();
2089   .TimeFound;
2090    parsed_number = NumericTime(hr, mn, k);
2091    if (parsed_number<0) return -1;
2092    if (k~='pm' or 'am' or 'o^clock') wn--;
2093    return 1;
2094  ];
2095   
2096  [ SetTheTimeSub;
2097    SetTime(noun,1);
2098    "The time is set to ", (PrintTime) noun, ".";
2099  ];
2100  Verb "time"  * TimeOfDay -> SetTheTime;
2101   
2102  ! --------------------------------------------------------------------------
2103   
2104  Global third;
2105  [ ThreefoldSub; "You do something involving ", (the) noun, ", ",
2106        (the) second, " and ", (the) third, ".";
2107  ];
2108  [ GhostObject x;
2109    x=NounDomain(player,location,0);
2110    if (x==REPARSE_CODE) return x;
2111    if (x==0 or 1) return -1;
2112    third = x;
2113    return 0;
2114  ];
2115  Verb "threefold" * noun noun GhostObject -> Threefold;
2116                 
2117  ! --------------------------------------------------------------------------
2118   
2119  [ MegaExam obj; print (a) obj, ": "; <Examine obj>; ];
2120  [ MegaLookSub; <Look>; LoopOverScope(MegaExam); ];
2121  Verb meta "megalook" *                           -> MegaLook;
2122   
2123  ! --------------------------------------------------------------------------
2124   
2125  [ ClapSub; "You clap."; ];
2126  Verb "clap"   * -> Clap;
2127   
2128  ! --------------------------------------------------------------------------
2129   
2130  Verb "magnify" * noun                          -> Magnify;
2131   
2132  ! --------------------------------------------------------------------------
2133   
2134  Verb "alarm," * "on"      -> SwitchOn
2135                * "off"     -> SwitchOff
2136                * TimeOfDay -> SetTo
2137                * ConTopic  -> Inv;
2138   
2139  Verb "tc,"    * noun      -> Examine
2140                * ConTopic  -> Inv;
2141   
2142  [ Crew i;
2143    switch(scope_stage)
2144    {  1: rfalse;
2145       2: objectloop (i has crewmember) PlaceInScope(i); rtrue;
2146    }
2147  ];
2148   
2149  Verb "stc,"   * "where" "is" scope=Crew        -> Examine
2150                * "locate" scope=Crew            -> Examine;
2151   
2152  Verb "rc,"    * held      -> Give
2153                * ConTopic  -> Inv;
2154   
2155  [ Planet;
2156    switch(NextWord())
2157    {   'centauro', 'earth': return 1;
2158        default: return -1;
2159    }
2160  ];
2161   
2162  Verb "zen,"   * "scan" number "orbital"        -> Show
2163                * "set" "course" "for" Planet    -> Go
2164                * "speed" "standard" "by" number -> SetTo
2165                * "raise" held                   -> Take
2166                * "clear" held "for" "firing"    -> Drop;
2167   
2168  ! ----------------------------------------------------------------------------
2169   


Last updated 23 June 2004. This web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.