mirror of
https://github.com/historicalsource/sherlock
synced 2024-05-02 08:59:45 +03:00
525 lines
16 KiB
Plaintext
525 lines
16 KiB
Plaintext
|
|
|
|
.FUNCT RT-AC-LG-BAKER-ST-DOOR
|
|
EQUAL? GL-PRSA,V?KNOCK \?CCL3
|
|
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \?CCL6
|
|
PRINTR "You are already inside."
|
|
?CCL6: FSET? LG-BAKER-ST-DOOR,FL-OPENED \?CCL8
|
|
PRINTR "The door is already open."
|
|
?CCL8: FSET? CH-HUDSON,FL-ASLEEP \?CCL10
|
|
PRINTR "There is no answer."
|
|
?CCL10: FSET? LG-BAKER-ST-DOOR,FL-LOCKED /?CCL12
|
|
FSET LG-BAKER-ST-DOOR,FL-OPENED
|
|
MOVE CH-HUDSON,RM-ENTRY-HALL
|
|
ICALL2 RT-THIS-IS-IT,CH-HUDSON
|
|
PRINTR "Mrs Hudson appears and says, ""Please come in Dr Watson."" She steps back into the hall to allow room for you to pass."
|
|
?CCL12: FCLEAR LG-BAKER-ST-DOOR,FL-LOCKED
|
|
SET 'GL-PLACE-CUR,RM-ENTRY-HALL
|
|
MOVE CH-HUDSON,GL-PLACE-CUR
|
|
MOVE CH-PLAYER,GL-PLACE-CUR
|
|
ICALL2 RT-THIS-IS-IT,CH-HUDSON
|
|
PRINTI "You hear a bolt sliding back and the door opens to reveal a worried Mrs Hudson."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Oh Doctor Watson, I'm so glad to see you. It's Mr Holmes, sir. Three days have come and gone since he's been out of his rooms. He won't eat and I know he hasn't slept. Now there's a visitor who says he's here about some important government business. I tried to send him away, but he insisted on waiting in the parlour. That's when I sent for you. Thank God you've come."""
|
|
CRLF
|
|
ICALL RT-EXEC-RM-DESCFCN,RM-ENTRY-HALL,K-M-DESC-1
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: EQUAL? GL-PRSA,V?KICK,V?HIT,V?MUNG \?CCL14
|
|
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL /FALSE
|
|
FSET? LG-BAKER-ST-DOOR,FL-OPENED /FALSE
|
|
PRINTR "Mrs Hudson pokes her head out the door and says, ""I'm not opening the door until you knock like a proper gentleman."" She slams the door in your face."
|
|
?CCL14: EQUAL? GL-PRSA,V?ENTER,V?THROUGH \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-221B-BAKER-ST \?CCL24
|
|
CALL2 RT-DO-WALK,P?WEST
|
|
RSTACK
|
|
?CCL24: EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
|
|
CALL2 RT-DO-WALK,P?EAST
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-PARLOUR-DOOR
|
|
EQUAL? GL-PRSA,V?OPEN \?CCL3
|
|
FSET? CH-HOLMES,FL-ASLEEP \FALSE
|
|
ICALL2 RT-CTHEO-PRINT,CH-HUDSON
|
|
PRINT K-HUDSON-WORRIED-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: EQUAL? GL-PRSA,V?ENTER,V?THROUGH \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-PARLOUR \?CCL11
|
|
CALL2 RT-DO-WALK,P?SOUTH
|
|
RSTACK
|
|
?CCL11: EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
|
|
CALL2 RT-DO-WALK,P?NORTH
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-HOLMES-STUDY-DOOR
|
|
EQUAL? GL-PRSA,V?ENTER,V?THROUGH \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-VESTIBULE \?CCL6
|
|
CALL2 RT-DO-WALK,P?NORTH
|
|
RSTACK
|
|
?CCL6: EQUAL? GL-PLACE-CUR,RM-HOLMES-STUDY \FALSE
|
|
CALL2 RT-DO-WALK,P?SOUTH
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-HOLMES-BEDROOM-DOOR
|
|
EQUAL? GL-PRSA,V?ENTER,V?THROUGH \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-HOLMES-STUDY \?CCL6
|
|
CALL2 RT-DO-WALK,P?WEST
|
|
RSTACK
|
|
?CCL6: EQUAL? GL-PLACE-CUR,RM-HOLMES-BEDROOM \FALSE
|
|
CALL2 RT-DO-WALK,P?EAST
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-BAR-OF-GOLD-DOOR
|
|
EQUAL? GL-PRSA,V?ENTER,V?THROUGH \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-BAR-OF-GOLD \?CCL6
|
|
CALL2 RT-DO-WALK,P?EAST
|
|
RSTACK
|
|
?CCL6: EQUAL? GL-PLACE-CUR,RM-SWAN-LANE \FALSE
|
|
CALL2 RT-DO-WALK,P?WEST
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-LAIR-DOOR
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER,V?THROUGH,V?OPEN /?PRD8
|
|
EQUAL? GL-PRSA,V?CLOSE,V?UNLOCK,V?LOCK \?CCL6
|
|
?PRD8: FSET? CH-AKBAR,FL-LOCKED /?CCL6
|
|
FSET? CH-AKBAR,FL-ASLEEP /?CCL6
|
|
PRINTI "Akbar"
|
|
FSET? TH-WATSONS-HAT,FL-WORN \?CND12
|
|
PRINTI " says, ""Forgive me, sir,"" and"
|
|
?CND12: PRINTR " stops you as you move toward the door."
|
|
?CCL6: EQUAL? GL-PRSA,V?OPEN \?CCL15
|
|
FSET? CH-HOLMES,FL-LOCKED \?CCL15
|
|
PRINTR "Holmes calls out, ""Watson! I'm still tied up!"" You pause and look back, torn by indecision."
|
|
?CCL15: EQUAL? GL-PRSA,V?ENTER,V?THROUGH \?CCL19
|
|
EQUAL? GL-PLACE-CUR,RM-LAIR \FALSE
|
|
CALL2 RT-DO-WALK,P?OUT
|
|
RSTACK
|
|
?CCL19: EQUAL? GL-PRSA,V?UNLOCK \?CCL24
|
|
EQUAL? GL-PRSI,TH-LAIR-KEY \?CCL24
|
|
FSET? LG-LAIR-DOOR,FL-LOCKED \?CCL24
|
|
FCLEAR LG-LAIR-DOOR,FL-LOCKED
|
|
ICALL RT-CYOU-MSG,STR?821,STR?822
|
|
ICALL2 RT-THEO-PRINT,LG-LAIR-DOOR
|
|
PRINTR "."
|
|
?CCL24: EQUAL? GL-PRSA,V?LOCK \FALSE
|
|
EQUAL? GL-PRSI,TH-LAIR-KEY \FALSE
|
|
FSET? LG-LAIR-DOOR,FL-OPENED /FALSE
|
|
FSET? LG-LAIR-DOOR,FL-LOCKED /FALSE
|
|
FSET LG-LAIR-DOOR,FL-LOCKED
|
|
ICALL RT-CYOU-MSG,STR?808,STR?809
|
|
ICALL2 RT-THEO-PRINT,LG-LAIR-DOOR
|
|
PRINTR "."
|
|
|
|
|
|
.FUNCT RT-AC-LG-JERICHO-PARLOUR-DOOR
|
|
EQUAL? GL-PRSA,V?ENTER,V?THROUGH \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-SOUTH-AISLE \?CCL6
|
|
CALL2 RT-DO-WALK,P?SOUTH
|
|
RSTACK
|
|
?CCL6: EQUAL? GL-PLACE-CUR,RM-JERICHO-PARLOUR \FALSE
|
|
CALL2 RT-DO-WALK,P?NORTH
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-SHOPS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The shops are closed for the Jubilee."
|
|
?CCL3: EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH \FALSE
|
|
PRINTR "The shops are all closed for the Jubilee."
|
|
|
|
|
|
.FUNCT RT-AC-LG-WATER,CONTEXT,CLASS,CAP?
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
EQUAL? CLASS,K-DESC-A \?CCL6
|
|
PUSH TRUE-VALUE
|
|
JUMP ?CND4
|
|
?CCL6: PUSH FALSE-VALUE
|
|
?CND4: ICALL PRINT-SDESC,STR?823,CLASS,STACK,FALSE-VALUE
|
|
RTRUE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? \?CCL10
|
|
EQUAL? GL-PRSA,V?ENTER,V?LEAP \?CCL13
|
|
EQUAL? GL-WINNER,CH-PLAYER \?CCL16
|
|
PRINTR "You may not remember this, but you can't swim."
|
|
?CCL16: PRINTR "That's not very polite."
|
|
?CCL13: EQUAL? GL-PRSA,V?DRINK \?CCL18
|
|
PRINT K-YUCK-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL18: EQUAL? GL-PRSA,V?EXAMINE \?CCL20
|
|
PRINTR "The water is black, oily, slimy, dirty, and otherwise unwholesome-looking."
|
|
?CCL20: EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL22
|
|
PRINTR "The water is so black and oily that you can't see a thing."
|
|
?CCL22: EQUAL? GL-PRSA,V?REACH-IN,V?SEARCH \?CCL24
|
|
PRINTR "Slimy things brush up against your hand, so you quickly pull it back."
|
|
?CCL24: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
?CCL10: ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSA,V?PUT,V?PUT-ON \FALSE
|
|
FSET? GL-PRSO,FL-BODYPART /?CTR33
|
|
EQUAL? GL-PRSO,CH-ME,CH-PLAYER \?CCL34
|
|
?CTR33: PRINT K-YUCK-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL34: EQUAL? GL-PRSO,TH-ANCHOR,PSEUDO-OBJECT /?CTR38
|
|
LOC GL-PRSO
|
|
EQUAL? STACK,GLOBAL-OBJECTS,LOCAL-GLOBALS \?CCL39
|
|
?CTR38: ICALL RT-PERFORM,V?DROP,GL-PRSO
|
|
RTRUE
|
|
?CCL39: EQUAL? GL-PRSO,CH-TRAINED-PIGEON \?CCL43
|
|
REMOVE GL-PRSO
|
|
ICALL1 RT-KILL-PIGEON
|
|
PRINTI "The pigeon struggles briefly, its feathers too wet to fly, then sinks below the water."
|
|
RTRUE
|
|
?CCL43: REMOVE GL-PRSO
|
|
FCLEAR GL-PRSO,FL-WORN
|
|
PRINTR "Plop."
|
|
|
|
|
|
.FUNCT RT-AC-LG-UP-DOWN-STREAM,CONTEXT
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
GETP LG-UP-DOWN-STREAM,P?OBJ-NOUN
|
|
PRINTB STACK
|
|
RTRUE
|
|
?CCL3: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
ICALL1 RT-IMPOSSIBLE-MSG
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-LG-BRITISH-MUSEUM-DOOR
|
|
EQUAL? GL-PRSA,V?ENTER,V?THROUGH \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-GREAT-RUSSELL-ST \?CCL6
|
|
CALL2 RT-DO-WALK,P?NORTH
|
|
RSTACK
|
|
?CCL6: EQUAL? GL-PLACE-CUR,RM-BRITISH-MUSEUM \FALSE
|
|
CALL2 RT-DO-WALK,P?SOUTH
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-WESTMINSTER-DOOR
|
|
EQUAL? GL-PRSA,V?ENTER,V?THROUGH \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-BROAD-SANCTUARY \?CCL6
|
|
CALL2 RT-DO-WALK,P?EAST
|
|
RSTACK
|
|
?CCL6: EQUAL? GL-PLACE-CUR,RM-NAVE \FALSE
|
|
CALL2 RT-DO-WALK,P?WEST
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-PLAQUES,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It looks mighty like a plaque."
|
|
?CCL3: EQUAL? GL-PRSA,V?TAKE \?CCL5
|
|
PRINTI "The plaque is firmly attached to the "
|
|
EQUAL? GL-PLACE-CUR,RM-MANUSCRIPT-ROOM \?CCL8
|
|
PRINTI "desk"
|
|
JUMP ?CND6
|
|
?CCL8: PRINTI "wall"
|
|
?CND6: PRINTR ". You can't remove it."
|
|
?CCL5: EQUAL? GL-PRSA,V?READ,V?EXAMINE \?CCL10
|
|
EQUAL? GL-PLACE-CUR,RM-BROAD-SANCTUARY \?CCL13
|
|
SET 'GL-WINDOW,PT?307
|
|
JUMP ?CND11
|
|
?CCL13: EQUAL? GL-PLACE-CUR,RM-MANUSCRIPT-ROOM \?CCL15
|
|
SET 'GL-WINDOW,PT?407
|
|
JUMP ?CND11
|
|
?CCL15: EQUAL? GL-PLACE-CUR,RM-MADAME-TUSSAUDS \?CCL17
|
|
SET 'GL-WINDOW,PT?507
|
|
JUMP ?CND11
|
|
?CCL17: EQUAL? GL-PLACE-CUR,RM-GREAT-RUSSELL-ST \?CCL19
|
|
SET 'GL-WINDOW,PT?607
|
|
JUMP ?CND11
|
|
?CCL19: EQUAL? GL-PLACE-CUR,RM-MONUMENT \?CCL21
|
|
SET 'GL-WINDOW,PT?707
|
|
JUMP ?CND11
|
|
?CCL21: EQUAL? GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \?CCL23
|
|
SET 'GL-WINDOW,PT?807
|
|
JUMP ?CND11
|
|
?CCL23: EQUAL? GL-PLACE-CUR,RM-THREADNEEDLE-ST \?CCL25
|
|
SET 'GL-WINDOW,PT?907
|
|
JUMP ?CND11
|
|
?CCL25: EQUAL? GL-PLACE-CUR,RM-TOWER-ENTRANCE \?CCL27
|
|
SET 'GL-WINDOW,PT?1007
|
|
JUMP ?CND11
|
|
?CCL27: EQUAL? GL-PLACE-CUR,RM-TRAFALGAR-SQUARE \?CCL29
|
|
SET 'GL-WINDOW,PT?1107
|
|
JUMP ?CND11
|
|
?CCL29: EQUAL? GL-PLACE-CUR,RM-VICTORIA-STREET \?CCL31
|
|
SET 'GL-WINDOW,PT?1207
|
|
JUMP ?CND11
|
|
?CCL31: EQUAL? GL-PLACE-CUR,RM-SWAN-LANE \?CCL33
|
|
SET 'GL-WINDOW,PT?1307
|
|
JUMP ?CND11
|
|
?CCL33: EQUAL? GL-PLACE-CUR,RM-JERUSALEM-CHAMBER \?CCL35
|
|
SET 'GL-WINDOW,PT?1407
|
|
JUMP ?CND11
|
|
?CCL35: SET 'GL-WINDOW,PT?1607
|
|
?CND11: ICALL2 RT-WINDOW,GL-WINDOW
|
|
SET 'GL-WINDOW,FALSE-VALUE
|
|
RTRUE
|
|
?CCL10: EQUAL? GL-PRSA,V?PUT,V?PUT-ON \FALSE
|
|
ZERO? GL-NOW-PRSI? /FALSE
|
|
PRINTI "Putting anything on "
|
|
ICALL2 RT-THEO-PRINT,LG-PLAQUES
|
|
PRINTI " would"
|
|
CALL1 RT-WASTE-OF-TIME-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-DF-LG-WAX-STATUES,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
ICALL PRINT-SDESC,STR?824,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-MADAME-TUSSAUDS \?CCL8
|
|
PRINTR "The statues are of King John, Sir Francis Drake, Sir Walter Raleigh, and William the Conqueror."
|
|
?CCL8: EQUAL? GL-PLACE-CUR,RM-CHAMBER-OF-HORRORS \FALSE
|
|
PRINTR "The statues are of Guy Fawkes, Charles I, and Saint Thomas Becket."
|
|
|
|
|
|
.FUNCT RT-AC-LG-WINDOW,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
EQUAL? GL-PLACE-CUR,RM-221B-BAKER-ST \?CCL6
|
|
PRINTR "It is a bow window, far above your head."
|
|
?CCL6: EQUAL? GL-PLACE-CUR,RM-SOUTH-TRANSEPT \?CCL8
|
|
PRINTI "It is the largest rose window in all England"
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CND9
|
|
PRINT K-BRIGHTENS-UP-MSG
|
|
?CND9: PRINTR "."
|
|
?CCL8: EQUAL? GL-PLACE-CUR,RM-NORTH-TRANSEPT \FALSE
|
|
PRINTI "It is set high in the north wall of the Abbey"
|
|
CALL1 RT-TIME-OF-DAY
|
|
EQUAL? STACK,1,2,3 \?CND13
|
|
PRINT K-BRIGHTENS-UP-MSG
|
|
?CND13: PRINTR "."
|
|
?CCL3: EQUAL? GL-PRSA,V?SHOOT \?CCL16
|
|
ZERO? GL-NOW-PRSI? \?CCL16
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
?CCL16: IN? GL-WINNER,RM-SOUTH-TRANSEPT /?CTR19
|
|
IN? GL-WINNER,RM-NORTH-TRANSEPT \?CCL20
|
|
?CTR19: EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH,V?LOOK-OUTSIDE \?CCL25
|
|
PRINTR "You cannot see through the stained-glass window."
|
|
?CCL25: CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /FALSE
|
|
ICALL2 RT-CTHEO-PRINT,LG-WINDOW
|
|
PRINTR " is too high."
|
|
?CCL20: IN? GL-WINNER,RM-221B-BAKER-ST \?CCL29
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /?CCL32
|
|
ICALL2 RT-CTHEO-PRINT,LG-WINDOW
|
|
PRINTR " is too high."
|
|
?CCL32: EQUAL? GL-PRSA,V?LOOK-INSIDE,V?LOOK-OUTSIDE,V?SEARCH \FALSE
|
|
ICALL2 RT-CTHEO-PRINT,LG-WINDOW
|
|
PRINTR " is too high to see in."
|
|
?CCL29: IN? GL-WINNER,RM-HOLMES-STUDY \FALSE
|
|
EQUAL? GL-PRSA,V?LOOK-INSIDE,V?LOOK-OUTSIDE,V?SEARCH \?CCL39
|
|
PRINTI "You look down into Baker Street."
|
|
CRLF
|
|
CALL2 RT-DESCRIBE-PLACE-CONTENTS,RM-221B-BAKER-ST
|
|
RSTACK
|
|
?CCL39: EQUAL? GL-PRSA,V?MUNG \?CCL41
|
|
ICALL2 RT-CTHEO-PRINT,LG-WINDOW
|
|
PRINTR " is made of reinforced glass. It can't be broken."
|
|
?CCL41: EQUAL? GL-PRSA,V?OPEN \FALSE
|
|
ICALL2 RT-CTHEO-PRINT,LG-WINDOW
|
|
PRINTR " is jammed shut. It can't be opened."
|
|
|
|
|
|
.FUNCT RT-AC-LG-TOMBS-ABBEY,CONTEXT
|
|
GETP LG-TOMBS-ABBEY,P?OBJ-NOUN
|
|
EQUAL? STACK,W?ABBEY \?CCL3
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL6
|
|
PRINTI "Abbey"
|
|
RTRUE
|
|
?CCL6: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL10
|
|
EQUAL? GL-PLACE-CUR,RM-NAVE \?CCL13
|
|
CALL1 RT-ALREADY-IN-ROOM-MSG
|
|
RSTACK
|
|
?CCL13: EQUAL? GL-PLACE-CUR,RM-BROAD-SANCTUARY \FALSE
|
|
CALL2 RT-DO-WALK,P?EAST
|
|
RSTACK
|
|
?CCL10: EQUAL? GL-PRSA,V?EXIT \?CCL17
|
|
EQUAL? GL-PLACE-CUR,RM-NAVE \?CCL20
|
|
CALL2 RT-DO-WALK,P?WEST
|
|
RSTACK
|
|
?CCL20: CALL1 RT-NOT-IN-ROOM-MSG
|
|
RSTACK
|
|
?CCL17: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-IMPOSSIBLE-MSG
|
|
RSTACK
|
|
?CCL3: EQUAL? CONTEXT,K-M-SDESC \?CCL25
|
|
PRINTI "tombs"
|
|
RTRUE
|
|
?CCL25: FSET? GL-PLACE-CUR,FL-INDOORS \?CTR26
|
|
EQUAL? GL-PLACE-CUR,RM-JERICHO-PARLOUR,RM-JERUSALEM-CHAMBER,RM-NORTH-CLOISTER \?CCL27
|
|
?CTR26: ICALL2 RT-CANT-SEE-ANY-MSG,LG-TOMBS-ABBEY
|
|
RTRUE
|
|
?CCL27: EQUAL? CONTEXT,K-M-DESCFCN \?CCL31
|
|
EQUAL? GL-PLACE-CUR,RM-SOUTH-AMBULATORY,RM-NORTH-AMBULATORY \?CCL34
|
|
PRINTR "There are so many of them! None stands out in particular."
|
|
?CCL34: EQUAL? GL-PLACE-CUR,RM-CONFESSOR-CHAPEL \?CCL36
|
|
PRINTR "Two of them are especially interesting. One is the tomb of Edward the Confessor. The other is of Henry V."
|
|
?CCL36: PRINTR "One tomb in particular catches your eye."
|
|
?CCL31: ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-SHOOT-DEAD-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-STREETLIGHT
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /?CCL3
|
|
ICALL2 RT-CTHEO-PRINT,LG-STREETLIGHT
|
|
PRINTR " is too high."
|
|
?CCL3: ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-STAIRWAY
|
|
EQUAL? GL-PRSA,V?CLIMB-UP \?CCL3
|
|
CALL2 RT-DO-WALK,P?UP
|
|
RSTACK
|
|
?CCL3: EQUAL? GL-PRSA,V?CLIMB-DOWN \FALSE
|
|
CALL2 RT-DO-WALK,P?DOWN
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-SHAFT-OF-LIGHT,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "Well, it's not really a shaft of light. It's more like a diffused murkiness. But any light that penetrates an English church from the outside counts as a shaft."
|
|
?CCL3: ZERO? GL-NOW-PRSI? \?CCL5
|
|
EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
?CCL5: ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSA,V?PUT \FALSE
|
|
EQUAL? GL-PRSO,TH-MAGNIFYING-GLASS \?CCL16
|
|
CALL1 RT-WHO-SAYS?
|
|
EQUAL? STACK,CH-HOLMES \?CCL19
|
|
PRINTR """Your Afghan experience is showing, Watson. The hot sun there would surely produce rays capable, when focused, of producing a flame. Alas, our English sun is too weak to produce such an effect."""
|
|
?CCL19: PRINTR "The rays from England's sun are too weak to focus."
|
|
?CCL16: EQUAL? GL-PRSO,TH-GREEN-PAPER,TH-WHITE-PAPER,TH-BLUE-PAPER /FALSE
|
|
EQUAL? GL-PRSO,TH-ORANGE-PAPER,TH-YELLOW-PAPER,TH-BROWN-PAPER /FALSE
|
|
PRINTI "Putting "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " in "
|
|
ICALL1 RT-THEI-PRINT
|
|
CALL1 RT-WASTE-OF-TIME-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-LG-RAVENS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The ravens stare at you with baleful eyes."
|
|
?CCL3: EQUAL? CONTEXT,K-M-WINNER \?CCL5
|
|
ICALL2 RT-CTHEO-PRINT,LG-RAVENS
|
|
PRINTR " caw raucously in response."
|
|
?CCL5: ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?TAKE \?CCL10
|
|
ICALL2 RT-CTHEO-PRINT,LG-RAVENS
|
|
PRINTR " fly out of reach."
|
|
?CCL10: EQUAL? GL-PRSA,V?SHOOT \?CCL12
|
|
ICALL RT-SHOOT-BIRDS,LG-RAVENS,STR?825
|
|
RTRUE
|
|
?CCL12: EQUAL? GL-PRSA,V?LISTEN \FALSE
|
|
PRINTR "None of the ravens is quothing ""Nevermore."""
|
|
|
|
|
|
.FUNCT RT-DF-LG-BOATS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL5
|
|
ICALL2 RT-CTHEO-PRINT,LG-BOATS
|
|
PRINTR " are shrouded in fog."
|
|
?CCL5: ICALL2 RT-CTHEO-PRINT,LG-BOATS
|
|
PRINTR " bob merrily on the river."
|
|
|
|
|
|
.FUNCT RT-AC-LG-HOLMES-HOUSE
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL3
|
|
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL,RM-PARLOUR,RM-VESTIBULE /?CTR5
|
|
EQUAL? GL-PLACE-CUR,RM-HOLMES-STUDY,RM-HOLMES-BEDROOM \?CCL6
|
|
?CTR5: ICALL1 RT-ALREADY-IN-ROOM-MSG
|
|
RTRUE
|
|
?CCL6: EQUAL? GL-PLACE-CUR,RM-221B-BAKER-ST \FALSE
|
|
ICALL2 RT-DO-WALK,P?WEST
|
|
RTRUE
|
|
?CCL3: EQUAL? GL-PRSA,V?EXIT \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \?CCL15
|
|
ICALL2 RT-DO-WALK,P?EAST
|
|
RTRUE
|
|
?CCL15: EQUAL? GL-PLACE-CUR,RM-PARLOUR,RM-VESTIBULE,RM-HOLMES-STUDY /?CTR16
|
|
EQUAL? GL-PLACE-CUR,RM-HOLMES-BEDROOM \?CCL17
|
|
?CTR16: PRINT K-SPECIFY-DIR-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL17: ICALL1 RT-NOT-IN-ROOM-MSG
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-LG-PEDESTAL,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
ICALL PRINT-SDESC,STR?826,CLASS,FALSE-VALUE,FALSE-VALUE
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
EQUAL? GL-PLACE-CUR,RM-TRAFALGAR-SQUARE \FALSE
|
|
PRINTR "On the pedestal you see a bronze relief."
|
|
|
|
|
|
.FUNCT RT-AC-LG-TOWER
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL3
|
|
EQUAL? GL-PLACE-CUR,RM-BYWARD-TOWER,RM-BLOODY-TOWER,RM-WAKEFIELD-TOWER /?CTR5
|
|
EQUAL? GL-PLACE-CUR,RM-JEWEL-ROOM,RM-DUNGEON,RM-TORTURE-ROOM /?CTR5
|
|
EQUAL? GL-PLACE-CUR,RM-WHITE-TOWER,RM-BOWYER-TOWER \?CCL6
|
|
?CTR5: CALL1 RT-ALREADY-IN-ROOM-MSG
|
|
RSTACK
|
|
?CCL6: EQUAL? GL-PLACE-CUR,RM-OUTER-WARD,RM-TOWER-GREEN \?CCL11
|
|
PRINT K-SPECIFY-DIR-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL11: EQUAL? GL-PLACE-CUR,RM-OUTSIDE-TRAITORS-GATE \?CCL13
|
|
CALL2 RT-DO-WALK,P?NORTH
|
|
RSTACK
|
|
?CCL13: EQUAL? GL-PLACE-CUR,RM-DRAWBRIDGE,RM-TOWER-ENTRANCE \FALSE
|
|
CALL2 RT-DO-WALK,P?EAST
|
|
RSTACK
|
|
?CCL3: EQUAL? GL-PRSA,V?EXIT \?CCL17
|
|
EQUAL? GL-PLACE-CUR,RM-BLOODY-TOWER,RM-WAKEFIELD-TOWER,RM-WHITE-TOWER /?CTR19
|
|
EQUAL? GL-PLACE-CUR,RM-BOWYER-TOWER,RM-BYWARD-TOWER \?CCL20
|
|
?CTR19: CALL2 RT-DO-WALK,P?OUT
|
|
RSTACK
|
|
?CCL20: EQUAL? GL-PLACE-CUR,RM-DUNGEON,RM-TORTURE-ROOM \?CCL24
|
|
CALL2 RT-DO-WALK,P?UP
|
|
RSTACK
|
|
?CCL24: EQUAL? GL-PLACE-CUR,RM-JEWEL-ROOM \?CCL26
|
|
CALL2 RT-DO-WALK,P?DOWN
|
|
RSTACK
|
|
?CCL26: EQUAL? GL-PLACE-CUR,RM-INSIDE-TRAITORS-GATE \?CCL28
|
|
CALL2 RT-DO-WALK,P?SOUTH
|
|
RSTACK
|
|
?CCL28: EQUAL? GL-PLACE-CUR,RM-OUTER-WARD,RM-TOWER-GREEN \?CCL30
|
|
PRINT K-SPECIFY-DIR-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL30: CALL1 RT-NOT-IN-ROOM-MSG
|
|
RSTACK
|
|
?CCL17: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-IMPOSSIBLE-MSG
|
|
RSTACK
|
|
|
|
.ENDI
|