search

the-infocom-files / seastalker

Seastalker
3 stars 3 forks source link

You should be able to ask about the emergency oxygen gear #40

Open eriktorbjorn opened 4 years ago

eriktorbjorn commented 4 years ago

This is one of the topics in COMMON-ASK-ABOUT:

       (<EQUAL? .OBJ ,OXYGEN-GEAR>
    <TELL
"\"Your Dad made the rule about it, " FN ". Everyone in
the " D ,AQUADOME " should carry one at all times, remember?|
They're little canisters of oxygen that you can wear around
your neck. When you turn the valve, you can suck air through the rubber
straw at the top.">
    <COND (<IN? ,OXYGEN-GEAR ,SUB>
           <TELL "|
The canister is in the " D ,SUB ", just like in all " LN " submarines."
;" clipped under your pilot's seat">)>
    <TELL "\"" CR>)

It seems that this message is never shown because of this case earlier in the routine:

       (<EQUAL? <GETP .OBJ ,P?TEXT>
        "(You'll find that information in your SEASTALKER package.)">
    <SETG P-WON <>>
    <TELL <GETP .OBJ ,P?TEXT> CR>)

OXYGEN-GEAR does indeed have that TEXT property.

So I guess the OXYGEN-GEAR case should come before that. Though there may be some work on disambiguation to do as well, because I still only managed to get it to work while the emergency oxygen gear was nearby. Otherwise it thought I meant one of the other oxygen gears.

eriktorbjorn commented 4 years ago

On second thought, the disambiguation problem I mentioned may simply have been because the oxygen gear was invisible.