search

the-infocom-files / planetfall

Planetfall
10 stars 3 forks source link

Double space in PLANETARY-DEFENSE-F #47

Open eriktorbjorn opened 5 years ago

eriktorbjorn commented 5 years ago 
<ROUTINE PLANETARY-DEFENSE-F (RARG)
     <COND (<EQUAL? .RARG ,M-LOOK>
        <TELL
"This room is filled with a dazzling array of lights and controls. ">
        <COND (<NOT ,DEFENSE-FIXED>
               <TELL
"One light, blinking quickly, catches your eye. It reads \"Surkit Boord
Faalyur. WORNEENG: xis boord kuntroolz xe diskriminaashun surkits.\"" >)>
        <TELL" There is a small access panel on one wall which is ">
        <DDESC ,ACCESS-PANEL>
        <TELL "." CR>)>>

The way this function is written, once DEFENSE-FIXED is set, there will be two spaces between the first and second sentence.

This is untested, but I'd try something like this instead:

<ROUTINE PLANETARY-DEFENSE-F (RARG)
     <COND (<EQUAL? .RARG ,M-LOOK>
        <TELL
"This room is filled with a dazzling array of lights and controls.">
        <COND (<NOT ,DEFENSE-FIXED>
               <TELL
" One light, blinking quickly, catches your eye. It reads \"Surkit Boord
Faalyur. WORNEENG: xis boord kuntroolz xe diskriminaashun surkits.\"" >)>
        <TELL " There is a small access panel on one wall which is ">
        <DDESC ,ACCESS-PANEL>
        <TELL "." CR>)>>

That way, each additional sentence is responsible for adding its own space.

eriktorbjorn commented 5 years ago

It may be a cut-and-paste bug from PLANETARY-COURSE-CONTROL-F, but in that one there's always a middle sentence so it works out all right in the end.