search

the-infocom-files / seastalker

Seastalker
3 stars 3 forks source link

"ENTER CRAWL SPACE" warns you to be careful. "IN" does not #83

Open eriktorbjorn opened 4 years ago

eriktorbjorn commented 4 years ago 
>IN
(crawl space)
The space is dimly illuminated by small work lights, but you can see machinery
everywhere.
>ENTER CRAWL SPACE
(crawl space)
The space is dimly illuminated by small work lights, but you can see machinery
everywhere.
BE CAREFUL: Too much wriggling may pose SERIOUS DANGERS! And wouldn't it be
safer to stop the engine first?

That's because the "BE CAREFUL" message is printed as part of the THROUGH / WALK-THROUGH action:

       (<VERB? ;ENTER THROUGH WALK-TO>
    <COND (<FSET? ,ENGINE-ACCESS-HATCH ,OPENBIT>
           <COND (<GOTO ,CRAWL-SPACE>
              <TELL
"BE CAREFUL: Too much wriggling may pose SERIOUS DANGERS!">
              <COND (<FSET? ,ENGINE ,ONBIT>
                 <TELL
" And wouldn't it be safer to stop the engine first?">)>
              <CRLF>)>
           <RTRUE>)

I guess the idea was to only print it once. To get the same thing for "IN", I guess we'd need an exit routine instead of this in SUB:

    (IN TO CRAWL-SPACE IF ENGINE-ACCESS-HATCH IS OPEN)
eriktorbjorn commented 4 years ago

"ENTER ACCESS PANEL" also doesn't print the warning.