search

the-infocom-files / hollywoodhijinx

Hollywood Hijinx
3 stars 2 forks source link

Misleading message when opening an already open door in the Parlor #35

Open eriktorbjorn opened 2 years ago

eriktorbjorn commented 2 years ago 
>LOOK
Parlor
This is the parlor where Uncle Buddy would bring potential investors. He would
break out his finest scotch and Cuban cigars. Once the "guests" were tight he
would present his latest movie idea. (You've seen his movies, so you know anyone
who would agree to invest in one of them had to have been drinking.) Strange,
you notice all the furniture in this room is bolted to the floor, except for the
piano in the middle of the room. There is an open door in the floor. A doorway
leads west.

>CLOSE DOOR
The crawl space door creaks as it closes.

>OPEN DOOR
Opened.

>OPEN DOOR
You can't seem to open it.

This is handled by CRAWL-SPACE-DOOR-F:

<ROUTINE CRAWL-SPACE-DOOR-F ()
     <COND (<VERB? OPEN>
        <COND (<EQUAL? ,HERE ,PARLOR>
               <COND (<AND ,SONG-PLAYED
                      <NOT <FSET? ,CRAWL-SPACE-DOOR ,OPENBIT>>>
                     <FSET ,CRAWL-SPACE-DOOR ,OPENBIT>
                     <TELL "Opened." CR>)
                    (T
               <TELL "You can't seem to open it." CR>)>)>)>>