search

the-infocom-files / bureaucracy

Bureaucracy
8 stars 2 forks source link

Reading the address book says you open it, even if it's already open #21

Open eriktorbjorn opened 1 year ago

eriktorbjorn commented 1 year ago 
>OPEN ADDRESS BOOK
You flip open the address book.

>READ ADDRESS BOOK
On opening the address book, you find that in common with many loose-leaf
address books, most of the pages are loose and have fallen out. There are only
two or three left. Most of these are stuck together with jam, chewing gum or an
unpleasant combination of both.

Which page do you want to read, the last page, the first page, or the middle
page?

Opening and closing the address book checks the status correctly, so why not here as well? It's handled by ABOOK-F:

           (<VERB? EXAMINE LOOK-INSIDE SEARCH READ>
        <COND (<VERB? READ LOOK-INSIDE SEARCH>
               <MAKE ,PRSO ,OPENED>
               <TELL "On opening " THEO ", you find that in">)
              (T
               <TELL ,THIS-IS "a">
               <COND (<IS? ,PRSO ,OPENED>
                  <TELL "n open">)
                 (T
                  <TELL " closed">)>
               <TELL " loose-leaf " Q ,PRSO ". In">)>
        <TELL " common with many loose-leaf " Q ,PRSO
"s, most of the pages are loose and have fallen out. There are only two or three left. Most of these are stuck together with jam, chewing gum or an unpleasant combination of both." CR>
        <COND (<VERB? READ>
               <ZCRLF>
               <SETG P-SPECIAL-ORPHAN " do you want to read,">
               <FAKE-VERB/NOUN ,W?READ <> <> ,W?PAGE>
               <SETG P-SPECIAL-ORPHAN <>>
               ,FATAL-VALUE)
              (T T)>)