search

the-infocom-files / zork2

Zork II: The Wizard of Frobozz
8 stars 4 forks source link

OPEN-CLOSE prints unnecessary CR when closing a closed door #64

Open eriktorbjorn opened 4 years ago

eriktorbjorn commented 4 years ago 
<ROUTINE OPEN-CLOSE (OBJ STROPN STRCLS)
     #DECL ((OBJ) OBJECT (STROPN STRCLS) STRING)
     <COND (<VERB? OPEN>
        <COND (<FSET? .OBJ ,OPENBIT>
               <TELL <RANDOM-ELEMENT ,DUMMY>>)
              (T
               <TELL .STROPN>
               <FSET .OBJ ,OPENBIT>)>
        <CRLF>)
           (<VERB? CLOSE>
        <COND (<FSET? .OBJ ,OPENBIT>
               <TELL .STRCLS>
               <FCLEAR .OBJ ,OPENBIT>
               T)
              (T <TELL <RANDOM-ELEMENT ,DUMMY> CR>)>
        <CRLF>)>>

Note the difference between <TELL <RANDOM-ELEMENT ,DUMMY>> in the "OPEN" case, and <TELL <RANDOM-ELEMENT ,DUMMY> CR> in the "CLOSE" case.