mirror of
https://github.com/historicalsource/sherlock
synced 2024-07-02 22:55:22 +03:00
1705 lines
52 KiB
Plaintext
1705 lines
52 KiB
Plaintext
|
|
|
|
.FUNCT RT-AC-RM-221B-BAKER-ST,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
|
|
ICALL2 RT-DO-WALK,P?EAST
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-2 \?CND1
|
|
EQUAL? GL-PLACE-PRV,RM-ENTRY-HALL \?CCL14
|
|
PRINTI "You emerge from the house into"
|
|
JUMP ?CND12
|
|
?CCL14: PRINTI "You"
|
|
ICALL1 RT-DRIVE-WALK-MSG?
|
|
PRINTI "into"
|
|
?CND12: PRINTI " Baker Street."
|
|
CRLF
|
|
CRLF
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND15
|
|
PRINTI "You are"
|
|
ICALL1 RT-IN-VEHICLE-MSG
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,0,1,3 \?CND17
|
|
PRINTI "in the spill of a gas streetlight "
|
|
?CND17: PRINTI "outside Holmes's house. The street "
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL21
|
|
PRINTI "disappears into the fog"
|
|
JUMP ?CND19
|
|
?CCL21: PRINTI "continues"
|
|
?CND19: PRINTI " to the north and south. The door to the house is to the west."
|
|
CRLF
|
|
?CND15: EQUAL? CONTEXT,K-M-DESC-1 \?CCL24
|
|
FSET LG-BAKER-ST-DOOR,FL-SEEN
|
|
FSET CH-PLAYER,FL-SEEN
|
|
CRLF
|
|
PRINTR "You have come in response to an urgent summons from your old landlady, Mrs Hudson. As the fog swirls around you, you huddle into your coat and shiver in the predawn chill."
|
|
?CCL24: EQUAL? CONTEXT,K-M-DESC-3,K-M-DESC-2 \?CCL26
|
|
IN? CH-HOLMES,RM-221B-BAKER-ST \FALSE
|
|
ZERO? GL-PUPPY \FALSE
|
|
CRLF
|
|
ICALL2 RT-CTHEO-PRINT,CH-HOLMES
|
|
PRINTI " says, ""Ah, there you are Watson. While you were inside I gave our little problem some thought. Obviously the person who stole the Crown Jewels wanted the authorities to turn to me for help, and it is equally obvious that the thief has laid down a trail for me to follow, in hopes of somehow entrapping me."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """So let's play his game, Doctor. But let's play it by our rules. The thief will have tried to anticipate the sequence of my actions, and I'm sure he has laid his trap accordingly. But if "
|
|
HLIGHT K-H-ITL
|
|
PRINTI "you"
|
|
HLIGHT K-H-NRM
|
|
PRINTI " were to guide the course of our investigations, he will certainly be thrown off the scent."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Therefore, let us take surprise onto our side and rely on your instincts as the man of action I know you to be - despite your frequent modest assertions to the contrary."" He steps to one side and says, ""Lead on, good Doctor. I will follow."" Holmes gestures for you to lead the way."
|
|
CRLF
|
|
SET 'GL-PUPPY,CH-HOLMES
|
|
SET 'GL-PUPPY-MSG?,FALSE-VALUE
|
|
RTRUE
|
|
?CCL26: EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 /FALSE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-ENTRY-HALL,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-221B-BAKER-ST \?CCL10
|
|
ICALL2 RT-DO-WALK,P?WEST
|
|
RTRUE
|
|
?CCL10: EQUAL? GL-PLACE-CUR,RM-PARLOUR \?CCL12
|
|
ICALL2 RT-DO-WALK,P?SOUTH
|
|
RTRUE
|
|
?CCL12: EQUAL? GL-PLACE-CUR,RM-VESTIBULE \?CCL14
|
|
ICALL2 RT-DO-WALK,P?DOWN
|
|
RTRUE
|
|
?CCL14: PRINTI "You'll have to be more explicit."
|
|
CRLF
|
|
RFALSE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CCL16
|
|
FSET CH-HUDSON,FL-SEEN
|
|
FSET RM-ENTRY-HALL,FL-TOUCHED
|
|
CRLF
|
|
PRINTI "You step inside and Mrs Hudson closes the door behind you. The entry hall is just as you remember it - small, underheated, and lit by a feeble gas light. "
|
|
PRINT K-WELL-WORN-MSG
|
|
RTRUE
|
|
?CCL16: EQUAL? CONTEXT,K-M-DESC-2 \?CCL18
|
|
EQUAL? GL-PLACE-PRV,RM-221B-BAKER-ST \?CCL21
|
|
PRINTI "You enter the house and pause in the entry hall. "
|
|
PRINT K-WELL-WORN-MSG
|
|
CRLF
|
|
RFALSE
|
|
?CCL21: EQUAL? GL-PLACE-PRV,RM-VESTIBULE \?CCL23
|
|
PRINTI "You descend the stairs into the entry hall. The parlour door is to the north. "
|
|
ICALL2 RT-OPEN-CLOSED-MSG,LG-BAKER-ST-DOOR
|
|
CRLF
|
|
RFALSE
|
|
?CCL23: PRINTI "You walk out into the entry hall. "
|
|
ICALL2 RT-OPEN-CLOSED-MSG,LG-BAKER-ST-DOOR
|
|
CRLF
|
|
RFALSE
|
|
?CCL18: EQUAL? CONTEXT,K-M-DESC-3 \?CCL25
|
|
PRINT K-WELL-WORN-MSG
|
|
PRINTC 32
|
|
ICALL2 RT-OPEN-CLOSED-MSG,LG-BAKER-ST-DOOR
|
|
CRLF
|
|
RFALSE
|
|
?CCL25: GETP RM-ENTRY-HALL,P?OBJ-NOUN
|
|
EQUAL? STACK,W?HOUSE \FALSE
|
|
CALL1 RT-AC-LG-HOLMES-HOUSE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-RM-PARLOUR,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL8
|
|
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
|
|
ICALL2 RT-DO-WALK,P?NORTH
|
|
RTRUE
|
|
?CCL8: EQUAL? GL-PRSA,V?EXIT \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-PARLOUR \FALSE
|
|
ICALL2 RT-DO-WALK,P?SOUTH
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-MATCHBOOK,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
|
|
PRINTI "You walk into"
|
|
JUMP ?CND15
|
|
?CCL17: EQUAL? CONTEXT,K-M-DESC-3 \?CND15
|
|
PRINTI "You are in"
|
|
?CND15: PRINTI " a dreary, late Victorian Era parlour."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-VESTIBULE,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-HOLMES-STUDY \?CCL10
|
|
ICALL2 RT-DO-WALK,P?SOUTH
|
|
RTRUE
|
|
?CCL10: EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
|
|
ICALL2 RT-DO-WALK,P?UP
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND1
|
|
EQUAL? GL-PLACE-PRV,RM-ENTRY-HALL \?CCL15
|
|
PRINTI "You climb the stairs"
|
|
JUMP ?CND13
|
|
?CCL15: PRINTI "You leave the study"
|
|
?CND13: PRINTI " and pause outside the door"
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CCL18
|
|
FSET LG-HOLMES-STUDY-DOOR,FL-SEEN
|
|
PRINTI " to Holmes's study, nervous about what you might find inside. "
|
|
JUMP ?CND1
|
|
?CCL18: PRINTI ". "
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 \?CND19
|
|
PRINTI "You are on a landing at the top of the stairs."
|
|
?CND19: CRLF
|
|
CRLF
|
|
PRINTI "Holmes's study is to the north."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-HOLMES-STUDY,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-VESTIBULE \?CCL10
|
|
ICALL2 RT-DO-WALK,P?NORTH
|
|
RTRUE
|
|
?CCL10: EQUAL? GL-PLACE-CUR,RM-HOLMES-BEDROOM \FALSE
|
|
ICALL2 RT-DO-WALK,P?EAST
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
PRINTI "You step back through time to your bachelor days, when you shared these cluttered digs with the world's only consulting detective. Despite the mess, you can see that the room is unchanged. The fireplace to the north has a pile of letters transfixed to its mantelpiece by a jackknife. Next to them lies Holmes's six-shot revolver, the tobacco slipper, and Holmes's favorite pipe. The violin has been carelessly tossed onto a stack of obviously unread newspapers."
|
|
CRLF
|
|
CRLF
|
|
ICALL2 RT-AC-CH-HOLMES,K-M-DESCFCN
|
|
CRLF
|
|
FSET TH-MANTELPIECE,FL-SEEN
|
|
FSET TH-VIOLIN,FL-SEEN
|
|
FSET TH-NEWSPAPER,FL-SEEN
|
|
FSET TH-SYRINGE,FL-SEEN
|
|
FSET TH-PHIAL,FL-SEEN
|
|
FSET TH-MAIL,FL-SEEN
|
|
FSET TH-GUN,FL-SEEN
|
|
FSET TH-KNIFE,FL-SEEN
|
|
FSET TH-PERSIAN-SLIPPER,FL-SEEN
|
|
FSET TH-PIPE,FL-SEEN
|
|
FSET TH-LIQUID,FL-SEEN
|
|
FSET TH-MOROCCO-CASE,FL-SEEN
|
|
FSET TH-SOFA,FL-SEEN
|
|
FSET CH-HOLMES,FL-SEEN
|
|
FSET LG-HOLMES-BEDROOM-DOOR,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-2 \?CCL15
|
|
PRINTI "You return to Holmes's study, which"
|
|
JUMP ?CND13
|
|
?CCL15: EQUAL? CONTEXT,K-M-DESC-3 \?CND13
|
|
PRINTI "The study"
|
|
?CND13: EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 \?CND17
|
|
PRINTI " is in its usual disarray."
|
|
CRLF
|
|
FSET? CH-HOLMES,FL-ASLEEP \?CND19
|
|
CRLF
|
|
ICALL2 RT-AC-CH-HOLMES,K-M-DESCFCN
|
|
?CND19: IN? CH-PRIME-MINISTER,RM-HOLMES-STUDY \?CCL23
|
|
CRLF
|
|
FSET? CH-PRIME-MINISTER,FL-SEEN /?CCL26
|
|
FSET CH-PRIME-MINISTER,FL-SEEN
|
|
ICALL2 RT-THIS-IS-IT,CH-PRIME-MINISTER
|
|
PRINTI "You see a distinguished-looking visitor sitting in the armchair. "
|
|
JUMP ?CND17
|
|
?CCL26: PRINTI "The visitor fidgets nervously in his chair. "
|
|
JUMP ?CND17
|
|
?CCL23: CRLF
|
|
?CND17: ICALL2 RT-CTHEO-PRINT,LG-HOLMES-BEDROOM-DOOR
|
|
PRINTI " to the west is "
|
|
FSET? LG-HOLMES-BEDROOM-DOOR,FL-OPENED \?CCL29
|
|
PRINTI "open"
|
|
JUMP ?CND27
|
|
?CCL29: PRINTI "closed"
|
|
?CND27: PRINTI ". The only other exit is the door to the south."
|
|
CRLF
|
|
EQUAL? CONTEXT,K-M-DESC-1 /TRUE
|
|
EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 /FALSE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-HOLMES-BEDROOM,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CND1
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-HOLMES-STUDY \FALSE
|
|
ICALL2 RT-DO-WALK,P?WEST
|
|
RTRUE
|
|
?CND1: PRINTI "This is a sparsely furnished room, whose walls are adorned only by scores of pictures of famous criminals. On a disorderly workbench in the corner, a jumble of laboratory equipment suggests that Holmes is in the middle of one of his chemical experiments. "
|
|
IN? TH-ETHERIUM-AMPOULE,TH-WORKBENCH \?CND9
|
|
PRINTI "Set off to one side is a single ampoule with a neatly lettered label affixed to it. "
|
|
?CND9: PRINTI "The room's only exit is to the east."
|
|
CRLF
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CCL13
|
|
FSET TH-BED,FL-SEEN
|
|
FSET TH-BEDSIDE-TABLE,FL-SEEN
|
|
FSET TH-ETHERIUM-AMPOULE,FL-SEEN
|
|
FSET TH-LAB-EQUIPMENT,FL-SEEN
|
|
FSET TH-WORKBENCH,FL-SEEN
|
|
FSET TH-LAMP,FL-SEEN
|
|
FSET TH-MAGNIFYING-GLASS,FL-SEEN
|
|
CRLF
|
|
PRINTR "Next to the bed there is a table, on which you see a lamp and Holmes's favorite magnifying glass. "
|
|
?CCL13: EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 /FALSE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-YORK-PLACE,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND1
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL7
|
|
PRINTI "Through the mist you see"
|
|
JUMP ?CND5
|
|
?CCL7: PRINTI "This is"
|
|
?CND5: PRINTI " a quiet, residential street, lined with undistinguished, four storey Georgian houses. To the south, York Place opens up into Baker Street, and Marylebone Road comes in from the east."
|
|
CRLF
|
|
?CND1: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \FALSE
|
|
CRLF
|
|
PRINTI "The street isn't as quiet as usual, due to the surging crowds of tourists."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-MARYLEBONE-RD,CONTEXT,WHO
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CND1
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-MADAME-TUSSAUDS \FALSE
|
|
ICALL2 RT-DO-WALK,P?SOUTH
|
|
RTRUE
|
|
?CND1: CALL1 RT-WHO-SAYS? >WHO
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
|
|
EQUAL? GL-PLACE-PRV,RM-MADAME-TUSSAUDS \?CCL14
|
|
PRINTI "You go out the door and are now"
|
|
JUMP ?CND9
|
|
?CCL14: PRINTI "You find yourself"
|
|
JUMP ?CND9
|
|
?CCL11: PRINTI "You are"
|
|
?CND9: ICALL1 RT-IN-VEHICLE-MSG
|
|
PRINTI "in front of Madame Tussaud's famous wax museum. From here the street continues east and west."
|
|
CRLF
|
|
CRLF
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
|
|
PRINTI "The museum is closed for renovations, and there is a guard and a dog patrolling the street outside the entrance, which is just to the north of you. The guard "
|
|
RANDOM 100
|
|
LESS? 33,STACK /?CCL20
|
|
PRINTI "lights"
|
|
JUMP ?CND18
|
|
?CCL20: RANDOM 100
|
|
LESS? 50,STACK /?CCL22
|
|
PRINTI "puffs on"
|
|
JUMP ?CND18
|
|
?CCL22: PRINTI "puts out"
|
|
?CND18: PRINTI " a cigarette, tips his hat, and says, """
|
|
EQUAL? GL-PLACE-PRV,RM-MADAME-TUSSAUDS \?CCL25
|
|
PRINTI "Goodbye"
|
|
JUMP ?CND23
|
|
?CCL25: CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL27
|
|
PRINTI "Hello"
|
|
JUMP ?CND23
|
|
?CCL27: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1 \?CCL29
|
|
PRINTI "Top of the morning to you"
|
|
JUMP ?CND23
|
|
?CCL29: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,2 \?CCL31
|
|
PRINTI "Good day"
|
|
JUMP ?CND23
|
|
?CCL31: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,3 \?CND23
|
|
PRINTI "Good evening"
|
|
?CND23: EQUAL? WHO,CH-HOLMES \?CCL35
|
|
PRINTI ", Mr Holmes"
|
|
JUMP ?CND33
|
|
?CCL35: PRINTI ", Doctor Watson"
|
|
?CND33: PRINTI "."""
|
|
CRLF
|
|
JUMP ?CND15
|
|
?CCL17: EQUAL? CONTEXT,K-M-DESC-3 \?CND15
|
|
PRINTI "The guard and the dog are still here, and they show no signs of leaving."
|
|
CRLF
|
|
?CND15: IN? CH-PLAYER,TH-HANSOM-CAB /?CND37
|
|
IN? CH-PLAYER,TH-GROWLER-CAB /?CND37
|
|
ICALL2 SOUNDS,S-GROWL
|
|
CRLF
|
|
PRINTI "The dog growls at you."
|
|
CRLF
|
|
?CND37: EQUAL? CONTEXT,K-M-DESC-1 \FALSE
|
|
FSET CH-TUSSAUDS-GUARD,FL-SEEN
|
|
FSET CH-MATCH-SNIFFING-DOG,FL-SEEN
|
|
FSET TH-CIGARETTE,FL-SEEN
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-RM-CHAMBER-OF-HORRORS,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL8
|
|
EQUAL? GL-PLACE-CUR,RM-MADAME-TUSSAUDS \FALSE
|
|
ICALL2 RT-DO-WALK,P?WEST
|
|
RTRUE
|
|
?CCL8: EQUAL? GL-PRSA,V?EXIT \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-CHAMBER-OF-HORRORS \FALSE
|
|
ICALL2 RT-DO-WALK,P?EAST
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-CHARLES-STATUE,FL-SEEN
|
|
FSET TH-THOMAS-STATUE,FL-SEEN
|
|
FSET TH-FAWKES-STATUE,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
|
|
PRINTI "You enter"
|
|
JUMP ?CND15
|
|
?CCL17: PRINTI "You are in"
|
|
?CND15: PRINTI " the Chamber of Horrors. Scattered around the room are wax groupings of some of the most gruesome scenes from English history. The only exit is to the east."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-TOTTENHAM-COURT-RD,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET LG-SHOPS,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND5
|
|
PRINTI "This part of London is known for its furniture dealers, but all the shops seem to be closed for the Jubilee."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Marylebone Road goes off to the west here, and Tottenham Court Road continues to the south."
|
|
CRLF
|
|
?CND5: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CCL9
|
|
CRLF
|
|
PRINTI "Throngs of shoppers peer in the windows of the closed shops."
|
|
CRLF
|
|
RFALSE
|
|
?CCL9: CRLF
|
|
ICALL1 RT-FOG-MSG
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-ST-GILES-CIRCUS,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
|
|
PRINTI "You are"
|
|
ICALL1 RT-IN-VEHICLE-MSG
|
|
PRINTI "in St Giles Circus. Roads lead off in many directions."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-OXFORD-ST,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "Oxford Street is London's busiest shopping thoroughfare"
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CND3
|
|
PRINTI ", although at this hour the street is deserted"
|
|
?CND3: PRINTI ". Fashionable emporiums line the street on either side, offering goods from all over the British Empire. Unfortunately, they all seem to be closed for the Jubilee."
|
|
CRLF
|
|
CRLF
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CND5
|
|
PRINTI "Hoards of frustrated tourists mill about, peering in the windows of the closed shops."
|
|
CRLF
|
|
CRLF
|
|
?CND5: PRINTI "The street continues to the east and west."
|
|
CRLF
|
|
EQUAL? CONTEXT,K-M-DESC-1 \FALSE
|
|
FSET LG-SHOPS,FL-SEEN
|
|
CALL2 RT-META-LOC,TH-GROWLER-CAB
|
|
EQUAL? STACK,RM-OXFORD-ST \TRUE
|
|
IN? CH-PLAYER,TH-GROWLER-CAB /TRUE
|
|
FSET TH-GROWLER-CAB,FL-SEEN
|
|
CRLF
|
|
PRINTR "At a cabstand along the curb you see a growler cab."
|
|
|
|
|
|
.FUNCT RT-AC-RM-ORCHARD-ST,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND1
|
|
PRINTI "Orchard Street is the southern extension of Baker Street. From here you can see Oxford Street off to the east, Baker Street to the north, and Audley Street "
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL7
|
|
PRINTI "fading into the mists"
|
|
JUMP ?CND5
|
|
?CCL7: PRINTI "continuing"
|
|
?CND5: PRINTI " to the south."
|
|
CRLF
|
|
CRLF
|
|
?CND1: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2 \?CCL10
|
|
PRINTI "Crowds of tourists stream eastward, "
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1 \?CCL13
|
|
PRINTI "looking forward to spending the day in the shops along Oxford Street."
|
|
CRLF
|
|
RFALSE
|
|
?CCL13: PRINTI "intent on finding some bargains in the shops on Oxford Street."
|
|
CRLF
|
|
RFALSE
|
|
?CCL10: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,3 \?CCL15
|
|
PRINTI "Frustrated tourists stream westward, angered by the closed shops in Oxford Street."
|
|
CRLF
|
|
RFALSE
|
|
?CCL15: ICALL1 RT-FOG-MSG
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-AUDLEY-ST,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "This is a pleasant street that winds through Mayfair, a fashionable district which takes its name from an ancient fair held there in May of each year."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "To the south is Hyde Park Corner, and to the north is Orchard Street."
|
|
CRLF
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \FALSE
|
|
CRLF
|
|
ICALL1 RT-FOG-MSG
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-HYDE-PARK-CORNER,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CND1
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-KENSINGTON-GARDENS \FALSE
|
|
ICALL2 RT-DO-WALK,P?SE
|
|
RTRUE
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND9
|
|
PRINTI "Hyde Park Corner is dominated by the Wellington Arch, a soaring monument to the ""Iron Duke,"" who defeated Napoleon at the Battle of Waterloo."
|
|
CRLF
|
|
CRLF
|
|
?CND9: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CCL13
|
|
PRINTI "Huge crowds of tourists gape up at the Arch."
|
|
CRLF
|
|
CRLF
|
|
JUMP ?CND11
|
|
?CCL13: PRINTI "The arch is enshrouded in fog."
|
|
CRLF
|
|
CRLF
|
|
?CND11: PRINTI "Roads lead off in many directions."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-KENSINGTON-GARDENS,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-HYDE-PARK-CORNER \FALSE
|
|
ICALL2 RT-DO-WALK,P?NW
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET CH-NANNIES,FL-SEEN
|
|
FSET TH-PRAMS,FL-SEEN
|
|
FSET TH-PARK-FLOWERS,FL-SEEN
|
|
?CND1: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CCL13
|
|
PRINTI "A tide of perambulators pushed by well-starched nannies surges along the crowded walk. Everywhere you look there are rows and rows of beautiful flowers."
|
|
CRLF
|
|
RFALSE
|
|
?CCL13: PRINTI "The flower gardens are deserted."
|
|
CRLF
|
|
CRLF
|
|
ICALL1 RT-FOG-MSG
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-TRAFALGAR-SQUARE,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-DIOGENES-CLUB \FALSE
|
|
ICALL2 RT-DO-WALK,P?EAST
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-PIGEONS,FL-SEEN
|
|
FSET TH-NELSON-COLUMN,FL-SEEN
|
|
FSET TH-NELSON-EYE,FL-SEEN
|
|
FSET TH-NELSON-STATUE,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND11
|
|
PRINTI "Pigeons, pigeons, everywhere. You are"
|
|
ICALL1 RT-IN-VEHICLE-MSG
|
|
PRINTI "in one of the great open spaces of London, named for Nelson's naval victory over Napoleon in 1805. Streets come in and go out at all angles, and everywhere you look there are "
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CND13
|
|
PRINTI "people feeding "
|
|
?CND13: PRINTI "pigeons."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "The square is dominated by Nelson's Column, a 167 foot tall Corinthian column with"
|
|
PRINT K-NELSON-STATUE-MSG
|
|
CRLF
|
|
CRLF
|
|
PRINTI "The entrance to the Diogenes Club is to the west."
|
|
CRLF
|
|
?CND11: CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \FALSE
|
|
CRLF
|
|
ICALL1 RT-FOG-MSG
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-DIOGENES-CLUB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-ENTERED \?CCL3
|
|
ICALL SOUNDS,S-SNORE,S-START
|
|
JUMP ?CND1
|
|
?CCL3: EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
ICALL SOUNDS,S-SNORE,S-STOP
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL7
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-TRAFALGAR-SQUARE \FALSE
|
|
ICALL2 RT-DO-WALK,P?WEST
|
|
RTRUE
|
|
?CCL7: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL15
|
|
PRINTI "You enter the hushed atmosphere of the Diogenes Club. The furnishings are aging and opulent. The members are aging and asleep. The only exit is to the east."
|
|
CRLF
|
|
CRLF
|
|
FSET? CH-BUTLER,FL-ASLEEP /?CCL18
|
|
PRINTI "An ancient butler totters forward to greet you and says in a barely audible whisper, ""May I be of some assistance?"""
|
|
CRLF
|
|
JUMP ?CND5
|
|
?CCL18: PRINT K-EVERYONE-OUT-MSG
|
|
CRLF
|
|
JUMP ?CND5
|
|
?CCL15: PRINTI "You are in the Diogenes Club. "
|
|
FSET? CH-BUTLER,FL-ASLEEP /?CCL21
|
|
PRINTI "The butler is here, waiting to serve you."
|
|
JUMP ?CND19
|
|
?CCL21: PRINT K-EVERYONE-OUT-MSG
|
|
?CND19: CRLF
|
|
?CND5: EQUAL? CONTEXT,K-M-DESC-1 \FALSE
|
|
FSET CH-BUTLER,FL-SEEN
|
|
FSET CH-MEMBERS,FL-SEEN
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-RM-GREAT-RUSSELL-ST,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
|
|
PRINTI "Great Russell Street is the home of the British Museum, the entrance of which is to the north. There is a sign next to the door."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "To the southwest you can see St Giles Circus."
|
|
CRLF
|
|
RFALSE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-BRITISH-MUSEUM \FALSE
|
|
ICALL2 RT-DO-WALK,P?SOUTH
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-RM-BRITISH-MUSEUM,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-GREAT-RUSSELL-ST \?CCL10
|
|
ICALL2 RT-DO-WALK,P?NORTH
|
|
RTRUE
|
|
?CCL10: EQUAL? GL-PLACE-CUR,RM-MANUSCRIPT-ROOM \FALSE
|
|
ICALL2 RT-DO-WALK,P?WEST
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL13
|
|
EQUAL? GL-PLACE-PRV,RM-GREAT-RUSSELL-ST \?CCL16
|
|
PRINTI "You walk up the grand staircase and into"
|
|
JUMP ?CND1
|
|
?CCL16: PRINTI "You walk back down the long corridor and return to"
|
|
JUMP ?CND1
|
|
?CCL13: PRINTI "You are standing in"
|
|
?CND1: PRINTI " the entrance hall of the museum. All the corridors leading to the exhibit halls are packed with tourists, and there is a steady stream of people going in and out of the street entrance to the south. Only the corridor to the east seems to be of no interest to the sightseers."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-GROSVENOR-PLACE,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "This is a pleasant but out-of-the-way street that runs northwest to southeast. Few tourists ever visit here. "
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,3 \?CCL5
|
|
PRINTI "Despite the "
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1 \?CCL8
|
|
PRINTI "early"
|
|
JUMP ?CND6
|
|
?CCL8: PRINTI "late"
|
|
?CND6: PRINTI " hour, some"
|
|
JUMP ?CND3
|
|
?CCL5: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,2 \?CND3
|
|
PRINTI "Some"
|
|
?CND3: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CCL12
|
|
PRINTI " people are standing on the corner."
|
|
CRLF
|
|
RFALSE
|
|
?CCL12: ICALL1 RT-FOG-MSG
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-VICTORIA-SQUARE,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
|
|
PRINTI "You come upon"
|
|
JUMP ?CND1
|
|
?CCL5: PRINTI "You are in"
|
|
?CND1: PRINTI " Victoria Square. Streets go off in many directions."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-BROAD-SANCTUARY,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
|
|
FSET LG-WESTMINSTER-DOOR,FL-SEEN
|
|
PRINTI "You are"
|
|
ICALL1 RT-IN-VEHICLE-MSG
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CND4
|
|
PRINTI "in the midst of a crowd of tourists "
|
|
?CND4: PRINTI "in front of the west door of Westminster Abbey. The towers of the Abbey"
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL8
|
|
PRINTI " loom in the fog"
|
|
JUMP ?CND6
|
|
?CCL8: PRINTI " soar high"
|
|
?CND6: PRINTI " above you, and you marvel at this perfect example of Gothic architecture, as generations have done before you."
|
|
CRLF
|
|
CRLF
|
|
ICALL2 RT-OPEN-CLOSED-MSG,LG-WESTMINSTER-DOOR
|
|
CRLF
|
|
CRLF
|
|
PRINTI "On the wall next to the door is a small, discreet sign."
|
|
CRLF
|
|
RFALSE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-NAVE \FALSE
|
|
CALL2 RT-DO-WALK,P?WEST
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-RM-PARLIAMENT-SQUARE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
|
|
PRINTI "This is an attractive square at the foot of Whitehall. "
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CCL6
|
|
PRINTI "Large crowds mill around"
|
|
JUMP ?CND4
|
|
?CCL6: PRINTI "Through the mist you see"
|
|
?CND4: PRINTI " the entrance to the Houses of Parliament to the southeast. To the west is Birdcage Walk. Broad Sanctuary goes off to the southwest, and Whitehall "
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL9
|
|
PRINTI "disappears into the gloom"
|
|
JUMP ?CND7
|
|
?CCL9: PRINTI "is"
|
|
?CND7: PRINTI " to the north."
|
|
CRLF
|
|
RFALSE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-PARLIAMENT \FALSE
|
|
ICALL2 RT-DO-WALK,P?NW
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-PARLIAMENT,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-PARLIAMENT-SQUARE \FALSE
|
|
ICALL2 RT-DO-WALK,P?SE
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
|
|
EQUAL? GL-PLACE-PRV,RM-PARLIAMENT-SQUARE \?CCL14
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL17
|
|
PRINTI "You enter"
|
|
JUMP ?CND1
|
|
?CCL17: PRINTI "You push your way into"
|
|
JUMP ?CND1
|
|
?CCL14: PRINTI "You descend the stairs into"
|
|
JUMP ?CND1
|
|
?CCL11: PRINTI "You are standing in"
|
|
?CND1: PRINTI " the "
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CND18
|
|
PRINTI "jam-packed "
|
|
?CND18: PRINTI "entrance hall of the House of Commons."
|
|
CRLF
|
|
CRLF
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CCL22
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,3 \?CCL25
|
|
PRINTI "Despite the "
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1 \?CCL28
|
|
PRINTI "early"
|
|
JUMP ?CND26
|
|
?CCL28: PRINTI "late"
|
|
?CND26: PRINTI " hour, there"
|
|
JUMP ?CND23
|
|
?CCL25: PRINTI "There"
|
|
?CND23: PRINTI " are hundreds of people lined up to get in. But"
|
|
JUMP ?CND20
|
|
?CCL22: PRINTI "The Chamber is closed, but"
|
|
?CND20: PRINTI " off to one side you see a flight of old stone steps leading up into the darkness."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-BUCKINGHAM-PALACE-RD,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "Buckingham Palace Road connects Queens Gardens to the northeast with Victoria Square to the southwest."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-QUEENS-GARDENS,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET CH-PALACE-GUARD,FL-SEEN
|
|
?CND1: PRINTI "You are"
|
|
ICALL1 RT-IN-VEHICLE-MSG
|
|
PRINTI "outside the gate to Buckingham Palace."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-BIRDCAGE-WALK,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
|
|
PRINTI "As you enter Birdcage Walk, your attention is diverted to"
|
|
JUMP ?CND1
|
|
?CCL5: PRINTI "You see"
|
|
?CND1: PRINTI " a man who has set up a small souvenir stand near where the parade will pass on Tuesday. "
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL8
|
|
PRINTI "Oblivious to the fact that there are no crowds here to buy his wares"
|
|
JUMP ?CND6
|
|
?CCL8: PRINTI "Hoping to attract the attention of the crowd"
|
|
?CND6: PRINTI ", he is waving a handful of overpriced trinkets over his head."
|
|
CRLF
|
|
EQUAL? CONTEXT,K-M-DESC-1 \FALSE
|
|
FSET CH-VENDOR,FL-SEEN
|
|
FSET TH-TELESCOPE,FL-SEEN
|
|
FSET TH-TRINKETS,FL-SEEN
|
|
CRLF
|
|
PRINTI "As soon as he sees you, the salesman "
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CND12
|
|
PRINTI "ignores everyone else and "
|
|
?CND12: PRINTR "says, ""'Ere, Guv. Come early for the parade, 'ave you? There'll be thousands of people, you know. Now at the last Jubilee - about a year and a 'alf ago, as I remembers it - I could 'ardly see a fing. But if you was to buy one of my telescopes, you wouldn't 'ardly 'ave any problem, now would you? 'Ow 'bout it, Guv?"""
|
|
|
|
|
|
.FUNCT RT-AC-RM-THE-MALL,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "The Mall runs southwest to northeast between the Queens Gardens and Trafalgar Square."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-WHITEHALL,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
|
|
PRINTI "Impressive government buildings line the street on either side. The street continues north and south, and the entrance to Scotland Yard is to the east."
|
|
CRLF
|
|
RFALSE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-SCOTLAND-YARD \FALSE
|
|
ICALL2 RT-DO-WALK,P?WEST
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-RM-SCOTLAND-YARD,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL8
|
|
EQUAL? GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \?CCL11
|
|
ICALL1 RT-ALREADY-IN-ROOM-MSG
|
|
RTRUE
|
|
?CCL11: EQUAL? GL-PLACE-CUR,RM-WHITEHALL \FALSE
|
|
ICALL2 RT-DO-WALK,P?EAST
|
|
RTRUE
|
|
?CCL8: EQUAL? GL-PRSA,V?EXIT \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-SCOTLAND-YARD \?CCL16
|
|
ICALL2 RT-DO-WALK,P?WEST
|
|
RTRUE
|
|
?CCL16: EQUAL? GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \FALSE
|
|
ICALL2 RT-DO-WALK,P?UP
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL19
|
|
EQUAL? GL-PLACE-PRV,RM-WHITEHALL \?CCL22
|
|
PRINTI "You walk up the steps and into the building. Inside, it"
|
|
JUMP ?CND1
|
|
?CCL22: EQUAL? GL-PLACE-PRV,RM-THE-BLACK-MUSEUM \?CND1
|
|
PRINTI "You return to the ground floor. It"
|
|
JUMP ?CND1
|
|
?CCL19: PRINTI "It"
|
|
?CND1: PRINTI " looks just like any other government building - drab and worn. The door to the street is to the west, and you see some steps leading down."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-THE-BLACK-MUSEUM,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CND1
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL7
|
|
EQUAL? GL-PLACE-CUR,RM-SCOTLAND-YARD \FALSE
|
|
ICALL2 RT-DO-WALK,P?DOWN
|
|
RTRUE
|
|
?CCL7: EQUAL? GL-PRSA,V?EXIT \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \FALSE
|
|
ICALL2 RT-DO-WALK,P?UP
|
|
RTRUE
|
|
?CND1: FSET TH-BLIGH-BOAT,FL-SEEN
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
|
|
PRINTI "This is the Black Museum, where the Yard keeps relics and mementos of famous crimes."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Along one wall is a full-size rowboat with a small sign attached to it."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-NEW-OXFORD-ST,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
|
|
EQUAL? GL-PLACE-PRV,RM-CHEAPSIDE,RM-ST-GILES-CIRCUS \?CCL8
|
|
PRINTI "The quality of the neighborhood seems to be "
|
|
EQUAL? GL-PLACE-PRV,RM-ST-GILES-CIRCUS \?CCL11
|
|
PRINTI "deteriorating"
|
|
JUMP ?CND9
|
|
?CCL11: PRINTI "improving"
|
|
?CND9: PRINTI " as you"
|
|
ICALL1 RT-DRIVE-WALK-MSG?
|
|
EQUAL? GL-PLACE-PRV,RM-ST-GILES-CIRCUS \?CCL14
|
|
PRINTI "eastward"
|
|
JUMP ?CND12
|
|
?CCL14: PRINTI "westward"
|
|
?CND12: PRINTI " along"
|
|
JUMP ?CND1
|
|
?CCL8: EQUAL? GL-PLACE-PRV,RM-COVENT-GARDEN \?CCL16
|
|
PRINTI "You leave Covent Garden and enter"
|
|
JUMP ?CND1
|
|
?CCL16: PRINTI "The cab stops in"
|
|
JUMP ?CND1
|
|
?CCL5: PRINTI "You are"
|
|
ICALL1 RT-IN-VEHICLE-MSG
|
|
PRINTI "in"
|
|
?CND1: PRINTI " New Oxford Street."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-COVENT-GARDEN,CONTEXT
|
|
EQUAL? CONTEXT,K-M-ENTERED \?CCL3
|
|
ICALL SOUNDS,S-CROWD,S-START
|
|
JUMP ?CND1
|
|
?CCL3: EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
ICALL SOUNDS,S-CROWD,S-STOP
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
|
|
PRINTI "You enter"
|
|
JUMP ?CND5
|
|
?CCL9: PRINTI "You are in"
|
|
?CND5: PRINTI " Covent Garden, which is the central market for all of London. Everywhere you look there are stalls packed with produce from the English countryside."
|
|
CRLF
|
|
CRLF
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL12
|
|
PRINTI "Despite the hour, the"
|
|
JUMP ?CND10
|
|
?CCL12: PRINTI "The"
|
|
?CND10: PRINTI " open-air market is crowded with housewives who are shopping for fruits and vegetables."
|
|
CRLF
|
|
IN? CH-ELIZA-DOOLITTLE,RM-COVENT-GARDEN \?CND13
|
|
CRLF
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
|
|
PRINTI "After looking around for a few moments, you"
|
|
JUMP ?CND15
|
|
?CCL17: PRINTI "You"
|
|
?CND15: PRINTI " see a crowd of women gathered around a girl who has collapsed on the ground. Her lifeless hand clutches a bunch of flowers."
|
|
CRLF
|
|
?CND13: EQUAL? CONTEXT,K-M-DESC-1 \FALSE
|
|
FSET CH-ELIZA-DOOLITTLE,FL-SEEN
|
|
FSET CH-HOUSEWIVES,FL-SEEN
|
|
FSET TH-ELIZAS-FLOWERS,FL-SEEN
|
|
FSET TH-ELIZAS-MOUTH,FL-SEEN
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-RM-THE-STRAND,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
|
|
PRINTI "You enter"
|
|
JUMP ?CND3
|
|
?CCL5: PRINTI "You are lingering in"
|
|
?CND3: PRINTI " the Strand, which is the heart of London's theatre district"
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,3 \?CCL8
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
|
|
PRINTI ", and fight your way through"
|
|
JUMP ?CND9
|
|
?CCL11: PRINTI ", and you are enjoying being in the midst of"
|
|
?CND9: PRINTI " the crowds of happy theatre goers"
|
|
JUMP ?CND6
|
|
?CCL8: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2 \?CND6
|
|
PRINTC 46
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Crowds are gathering in front of the theatres, trying to select a show to see later in the day"
|
|
?CND6: PRINTI ". Streets lead off to the north, east, and southwest."
|
|
CRLF
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \FALSE
|
|
CRLF
|
|
PRINTI "As you"
|
|
ICALL1 RT-DRIVE-WALK-MSG?
|
|
PRINTI "through the fog, the empty streets seem haunted by the ghosts of actors from years gone by."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-FLEET-STREET,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "Fleet Street is the centre of London's thriving newspaper industry"
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL5
|
|
PRINTI ". The presses roar all night, turning out papers that will be delivered by train around the country the next day."
|
|
CRLF
|
|
JUMP ?CND3
|
|
?CCL5: PRINTI ", and it is crowded with the thousands of people who put out the nation's newspapers."
|
|
CRLF
|
|
?CND3: CRLF
|
|
PRINTI "A street leads off to the west, and there is a passage south to the Embankment."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-THE-EMBANKMENT,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-THAMES-ONE \FALSE
|
|
ICALL2 RT-DO-WALK,P?NORTH
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
|
|
PRINTI "You arrive at"
|
|
JUMP ?CND1
|
|
?CCL11: PRINTI "You are"
|
|
ICALL1 RT-IN-VEHICLE-MSG
|
|
PRINTI "on"
|
|
?CND1: PRINTI " the Victoria Embankment, on the left bank of the Thames. "
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1 \?CCL14
|
|
PRINTI "The early morning mist clings to the water and muffles the sounds of the river."
|
|
JUMP ?CND12
|
|
?CCL14: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,2 \?CCL16
|
|
PRINTI "The river is crowded with pleasure boats here for the Jubilee."
|
|
JUMP ?CND12
|
|
?CCL16: CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,3 \?CCL18
|
|
PRINTI "The river looks quiet and peaceful in the fading light."
|
|
JUMP ?CND12
|
|
?CCL18: PRINTI "The river is barely visible through the thick fog."
|
|
?CND12: CRLF
|
|
EQUAL? CONTEXT,K-M-DESC-1 \FALSE
|
|
FSET TH-BOAT,FL-SEEN
|
|
FSET TH-OAR-1,FL-SEEN
|
|
FSET TH-OAR-LOCK,FL-SEEN
|
|
CRLF
|
|
PRINTR "There is an incredibly old rowboat here. It's got one empty oarlock, and it probably leaks, but it looks as if it might float."
|
|
|
|
|
|
.FUNCT RT-AC-RM-UPPER-THAMES-ST,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "Upper Thames Street runs east and west between the Embankment and Lower Thames Street."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-PINCHIN-LANE,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-SHERMANS-HOUSE \FALSE
|
|
ICALL2 RT-DO-WALK,P?EAST
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
|
|
EQUAL? GL-PLACE-PRV,RM-CHEAPSIDE \?CCL14
|
|
PRINTI "You enter"
|
|
JUMP ?CND1
|
|
?CCL14: EQUAL? GL-PLACE-PRV,RM-SHERMANS-HOUSE \?CCL16
|
|
PRINTI "You emerge from Sherman's shop into"
|
|
JUMP ?CND1
|
|
?CCL16: PRINTI "The cab stops in"
|
|
JUMP ?CND1
|
|
?CCL11: PRINTI "You are"
|
|
ICALL1 RT-IN-VEHICLE-MSG
|
|
PRINTI "in"
|
|
?CND1: PRINTI " Pinchin Lane, a dingy little alley that runs"
|
|
EQUAL? GL-PLACE-PRV,RM-CHEAPSIDE \?CCL19
|
|
PRINTI " south from"
|
|
JUMP ?CND17
|
|
?CCL19: PRINTI " north to"
|
|
?CND17: PRINTI " Cheapside."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "To the west is the entrance to "
|
|
EQUAL? CONTEXT,K-M-DESC-1 /?CTR21
|
|
FSET? RM-SHERMANS-HOUSE,FL-SEEN /?CCL22
|
|
?CTR21: PRINTI "what looks like a pet shop"
|
|
JUMP ?CND20
|
|
?CCL22: PRINTI "Sherman's shop"
|
|
?CND20: PRINTC 46
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL27
|
|
EQUAL? GL-PLACE-PRV,RM-SHERMANS-HOUSE /?CCL27
|
|
PRINTI " Despite the hour, you see a light shining inside."
|
|
CRLF
|
|
RFALSE
|
|
?CCL27: CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-CHEAPSIDE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
|
|
PRINTI "This is a ramshackle part of town, with dark alleys leading off the main street, which continues east and west. Pinchin Lane leads off to the south."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-BANK-OF-ENGLAND,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CND1
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL7
|
|
EQUAL? GL-PLACE-CUR,RM-THREADNEEDLE-ST \FALSE
|
|
ICALL2 RT-DO-WALK,P?NORTH
|
|
RTRUE
|
|
?CCL7: EQUAL? GL-PRSA,V?EXIT \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-BANK-OF-ENGLAND \?CCL13
|
|
ICALL2 RT-DO-WALK,P?SOUTH
|
|
RTRUE
|
|
?CCL13: EQUAL? GL-PLACE-CUR,RM-BANK-VAULT \FALSE
|
|
ICALL2 RT-DO-WALK,P?EAST
|
|
RTRUE
|
|
?CND1: FSET LG-BANK-VAULT-DOOR,FL-SEEN
|
|
FSET TH-DIAL,FL-SEEN
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
|
|
PRINTI "The bank has the eerie silence that normally crowded places have when no one is there. The door to the vault is set into the west wall."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-BANK-VAULT,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK \?CCL3
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL6
|
|
EQUAL? GL-PLACE-CUR,RM-BANK-OF-ENGLAND \?CCL9
|
|
FSET? LG-BANK-VAULT-DOOR,FL-OPENED \?CCL12
|
|
ICALL2 RT-AC-RM-BANK-VAULT,K-M-DESC-3
|
|
ICALL2 RT-DESCRIBE-PLACE-CONTENTS,RM-BANK-VAULT
|
|
RTRUE
|
|
?CCL12: PRINTI "It's a huge, reinforced-steel door that's set firmly into the wall."
|
|
CRLF
|
|
CRLF
|
|
PRINTR "In the middle of the door you see a big shiny dial."
|
|
?CCL9: ICALL2 RT-AC-RM-BANK-VAULT,K-M-DESC-3
|
|
ICALL2 RT-DESCRIBE-PLACE-CONTENTS,RM-BANK-VAULT
|
|
RTRUE
|
|
?CCL6: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL18
|
|
EQUAL? GL-PLACE-CUR,RM-BANK-OF-ENGLAND \FALSE
|
|
ICALL2 RT-DO-WALK,P?WEST
|
|
RTRUE
|
|
?CCL18: EQUAL? GL-PRSA,V?EXIT \?CCL22
|
|
EQUAL? GL-PLACE-CUR,RM-BANK-VAULT \FALSE
|
|
ICALL2 RT-DO-WALK,P?EAST
|
|
RTRUE
|
|
?CCL22: EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL26
|
|
FSET? LG-BANK-VAULT-DOOR,FL-OPENED \?CCL29
|
|
ICALL RT-CYOU-MSG,STR?665,STR?666
|
|
PRINTI "row upon row of "
|
|
ICALL2 DPRINT,TH-BOXES
|
|
PRINTR "."
|
|
?CCL29: ICALL2 RT-CTHEO-PRINT,LG-BANK-VAULT-DOOR
|
|
PRINTR " is closed."
|
|
?CCL26: EQUAL? GL-PRSA,V?UNLOCK \?CCL31
|
|
FSET? LG-BANK-VAULT-DOOR,FL-OPENED \?CCL34
|
|
ICALL2 RT-CTHEO-PRINT,LG-BANK-VAULT-DOOR
|
|
PRINTR " is already opened."
|
|
?CCL34: PRINT K-HOW-TO-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL31: EQUAL? GL-PRSA,V?OPEN \?CCL36
|
|
FSET? LG-BANK-VAULT-DOOR,FL-OPENED \?CCL39
|
|
PRINTR "The vault door is already open."
|
|
?CCL39: FSET? TH-DIAL,FL-LOCKED \?CCL41
|
|
PRINTR "The vault door is locked."
|
|
?CCL41: FSET LG-BANK-VAULT-DOOR,FL-OPENED
|
|
PRINTR "The vault door swings open."
|
|
?CCL36: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINT K-RICOCHET-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-BOXES,FL-SEEN
|
|
FSET TH-BOX-LOCK,FL-SEEN
|
|
FSET TH-SAFETY-DEPOSIT-BOX,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL46
|
|
PRINTI "Upon entering, you"
|
|
JUMP ?CND44
|
|
?CCL46: PRINTI "You"
|
|
?CND44: PRINTI " see rows and rows of safety deposit boxes."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-KING-WILLIAM-ST,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "King William Street runs northwest to southeast, from Threadneedle Street to Monument."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-MONUMENT,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
|
|
PRINTI "The intersection is dominated by the Monument, a huge obelisk that commemorates the Great Fire of London. On the side of the monument is a plaque."
|
|
CRLF
|
|
RFALSE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN \?CCL5
|
|
PRINTR "It's a huge obelisk designed by Christopher Wren that towers 202 feet in the air."
|
|
?CCL5: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL9
|
|
EQUAL? GL-PLACE-CUR,RM-MONUMENT \FALSE
|
|
PRINTI "You can't go inside "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTR "."
|
|
?CCL9: EQUAL? GL-PRSA,V?EXIT \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-MONUMENT \FALSE
|
|
PRINTI "You're not in "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTR "."
|
|
|
|
|
|
.FUNCT RT-AC-RM-LOWER-THAMES-ST,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
|
|
PRINTI "You enter"
|
|
JUMP ?CND1
|
|
?CCL5: PRINTI "You are in"
|
|
?CND1: PRINTI " Lower Thames Street. Roads lead off in many directions, some more savory than others. There is a set of particularly slovenly stairs leading down to an alley that runs alongside the river."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-TOWER-ENTRANCE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
|
|
PRINTI "You are"
|
|
ICALL1 RT-IN-VEHICLE-MSG
|
|
PRINTI "outside the entrance to the Tower of London. Next to the entrance there is a sign."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-SOUTH-AISLE,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-POPE-TOMB,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
|
|
PRINTI "You enter"
|
|
JUMP ?CND5
|
|
?CCL7: PRINTI "You are in"
|
|
?CND5: PRINTI " the South Aisle of the Nave. "
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND8
|
|
PRINTI "In the gloom, you bump into one of the tombs. "
|
|
?CND8: PRINTI "There is an exit to the southeast and a door set into the south wall."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-JERICHO-PARLOUR,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
|
|
EQUAL? GL-PLACE-PRV,RM-SOUTH-AISLE \?CCL8
|
|
PRINTI "From the vastness of the Nave, you pass into"
|
|
JUMP ?CND6
|
|
?CCL8: PRINTI "You leave the Chamber for"
|
|
?CND6: PRINTI " the more intimate"
|
|
JUMP ?CND1
|
|
?CCL5: PRINTI "You are in the"
|
|
?CND1: PRINTI " Jericho Parlour"
|
|
EQUAL? CONTEXT,K-M-DESC-2 \?CCL11
|
|
EQUAL? GL-PLACE-PRV,RM-JERUSALEM-CHAMBER \?CCL11
|
|
PRINTC 46
|
|
CRLF
|
|
JUMP ?CND9
|
|
?CCL11: PRINTI ", which is the anteroom to the famous Jerusalem Chamber just to the west."
|
|
CRLF
|
|
?CND9: CRLF
|
|
PRINTI "The exit to the Nave is to the north."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-JERUSALEM-CHAMBER,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
|
|
PRINTI "You enter"
|
|
JUMP ?CND3
|
|
?CCL5: PRINTI "You are standing in"
|
|
?CND3: PRINTI " the Jerusalem Chamber, one of the oldest parts of the Abbey. In contrast to the cold and forbidding stone elsewhere in the Abbey, this room is panelled in oak and cedar. Just inside the entrance you see a small sign."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-NORTH-CLOISTER,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CCL5
|
|
FSET TH-PACKET-OF-PAPER,FL-SEEN
|
|
FSET TH-CRAYON,FL-SEEN
|
|
FSET TH-RUBBINGS,FL-SEEN
|
|
PRINTI "You enter"
|
|
JUMP ?CND1
|
|
?CCL5: PRINTI "You are now in"
|
|
?CND1: PRINTI " the North Cloister, which is the brass-rubbing centre of the abbey. On the walls are completed rubbings that others have made."
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CCL8
|
|
PRINTR " Someone has left a pacquet of paper and a rubbing crayon here."
|
|
?CCL8: CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-SOUTH-TRANSEPT,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-DICKENS-TOMB,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
|
|
PRINTI "You enter"
|
|
JUMP ?CND5
|
|
?CCL7: PRINTI "You are in"
|
|
?CND5: PRINTI " the South "
|
|
PRINT K-TRANSEPT-MSG
|
|
CRLF
|
|
CRLF
|
|
PRINT K-SHAFT-OF-LIGHT-MSG
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-NORTH-TRANSEPT,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-PITT-TOMB,FL-SEEN
|
|
FSET TH-FIGURES,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
|
|
PRINTI "You enter"
|
|
JUMP ?CND5
|
|
?CCL7: PRINTI "You are in"
|
|
?CND5: PRINTI " the North "
|
|
PRINT K-TRANSEPT-MSG
|
|
CRLF
|
|
CRLF
|
|
PRINT K-SHAFT-OF-LIGHT-MSG
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-POETS-CORNER,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-CHAUCER-TOMB,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
|
|
PRINTI "You walk into"
|
|
JUMP ?CND5
|
|
?CCL7: PRINTI "You are in"
|
|
?CND5: PRINTI " the hushed, secluded part of the Abbey known as Poets' Corner. The monuments here are dedicated to Britain's literary giants. The oldest of the tombs is that of Geoffrey Chaucer, who died in the year 1400."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-SOUTH-AMBULATORY,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINT K-AMBULATORY-MSG
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-SANCTUARY,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-ANNE-OF-CLEVES-TOMB,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
|
|
PRINTI "You walk into"
|
|
JUMP ?CND5
|
|
?CCL7: PRINTI "You are in"
|
|
?CND5: PRINTI " the Sanctuary. This is where the actual Coronation Ceremony takes place whenever a new monarch is crowned. A modest tomb is near the south wall."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-NORTH-AMBULATORY,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINT K-AMBULATORY-MSG
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-CONFESSOR-CHAPEL,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-EDWARD-TOMB,FL-SEEN
|
|
FSET TH-HENRY-V-TOMB,FL-SEEN
|
|
?CND1: PRINTI "The Confessor Chapel is dominated by the tomb of the founder of the Abbey, although there are several other tombs here. It is this chapel that first gave Westminster the name ""Burial place of kings."""
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-SOUTH-CHAPEL-AISLE,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-MARY-QUEEN-OF-SCOTS-TOMB,FL-SEEN
|
|
?CND1: PRINTI "The South Chapel Aisle is the final resting place of Mary, Queen of Scots."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-NORTH-CHAPEL-AISLE,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-ELIZABETH-TOMB,FL-SEEN
|
|
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
|
|
PRINTI "You enter"
|
|
JUMP ?CND5
|
|
?CCL7: PRINTI "You are in"
|
|
?CND5: PRINTI " the North Chapel Aisle. There is a very large tomb here."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-INNOCENTS-CORNER,CONTEXT
|
|
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
|
|
FSET TH-LITTLE-PRINCES-TOMB,FL-SEEN
|
|
?CND1: PRINTI "This is Innocents' corner, the traditional burial site of royalty who die in infancy. There are several tombs here."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-RM-DRAWBRIDGE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-ENTERED \?CCL3
|
|
SET 'ALLOW-IN-TOWER,FALSE-VALUE
|
|
RFALSE
|
|
?CCL3: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CCL7
|
|
PRINTI "So far, so good. No one has challenged your right to be here. Maybe the Tower has been left unguarded."
|
|
JUMP ?CND1
|
|
?CCL7: EQUAL? CONTEXT,K-M-DESC-2 \?CCL9
|
|
EQUAL? GL-PLACE-PRV,RM-TOWER-ENTRANCE \?CCL12
|
|
PRINTI "You walk back up onto the drawbridge."
|
|
JUMP ?CND1
|
|
?CCL12: PRINTI "Stung by the guard's rejection, you retrace your steps to the drawbridge."
|
|
JUMP ?CND1
|
|
?CCL9: PRINTI "You are standing on the drawbridge to the Tower of London."
|
|
?CND1: CRLF
|
|
CRLF
|
|
PRINTI "To the east you see the Byward Tower, and to the west is the Tower Entrance."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-BYWARD-TOWER,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND5
|
|
FSET CH-TOWER-GUARD,FL-SEEN
|
|
FSET LG-RAVENS,FL-SEEN
|
|
PRINTI "Your luck runs out. "
|
|
?CND5: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND9
|
|
PRINTI "A costumed Yeoman of the Guard steps forward to challenge you."
|
|
CRLF
|
|
?CND9: EQUAL? CONTEXT,K-M-DESC-3 \?CND11
|
|
PRINTI "You are standing in the Byward Tower, which was built by Edward I in the thirteenth century to control access to the fortress. A burly Beefeater stands in your path."
|
|
CRLF
|
|
?CND11: CRLF
|
|
PRINTI "A few of the Tower's famous ravens are perched here, watching your every move."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-OUTER-WARD,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "This is the Outer Ward. From here you can go north, south, or west."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "A few of the Tower's famous ravens are perched here, watching your every move."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-BLOODY-TOWER,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
|
|
PRINTI "You enter"
|
|
JUMP ?CND5
|
|
?CCL9: PRINTI "You are in"
|
|
?CND5: PRINTI " the Bloody Tower where, allegedly, the ""Little Princes in the Tower"" met their death. One exit leads north. The other leads south."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-WAKEFIELD-TOWER,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? GL-PLACE-PRV,RM-TOWER-GREEN \?CCL9
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND5
|
|
PRINTI "You leave the"
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,0,1,3 \?CND12
|
|
PRINTI " gloom of the"
|
|
?CND12: PRINTI " Tower Green for the gloom of the Wakefield Tower."
|
|
JUMP ?CND5
|
|
?CCL9: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND5
|
|
PRINTI "You descend the stairs into the ground floor of the Wakefield Tower."
|
|
?CND5: EQUAL? CONTEXT,K-M-DESC-3 \?CND16
|
|
PRINTI "You see only the thick stone walls of the Wakefield Tower."
|
|
?CND16: CRLF
|
|
CRLF
|
|
PRINTI "There is a dark stone staircase leading up, and the only other exit is to the northwest."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-JEWEL-ROOM,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
|
|
PRINTI "The stairs take you up to"
|
|
JUMP ?CND5
|
|
?CCL9: PRINTI "You are in"
|
|
?CND5: PRINTI " the Jewel Room of the Tower of London. The case that once held the Regalia is twisted and smashed"
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CCL12
|
|
FSET TH-MACE,FL-SEEN
|
|
FSET TH-JEWEL-CASE,FL-SEEN
|
|
PRINTR ", and the weapon that the thief used is lying on the ground nearby."
|
|
?CCL12: PRINTC 46
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-DUNGEON,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
|
|
PRINTI "You inch your way down the dark stairs and arrive"
|
|
JUMP ?CND5
|
|
?CCL9: PRINTI "You are"
|
|
?CND5: PRINTI " in the oldest part of the Tower, the Dungeon."
|
|
CRLF
|
|
EQUAL? CONTEXT,K-M-DESC-1 \FALSE
|
|
FSET TH-SUIT-OF-ARMOUR,FL-SEEN
|
|
ICALL SOUNDS,S-ARMOR,S-INIT
|
|
CRLF
|
|
PRINTR "The room has been converted into museum space, and prominently featured is a man-size suit of armour."
|
|
|
|
|
|
.FUNCT RT-DF-RM-TORTURE-ROOM,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
|
|
PRINTI "You enter"
|
|
JUMP ?CND7
|
|
?CCL9: PRINTI "You are in"
|
|
?CND7: PRINTI " the torture room below the Bowyer Tower. Around the walls are hung various instruments of torture. The stairs leading up are the only way out."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-WHITE-TOWER,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "This is the White Tower, which was started by William the Conqueror in 1078. Exits lead out and down."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-TOWER-GREEN,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
PRINTI "You are on Tower Green, which is at the centre of the Tower of London. Entrances to various towers lie to the northeast, east, southeast, and south. A few ravens are strolling around the green, eyeing you with interest."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-BOWYER-TOWER,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND5
|
|
FSET TH-BUNG,FL-SEEN
|
|
FSET TH-BUTT-OF-MALMSEY,FL-SEEN
|
|
FSET TH-MALMSEY,FL-SEEN
|
|
?CND5: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
|
|
PRINTI "You enter"
|
|
JUMP ?CND9
|
|
?CCL11: PRINTI "You are in"
|
|
?CND9: PRINTI " the Bowyer Tower. It was in this room that the Duke of Clarence was drowned in a Butt of Malmsey in 1478. The keg still stands over in the corner."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Exits lead out and down."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-INSIDE-TRAITORS-GATE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1 \?CND5
|
|
FSET TH-PORTCULLIS-CHAIN,FL-SEEN
|
|
?CND5: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
|
|
EQUAL? GL-PLACE-PRV,RM-OUTSIDE-TRAITORS-GATE \?CCL14
|
|
PRINTI "You pass under the portcullis"
|
|
JUMP ?CND12
|
|
?CCL14: PRINTI "You walk south from the Outer Ward"
|
|
?CND12: PRINTI " and find yourself"
|
|
JUMP ?CND9
|
|
?CCL11: PRINTI "You are"
|
|
?CND9: PRINTI " just north of Traitors Gate. The portcullis is "
|
|
FSET? LG-PORTCULLIS-DOOR,FL-OPENED \?CCL17
|
|
PRINTI "up"
|
|
JUMP ?CND15
|
|
?CCL17: PRINTI "down"
|
|
?CND15: PRINTI ". From the wall near the portcullis hangs a chain, and perched on top of the wall are some ravens."
|
|
CRLF
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-DF-RM-OUTSIDE-TRAITORS-GATE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-EXIT \?CND1
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
|
|
ICALL2 SOUNDS,S-ARMOR
|
|
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
|
|
ZERO? STACK /FALSE
|
|
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
|
|
EQUAL? GL-PLACE-PRV,RM-INSIDE-TRAITORS-GATE \?CCL12
|
|
PRINTI "You pass under the portcullis"
|
|
JUMP ?CND10
|
|
?CCL12: PRINTI "You leave the boat"
|
|
?CND10: PRINTI " and find yourself"
|
|
JUMP ?CND5
|
|
?CCL9: PRINTI "You are"
|
|
?CND5: PRINTI " just south of Traitors Gate, through which condemned prisoners were brought in to the Tower prior to being executed. The massive iron portcullis is "
|
|
FSET? LG-PORTCULLIS-DOOR,FL-OPENED \?CCL15
|
|
PRINTI "up"
|
|
JUMP ?CND13
|
|
?CCL15: PRINTI "down"
|
|
?CND13: PRINTC 46
|
|
CRLF
|
|
RFALSE
|
|
|
|
.ENDI
|