search

the-infocom-files / cutthroats

Cutthroats
3 stars 3 forks source link

Add more allowed commands to UNDERWATER-F #24

Open eriktorbjorn opened 4 years ago

eriktorbjorn commented 4 years ago 
>LOOK
Underwater
You are in the sea, completely surrounded by water.

>VERBOSE
You can't do that underwater.

UNDERWATER-F disallows most commands, with a few exceptions:

           (<EQUAL? .RARG ,M-BEG>
        <COND (<EQUAL? ,LINE-HACK ,PRSO ,PRSI>
               <TELL-CANT-REACH
"the line. Worry about it when you've found the treasure">)
              (<AND <VERB? WALK>
                <NOT <EQUAL? ,P-WALK-DIR ,P?UP ,P?DOWN>>>
               <TELL-NOWHERE>)
              (<VERB? WALK DIVE SWIM LOOK EXAMINE SAVE RESTORE QUIT
                  SCORE TIME FIND DIAGNOSE LAMP-ON LAMP-OFF OPEN
                  CLOSE TAKE READ BREATHE WAIT INVENTORY VERSION
                  AGAIN WHAT SCRIPT UNSCRIPT RESTART $CALL>
               <RFALSE>)
              (<VERB? DROP THROW>
               <TELL-NO-LITTER>)
              ;(<VERB? LOOK-UP>
               <TELL "You see water." CR>)
              (T
               <TELL-YOU-CANT "do that underwater.">
               <RFATAL>)>)>>

I do think that list of exceptions should also include BRIEF, SUPERBRIEF and VERBOSE.