search

the-infocom-files / zork-substrate

Substrate for the Zork Trilogy Original Editions
4 stars 4 forks source link

Zork III-specific case in GOTO seems unnecessary #12

Open eriktorbjorn opened 5 years ago

eriktorbjorn commented 5 years ago

From GOTO:

        <COND (<AND .LB
                <NOT <FSET? ,HERE ,RLANDBIT>>
                <NOT ,DEAD>
                <FSET? .WLOC ,VEHBIT>>
               %<COND (<==? ,ZORK-NUMBER 1>
                   '<TELL
"The " D .WLOC " comes to a rest on the shore." CR CR>)
                  (<==? ,ZORK-NUMBER 2>
                   '<COND (<EQUAL? .WLOC ,BALLOON>
                       <TELL
"The balloon lands." CR>)
                      (<FSET? .WLOC ,VEHBIT>
                       <TELL
"The " D .WLOC " comes to a stop." CR CR>)>)
                  (<==? ,ZORK-NUMBER 3>
                   '<COND (<FSET? .WLOC ,VEHBIT>
                       <TELL
"The " D .WLOC " comes to a stop." CR CR>)>)>)>

The only vehicle I can find in Zork III is the time machine, and you can't ride it around. You have to push it. So the Zork III-specific case here is probably unnecessary, as far as I can tell.