search

the-infocom-files / cutthroats

Cutthroats
3 stars 3 forks source link

Drilling a hole in the cask doesn't work #64

Open eriktorbjorn opened 4 years ago

eriktorbjorn commented 4 years ago

While you usually don't bring a drill to this dive, you can and if you do you're supposed to be able to drill a hole in the cask. See CASK-F:

           (<NOT .RARG>
        <COND (<VERB? CLIMB-FOO>
               <PERFORM ,V?CLIMB-ON ,CASK>
               <RTRUE>)
              (<VERB? ,DRILL>
               <TELL "There is now a hole in the " D ,CASK "." CR>
               <ADD-HOLE ,CASK>)>)>>

But when you try, the game simply responds with "You can't drill that."

I think the problem is that it says <VERB? ,DRILL> instead of <VERB? DRILL>. (Note the comma in the first one.) It's a bit clearer in the ZAP code:

?L1:    ZERO? RARG \FALSE
        EQUAL? PRSA,V?CLIMB-FOO \?L12
        CALL PERFORM,V?CLIMB-ON,CASK
        RTRUE
?L12:   EQUAL? PRSA,DRILL \FALSE
        PRINTI "There is now a hole in the "
        CALL DPRINT,CASK
        PRINTI "."
        CRLF
        CALL ADD-HOLE,CASK >STACK
        RSTACK

Where you can see it uses EQUAL? PRSA,DRILL instead of EQUAL? PRSA,V?DRILL.