You can see the rope burning, even if you're not in the same room

the-infocom-files / hollywoodhijinx

Hollywood Hijinx

3 stars 2 forks source link

You can see the rope burning, even if you're not in the same room #45

Open eriktorbjorn opened 2 years ago

eriktorbjorn commented 2 years ago

<ROUTINE I-ROPE-BURN ()
     <SETG ROPE-LIFE <- ,ROPE-LIFE 1>>
         <COND (<ZERO? ,ROPE-LIFE>
        <CRLF>
        <DEQUEUE I-ROPE-BURN>
        <BURN-THROUGH-ROPE>)
               (T
        <TELL CR "The " D ,ROPE " continues to burn." CR>
        <QUEUE I-ROPE-BURN -1>
                <RTRUE>)>>

I think it should check if <EQUAL? ,HERE ,BOMB-SHELTER> before printing the message.