search

the-infocom-files / zork2

Zork II: The Wizard of Frobozz
8 stars 4 forks source link

Unnecessary space when the wizard casts Float on you while you're in a vehicle #70

Open eriktorbjorn opened 4 years ago

eriktorbjorn commented 4 years ago 
>WAIT
Time passes...
The Wizard appears, floating nonchalantly in the air beside you. He grins
sideways at you.
The Wizard draws forth his wand and waves it in your direction. It begins to
glow with a faint blue glow.
The Wizard, in a deep and resonant voice, speaks the word "Float!" He then
vanishes, cackling gleefully.
 You rise majestically out of the wooden bucket, coming to a stop about five
feet above it and to one side.

It's this code in I-WIZARD:

                 (<EQUAL? ,SPELL? ,S-FLOAT>
                  <COND (<FSET? .WLOC ,VEHBIT>
                     <TELL
" You rise majestically out of the " D .WLOC ", coming to a stop about five
feet above it and to one side." CR>
                     <MOVE ,WINNER ,HERE>)
                    (T
                     <TELL
"Slowly, you and all your belongings rise into the air, stopping after
about five feet." CR>)>)