search

the-infocom-files / moonmist

Moonmist
4 stars 3 forks source link

Strange response to "UNLOCK WINDOW" #37

Open eriktorbjorn opened 3 years ago

eriktorbjorn commented 3 years ago 
>UNLOCK WINDOW
(The window is already closed!)

That's because of WINDOW-F:

<ROUTINE WINDOW-F ()
 <COND (<VERB? OPEN CLOSE LOCK UNLOCK>
    <COND (<OR <EQUAL? ,HERE ,DRIVEWAY>
           <EQUAL? <LOC ,PLAYER> ,CAR>>
           ;<DOBJ? CAR-WINDOW>
           <NO-NEED ;"do that">
           ;<CAR-DOOR-PSEUDO>
           <RTRUE>)
          (<VERB? OPEN>
           <TELL "The night air is too damp and chilly." CR>)
          (T ;<VERB? CLOSE>
           <ALREADY ,WINDOW "closed">
           <RTRUE>)>)

Even though it checks for UNLOCK, it assumes that everything other than OPEN means CLOSE.