mirror of
https://github.com/historicalsource/sherlock
synced 2024-04-26 22:19:43 +03:00
2641 lines
74 KiB
Plaintext
2641 lines
74 KiB
Plaintext
|
|
|
|
.FUNCT RT-DF-TH-ROOM,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
FSET? GL-PLACE-CUR,FL-INDOORS /?CCL5
|
|
PRINTR "You're not inside a room."
|
|
?CCL5: CALL1 V-LOOK
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-NOT-HERE-OBJECT
|
|
CALL1 RT-TH-NOT-HERE-OBJECT
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-INTDIR
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL3
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
?CCL3: CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /FALSE
|
|
ICALL1 RT-IMPOSSIBLE-MSG
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-TIME,CONTEXT
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
GETP TH-TIME,P?OBJ-NOUN
|
|
EQUAL? STACK,W?MINUTE,W?MINUTES \?CCL6
|
|
PRINTI "minute"
|
|
RTRUE
|
|
?CCL6: PRINTI "hour"
|
|
RTRUE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL10
|
|
ICALL1 RT-IMPOSSIBLE-MSG
|
|
RTRUE
|
|
?CCL10: CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /?CCL12
|
|
ICALL1 RT-IMPOSSIBLE-MSG
|
|
RTRUE
|
|
?CCL12: INTBL? GL-PRSA,GL-SEE-VERBS+2,20 \FALSE
|
|
ICALL1 RT-IMPOSSIBLE-MSG
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-HANDS
|
|
ZERO? GL-NOW-PRSI? \?CCL3
|
|
EQUAL? GL-PRSI,FALSE-VALUE \?CCL6
|
|
EQUAL? GL-PRSA,V?TAKE,V?TAKE-OFF \?CCL6
|
|
FSET? TH-HANDS,FL-LOCKED \?CCL6
|
|
FCLEAR TH-HANDS,FL-LOCKED
|
|
ICALL RT-CYOU-MSG,STR?697,STR?698
|
|
SET 'HEARD-SWING?,FALSE-VALUE
|
|
ICALL2 RT-THEO-PRINT,TH-HANDS
|
|
PRINTI " off of "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL6: EQUAL? GL-PRSI,TH-EARS \FALSE
|
|
EQUAL? GL-PRSA,V?TAKE \?CCL14
|
|
FSET? TH-HANDS,FL-LOCKED /?CCL17
|
|
PRINTI "Your hands are not on "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL17: FCLEAR TH-HANDS,FL-LOCKED
|
|
ICALL RT-CYOU-MSG,STR?697,STR?698
|
|
SET 'HEARD-SWING?,FALSE-VALUE
|
|
ICALL2 RT-THEO-PRINT,TH-HANDS
|
|
PRINTI " off of "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL14: EQUAL? GL-PRSA,V?PUT-ON \FALSE
|
|
FSET? TH-HANDS,FL-LOCKED \?CCL22
|
|
PRINTI "Your hands are already on "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL22: FSET TH-HANDS,FL-LOCKED
|
|
ICALL RT-CYOU-MSG,STR?685,STR?686
|
|
ICALL2 RT-THEO-PRINT,TH-HANDS
|
|
PRINTI " on "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL3: ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSO,TH-EARS \FALSE
|
|
EQUAL? GL-PRSA,V?COVER \FALSE
|
|
FSET? TH-HANDS,FL-LOCKED \?CCL33
|
|
PRINTI "Your hands are already on "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL33: FSET TH-HANDS,FL-LOCKED
|
|
ICALL RT-CYOU-MSG,STR?685,STR?686
|
|
ICALL2 RT-THEO-PRINT,TH-HANDS
|
|
PRINTI " on "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
|
|
|
|
.FUNCT RT-AC-TH-WATSONS-HEART
|
|
EQUAL? GL-PRSA,V?LISTEN \FALSE
|
|
FSET? TH-COTTON-BALLS,FL-WORN \?CCL6
|
|
ICALL1 RT-CYOU-MSG
|
|
PRINTI "cannot hear a thing with "
|
|
ICALL2 RT-THEO-PRINT,TH-COTTON-BALLS
|
|
PRINTI " in "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
JUMP ?CND4
|
|
?CCL6: FSET? TH-STETHOSCOPE,FL-WORN \?CCL8
|
|
EQUAL? GL-PLACE-CUR,RM-BAR-OF-GOLD,RM-LAIR,RM-SWAN-LANE \?CCL11
|
|
PUSH 8
|
|
JUMP ?CND9
|
|
?CCL11: PUSH 6
|
|
?CND9: ICALL SOUNDS,S-HEART2,S-START,STACK,8
|
|
PRINTI "Your heart is beating "
|
|
EQUAL? GL-PLACE-CUR,RM-BAR-OF-GOLD,RM-LAIR,RM-SWAN-LANE \?CCL14
|
|
PRINTI "so loudly you're surprised everyone can't hear it"
|
|
JUMP ?CND4
|
|
?CCL14: PRINTI "normally"
|
|
JUMP ?CND4
|
|
?CCL8: ICALL1 RT-CYOU-MSG
|
|
PRINTI "should wear the stethoscope, first"
|
|
?CND4: PRINTR "."
|
|
|
|
|
|
.FUNCT RT-AC-TH-EARS
|
|
ZERO? GL-NOW-PRSI? /?CCL3
|
|
EQUAL? GL-PRSA,V?PUT \?CCL6
|
|
EQUAL? GL-PRSO,TH-HANDS,TH-STETHOSCOPE /FALSE
|
|
EQUAL? GL-PRSO,TH-COTTON-BALLS \?CCL11
|
|
FSET? GL-PRSO,FL-WORN \?CCL14
|
|
ICALL1 RT-CTHEO-PRINT
|
|
ICALL1 RT-IS-ARE-MSG
|
|
PRINTI "already in "
|
|
ICALL1 RT-THEI-PRINT
|
|
PRINTR "."
|
|
?CCL14: FSET? TH-STETHOSCOPE,FL-WORN \?CCL16
|
|
ICALL1 RT-CYOU-MSG
|
|
ICALL RT-WOULD-HAVE-TO-MSG,STR?727,TH-STETHOSCOPE
|
|
PRINTR " first."
|
|
?CCL16: SET 'GL-LISTEN-OBJ,FALSE-VALUE
|
|
FSET TH-COTTON-BALLS,FL-WORN
|
|
ICALL RT-CYOU-MSG,STR?685,STR?686
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " in "
|
|
ICALL1 RT-THEI-PRINT
|
|
PRINTR "."
|
|
?CCL11: PRINTI "You cannot put that in "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL6: EQUAL? GL-PRSA,V?TAKE \?CCL18
|
|
EQUAL? GL-PRSO,TH-HANDS,TH-STETHOSCOPE /FALSE
|
|
EQUAL? GL-PRSO,TH-COTTON-BALLS \FALSE
|
|
SET 'GL-LISTEN-OBJ,FALSE-VALUE
|
|
FCLEAR TH-COTTON-BALLS,FL-WORN
|
|
PRINTR "You take the cotton balls out of your ears."
|
|
?CCL18: EQUAL? GL-PRSA,V?EMPTY,V?EMPTY-INTO \FALSE
|
|
ICALL1 RT-CYOU-MSG
|
|
PRINTI "cannot empty anything into "
|
|
ICALL1 RT-THEI-PRINT
|
|
PRINTR "."
|
|
?CCL3: ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?LOOK-INSIDE,V?LOOK-ON,V?EXAMINE \?CCL30
|
|
PRINT K-EYES-HINGED-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL30: EQUAL? GL-PRSA,V?REACH-IN,V?SEARCH \FALSE
|
|
FSET? TH-STETHOSCOPE,FL-WORN \?CCL35
|
|
ICALL RT-CYOU-MSG,STR?728,STR?729
|
|
ICALL2 RT-THEO-PRINT,TH-STETHOSCOPE
|
|
PRINTR "."
|
|
?CCL35: FSET? TH-COTTON-BALLS,FL-WORN \FALSE
|
|
ICALL RT-CYOU-MSG,STR?728,STR?729
|
|
ICALL2 RT-THEO-PRINT,TH-COTTON-BALLS
|
|
PRINTR "."
|
|
|
|
|
|
.FUNCT RT-AC-TH-HEAD
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?TOUCH,V?SEARCH \?CCL8
|
|
FSET? TH-WATSONS-HAT,FL-WORN \?CCL8
|
|
PRINTI "You are wearing "
|
|
ICALL2 RT-THEO-PRINT,TH-WATSONS-HAT
|
|
PRINTR "."
|
|
?CCL8: EQUAL? GL-PRSA,V?EXAMINE,V?LOOK-ON \FALSE
|
|
PRINT K-EYES-HINGED-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-BREATH
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL8
|
|
PRINTI "It is not cold enough to see "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTR "."
|
|
?CCL8: EQUAL? GL-PRSA,V?SMELL \?CCL10
|
|
PRINTR "It smells no worse than usual."
|
|
?CCL10: EQUAL? GL-PRSA,V?RELEASE \?CCL12
|
|
CALL1 V-EXHALE
|
|
RSTACK
|
|
?CCL12: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINTR "It's bad, but it doesn't deserve to die."
|
|
|
|
|
|
.FUNCT RT-AC-TH-CLOTHES
|
|
EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL3
|
|
ICALL RT-PERFORM,V?LOOK-INSIDE,TH-POCKET
|
|
RTRUE
|
|
?CCL3: EQUAL? GL-PRSA,V?PUT \?CCL5
|
|
EQUAL? GL-PRSI,TH-CLOTHES \?CCL5
|
|
PRINTI "[in "
|
|
ICALL2 RT-THEO-PRINT,TH-POCKET
|
|
PRINTC 93
|
|
CRLF
|
|
ICALL RT-PERFORM,V?PUT,GL-PRSO,TH-POCKET
|
|
RTRUE
|
|
?CCL5: EQUAL? GL-PRSA,V?WEAR \?CCL9
|
|
PRINTR "You are already wearing them."
|
|
?CCL9: EQUAL? GL-PRSA,V?TAKE-OFF,V?DROP,V?RAISE \FALSE
|
|
PRINT K-INAPPROPRIATE-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-WATERMARK,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
CALL2 RT-VISIBLE?,TH-GREEN-PAPER
|
|
ZERO? STACK \FALSE
|
|
CALL2 RT-VISIBLE?,TH-WHITE-PAPER
|
|
ZERO? STACK \FALSE
|
|
CALL2 RT-VISIBLE?,TH-BLUE-PAPER
|
|
ZERO? STACK \FALSE
|
|
CALL2 RT-VISIBLE?,TH-ORANGE-PAPER
|
|
ZERO? STACK \FALSE
|
|
CALL2 RT-VISIBLE?,TH-YELLOW-PAPER
|
|
ZERO? STACK \FALSE
|
|
CALL2 RT-VISIBLE?,TH-BROWN-PAPER
|
|
ZERO? STACK \FALSE
|
|
ICALL RT-CYOU-MSG,STR?655,STR?656
|
|
PRINTI "not see any "
|
|
ICALL2 DPRINT,TH-WATERMARK
|
|
PRINTR "here."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-VISIBLE?,TH-GREEN-PAPER
|
|
ZERO? STACK \?CTR15
|
|
CALL2 RT-VISIBLE?,TH-WHITE-PAPER
|
|
ZERO? STACK \?CTR15
|
|
CALL2 RT-VISIBLE?,TH-BLUE-PAPER
|
|
ZERO? STACK \?CTR15
|
|
CALL2 RT-VISIBLE?,TH-ORANGE-PAPER
|
|
ZERO? STACK \?CTR15
|
|
CALL2 RT-VISIBLE?,TH-YELLOW-PAPER
|
|
ZERO? STACK \?CTR15
|
|
CALL2 RT-VISIBLE?,TH-BROWN-PAPER
|
|
ZERO? STACK /?CCL16
|
|
?CTR15: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
?CCL16: ICALL RT-CYOU-MSG,STR?655,STR?656
|
|
PRINTI "not see any "
|
|
ICALL2 DPRINT,TH-WATERMARK
|
|
PRINTR " here."
|
|
|
|
|
|
.FUNCT RT-AC-TH-SESAME
|
|
EQUAL? GL-PRSA,V?OPEN \?CCL3
|
|
PRINTR "Ali Baba you're not."
|
|
?CCL3: CALL1 RT-TALK-VERB?
|
|
ZERO? STACK \FALSE
|
|
ICALL1 RT-IMPOSSIBLE-MSG
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-RIGHT
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /?CCL6
|
|
CALL1 RT-IMPOSSIBLE-MSG
|
|
RSTACK
|
|
?CCL6: INTBL? GL-PRSA,GL-SEE-VERBS+2,20 \?CCL8
|
|
CALL1 RT-IMPOSSIBLE-MSG
|
|
RSTACK
|
|
?CCL8: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-IMPOSSIBLE-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-LEFT
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /?CCL6
|
|
CALL1 RT-IMPOSSIBLE-MSG
|
|
RSTACK
|
|
?CCL6: INTBL? GL-PRSA,GL-SEE-VERBS+2,20 \?CCL8
|
|
CALL1 RT-IMPOSSIBLE-MSG
|
|
RSTACK
|
|
?CCL8: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-IMPOSSIBLE-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-BULLET-HOLE,NUM,OFF,HOLE,PLACE
|
|
?PRG1: MUL NUM,2 >OFF
|
|
GET GL-HOLES,0
|
|
EQUAL? NUM,STACK /?REP2
|
|
ADD OFF,1
|
|
GET GL-HOLES,STACK
|
|
CALL2 RT-VISIBLE?,STACK
|
|
ZERO? STACK /?CND3
|
|
ADD OFF,2
|
|
GET GL-HOLES,STACK >PLACE
|
|
ZERO? PLACE /?CCL8
|
|
EQUAL? GL-PLACE-CUR,PLACE \?CND3
|
|
?CCL8: SET 'HOLE,TRUE-VALUE
|
|
?REP2: ZERO? HOLE \?CCL13
|
|
CALL2 RT-CANT-SEE-ANY-MSG,TH-BULLET-HOLE
|
|
RSTACK
|
|
?CND3: INC 'NUM
|
|
JUMP ?PRG1
|
|
?CCL13: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINT K-ANNIE-OAKELEY-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-GENERIC-BODY,CONTEXT,CLASS,ADJ,S1,S2,WHICH
|
|
GETP TH-GENERIC-BODY,P?OBJ-ADJ >ADJ
|
|
SET 'WHICH,CH-PLAYER
|
|
EQUAL? ADJ,W?WIGGINS' \?CCL3
|
|
SET 'WHICH,CH-WIGGINS
|
|
JUMP ?CND1
|
|
?CCL3: EQUAL? ADJ,W?HOLMES',W?HOLMES'S \?CCL5
|
|
SET 'WHICH,CH-HOLMES
|
|
JUMP ?CND1
|
|
?CCL5: EQUAL? ADJ,W?HUDSON'S \?CCL7
|
|
SET 'WHICH,CH-HUDSON
|
|
JUMP ?CND1
|
|
?CCL7: EQUAL? ADJ,W?ELIZA'S,W?GIRL'S \?CCL9
|
|
SET 'WHICH,CH-ELIZA-DOOLITTLE
|
|
JUMP ?CND1
|
|
?CCL9: EQUAL? ADJ,W?HER \?CCL11
|
|
CALL2 RT-VISIBLE?,CH-HUDSON
|
|
ZERO? STACK /?CCL14
|
|
SET 'WHICH,CH-HUDSON
|
|
JUMP ?CND1
|
|
?CCL14: SET 'WHICH,CH-ELIZA-DOOLITTLE
|
|
JUMP ?CND1
|
|
?CCL11: EQUAL? ADJ,W?LEFT,W?RIGHT \?CND1
|
|
CALL2 RT-VISIBLE?,CH-WIGGINS
|
|
ZERO? STACK /?CCL18
|
|
SET 'WHICH,CH-WIGGINS
|
|
JUMP ?CND1
|
|
?CCL18: CALL2 RT-VISIBLE?,CH-HOLMES
|
|
ZERO? STACK /?CCL20
|
|
SET 'WHICH,CH-HOLMES
|
|
JUMP ?CND1
|
|
?CCL20: CALL2 RT-VISIBLE?,CH-HUDSON
|
|
ZERO? STACK /?CCL22
|
|
SET 'WHICH,CH-HUDSON
|
|
JUMP ?CND1
|
|
?CCL22: CALL2 RT-VISIBLE?,CH-ELIZA-DOOLITTLE
|
|
ZERO? STACK /?CND1
|
|
SET 'WHICH,CH-ELIZA-DOOLITTLE
|
|
?CND1: EQUAL? WHICH,CH-WIGGINS \?CCL26
|
|
SET 'S1,STR?17
|
|
SET 'S2,STR?730
|
|
JUMP ?CND24
|
|
?CCL26: EQUAL? WHICH,CH-HOLMES \?CCL28
|
|
SET 'S1,STR?1
|
|
SET 'S2,STR?731
|
|
JUMP ?CND24
|
|
?CCL28: EQUAL? WHICH,CH-HUDSON \?CCL30
|
|
SET 'S1,STR?732
|
|
SET 'S2,STR?733
|
|
JUMP ?CND24
|
|
?CCL30: EQUAL? WHICH,CH-ELIZA-DOOLITTLE \?CCL32
|
|
SET 'S1,STR?734
|
|
SET 'S2,STR?735
|
|
JUMP ?CND24
|
|
?CCL32: EQUAL? WHICH,CH-PLAYER \?CND24
|
|
SET 'S1,STR?736
|
|
SET 'S2,STR?737
|
|
?CND24: EQUAL? CONTEXT,K-M-SDESC \?CCL36
|
|
PRINT S1
|
|
RTRUE
|
|
?CCL36: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-VISIBLE?,WHICH
|
|
ZERO? STACK \?CCL40
|
|
ICALL RT-CANT-SEE-ANY-MSG,FALSE-VALUE,S1,TRUE-VALUE
|
|
RETURN 2
|
|
?CCL40: EQUAL? WHICH,CH-ELIZA-DOOLITTLE \?CCL42
|
|
PRINTI "[You do not need to refer to"
|
|
ICALL RT-CLAUSE-PRINT,K-P-NC1,K-P-NC1L
|
|
PRINTI ".]"
|
|
CRLF
|
|
RETURN 2
|
|
?CCL42: PRINTI "[You do not need to refer to any part of "
|
|
PRINT S2
|
|
PRINTI " body.]"
|
|
CRLF
|
|
RETURN 2
|
|
|
|
|
|
.FUNCT RT-AC-TH-POCKET
|
|
EQUAL? GL-PRSA,V?PUT \FALSE
|
|
ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSO,TH-PADDLE,TH-MACE,TH-ANCHOR /?CCL3
|
|
EQUAL? GL-PRSO,TH-LAMP,TH-VIOLIN,TH-PACKET-OF-PAPER /?CCL3
|
|
EQUAL? GL-PRSO,TH-SUIT-OF-ARMOUR,TH-OAR-1,TH-OAR-2 /?CCL3
|
|
EQUAL? GL-PRSO,TH-TORCH,TH-WAX-AX,TH-WAX-HEAD \FALSE
|
|
?CCL3: CALL2 RT-CANT-PUT-IN-ON-MSG,TH-POCKET
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-GUN,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The gun is a six-shot revolver."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?OPEN,V?LOOK-INSIDE,V?SEARCH \FALSE
|
|
PRINTR "The gun is jammed shut. You can't open it."
|
|
|
|
|
|
.FUNCT RT-AC-TH-KNIFE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It's a nasty-looking jackknife."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?CUT \?CCL7
|
|
FSET? TH-KNIFE,FL-OPENED /FALSE
|
|
ICALL2 RT-CTHEO-PRINT,TH-KNIFE
|
|
PRINTR " isn't open."
|
|
?CCL7: EQUAL? GL-PRSA,V?TAKE \FALSE
|
|
SET 'KNIFE-COLD?,FALSE-VALUE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-TH-MAGNIFYING-GLASS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It is of Swiss manufacture, with a precision-ground lens."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSO,TH-SAPPHIRE,TH-EMERALD,TH-OPAL /FALSE
|
|
EQUAL? GL-PRSO,TH-RUBY,TH-TOPAZ,TH-GARNET /FALSE
|
|
EQUAL? GL-PRSO,TH-WESTMINSTER-CLUE,TH-JEWEL-CASE /FALSE
|
|
SET 'GL-P-IT-OBJECT,TH-MAGNIFYING-GLASS
|
|
ZERO? GL-NOW-PRSI? /?CCL12
|
|
EQUAL? GL-PRSA,V?LOOK-THRU \FALSE
|
|
IN? GL-PRSI,CH-PLAYER /?CCL18
|
|
ICALL RT-YOUD-HAVE-TO-MSG,STR?738,GL-PRSI
|
|
RTRUE
|
|
?CCL18: EQUAL? GL-PRSO,TH-MAGNIFYING-GLASS \?CCL20
|
|
ICALL1 RT-IMPOSSIBLE-MSG
|
|
RTRUE
|
|
?CCL20: EQUAL? GL-LASTFOC,GL-PRSO /?CND16
|
|
SET 'GL-LASTFOC,GL-PRSO
|
|
PRINTI "You train the magnifying glass on "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTC 46
|
|
CRLF
|
|
?CND16: FSET? GL-PRSO,FL-PLURAL \?CCL24
|
|
FSET? GL-PRSO,FL-COLLECTIVE /?CCL24
|
|
PRINTI "They appear "
|
|
JUMP ?CND22
|
|
?CCL24: FSET? GL-PRSO,FL-PERSON \?CCL28
|
|
FSET? GL-PRSO,FL-FEMALE \?CCL28
|
|
PRINTI "She appears "
|
|
JUMP ?CND22
|
|
?CCL28: FSET? GL-PRSO,FL-PERSON \?CCL32
|
|
FSET? GL-PRSO,FL-FEMALE /?CCL32
|
|
PRINTI "He appears "
|
|
JUMP ?CND22
|
|
?CCL32: PRINTI "It appears "
|
|
?CND22: PRINTR "much larger now."
|
|
?CCL12: EQUAL? GL-PRSA,V?SHOOT \?CCL36
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINT K-SHATTER-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL36: EQUAL? GL-PRSA,V?LOOK-INSIDE \?CCL38
|
|
PRINTR "Everything appears much larger."
|
|
?CCL38: EQUAL? GL-PRSA,V?ADJUST,V?PLAY \FALSE
|
|
PRINTR "You cannot adjust a magnifying glass."
|
|
|
|
|
|
.FUNCT RT-AC-TH-VIOLIN,CONTEXT,WHO
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It is a Stradivarius violin of exceptional quality."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?PLAY \FALSE
|
|
IN? TH-VIOLIN,GL-WINNER /?CND8
|
|
ICALL RT-CYOU-MSG,STR?228,STR?229
|
|
PRINTI "not holding "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTR "."
|
|
?CND8: ICALL2 SOUNDS,S-BADVIOL
|
|
IN? TH-PHIAL,CH-HOLMES \?CND10
|
|
EQUAL? GL-PLACE-CUR,RM-HOLMES-STUDY \?CND10
|
|
PRINTI "Even the grotesque noises"
|
|
ICALL RT-YOU-MSG,STR?739,STR?740
|
|
PRINTR "with the violin aren't enough to distract Holmes's attention from the phial."
|
|
?CND10: CALL1 RT-ANYONE-HERE? >WHO
|
|
ZERO? WHO /?CCL16
|
|
FSET WHO,FL-ASLEEP
|
|
CALL1 RT-ANYONE-HERE?
|
|
ZERO? STACK /?CCL19
|
|
PRINTI "Everyone"
|
|
JUMP ?CND17
|
|
?CCL19: ICALL2 RT-CTHEO-PRINT,WHO
|
|
?CND17: FCLEAR WHO,FL-ASLEEP
|
|
PRINTI " grimace"
|
|
ICALL2 RT-S-NOS-MSG,WHO
|
|
PRINTI " in pain and glare"
|
|
ICALL2 RT-S-NOS-MSG,WHO
|
|
PRINTR " at you."
|
|
?CCL16: PRINTR "Even you cannot abide the grotesque screeches that emanate from the tortured instrument, so you quickly stop."
|
|
|
|
|
|
.FUNCT RT-AC-TH-PHIAL,HITS
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL3
|
|
SET 'HITS,TH-PHIAL-AUX1
|
|
ADD 1,HITS >TH-PHIAL-AUX1
|
|
ZERO? HITS \?CCL6
|
|
PRINTI "Nice shot! The phial explodes. You hear a muffled scream from downstairs as Mrs Hudson lets out a shriek."
|
|
CRLF
|
|
CRLF
|
|
PRINT K-HOLMES-LICKS-MSG
|
|
PRINTI "eyes begin to cloud over from the small dose you have caused him to take."
|
|
CRLF
|
|
CRLF
|
|
PRINT K-ANOTHER-PHIAL-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL6: EQUAL? 1,HITS \?CCL8
|
|
PRINTI "The phial explodes. From downstairs you hear a dull thud as Mrs Hudson faints and hits the floor."
|
|
CRLF
|
|
CRLF
|
|
PRINT K-HOLMES-LICKS-MSG
|
|
PRINTI "body stiffens as the increased dosage of the drug enters his system."
|
|
CRLF
|
|
CRLF
|
|
PRINT K-ANOTHER-PHIAL-MSG
|
|
CRLF
|
|
CRLF
|
|
PRINTR "As a doctor, you know that another dose may be fatal."
|
|
?CCL8: EQUAL? 2,HITS \FALSE
|
|
PRINTI "That persistent, are you? Too bad. The chill you caught from the damp air outside causes you to sneeze just as you pull the trigger. You have shot and killed Sherlock Holmes."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Inspector Lestrade appears at the door and says,"
|
|
PRINT K-PLUG-HIM-MYSELF-MSG
|
|
CRLF
|
|
CRLF
|
|
PRINT K-LESTRADE-ARRESTS-MSG
|
|
CRLF
|
|
CRLF
|
|
ICALL1 RT-QSR
|
|
RFALSE
|
|
?CCL3: CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /FALSE
|
|
ICALL2 RT-HOLMES-HITS,TH-PHIAL
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-HOLMES-HITS,THING
|
|
PRINTI "Holmes is faster than you are. He moves "
|
|
ICALL2 RT-THEO-PRINT,THING
|
|
PRINTI " beyond your reach and absentmindedly hits you on the head with his free hand."
|
|
CRLF
|
|
CRLF
|
|
PRINTR "Holmes continues staring at the phial."
|
|
|
|
|
|
.FUNCT RT-AC-TH-GREEN-PAPER
|
|
CALL2 RT-PROCESS-PAPER,TH-GREEN-PAPER
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-WHITE-PAPER
|
|
CALL2 RT-PROCESS-PAPER,TH-WHITE-PAPER
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-BLUE-PAPER
|
|
CALL2 RT-PROCESS-PAPER,TH-BLUE-PAPER
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-ORANGE-PAPER
|
|
CALL2 RT-PROCESS-PAPER,TH-ORANGE-PAPER
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-YELLOW-PAPER
|
|
CALL2 RT-PROCESS-PAPER,TH-YELLOW-PAPER
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-BROWN-PAPER
|
|
CALL2 RT-PROCESS-PAPER,TH-BROWN-PAPER
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-ELIZABETH-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The tomb is that of Elizabeth and her half-sister, Mary Tudor. It is surrounded by twelve black marble pillars, and on the base is an inscription."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,1
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-NEWTON-TOMB,CONTEXT,CLASS,WRD
|
|
GETP TH-NEWTON-TOMB,P?OBJ-NOUN >WRD
|
|
EQUAL? WRD,W?STATUE \?CCL3
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL6
|
|
CALL PRINT-SDESC,STR?741,CLASS,FALSE-VALUE,FALSE-VALUE
|
|
RSTACK
|
|
?CCL6: EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "The great mathematician is shown reclining in a pensive mood."
|
|
?CCL3: EQUAL? WRD,W?CHERUB,W?ANGEL,W?CHERUBS /?CTR9
|
|
EQUAL? WRD,W?ANGELS \?CCL10
|
|
?CTR9: EQUAL? CONTEXT,K-M-SDESC \?CCL15
|
|
CALL PRINT-SDESC,STR?742,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RSTACK
|
|
?CCL15: EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "Cute, aren't they?"
|
|
?CCL10: EQUAL? WRD,W?DIAGRAM,W?SYSTEM \?CCL19
|
|
EQUAL? CONTEXT,K-M-SDESC \FALSE
|
|
CALL PRINT-SDESC,STR?743,CLASS,FALSE-VALUE,FALSE-VALUE
|
|
RSTACK
|
|
?CCL19: EQUAL? CONTEXT,K-M-SDESC \?CCL25
|
|
CALL PRINT-SDESC,STR?744,CLASS,TRUE-VALUE,FALSE-VALUE
|
|
RSTACK
|
|
?CCL25: EQUAL? CONTEXT,K-M-DESCFCN \?CCL27
|
|
PRINTR "It's a white marble sarcophagus with ""ISAACVS NEWTON Eques Auratus"" written on the front. Above it is a marble statue of Newton, and a carving of two cherubs who are holding a diagram of the solar system."
|
|
?CCL27: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,2
|
|
RSTACK
|
|
|
|
|
|
.FUNCT PRINT-SDESC,BASE,CLASS,NOART?,PLURAL?,VOWEL?,PRINTB?,IS
|
|
ZERO? NOART? \?CND1
|
|
EQUAL? CLASS,K-DESC-ANY \?CCL5
|
|
SET 'IS,STR?745
|
|
JUMP ?CND3
|
|
?CCL5: EQUAL? CLASS,K-DESC-THE /?CTR6
|
|
ZERO? PLURAL? /?CCL7
|
|
?CTR6: SET 'IS,STR?746
|
|
JUMP ?CND3
|
|
?CCL7: ZERO? PLURAL? /?CCL11
|
|
SET 'IS,STR?747
|
|
JUMP ?CND3
|
|
?CCL11: ZERO? VOWEL? /?CCL14
|
|
SET 'IS,STR?748
|
|
JUMP ?CND3
|
|
?CCL14: SET 'IS,STR?749
|
|
?CND3: ZERO? IS /?CND15
|
|
PRINT IS
|
|
?CND15: PRINTC 32
|
|
?CND1: ZERO? PRINTB? /?CCL19
|
|
PRINTB BASE
|
|
RTRUE
|
|
?CCL19: PRINT BASE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-HENRY-V-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It's an old wooden coffin on a raised platform. On the top is an effigy of Henry V, and there is an inscription carved into the side."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,3
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-EDWARD-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It's the tomb of Edward the Confessor, the founder of Westminster Abbey, and the only English king ever to be canonized. Around the tomb is a frieze that shows scenes from Edward's life, and on the base there is a faded inscription."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,4
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-POPE-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINT K-SIMPLE-TOMB-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,5
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-DICKENS-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINT K-SIMPLE-TOMB-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,6
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-CHAUCER-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It's the tomb of Geoffrey Chaucer, who died in 1400 and became the first person to be buried in Poet's Corner. The inscription above the sarcophagus is so faded that it is almost illegible."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,7
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-ANNE-OF-CLEVES-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINT K-SIMPLE-TOMB-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,8
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-LITTLE-PRINCES-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "According to the inscription, the urn contains the remains of the Little Princes in the Tower."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,9
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-MARY-QUEEN-OF-SCOTS-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The tomb is a simple sarcophagus with a marble effigy of Mary, Queen of Scots on it."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,10
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-HENRY-VII-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It's an incredibly lavish tomb which is surmounted by gilt effigies of Henry VII and his wife Elizabeth of York."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,11
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-PITT-TOMB,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTI "It's a huge monument to William Pitt. On the base of the monument are five "
|
|
ICALL2 DPRINT,TH-FIGURES
|
|
PRINTR " and an elaborate inscription."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,12
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-FIGURES,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "You've never understood allegorical figures before. What makes you think you can start now?"
|
|
|
|
|
|
.FUNCT RT-AC-TH-VERE-TOMB,CONTEXT,CLASS,CAP?,WRD
|
|
GETP TH-VERE-TOMB,P?OBJ-NOUN >WRD
|
|
EQUAL? WRD,W?KNIGHT,W?KNIGHTS \?CCL3
|
|
EQUAL? CONTEXT,K-M-SDESC \FALSE
|
|
CALL PRINT-SDESC,STR?750,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RSTACK
|
|
?CCL3: EQUAL? WRD,W?SUIT,W?ARMOUR,W?ARMOR \?CCL8
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL11
|
|
CALL PRINT-SDESC,STR?751,CLASS,FALSE-VALUE,FALSE-VALUE,TRUE-VALUE
|
|
RSTACK
|
|
?CCL11: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINT K-RICOCHET-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL8: EQUAL? CONTEXT,K-M-SDESC \?CCL17
|
|
CALL PRINT-SDESC,STR?752,CLASS,TRUE-VALUE,FALSE-VALUE
|
|
RSTACK
|
|
?CCL17: EQUAL? CONTEXT,K-M-DESCFCN \?CCL19
|
|
PRINTR "It's an effigy of a man surrounded by four knights, who are holding up a marble slab on their shoulders. On the slab is the dead man's armour."
|
|
?CCL19: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-PROCESS-TOMB,13
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-LAMP,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It is a battered old brass lamp that has accompanied you on many adventures in the past."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? /?CCL7
|
|
EQUAL? GL-PRSA,V?THROW \?CCL10
|
|
CALL2 GET-MASS,GL-PRSO
|
|
GRTR? STACK,5 \FALSE
|
|
ICALL1 RT-BREAK-LAMP
|
|
CRLF
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINTC 32
|
|
ICALL1 RT-LANDS-AT-YOUR-FEET-MSG
|
|
RTRUE
|
|
?CCL10: EQUAL? GL-PRSA,V?PUT \FALSE
|
|
CALL1 RT-LAMP-SEALED
|
|
RSTACK
|
|
?CCL7: EQUAL? GL-PRSA,V?SHOOT,V?KICK,V?MUNG \?CCL18
|
|
CALL1 RT-BREAK-LAMP
|
|
RSTACK
|
|
?CCL18: EQUAL? GL-PRSA,V?OPEN,V?CLOSE,V?OPEN-WITH /?CTR19
|
|
EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH,V?REACH-IN /?CTR19
|
|
EQUAL? GL-PRSA,V?EMPTY,V?EMPTY-INTO \?CCL20
|
|
?CTR19: CALL1 RT-LAMP-SEALED
|
|
RSTACK
|
|
?CCL20: EQUAL? GL-PRSA,V?LAMP-ON,V?LIGHT-WITH,V?TURN-UP /?CTR24
|
|
EQUAL? GL-PRSA,V?LIGHT \?CCL25
|
|
?CTR24: FSET? TH-LAMP,FL-BROKEN \?CCL30
|
|
FCLEAR TH-LAMP,FL-ASLEEP
|
|
PRINTR "Nothing happens."
|
|
?CCL30: FSET? TH-LAMP,FL-ASLEEP /?CCL32
|
|
ICALL2 RT-CTHEO-PRINT,TH-LAMP
|
|
PRINTR " is already on."
|
|
?CCL32: FCLEAR TH-LAMP,FL-ASLEEP
|
|
FSET TH-LAMP,FL-LIGHTED
|
|
PRINTI "You turn up the wick. "
|
|
ICALL2 RT-CTHEO-PRINT,TH-LAMP
|
|
PRINTR " emits a warm glow that lights up the area around you."
|
|
?CCL25: EQUAL? GL-PRSA,V?LAMP-OFF,V?TURN-DOWN \?CCL34
|
|
FSET? TH-LAMP,FL-ASLEEP \?CCL37
|
|
ICALL2 RT-CTHEO-PRINT,TH-LAMP
|
|
PRINTR " is already off."
|
|
?CCL37: FSET? TH-LAMP,FL-BROKEN \?CCL39
|
|
FSET TH-LAMP,FL-ASLEEP
|
|
PRINTR "Nothing happens."
|
|
?CCL39: FSET TH-LAMP,FL-ASLEEP
|
|
FCLEAR TH-LAMP,FL-LIGHTED
|
|
PRINTI "You turn down the wick. "
|
|
ICALL2 RT-CTHEO-PRINT,TH-LAMP
|
|
PRINTR " goes dark."
|
|
?CCL34: EQUAL? GL-PRSA,V?POINT-AT,V?SHINE-AT \FALSE
|
|
FSET? TH-LAMP,FL-LIGHTED \?CCL44
|
|
EQUAL? GL-PRSO,GL-PRSI \?CCL47
|
|
ICALL1 RT-CYOU-MSG
|
|
PRINTR "can't point the light at itself."
|
|
?CCL47: PRINTI "You point "
|
|
ICALL2 RT-THEO-PRINT,TH-LAMP
|
|
PRINTI " at "
|
|
ICALL1 RT-THEI-PRINT
|
|
PRINTR ", but it reveals nothing."
|
|
?CCL44: ICALL2 RT-CTHEO-PRINT,TH-LAMP
|
|
PRINTR " is not on."
|
|
|
|
|
|
.FUNCT RT-LAMP-SEALED
|
|
ICALL2 RT-CTHEO-PRINT,TH-LAMP
|
|
PRINTR " is firmly sealed. It can neither be opened nor closed."
|
|
|
|
|
|
.FUNCT RT-BREAK-LAMP
|
|
FSET? TH-LAMP,FL-BROKEN /?CCL3
|
|
FSET TH-LAMP,FL-BROKEN
|
|
PRINTI "It sounds as if something in "
|
|
ICALL2 RT-THEO-PRINT,TH-LAMP
|
|
PRINTI " has shattered."
|
|
FSET? TH-LAMP,FL-LIGHTED \?CND4
|
|
FCLEAR TH-LAMP,FL-LIGHTED
|
|
PRINTC 32
|
|
ICALL2 RT-CTHEO-PRINT,TH-LAMP
|
|
PRINTR " has gone out."
|
|
?CND4: CRLF
|
|
RTRUE
|
|
?CCL3: ICALL2 RT-CTHEO-PRINT,TH-LAMP
|
|
PRINTR " is already broken."
|
|
|
|
|
|
.FUNCT RT-AC-TH-BLACK-BAG,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It's the black medical bag your aunt gave you when you graduated from medical school."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?PUT \FALSE
|
|
ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSO,TH-PADDLE,TH-MACE,TH-ANCHOR /?CCL7
|
|
EQUAL? GL-PRSO,TH-PACKET-OF-PAPER,TH-SUIT-OF-ARMOUR,TH-OAR-1 /?CCL7
|
|
EQUAL? GL-PRSO,TH-OAR-2,TH-TORCH,TH-WAX-AX /?CCL7
|
|
EQUAL? GL-PRSO,TH-LAMP,TH-VIOLIN,TH-WAX-HEAD \FALSE
|
|
?CCL7: PRINTI "You look at "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI ". You look at the tiny bag. You look at the tiny bag. You look at "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTR ". Slowly it dawns on you that it's just not going to work."
|
|
|
|
|
|
.FUNCT RT-AC-TH-CHARLES-STATUE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
FSET TH-WAX-AX,FL-SEEN
|
|
IN? TH-WAX-HEAD,TH-CHARLES-STATUE \?CCL5
|
|
PRINTI "Charles I is shown kneeling, with his head resting on a chopping block. Above him stands a masked executioner"
|
|
IN? TH-WAX-AX,TH-CHARLES-STATUE \?CND6
|
|
PRINTI ", with his axe held high over his head, ready to strike the deathblow"
|
|
?CND6: PRINTR "."
|
|
?CCL5: PRINTR "The statue looks grotesque without the head."
|
|
|
|
|
|
.FUNCT RT-AC-TH-WILLIAM-STATUE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "The statue is of William the Conqueror kneeling on the sand at Pevensey, where he landed before the Battle of Hastings in 1066."
|
|
|
|
|
|
.FUNCT RT-AC-TH-WALTER-STATUE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "The sculpture shows Sir Walter Raleigh spreading his cloak across a mud puddle so Elizabeth could walk across without dirtying her shoes."
|
|
|
|
|
|
.FUNCT RT-AC-TH-ELIZABETH-STATUE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "She is smiling at Sir Walter."
|
|
|
|
|
|
.FUNCT RT-AC-TH-THOMAS-STATUE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "The sculpture shows four knights with swords drawn, advancing on Thomas Becket as he stands before the High Altar of Canterbury Cathedral."
|
|
|
|
|
|
.FUNCT RT-AC-TH-DRAKE-STATUE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "The statue is of Sir Francis Drake finishing his game of bowls before sailing off to defeat the Spanish Armada."
|
|
|
|
|
|
.FUNCT RT-AC-TH-JOHN-STATUE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "King John is depicted signing the Magna Carta in the meadow at Runnymede in June of 1215."
|
|
|
|
|
|
.FUNCT RT-AC-TH-FAWKES-STATUE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTI "The statue depicts Guy Fawkes crouched behind some barrels of gunpowder. He is awaiting the signal to light his torch and set off the trail of gunpowder that will blow up Parliament"
|
|
IN? TH-TORCH,TH-FAWKES-STATUE \?CCL5
|
|
PRINTI ". The torch he holds looks like a real one"
|
|
JUMP ?CND3
|
|
?CCL5: PRINTI " - but he seems to be missing the torch"
|
|
?CND3: PRINTR "."
|
|
|
|
|
|
.FUNCT RT-AC-TH-NELSON-COLUMN,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTI "The column has"
|
|
PRINT K-NELSON-STATUE-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-BOAT,CONTEXT,NUM
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTI "It's an incredibly old rowboat that "
|
|
IN? TH-OAR-1,TH-BOAT \?CND4
|
|
IN? TH-OAR-2,TH-OAR-LOCK /?CND4
|
|
PRINTI "has one empty oarlock and "
|
|
?CND4: PRINTI "probably leaks. But it looks as if it might float"
|
|
IN? TH-BOAT,RM-THE-EMBANKMENT /?CND8
|
|
IN? TH-BOAT,RM-OUTSIDE-TRAITORS-GATE /?CND8
|
|
PRINTI " a little while longer"
|
|
?CND8: PRINTI ". The boat's anchor is in the "
|
|
IN? TH-ANCHOR,TH-BOAT \?CCL14
|
|
PRINTI "boat"
|
|
JUMP ?CND12
|
|
?CCL14: PRINTI "water"
|
|
?CND12: PRINTC 46
|
|
CRLF
|
|
RETURN 2
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?PUSH-TO \?CCL18
|
|
EQUAL? GL-PRSI,LG-WATER \?CCL18
|
|
ICALL1 RT-LAUNCH-BOAT
|
|
RTRUE
|
|
?CCL18: EQUAL? GL-PRSA,V?ENTER \?CCL22
|
|
EQUAL? GL-PRSO,ROOMS,TH-BOAT \?CCL22
|
|
IN? CH-PLAYER,TH-BOAT /FALSE
|
|
ZERO? GL-PUPPY /?CCL30
|
|
EQUAL? GL-WINNER,CH-PLAYER \?CCL30
|
|
MOVE GL-PUPPY,TH-BOAT
|
|
PRINTI "You and "
|
|
ICALL2 RT-THEO-PRINT,GL-PUPPY
|
|
PRINTI " get "
|
|
JUMP ?CND28
|
|
?CCL30: ICALL RT-CYOU-MSG,STR?753,STR?754
|
|
?CND28: PRINTI "into the boat."
|
|
CRLF
|
|
MOVE CH-PLAYER,TH-BOAT
|
|
ZERO? GL-PUPPY /?CND33
|
|
MOVE GL-PUPPY,TH-BOAT
|
|
?CND33: FSET TH-BOAT,FL-NODESC
|
|
RTRUE
|
|
?CCL22: EQUAL? GL-PRSA,V?EXIT \?CCL36
|
|
EQUAL? GL-PRSO,ROOMS,TH-BOAT \?CCL36
|
|
IN? CH-PLAYER,TH-BOAT \FALSE
|
|
MOVE CH-PLAYER,GL-PLACE-CUR
|
|
ZERO? GL-PUPPY /?CND42
|
|
MOVE GL-PUPPY,GL-PLACE-CUR
|
|
?CND42: FCLEAR TH-BOAT,FL-NODESC
|
|
SET 'NUM,TH-BOAT-AUX1
|
|
LOC TH-OPAL
|
|
ZERO? STACK /?CCL46
|
|
IN? TH-BOAT,RM-THE-EMBANKMENT \?CCL46
|
|
ZERO? NUM \?CCL46
|
|
PRINTI "As"
|
|
ZERO? GL-PUPPY /?CCL52
|
|
EQUAL? GL-WINNER,CH-PLAYER \?CCL52
|
|
MOVE GL-PUPPY,GL-PLACE-CUR
|
|
PRINTI " you and "
|
|
ICALL2 RT-THEO-PRINT,GL-PUPPY
|
|
PRINTI " get "
|
|
JUMP ?CND50
|
|
?CCL52: ICALL RT-YOU-MSG,STR?753,STR?754
|
|
?CND50: PRINTI "out of the boat, a man storms up to you and says, ""What in bloody 'ell are you doing with my boat?"" Without waiting for a reply he "
|
|
IN? TH-OAR-2,TH-BOAT /?CCL56
|
|
IN? TH-OAR-2,RM-THE-EMBANKMENT /?CCL56
|
|
CALL RT-META-IN?,TH-OAR-2,CH-PLAYER
|
|
ZERO? STACK \?CCL56
|
|
CALL RT-META-IN?,TH-OAR-2,GL-PUPPY
|
|
ZERO? STACK /?CND55
|
|
?CCL56: PRINTI "grabs the oar, "
|
|
?CND55: MOVE TH-BOAT,RM-OUTSIDE-TRAITORS-GATE
|
|
MOVE TH-ANCHOR,LG-WATER
|
|
REMOVE TH-OAR-1
|
|
REMOVE TH-OAR-2
|
|
SET 'TH-BOAT-AUX1,1
|
|
PRINTR "jumps into the boat and rows off, muttering to himself that he'll have to find a safer place to keep it."
|
|
?CCL46: FSET? TH-GARNET,FL-TOUCHED \?CCL62
|
|
IN? TH-BOAT,RM-THE-EMBANKMENT \?CCL62
|
|
EQUAL? NUM,1 \?CCL62
|
|
PRINTI "As"
|
|
ZERO? GL-PUPPY /?CCL68
|
|
EQUAL? GL-WINNER,CH-PLAYER \?CCL68
|
|
MOVE GL-PUPPY,GL-PLACE-CUR
|
|
PRINTI " you and "
|
|
ICALL2 RT-THEO-PRINT,GL-PUPPY
|
|
PRINTI " get "
|
|
JUMP ?CND66
|
|
?CCL68: ICALL RT-YOU-MSG,STR?753,STR?754
|
|
?CND66: PRINTI "out of the boat, its red-faced owner runs up and yells, ""You again?!!"" He gives you a swift kick in the rear"
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \?CND71
|
|
PRINTI ", then clutches his foot in agony as it bounces off your suit of armour"
|
|
?CND71: PRINTC 46
|
|
CRLF
|
|
CRLF
|
|
PRINTI "The man jumps into the boat"
|
|
IN? TH-PADDLE,TH-BOAT \?CCL75
|
|
PRINTI " and paddles away, cursing under his breath."
|
|
CRLF
|
|
JUMP ?CND73
|
|
?CCL75: PRINTI ", launches it, and suddenly realizes he has no way to steer it. The last you see of him, he is drifting down the Thames, screaming and shaking his fist at you."
|
|
CRLF
|
|
?CND73: REMOVE TH-BOAT
|
|
SET 'TH-BOAT-AUX1,2
|
|
RTRUE
|
|
?CCL62: IN? TH-ANCHOR,TH-BOAT \?CCL77
|
|
PRINTI "As"
|
|
ZERO? GL-PUPPY /?CCL80
|
|
EQUAL? GL-WINNER,CH-PLAYER \?CCL80
|
|
MOVE GL-PUPPY,GL-PLACE-CUR
|
|
PRINTI " you and "
|
|
ICALL2 RT-THEO-PRINT,GL-PUPPY
|
|
PRINTI " get "
|
|
JUMP ?CND78
|
|
?CCL80: ICALL RT-YOU-MSG,STR?753,STR?754
|
|
?CND78: PRINTI "out of the boat it slides out from under your foot and drifts down the river."
|
|
CRLF
|
|
REMOVE TH-BOAT
|
|
RTRUE
|
|
?CCL77: ZERO? GL-PUPPY /?CCL85
|
|
EQUAL? GL-WINNER,CH-PLAYER \?CCL85
|
|
MOVE GL-PUPPY,GL-PLACE-CUR
|
|
PRINTI "You and "
|
|
ICALL2 RT-THEO-PRINT,GL-PUPPY
|
|
PRINTI " get "
|
|
JUMP ?CND83
|
|
?CCL85: ICALL RT-CYOU-MSG,STR?753,STR?754
|
|
?CND83: PRINTR "out of the boat."
|
|
?CCL36: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
EQUAL? GL-PRSO,TH-BOAT \FALSE
|
|
REMOVE TH-BOAT
|
|
PRINTI "Bad idea. The bullet blows a hole in the boat, which promptly sinks."
|
|
CRLF
|
|
IN? CH-PLAYER,TH-BOAT \TRUE
|
|
CRLF
|
|
PRINTI "Unable to swim, you cling to a piece of driftwood for several hours, wondering what kind of idiot would shoot a boat out from under himself."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "After a while, a Scotland Yard launch pulls alongside to rescue you. Lestrade leans over the side and offers his assistance. You decide you're better off in the water and politely decline."
|
|
CRLF
|
|
CRLF
|
|
ICALL1 RT-QSR
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-OAR-1,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The oar is hopelessy jammed into the oarlock."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?TAKE \?CCL7
|
|
ICALL RT-CYOU-MSG,STR?755,STR?756
|
|
PRINTR "to extract the oar from the oarlock, but it seems to be jammed."
|
|
?CCL7: EQUAL? GL-PRSA,V?RELEASE \FALSE
|
|
ICALL RT-CYOU-MSG,STR?757,STR?758
|
|
PRINTR "with the oar for a minute or two with no success... it really is jammed in there."
|
|
|
|
|
|
.FUNCT RT-AC-TH-OAR-LOCK
|
|
EQUAL? GL-PRSA,V?PUT,V?PUT-ON \FALSE
|
|
ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSO,TH-OAR-2 /FALSE
|
|
ICALL1 RT-IMPOSSIBLE-MSG
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-CLAPPER,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
IN? TH-SAPPHIRE,TH-CLAPPER \FALSE
|
|
PRINTR "The clapper hangs from the centre of the bell. There is a beautiful blue sapphire glued to the end of it."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL10
|
|
PRINT K-RICOCHET-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL10: CALL2 RT-IMPOSSIBLE-PUT-IN-ON-MSG,TH-CLAPPER
|
|
ZERO? STACK \TRUE
|
|
EQUAL? GL-PRSA,V?TOUCH,V?TOUCH-TO,V?TOUCH-TO-SWP \FALSE
|
|
EQUAL? TH-BELL-AUX2,K-BELL-TOWARDS /FALSE
|
|
ICALL1 RT-CTHEO-PRINT
|
|
ICALL2 RT-ISNT-ARENT-MSG,GL-PRSO
|
|
PRINTR "within reach."
|
|
|
|
|
|
.FUNCT RT-AC-TH-COTTON-BALLS,CONTEXT,VAL
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
FSET? TH-COTTON-BALLS,FL-WORN \?CCL6
|
|
PRINTR "You can't see them because they're in your ears."
|
|
?CCL6: PRINTR "They're soft and fluffy."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
SET 'GL-P-IT-OBJECT,GL-PRSO
|
|
EQUAL? GL-PRSA,V?WEAR /?CTR12
|
|
EQUAL? GL-PRSA,V?PUT \?CCL13
|
|
EQUAL? GL-PRSI,TH-EARS \?CCL13
|
|
?CTR12: FSET? GL-PRSO,FL-WORN \?CCL20
|
|
ICALL1 RT-CTHEO-PRINT
|
|
ICALL1 RT-IS-ARE-MSG
|
|
PRINTI "already in "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL20: FSET? TH-STETHOSCOPE,FL-WORN \?CCL22
|
|
ICALL2 RT-CTHEO-PRINT,TH-STETHOSCOPE
|
|
PRINTR " is in the way."
|
|
?CCL22: SET 'GL-LISTEN-OBJ,FALSE-VALUE
|
|
FSET GL-PRSO,FL-WORN
|
|
MOVE GL-PRSO,CH-PLAYER
|
|
ICALL RT-CYOU-MSG,STR?685,STR?686
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " in "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTC 46
|
|
CRLF
|
|
GETP GL-PRSO,P?VALUE >VAL
|
|
ZERO? VAL /TRUE
|
|
ICALL2 RT-UPDATE-SCORE,VAL
|
|
PUTP GL-PRSO,P?VALUE,0
|
|
RTRUE
|
|
?CCL13: EQUAL? GL-PRSA,V?TAKE \?PRD28
|
|
EQUAL? GL-PRSI,TH-EARS /?CTR25
|
|
?PRD28: EQUAL? GL-PRSA,V?TAKE-OFF,V?TAKE \?CCL26
|
|
FSET? GL-PRSO,FL-WORN \?CCL26
|
|
?CTR25: FSET? GL-PRSO,FL-WORN /?CCL35
|
|
ICALL1 RT-CTHEO-PRINT
|
|
ICALL1 RT-ISNT-ARENT-MSG
|
|
PRINTI "in "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL35: FSET? TH-STETHOSCOPE,FL-WORN \?CND36
|
|
ICALL RT-PERFORM,V?TAKE-OFF,TH-STETHOSCOPE
|
|
?CND36: SET 'GL-LISTEN-OBJ,FALSE-VALUE
|
|
FCLEAR GL-PRSO,FL-WORN
|
|
ICALL RT-CYOU-MSG,STR?697,STR?698
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " out of "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTC 46
|
|
CRLF
|
|
EQUAL? GL-WINNER,CH-PLAYER /TRUE
|
|
MOVE GL-PRSO,GL-WINNER
|
|
RTRUE
|
|
?CCL26: EQUAL? GL-PRSA,V?DROP,V?THROW,V?THROW-OVER \?CCL41
|
|
FSET? GL-PRSO,FL-WORN \FALSE
|
|
ICALL1 RT-CYOU-MSG
|
|
PRINTI "cannot "
|
|
PRINTB GL-P-PRSA-WORD
|
|
PRINTC 32
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " while"
|
|
ICALL RT-YOU-MSG,STR?228,STR?229
|
|
PRINTR "wearing them."
|
|
?CCL41: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-BELL,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The huge bell hangs over the hollow shaft of the tower."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL7
|
|
PRINT K-RICOCHET-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL7: CALL2 RT-IMPOSSIBLE-PUT-IN-ON-MSG,TH-BELL
|
|
ZERO? STACK \TRUE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-TH-STETHOSCOPE,CONTEXT,VAL
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
FSET? TH-STETHOSCOPE,FL-WORN \?CCL6
|
|
PRINTR "The stethoscope is hanging from your ears."
|
|
?CCL6: PRINTR "It looks just like any other late-Victorian-era stethoscope."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? \?CCL10
|
|
EQUAL? GL-PRSA,V?WEAR /?CTR12
|
|
EQUAL? GL-PRSA,V?PUT \?CCL13
|
|
EQUAL? GL-PRSI,TH-EARS \?CCL13
|
|
?CTR12: FSET? TH-STETHOSCOPE,FL-WORN \?CCL20
|
|
ICALL1 RT-CTHEO-PRINT
|
|
ICALL1 RT-IS-ARE-MSG
|
|
PRINTI "already in "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL20: SET 'GL-LISTEN-OBJ,FALSE-VALUE
|
|
FSET TH-STETHOSCOPE,FL-WORN
|
|
MOVE TH-STETHOSCOPE,CH-PLAYER
|
|
ICALL RT-CYOU-MSG,STR?685,STR?686
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " in "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTC 46
|
|
CRLF
|
|
GETP TH-STETHOSCOPE,P?VALUE >VAL
|
|
ZERO? VAL /TRUE
|
|
ICALL2 RT-UPDATE-SCORE,VAL
|
|
PUTP TH-STETHOSCOPE,P?VALUE,0
|
|
RTRUE
|
|
?CCL13: EQUAL? GL-PRSA,V?TAKE \?PRD26
|
|
EQUAL? GL-PRSI,TH-EARS /?CTR23
|
|
?PRD26: EQUAL? GL-PRSA,V?TAKE-OFF,V?TAKE \?CCL24
|
|
FSET? TH-STETHOSCOPE,FL-WORN \?CCL24
|
|
?CTR23: FSET? TH-STETHOSCOPE,FL-WORN /?CCL33
|
|
ICALL1 RT-CTHEO-PRINT
|
|
ICALL1 RT-ISNT-ARENT-MSG
|
|
PRINTI "in "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTR "."
|
|
?CCL33: SET 'GL-LISTEN-OBJ,FALSE-VALUE
|
|
FCLEAR TH-STETHOSCOPE,FL-WORN
|
|
ICALL RT-CYOU-MSG,STR?697,STR?698
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " out of "
|
|
ICALL2 RT-THEO-PRINT,TH-EARS
|
|
PRINTC 46
|
|
CRLF
|
|
EQUAL? GL-WINNER,CH-PLAYER /TRUE
|
|
MOVE GL-PRSO,GL-WINNER
|
|
RTRUE
|
|
?CCL24: EQUAL? GL-PRSA,V?DROP,V?THROW,V?THROW-OVER \?CCL37
|
|
FSET? TH-STETHOSCOPE,FL-WORN \FALSE
|
|
ICALL1 RT-CYOU-MSG
|
|
PRINTI "cannot "
|
|
PRINTB GL-P-PRSA-WORD
|
|
PRINTC 32
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " while"
|
|
ICALL RT-YOU-MSG,STR?228,STR?229
|
|
PRINTR "wearing it."
|
|
?CCL37: EQUAL? GL-PRSA,V?PUT-ON \FALSE
|
|
FSET? GL-PRSI,FL-PERSON \FALSE
|
|
FSET? TH-STETHOSCOPE,FL-WORN \FALSE
|
|
CALL RT-PERFORM,V?LISTEN,GL-PRSI,GL-PRSO
|
|
RSTACK
|
|
?CCL10: ZERO? GL-NOW-PRSI? \FALSE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-TH-WATSONS-HAT,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
FSET? TH-WATSONS-HAT,FL-WORN \?CCL6
|
|
PRINTR "You can't look at your hat while it's on the top of your head."
|
|
?CCL6: PRINTR "It's a rather large hat with plenty of room inside it for your rather large head."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? \?CCL10
|
|
EQUAL? GL-PRSA,V?PUT-ON \?PRD15
|
|
EQUAL? GL-PRSI,TH-HEAD /?CTR12
|
|
?PRD15: EQUAL? GL-PRSA,V?WEAR \?CCL13
|
|
?CTR12: FSET? TH-WATSONS-HAT,FL-WORN \?CCL20
|
|
PRINTI "You are already wearing "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTR "."
|
|
?CCL20: CALL2 RT-DONT-HAVE-MSG,GL-PRSO
|
|
ZERO? STACK \TRUE
|
|
FCLEAR TH-WATSONS-HAT,FL-OPENED
|
|
FSET TH-WATSONS-HAT,FL-WORN
|
|
PRINTI "You put on "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTR "."
|
|
?CCL13: EQUAL? GL-PRSA,V?TAKE \?PRD26
|
|
EQUAL? GL-PRSI,TH-HEAD /?CTR23
|
|
FSET? TH-WATSONS-HAT,FL-WORN \?PRD26
|
|
EQUAL? GL-PRSI,FALSE-VALUE,CH-PLAYER,CH-ME /?CTR23
|
|
?PRD26: EQUAL? GL-PRSA,V?TAKE-OFF \?CCL24
|
|
?CTR23: FSET? TH-WATSONS-HAT,FL-WORN \?CCL35
|
|
FSET TH-WATSONS-HAT,FL-OPENED
|
|
FCLEAR TH-WATSONS-HAT,FL-WORN
|
|
PRINTI "You take off "
|
|
ICALL1 RT-THEO-PRINT
|
|
CALL2 RT-VISIBLE?,CH-AKBAR
|
|
ZERO? STACK /?CND36
|
|
PRINTI ". Disconcerted by your sacrilegious action, Akbar averts his gaze"
|
|
?CND36: FIRST? TH-WATSONS-HAT \?CND38
|
|
PRINTI ". Inside you see "
|
|
ICALL2 RT-PRINT-CONTENTS-2,TH-WATSONS-HAT
|
|
?CND38: PRINTR "."
|
|
?CCL35: PRINTI "You are not wearing "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTR "."
|
|
?CCL24: EQUAL? GL-PRSA,V?LOOK-INSIDE,V?LOOK-UNDER \?CCL41
|
|
FSET? TH-WATSONS-HAT,FL-WORN \?CCL41
|
|
PRINTI "You can't see inside "
|
|
ICALL2 RT-THEO-PRINT,TH-WATSONS-HAT
|
|
PRINTI " while it's on "
|
|
ICALL2 RT-THEO-PRINT,TH-HEAD
|
|
PRINTR "."
|
|
?CCL41: EQUAL? GL-PRSA,V?REACH-IN,V?SEARCH,V?PUT /?PRD47
|
|
EQUAL? GL-PRSA,V?PUT-ON \FALSE
|
|
?PRD47: FSET? TH-WATSONS-HAT,FL-WORN \FALSE
|
|
ICALL1 RT-CYOU-MSG
|
|
ICALL RT-WOULD-HAVE-TO-MSG,STR?682,GL-PRSO
|
|
PRINTR " first."
|
|
?CCL10: ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSA,V?PUT,V?PUT-UNDER \FALSE
|
|
FSET? TH-WATSONS-HAT,FL-WORN \FALSE
|
|
ICALL1 RT-CYOU-MSG
|
|
ICALL RT-WOULD-HAVE-TO-MSG,STR?682,GL-PRSI
|
|
PRINTR " first."
|
|
|
|
|
|
.FUNCT RT-AC-TH-ELIZAS-FLOWERS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CND1
|
|
PRINTI "In "
|
|
ICALL2 RT-THEO-PRINT,TH-ELIZAS-FLOWERS
|
|
PRINTR " you see a carnation."
|
|
?CND1: ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSA,V?PUT,V?PUT-ON \FALSE
|
|
CALL2 RT-CANT-PUT-IN-ON-MSG,TH-ELIZAS-FLOWERS
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-CARNATION
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?WEAR \?CCL6
|
|
EQUAL? GL-WINNER,CH-PLAYER \?CCL9
|
|
IN? TH-CARNATION,TH-LAPEL \?CCL12
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINTI " is already in "
|
|
ICALL2 RT-THEO-PRINT,TH-LAPEL
|
|
PRINTR "."
|
|
?CCL12: MOVE TH-CARNATION,TH-LAPEL
|
|
ICALL RT-CYOU-MSG,STR?685,STR?686
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " in "
|
|
ICALL2 RT-THEO-PRINT,TH-LAPEL
|
|
PRINTR "."
|
|
?CCL9: ICALL2 RT-CTHEO-PRINT,GL-WINNER
|
|
PRINTI " say"
|
|
ICALL2 RT-S-NOS-MSG,GL-WINNER
|
|
PRINTR ", ""No thanks."""
|
|
?CCL6: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-EMERALD,CONTEXT
|
|
GETP TH-EMERALD,P?OBJ-NOUN
|
|
EQUAL? STACK,W?SCRATCH \?CCL3
|
|
CALL RT-HANDLE-SCRATCH,TH-EMERALD,CONTEXT
|
|
RSTACK
|
|
?CCL3: EQUAL? CONTEXT,K-M-SDESC \?CCL6
|
|
PRINTI "emerald"
|
|
RTRUE
|
|
?CCL6: EQUAL? CONTEXT,K-M-DESCFCN,FALSE-VALUE \FALSE
|
|
CALL2 RT-EXAMINE-GEM,TH-EMERALD
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-SAPPHIRE,CONTEXT,GRABS,WHO
|
|
GETP TH-SAPPHIRE,P?OBJ-NOUN
|
|
EQUAL? STACK,W?SCRATCH \?CCL3
|
|
CALL RT-HANDLE-SCRATCH,TH-SAPPHIRE,CONTEXT
|
|
RSTACK
|
|
?CCL3: EQUAL? CONTEXT,K-M-SDESC \?CCL6
|
|
PRINTI "sapphire"
|
|
RTRUE
|
|
?CCL6: EQUAL? CONTEXT,K-M-DESCFCN \?CCL8
|
|
CALL2 RT-EXAMINE-GEM,TH-SAPPHIRE
|
|
ZERO? STACK /TRUE
|
|
RTRUE
|
|
?CCL8: ZERO? CONTEXT \FALSE
|
|
SET 'GRABS,TH-SAPPHIRE-AUX1
|
|
ZERO? GL-NOW-PRSI? \?CCL14
|
|
IN? TH-SAPPHIRE,TH-CLAPPER \?CCL14
|
|
EQUAL? GL-PRSA,V?TAKE \?CCL19
|
|
GRTR? GRABS,0 \?CND12
|
|
EQUAL? TH-BELL-AUX2,K-BELL-TOWARDS \?CCL24
|
|
DEC 'GRABS
|
|
SET 'TH-SAPPHIRE-AUX1,GRABS
|
|
ZERO? GRABS \?CCL27
|
|
ICALL RT-CYOU-MSG,STR?759,STR?760
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " from "
|
|
ICALL2 RT-THEO-PRINT,TH-CLAPPER
|
|
PRINTC 46
|
|
CRLF
|
|
MOVE TH-SAPPHIRE,CH-PLAYER
|
|
FCLEAR TH-SAPPHIRE,FL-NODESC
|
|
FSET TH-SAPPHIRE,FL-SEEN
|
|
FSET TH-SAPPHIRE,FL-TOUCHED
|
|
CALL1 RT-WHO-SAYS? >WHO
|
|
EQUAL? WHO,CH-HOLMES \?CND28
|
|
CRLF
|
|
PRINTI "Holmes beams at you and says, ""Good show, old fellow."""
|
|
CRLF
|
|
?CND28: GETP TH-SAPPHIRE,P?VALUE
|
|
ICALL2 RT-UPDATE-SCORE,STACK
|
|
PUTP TH-SAPPHIRE,P?VALUE,0
|
|
RTRUE
|
|
?CCL27: ICALL RT-CYOU-MSG,STR?761,STR?762
|
|
PRINTI "at "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTR ", but you can't quite grab it before it swings out of reach again."
|
|
?CCL24: ICALL1 RT-CTHEO-PRINT
|
|
ICALL2 RT-ISNT-ARENT-MSG,GL-PRSO
|
|
PRINTR "within reach."
|
|
?CCL19: EQUAL? GL-PRSA,V?HIT \?CCL31
|
|
EQUAL? TH-BELL-AUX2,K-BELL-TOWARDS /?CTR33
|
|
EQUAL? GL-PRSI,TH-OAR-2 \?CCL34
|
|
?CTR33: ICALL RT-CYOU-MSG,STR?763,STR?764
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " into the shaft. A long time later you hear "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " shatter."
|
|
CRLF
|
|
FCLEAR GL-PRSO,FL-WORN
|
|
REMOVE GL-PRSO
|
|
RTRUE
|
|
?CCL34: ICALL1 RT-CTHEO-PRINT
|
|
ICALL2 RT-ISNT-ARENT-MSG,GL-PRSO
|
|
PRINTR "within reach."
|
|
?CCL31: EQUAL? GL-PRSA,V?TOUCH,V?TOUCH-TO,V?TOUCH-TO-SWP \?CND12
|
|
EQUAL? TH-BELL-AUX2,K-BELL-TOWARDS /FALSE
|
|
ICALL1 RT-CTHEO-PRINT
|
|
ICALL2 RT-IS-ARE-MSG,GL-PRSO
|
|
PRINTR "within reach."
|
|
?CCL14: ZERO? GL-NOW-PRSI? /?CND12
|
|
IN? TH-SAPPHIRE,TH-CLAPPER \?CND12
|
|
EQUAL? GL-PRSA,V?THROW \?CND12
|
|
EQUAL? GL-PRSO,CH-TRAINED-PIGEON \?CCL48
|
|
ICALL1 RT-PIGEON-PANIC
|
|
SET 'CH-TRAINED-PIGEON-AUX1,0
|
|
RTRUE
|
|
?CCL48: ICALL RT-CYOU-MSG,STR?765,STR?766
|
|
ICALL1 RT-THEI-PRINT
|
|
PRINTI " with "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI ", and they both disappear into the shaft. A long time later you hear "
|
|
ICALL1 RT-THEI-PRINT
|
|
PRINTI " shatter."
|
|
CRLF
|
|
REMOVE GL-PRSO
|
|
REMOVE GL-PRSI
|
|
RTRUE
|
|
?CND12: CALL2 RT-EXAMINE-GEM,TH-SAPPHIRE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-OPAL,CONTEXT
|
|
GETP TH-OPAL,P?OBJ-NOUN
|
|
EQUAL? STACK,W?SCRATCH \?CCL3
|
|
CALL RT-HANDLE-SCRATCH,TH-OPAL,CONTEXT
|
|
RSTACK
|
|
?CCL3: EQUAL? CONTEXT,K-M-SDESC \?CCL5
|
|
PRINTI "opal"
|
|
RTRUE
|
|
?CCL5: EQUAL? CONTEXT,K-M-DESCFCN,FALSE-VALUE \FALSE
|
|
CALL2 RT-EXAMINE-GEM,TH-OPAL
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-RUBY,CONTEXT
|
|
GETP TH-RUBY,P?OBJ-NOUN
|
|
EQUAL? STACK,W?SCRATCH \?CCL3
|
|
CALL RT-HANDLE-SCRATCH,TH-RUBY,CONTEXT
|
|
RSTACK
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN \?CCL6
|
|
ICALL2 RT-EXAMINE-GEM,TH-RUBY
|
|
RTRUE
|
|
?CCL6: EQUAL? CONTEXT,K-M-SDESC \?CCL8
|
|
PRINTI "ruby"
|
|
RTRUE
|
|
?CCL8: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?TAKE \?CND4
|
|
IN? TH-RUBY,TH-NELSON-STATUE \?CCL14
|
|
PRINTR "You can't reach the ruby."
|
|
?CCL14: IN? TH-RUBY,CH-SHERMAN \?CND4
|
|
ICALL RT-IMPOLITE-MSG,STR?715,STR?716
|
|
RTRUE
|
|
?CND4: CALL2 RT-EXAMINE-GEM,TH-RUBY
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-TOPAZ,CONTEXT
|
|
GETP TH-TOPAZ,P?OBJ-NOUN
|
|
EQUAL? STACK,W?SCRATCH \?CCL3
|
|
CALL RT-HANDLE-SCRATCH,TH-TOPAZ,CONTEXT
|
|
RSTACK
|
|
?CCL3: EQUAL? CONTEXT,K-M-SDESC \?CCL6
|
|
PRINTI "topaz"
|
|
RTRUE
|
|
?CCL6: EQUAL? CONTEXT,K-M-DESCFCN,FALSE-VALUE \FALSE
|
|
CALL2 RT-EXAMINE-GEM,TH-TOPAZ
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-CRAYON,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "It looks just like any other Victorian-era crayon."
|
|
|
|
|
|
.FUNCT RT-AC-TH-WATSONS-COAT,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It's a wool greatcoat."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? \?CCL7
|
|
EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL10
|
|
CALL RT-PERFORM,V?LOOK-INSIDE,TH-POCKET
|
|
RSTACK
|
|
?CCL10: EQUAL? GL-PRSA,V?EMPTY,V?EMPTY-INTO \?CCL12
|
|
PRINTI "[from "
|
|
ICALL2 RT-THEO-PRINT,TH-POCKET
|
|
PRINTC 93
|
|
CRLF
|
|
CALL RT-PERFORM,GL-PRSA,TH-POCKET,GL-PRSO
|
|
RSTACK
|
|
?CCL12: EQUAL? GL-PRSA,V?WEAR,V?TAKE-OFF \FALSE
|
|
FSET? TH-SUIT-OF-ARMOUR,FL-WORN \FALSE
|
|
ICALL1 RT-CYOU-MSG
|
|
ICALL RT-WOULD-HAVE-TO-MSG,STR?682,TH-SUIT-OF-ARMOUR
|
|
PRINTR " first."
|
|
?CCL7: ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSA,V?TAKE \?CCL21
|
|
PRINTI "[from "
|
|
ICALL2 RT-THEO-PRINT,TH-POCKET
|
|
PRINTC 93
|
|
CRLF
|
|
CALL RT-PERFORM,V?TAKE,GL-PRSO,TH-POCKET
|
|
RSTACK
|
|
?CCL21: EQUAL? GL-PRSA,V?PUT \?CCL23
|
|
PRINTI "[in "
|
|
ICALL2 RT-THEO-PRINT,TH-POCKET
|
|
PRINTC 93
|
|
CRLF
|
|
CALL RT-PERFORM,V?PUT,GL-PRSO,TH-POCKET
|
|
RSTACK
|
|
?CCL23: EQUAL? GL-PRSA,V?EMPTY,V?EMPTY-INTO \FALSE
|
|
PRINTI "[in "
|
|
ICALL2 RT-THEO-PRINT,TH-POCKET
|
|
PRINTC 93
|
|
CRLF
|
|
CALL RT-PERFORM,GL-PRSA,GL-PRSO,TH-POCKET
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-LAPEL
|
|
ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSA,V?PUT,V?PUT-ON \FALSE
|
|
EQUAL? GL-PRSO,TH-CARNATION /FALSE
|
|
CALL2 RT-CANT-PUT-IN-ON-MSG,TH-LAPEL
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-CLUMP-OF-MOSS,CONTEXT,WHO
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The clump of moss is a slightly different colour than the other lichen that surrounds it."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?LOOK \?CCL7
|
|
ICALL2 RT-AC-TH-CLUMP-OF-MOSS,K-M-DESCFCN
|
|
RTRUE
|
|
?CCL7: CALL1 RT-THAMES-TIDE
|
|
ZERO? STACK \?CCL9
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /FALSE
|
|
PRINTI "As soon as"
|
|
ICALL RT-YOU-MSG,STR?767,STR?768
|
|
ICALL2 RT-THEO-PRINT,TH-CLUMP-OF-MOSS
|
|
PRINTI ", it crumbles. "
|
|
ICALL RT-CYOU-MSG,STR?228,STR?229
|
|
PRINTI "left holding a beautiful opal."
|
|
CRLF
|
|
MOVE TH-OPAL,GL-WINNER
|
|
FSET TH-OPAL,FL-SEEN
|
|
FSET TH-OPAL,FL-TOUCHED
|
|
FCLEAR TH-OPAL,FL-NODESC
|
|
CALL1 RT-WHO-SAYS? >WHO
|
|
EQUAL? WHO,CH-HOLMES \?CND13
|
|
CRLF
|
|
PRINTI "Holmes claps you on the shoulder and says, ""Capital, Watson. Capital!"""
|
|
CRLF
|
|
?CND13: GETP TH-OPAL,P?VALUE
|
|
ICALL2 RT-UPDATE-SCORE,STACK
|
|
PUTP TH-OPAL,P?VALUE,0
|
|
REMOVE TH-CLUMP-OF-MOSS
|
|
RTRUE
|
|
?CCL9: EQUAL? GL-PRSA,V?TAKE \?CCL16
|
|
CALL1 RT-THAMES-TIDE
|
|
EQUAL? STACK,2 \?CCL19
|
|
PRINTI "The clump is well beyond "
|
|
ICALL1 RT-YOUR-MSG
|
|
PRINTR "grasp."
|
|
?CCL19: ICALL1 RT-CYOU-MSG
|
|
PRINTR "cannot quite reach it."
|
|
?CCL16: EQUAL? GL-PRSA,V?HIT,V?TOUCH,V?TOUCH-TO /?CTR20
|
|
EQUAL? GL-PRSA,V?CUT \?CCL21
|
|
?CTR20: EQUAL? GL-PRSA,V?HIT,V?TOUCH \?PRD28
|
|
EQUAL? GL-PRSI,TH-OAR-2 /?CTR25
|
|
?PRD28: EQUAL? GL-PRSA,V?TOUCH-TO \?CCL26
|
|
EQUAL? GL-PRSO,TH-OAR-2 \?CCL26
|
|
?CTR25: ICALL RT-CYOU-MSG,STR?763,STR?764
|
|
ICALL2 RT-THEO-PRINT,TH-CLUMP-OF-MOSS
|
|
PRINTI " into the water. It dissolves upon impact and reveals a beautiful opal, which slowly sinks into the murky depths."
|
|
CRLF
|
|
REMOVE TH-CLUMP-OF-MOSS
|
|
RTRUE
|
|
?CCL26: ICALL RT-CYOU-MSG,STR?755,STR?756
|
|
PRINTI "to hit the moss"
|
|
EQUAL? GL-PRSA,V?TOUCH-TO \?CCL35
|
|
PRINTI " with "
|
|
ICALL1 RT-THEO-PRINT
|
|
JUMP ?CND33
|
|
?CCL35: ZERO? GL-PRSI /?CND33
|
|
PRINTI " with "
|
|
ICALL1 RT-THEI-PRINT
|
|
?CND33: PRINTI " but"
|
|
ICALL RT-YOU-MSG,STR?228,STR?229
|
|
PRINTR "not able to reach it."
|
|
?CCL21: EQUAL? GL-PRSA,V?THROW \?CCL38
|
|
EQUAL? GL-PRSO,CH-TRAINED-PIGEON /FALSE
|
|
CALL1 RT-IDROP-MSG
|
|
ZERO? STACK /TRUE
|
|
PRINTI "Good throw! "
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINTI " hit"
|
|
ICALL2 RT-S-NOS-MSG,GL-PRSO
|
|
PRINTI " the clump, knock"
|
|
ICALL2 RT-S-NOS-MSG,GL-PRSO
|
|
PRINTI " it loose, and everything falls into the water. "
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINTI " sink"
|
|
ICALL2 RT-S-NOS-MSG,GL-PRSO
|
|
PRINTI " immediately. The moss, however, dissolves upon impact and reveals a beautiful opal, which slowly follows "
|
|
ICALL1 RT-THEO-PRINT
|
|
PRINTI " into the murky depths."
|
|
CRLF
|
|
REMOVE TH-CLUMP-OF-MOSS
|
|
REMOVE GL-PRSO
|
|
FCLEAR GL-PRSO,FL-WORN
|
|
RTRUE
|
|
?CCL38: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINTI "The bullet dislodges the clump and knocks it into the water. The moss dissolves upon impact and reveals a beautiful opal, which slowly sinks into the murky depths."
|
|
CRLF
|
|
REMOVE TH-CLUMP-OF-MOSS
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-BLIGH-BOAT,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \FALSE
|
|
PRINTR "The boat is a true-to-life replica of the rowboat that Captain Bligh sailed to Pitcairn Island after the mutiny on the Bounty."
|
|
|
|
|
|
.FUNCT RT-AC-TH-ANCHOR,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
IN? TH-ANCHOR,TH-BOAT \?CCL6
|
|
PRINTR "It's slimy and green and covered with river crud. Yuck!"
|
|
?CCL6: PRINTR "It's in the water."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL10
|
|
PRINT K-RICOCHET-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL10: IN? CH-PLAYER,TH-BOAT /?CCL12
|
|
PRINT K-MUST-BE-IN-BOAT-MSG
|
|
PRINTR "do that."
|
|
?CCL12: EQUAL? GL-PRSA,V?TAKE \?CCL14
|
|
IN? TH-ANCHOR,TH-BOAT \?CCL17
|
|
PRINTR "Oomph! It's too heavy to carry."
|
|
?CCL17: MOVE TH-ANCHOR,TH-BOAT
|
|
CALL1 RT-SAY-RAISE-ANCHOR
|
|
RSTACK
|
|
?CCL14: EQUAL? GL-PRSA,V?RAISE,V?HAUL,V?WEIGH /?CTR18
|
|
EQUAL? GL-PRSA,V?PULL \?CCL19
|
|
?CTR18: IN? TH-ANCHOR,LG-WATER \?CCL24
|
|
MOVE TH-ANCHOR,TH-BOAT
|
|
CALL1 RT-SAY-RAISE-ANCHOR
|
|
RSTACK
|
|
?CCL24: PRINT K-ANCHOR-ALREADY-OUT-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL19: EQUAL? GL-PRSA,V?LOWER,V?DROP \?CCL26
|
|
IN? TH-ANCHOR,LG-WATER \?CCL29
|
|
PRINTR "The anchor is already in the water."
|
|
?CCL29: MOVE TH-ANCHOR,LG-WATER
|
|
ICALL2 RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
|
|
CALL1 RT-SAY-LOWER-ANCHOR
|
|
RSTACK
|
|
?CCL26: EQUAL? GL-PRSA,V?THROW,V?PUT \FALSE
|
|
EQUAL? GL-PRSI,LG-WATER \?CCL34
|
|
MOVE TH-ANCHOR,LG-WATER
|
|
ICALL2 RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
|
|
CALL1 RT-SAY-LOWER-ANCHOR
|
|
RSTACK
|
|
?CCL34: EQUAL? GL-PRSI,TH-BOAT \?CCL36
|
|
MOVE TH-ANCHOR,TH-BOAT
|
|
CALL1 RT-SAY-RAISE-ANCHOR
|
|
RSTACK
|
|
?CCL36: CALL1 RT-IMPOSSIBLE-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-NELSON-STATUE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
ICALL2 RT-CTHEO-PRINT,TH-NELSON-STATUE
|
|
PRINTI " is perched high above you, on top of the column."
|
|
FSET? TH-NELSON-STATUE,FL-OPENED \?CND4
|
|
IN? TH-RUBY,TH-NELSON-STATUE \?CND4
|
|
PRINTC 32
|
|
PRINT K-GLINT-MSG
|
|
?CND4: CRLF
|
|
RTRUE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL2 RT-IMPOSSIBLE-PUT-IN-ON-MSG,TH-NELSON-STATUE
|
|
ZERO? STACK \TRUE
|
|
EQUAL? GL-PRSA,V?LOOK-INSIDE \?CCL13
|
|
ICALL1 RT-CYOU-MSG
|
|
PRINTR "can't see inside the statue."
|
|
?CCL13: EQUAL? GL-PRSA,V?REACH-IN,V?SEARCH \FALSE
|
|
ICALL1 RT-CYOU-MSG
|
|
PRINTR "can't reach the statue."
|
|
|
|
|
|
.FUNCT RT-AC-TH-CROWN-JEWELS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "Despite its adventures, the Regalia doesn't look any the worse for wear."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
SET 'GL-P-IT-OBJECT,TH-CROWN-JEWELS
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-TH-ETHERIUM-AMPOULE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
FSET? TH-ETHERIUM-AMPOULE,FL-BROKEN \?CCL6
|
|
PRINTI "broken ampoule"
|
|
RTRUE
|
|
?CCL6: PRINTI "ampoule of etherium"
|
|
RTRUE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
FSET? TH-ETHERIUM-AMPOULE,FL-BROKEN \?CCL10
|
|
CALL1 RT-AC-TH-BROKEN-AMPOULE
|
|
RSTACK
|
|
?CCL10: EQUAL? GL-PRSA,V?MUNG,V?OPEN \?CCL12
|
|
ZERO? GL-NOW-PRSI? \?CCL12
|
|
IN? TH-ETHERIUM-AMPOULE,GL-WINNER /?CND15
|
|
ICALL1 RT-CYOU-MSG
|
|
ICALL RT-WOULD-HAVE-TO-MSG,STR?738,GL-PRSO
|
|
PRINTI " to do that."
|
|
CRLF
|
|
RETURN 2
|
|
?CND15: FSET? GL-PLACE-CUR,FL-NO-ETHERIUM \?CCL19
|
|
CALL1 RT-WHO-SAYS?
|
|
EQUAL? STACK,CH-HOLMES \?CND20
|
|
PRINTI "Holmes stops you. ""Do try to be discreet, old boy. My research is supposed to be kept secret."""
|
|
CRLF
|
|
RETURN 2
|
|
?CND20: PRINTI "The etherium renders everyone quite unconscious. Unfortunately, word of the unusual phenomenon soon leaks out, the existence of the secret chemical is exposed, and you are arrested for violating the Official Secrets Act.
|
|
|
|
Because he thinks you are a traitor, even Lestrade refuses to visit you in prison. His absence is the only bright spot of your twenty-year incarceration."
|
|
CRLF
|
|
ICALL1 RT-QSR
|
|
RETURN 2
|
|
?CCL19: EQUAL? GL-PLACE-CUR,RM-LAIR /?CND17
|
|
CALL1 RT-WHO-SAYS?
|
|
EQUAL? STACK,CH-HOLMES \?CND17
|
|
EQUAL? GL-PLACE-CUR,RM-BAR-OF-GOLD /?CND17
|
|
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL,RM-HOLMES-STUDY,RM-EVANGELIST-CHAPEL /?CND17
|
|
CALL2 RT-FIND-FLAME,GL-PLACE-CUR
|
|
ZERO? STACK \?CND17
|
|
PRINTR "Holmes stops you just in time. ""This is neither the time nor the place for experimentation."""
|
|
?CND17: ICALL2 CLEAR-ALL-FLAGS,TH-ETHERIUM-AMPOULE
|
|
FSET TH-ETHERIUM-AMPOULE,FL-TAKEABLE
|
|
FSET TH-ETHERIUM-AMPOULE,FL-READABLE
|
|
FSET TH-ETHERIUM-AMPOULE,FL-BROKEN
|
|
GETPT TH-ETHERIUM-AMPOULE,P?ADJECTIVE
|
|
PUT STACK,0,W?BROKEN
|
|
PRINTI "You break open the ampoule."
|
|
EQUAL? GL-PLACE-CUR,RM-BAR-OF-GOLD \?CCL31
|
|
PRINTR " The etherium fumes mix with the heavy air of the opium den. No one seems to notice."
|
|
?CCL31: FSET? GL-PLACE-CUR,FL-INDOORS \?CCL33
|
|
CALL2 RT-FIND-FLAME,GL-PLACE-CUR
|
|
ZERO? STACK \?CTR35
|
|
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL,RM-HOLMES-STUDY,RM-EVANGELIST-CHAPEL \?CCL36
|
|
?CTR35: PRINTI " As soon as the volatile etherium comes in contact with the flame"
|
|
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \?CCL41
|
|
PRINTI " of the gas light"
|
|
JUMP ?CND39
|
|
?CCL41: EQUAL? GL-PLACE-CUR,RM-HOLMES-STUDY \?CCL43
|
|
PRINTI " of the fireplace"
|
|
JUMP ?CND39
|
|
?CCL43: EQUAL? GL-PLACE-CUR,RM-EVANGELIST-CHAPEL \?CND39
|
|
PRINTI " of the candles"
|
|
?CND39: PRINTI ", it explodes."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "B O O M !!!"
|
|
CRLF
|
|
CRLF
|
|
PRINTI "You awaken several days later in the hospital. Inspector Lestrade is there with flowers for your bedside table. He is full of news about how he plans to solve the case. Upon hearing this, you lapse back into a coma from which you have no particular desire to emerge."
|
|
CRLF
|
|
ICALL1 RT-QSR
|
|
RTRUE
|
|
?CCL36: PRINTI " The etherium is released into the room."
|
|
FSET? TH-BREATH,FL-LOCKED /?CCL47
|
|
FSET CH-PLAYER,FL-ASLEEP
|
|
PRINTI " Suddenly, everything starts to spin. You pass out and fall to the ground. Sometime later you awaken and stumble back to your feet."
|
|
CRLF
|
|
ICALL RT-CLOCK-JMP,6,0,0
|
|
EQUAL? GL-PLACE-CUR,RM-LAIR \?CND45
|
|
ICALL1 RT-DOES-MORIARTY-WIN
|
|
JUMP ?CND45
|
|
?CCL47: CALL2 RT-ETHERIUM-EFFECT,TRUE-VALUE
|
|
ZERO? STACK /?CND50
|
|
PRINTI " You see everyone"
|
|
CALL2 RT-VISIBLE?,CH-HOLMES
|
|
ZERO? STACK /?CND52
|
|
PRINTI " but Holmes"
|
|
?CND52: PRINTI " pass out."
|
|
?CND50: CRLF
|
|
?CND45: MOVE TH-ETHERIUM-GAS,GL-PLACE-CUR
|
|
CALL RT-DO-CLOCK-SET,GL-TIME-PARM,6,0,0
|
|
ICALL RT-ALARM-SET-REL,RT-I-WAKE-UP,STACK
|
|
RTRUE
|
|
?CCL33: PRINTR " The etherium fumes dissipate quickly."
|
|
?CCL12: ZERO? GL-NOW-PRSI? \?CCL55
|
|
EQUAL? GL-PRSA,V?SHOOT /?CTR54
|
|
EQUAL? GL-PRSA,V?BURN-WITH \?CCL55
|
|
ZERO? GL-PRSI /?CTR54
|
|
FSET? GL-PRSI,FL-BURNABLE \?CCL55
|
|
FSET? GL-PRSI,FL-LIGHTED \?CCL55
|
|
?CTR54: EQUAL? GL-PRSA,V?SHOOT \?CND66
|
|
PRINTI "Couldn't resist it, could you?"
|
|
?CND66: CRLF
|
|
CRLF
|
|
PRINTI "B O O M !!!"
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Your nerves - already fragile from the Afghan campaign - snap like a dry twig. You collapse into a babbling pile of jello, and white-coated attendants take you away to a nice sunlit room where Lestrade visits on alternate Tuesdays."
|
|
CRLF
|
|
CALL1 RT-QSR
|
|
RSTACK
|
|
?CCL55: EQUAL? GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
PRINTR "The label on the ampoule reads, ""Etherium. Extremely volatile. Do not open in the presence of fire."""
|
|
|
|
|
|
.FUNCT RT-AC-TH-BROKEN-AMPOULE
|
|
EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINT K-SHATTER-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-ETHERIUM-GAS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTI "Etherium is a colourless gas, which"
|
|
ICALL1 RT-YOU-MSG
|
|
PRINTR "cannot see."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SMELL \?CCL7
|
|
IN? TH-ETHERIUM-GAS,GL-PLACE-CUR \?CCL10
|
|
FSET? TH-BREATH,FL-LOCKED /?CCL10
|
|
CALL1 RT-SMELL-ETHERIUM?
|
|
RSTACK
|
|
?CCL10: ICALL1 RT-CYOU-MSG
|
|
PRINTR "cannot smell it."
|
|
?CCL7: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-LAB-EQUIPMENT,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The equipment is a jumble of test tubes, beakers, and pipettes."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /FALSE
|
|
ICALL RT-CYOU-MSG,STR?769,STR?770
|
|
PRINTI "towards the equipment, but then"
|
|
ICALL RT-YOU-MSG,STR?771,STR?772,TRUE-VALUE
|
|
PRINTI "Holmes's oft-repeated admonition to leave undisturbed his various experiments, and"
|
|
ICALL RT-YOU-MSG,STR?773,STR?774,TRUE-VALUE
|
|
ICALL1 RT-YOUR-MSG
|
|
PRINTR "hand."
|
|
|
|
|
|
.FUNCT RT-AC-TH-ROPE,CONTEXT,T1,T2
|
|
SET 'T1,TH-ROPE-AUX1
|
|
SET 'T2,TH-ROPE-AUX2
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
EQUAL? T1,-1 /FALSE
|
|
ICALL2 RT-CTHEO-PRINT,TH-ROPE
|
|
PRINTI " is securely bound to "
|
|
ICALL2 RT-THEO-PRINT,T1
|
|
EQUAL? T2,-1 /?CND7
|
|
PRINTI " and "
|
|
ICALL2 RT-THEO-PRINT,T2
|
|
?CND7: PRINTR "."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?TAKE \?CCL15
|
|
EQUAL? T1,-1 /?CCL15
|
|
ICALL2 RT-CTHEO-PRINT,TH-ROPE
|
|
PRINTI " is securely bound to "
|
|
ICALL2 RT-THEO-PRINT,T1
|
|
EQUAL? T2,-1 /?CND18
|
|
PRINTI " and "
|
|
ICALL2 RT-THEO-PRINT,T2
|
|
?CND18: PRINTR "."
|
|
?CCL15: EQUAL? GL-PRSA,V?CUT \?PRD23
|
|
EQUAL? GL-PRSI,TH-KNIFE /?CCL21
|
|
?PRD23: EQUAL? GL-PRSA,V?UNTIE \FALSE
|
|
?CCL21: EQUAL? T1,-1 /?CCL28
|
|
EQUAL? T2,-1 \?CND29
|
|
ICALL RT-PERFORM,V?UNTIE,T1
|
|
RTRUE
|
|
?CND29: ICALL RT-CYOU-MSG,STR?775,STR?776
|
|
EQUAL? GL-PRSA,V?UNTIE \?CCL33
|
|
ICALL RT-CYOU-MSG,STR?720,STR?721
|
|
JUMP ?CND31
|
|
?CCL33: ICALL RT-CYOU-MSG,STR?777,STR?778
|
|
?CND31: ICALL2 RT-THEO-PRINT,T1
|
|
EQUAL? T2,-1 /?CND34
|
|
PRINTI " and "
|
|
ICALL2 RT-THEO-PRINT,T2
|
|
?CND34: PRINTI ", and"
|
|
ICALL RT-YOU-MSG,STR?228,STR?229
|
|
PRINTI "left holding the rope."
|
|
CRLF
|
|
EQUAL? GL-PLACE-CUR,RM-LAIR \?CND36
|
|
EQUAL? CH-MORIARTY,T1,T2 \?CND36
|
|
FSET? CH-MORIARTY,FL-ASLEEP /?CND36
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Bad move. As soon as he is free, Moriarty unlocks his desk and pulls out a pistol. ""Thank you for releasing me, gentlemen,"" he says, waving the gun at you. ""Very sporting of you."" He glances at his pocketwatch. ""We shouldn't have too long to wait."" Minutes later you hear newsboys running through the streets shouting about the resignation of the Prime Minister."
|
|
CRLF
|
|
ICALL1 RT-QSR
|
|
?CND36: SET 'TH-ROPE-AUX1,-1
|
|
FCLEAR T1,FL-LOCKED
|
|
EQUAL? T2,-1 /?CND41
|
|
SET 'TH-ROPE-AUX2,-1
|
|
FCLEAR T2,FL-LOCKED
|
|
?CND41: MOVE TH-ROPE,GL-WINNER
|
|
RTRUE
|
|
?CCL28: ICALL1 RT-CTHEO-PRINT
|
|
PRINTR "isn't tied to anyone."
|
|
|
|
|
|
.FUNCT RT-AC-TH-LIQUID,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It's a clear, colourless liquid."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL7
|
|
PRINTR "Sorry, you missed."
|
|
?CCL7: CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /?CCL9
|
|
CALL2 RT-HOLMES-HITS,TH-LIQUID
|
|
RSTACK
|
|
?CCL9: EQUAL? GL-PRSA,V?SMELL \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
CALL2 RT-HOLMES-HITS,TH-LIQUID
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-SYRINGE
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL3
|
|
PRINT K-ANNIE-OAKELEY-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /FALSE
|
|
CALL2 RT-HOLMES-HITS,TH-SYRINGE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-MOROCCO-CASE
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /FALSE
|
|
FSET? CH-HOLMES,FL-ASLEEP \FALSE
|
|
ICALL2 RT-HOLMES-HITS,TH-MOROCCO-CASE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-DEAD-PIGEON
|
|
EQUAL? GL-PRSA,V?DROP,V?RELEASE,V?THROW \FALSE
|
|
EQUAL? GL-PRSO,TH-DEAD-PIGEON \FALSE
|
|
PRINTI "Thud."
|
|
CRLF
|
|
MOVE TH-DEAD-PIGEON,GL-PLACE-CUR
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-PIGEONS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The pigeons strut around the square as if they own it."
|
|
?CCL3: EQUAL? CONTEXT,K-M-WINNER \?CCL5
|
|
ICALL2 RT-CTHEO-PRINT,TH-PIGEONS
|
|
PRINTR " coo in response."
|
|
?CCL5: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?TAKE \?CCL9
|
|
EQUAL? GL-PRSO,TH-PIGEONS \?CCL9
|
|
ICALL2 RT-CTHEO-PRINT,TH-PIGEONS
|
|
PRINTR " scurry out of reach."
|
|
?CCL9: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
EQUAL? GL-PRSO,TH-PIGEONS \FALSE
|
|
ICALL RT-SHOOT-BIRDS,TH-PIGEONS,STR?779
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-SHOOT-BIRDS,THING,STR
|
|
ICALL2 RT-CTHEO-PRINT,THING
|
|
PRINTI " all fly up into the air at the sound of the gunshot. Fortunately, none of them was hit. They soon land and resume "
|
|
PRINT STR
|
|
PRINTR "."
|
|
|
|
|
|
.FUNCT RT-AC-TH-RED-GLASS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It's just a worthless bauble."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL7
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINT K-SHATTER-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL7: EQUAL? GL-PRSA,V?TAKE \FALSE
|
|
IN? TH-RUBY,CH-SHERMAN \FALSE
|
|
ICALL RT-IMPOLITE-MSG,STR?715,STR?716
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-BED,WHO
|
|
EQUAL? GL-PRSA,V?ENTER \?CCL3
|
|
PRINT K-NO-RESTING-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: EQUAL? GL-PRSA,V?LOOK-UNDER \FALSE
|
|
CALL1 RT-WHO-SAYS? >WHO
|
|
EQUAL? WHO,CH-HOLMES \?CCL8
|
|
PRINTR "Holmes gives you a swift kick in the rear and says, ""Watson! There are much more important matters afoot."""
|
|
?CCL8: EQUAL? WHO,CH-WIGGINS \?CCL10
|
|
PRINTR "Wiggins says, ""Would you get yer bleedin' arse in gear."""
|
|
?CCL10: PRINTR "Looking for monsters?"
|
|
|
|
|
|
.FUNCT RT-AC-TH-MATCHBOOK
|
|
ZERO? GL-NOW-PRSI? \?CCL3
|
|
EQUAL? GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON \?CCL6
|
|
CRLF
|
|
PRINTI "Tired of your dull, boring job? Tired of the whole Victorian era? Become a detective! Apply now to the LESTRADE school of sleuthing. In just three short days, Inspector G. Lestrade will teach you everything he knows of the art of detection. Here are just some of the things you'll learn."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "*** Fifteen new and exciting ways to"
|
|
ICALL1 RT-WRAP-PRINT
|
|
PRINTI "say ""'Ullo! Wot's this?"""
|
|
CRLF
|
|
PRINTI "*** Modern obfuscatory locution"
|
|
ICALL1 RT-WRAP-PRINT
|
|
PRINTI "eschewel techniques."
|
|
CRLF
|
|
PRINTI "*** How to insult private detectives."
|
|
CRLF
|
|
CRLF
|
|
PRINTR "Included in your tuition is an official Scotland Yard notebook, and a brand new bobby pin. Just send twenty-five pounds to the LESTRADE, that's L-E-S-T-R-A-D-E school of sleuthing. Act now, and the Inspector will tell you how he knows that people are guilty simply by looking at them."
|
|
?CCL6: EQUAL? GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
FSET? GL-PRSI,FL-LIGHTED \?PRD15
|
|
FSET? GL-PRSI,FL-BURNABLE /?CTR12
|
|
?PRD15: EQUAL? GL-PRSI,TH-PIPE \?CCL13
|
|
FSET? TH-TOBACCO,FL-LIGHTED \?CCL13
|
|
?CTR12: ICALL2 RT-CTHEO-PRINT,TH-MATCHBOOK
|
|
PRINTI " catches fire."
|
|
CRLF
|
|
FSET TH-MATCHBOOK,FL-LIGHTED
|
|
CALL RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
|
|
CALL RT-ALARM-SET-REL,RT-I-MATCHBOOK-OUT,STACK
|
|
RSTACK
|
|
?CCL13: ICALL1 RT-CTHEI-PRINT
|
|
ICALL2 RT-ISNT-ARENT-MSG,GL-PRSI
|
|
PRINTR "burning."
|
|
?CCL3: ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSA,V?PUT,V?PUT-ON \FALSE
|
|
EQUAL? GL-PRSO,TH-MATCH /FALSE
|
|
CALL2 RT-CANT-PUT-IN-ON-MSG,TH-MATCHBOOK
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-PICTURES,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
ICALL PRINT-SDESC,STR?780,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN \?CCL5
|
|
PRINTR "They look just like some of your relatives."
|
|
?CCL5: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?LOOK-BEHIND \FALSE
|
|
PRINTR "Thorough, aren't you? There's nothing there."
|
|
|
|
|
|
.FUNCT RT-AC-TH-CLUE-BOOK,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It looks like a very old book."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
EQUAL? GL-PRSA,V?READ,V?EXAMINE \?CCL10
|
|
FSET? TH-CLUE-BOOK,FL-OPENED \?CCL13
|
|
ICALL1 RT-READ-CLUE-BOOK
|
|
RTRUE
|
|
?CCL13: PRINTR "The title is, ""Secret Writing and Invisible Inks."""
|
|
?CCL10: EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL15
|
|
FSET? TH-CLUE-BOOK,FL-OPENED \?CCL18
|
|
PRINTR "The pages are yellowed with age."
|
|
?CCL18: ICALL1 RT-CYOU-MSG
|
|
ICALL2 RT-WOULD-HAVE-TO-MSG,STR?781
|
|
CRLF
|
|
RTRUE
|
|
?CCL15: EQUAL? GL-PRSA,V?OPEN \?CCL20
|
|
FSET? TH-CLUE-BOOK,FL-OPENED \?CCL23
|
|
PRINTR "The book is already open."
|
|
?CCL23: FSET TH-CLUE-BOOK,FL-OPENED
|
|
PRINTR "The book falls open to the introduction."
|
|
?CCL20: EQUAL? GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \FALSE
|
|
PRINTR "Perfect example of a typically repressive Victorian mentality."
|
|
|
|
|
|
.FUNCT RT-AC-TH-BOOK-PAGE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It has writing on it."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?READ,V?EXAMINE \?CCL7
|
|
FSET? TH-CLUE-BOOK,FL-OPENED \?CCL10
|
|
ICALL1 RT-READ-CLUE-BOOK
|
|
RTRUE
|
|
?CCL10: ICALL1 RT-CYOU-MSG
|
|
ICALL2 RT-WOULD-HAVE-TO-MSG,STR?227
|
|
PRINTR "the book first."
|
|
?CCL7: EQUAL? GL-PRSA,V?FLIP,V?TURN \FALSE
|
|
FSET? TH-CLUE-BOOK,FL-OPENED \?CCL15
|
|
PRINTR "A quick review of the remainder of the book reveals nothing interesting."
|
|
?CCL15: ICALL1 RT-CYOU-MSG
|
|
ICALL2 RT-WOULD-HAVE-TO-MSG,STR?227
|
|
PRINTR "the book first."
|
|
|
|
|
|
.FUNCT RT-READ-CLUE-BOOK
|
|
PRINTI "A few underlined sentences catch your eye."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Invisible writing has a long and honorable history. It is used primarily when it is felt that a code or cipher may be too easily broken."""
|
|
CRLF
|
|
CRLF
|
|
PRINTR """Most invisible inks are somewhat sticky to the touch, and virtually all of them become visible when exposed to moderate heat."""
|
|
|
|
|
|
.FUNCT RT-AC-TH-BANK-OF-CANDLES
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /FALSE
|
|
PRINTR "After a moment's reflection you decide to leave undisturbed the offerings that others have left behind."
|
|
|
|
|
|
.FUNCT RT-AC-TH-PRAMS
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK \?CCL3
|
|
EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH \FALSE
|
|
?CCL3: PRINTR "The nannies move the prams beyond your reach and glare at you menacingly."
|
|
|
|
|
|
.FUNCT RT-AC-TH-PARK-FLOWERS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "You see daisies, petunias, roses, peonies, marigolds, and a host of golden daffodils."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?TAKE \?CCL7
|
|
PRINTR "Please don't pick the flowers."
|
|
?CCL7: EQUAL? GL-PRSA,V?EAT \?CCL9
|
|
PRINTR "Please don't eat the daisies."
|
|
?CCL9: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-ARCH,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
ICALL PRINT-SDESC,STR?782,CLASS,FALSE-VALUE,FALSE-VALUE
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN \?CCL5
|
|
PRINTR "It's a large triumphal arch, surmounted by a bronze chariot."
|
|
?CCL5: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINT K-RICOCHET-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-SHAFT
|
|
EQUAL? GL-PRSA,V?EXAMINE,V?LOOK-INSIDE,V?LOOK-DOWN /?CTR2
|
|
EQUAL? GL-PRSA,V?SEARCH \?CCL3
|
|
?CTR2: PRINTR "It's a long way down."
|
|
?CCL3: EQUAL? GL-PRSA,V?ENTER,V?LEAP \?CCL7
|
|
PRINT K-SUICIDE-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL7: EQUAL? GL-PRSA,V?PUT \FALSE
|
|
ZERO? GL-NOW-PRSI? /FALSE
|
|
EQUAL? GL-PRSO,CH-TRAINED-PIGEON /FALSE
|
|
REMOVE GL-PRSO
|
|
FCLEAR GL-PRSO,FL-WORN
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINTI " disappear"
|
|
ICALL2 RT-S-NOS-MSG,GL-PRSO
|
|
PRINTR " into the shaft. A long time later you hear a faint ""thud."""
|
|
|
|
|
|
.FUNCT RT-AC-TH-FIREPLACE,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
CALL PRINT-SDESC,STR?783,CLASS,FALSE-VALUE,FALSE-VALUE
|
|
RSTACK
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL7
|
|
PRINTR "In the fireplace is a roaring fire that would surely consume anything you put into it."
|
|
?CCL7: EQUAL? GL-PRSA,V?ENTER,V?LEAP \?CCL9
|
|
PRINT K-SUICIDE-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL9: EQUAL? GL-PRSA,V?PUT \?CCL11
|
|
EQUAL? GL-PRSI,PSEUDO-OBJECT \?CCL11
|
|
FSET? GL-PRSO,FL-BODYPART \?CCL16
|
|
PRINT K-HOT-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL16: IN? GL-PRSO,GLOBAL-OBJECTS \?CCL18
|
|
ICALL1 RT-IMPOSSIBLE-MSG
|
|
RTRUE
|
|
?CCL18: EQUAL? GL-PRSO,TH-ETHERIUM-AMPOULE \?CCL20
|
|
FSET? GL-PRSO,FL-BROKEN /?CCL20
|
|
ICALL RT-PERFORM,V?MUNG,GL-PRSO
|
|
RTRUE
|
|
?CCL20: CALL RT-META-IN?,TH-ETHERIUM-AMPOULE,GL-PRSO
|
|
ZERO? STACK /?CCL24
|
|
FSET? TH-ETHERIUM-AMPOULE,FL-BROKEN /?CCL24
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINTI " disappear"
|
|
ICALL2 RT-S-NOS-MSG,GL-PRSO
|
|
PRINTI " into the fire, which soon reaches the etherium."
|
|
ICALL RT-PERFORM,V?BURN-WITH,TH-ETHERIUM-AMPOULE
|
|
RTRUE
|
|
?CCL24: REMOVE GL-PRSO
|
|
FCLEAR GL-PRSO,FL-WORN
|
|
ICALL1 RT-CTHEO-PRINT
|
|
PRINTI " disappear"
|
|
ICALL2 RT-S-NOS-MSG,GL-PRSO
|
|
PRINTI " into the fire and"
|
|
ICALL2 RT-IS-ARE-MSG,GL-PRSO
|
|
PRINTI "immediately consumed."
|
|
CRLF
|
|
EQUAL? GL-PRSO,CH-TRAINED-PIGEON \TRUE
|
|
ICALL1 RT-KILL-PIGEON
|
|
RTRUE
|
|
?CCL11: EQUAL? GL-PRSA,V?REACH-IN \?CCL30
|
|
PRINT K-HOT-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL30: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINT K-RICOCHET-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-GAS-LIGHT,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
CALL PRINT-SDESC,STR?784,CLASS,FALSE-VALUE,FALSE-VALUE,FALSE-VALUE
|
|
RSTACK
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /?CCL7
|
|
PRINTR "The gas light is out of reach."
|
|
?CCL7: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-CHARIOT,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
CALL PRINT-SDESC,STR?785,CLASS,FALSE-VALUE,FALSE-VALUE
|
|
RSTACK
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /?CCL7
|
|
PRINTR "The chariot is out of reach."
|
|
?CCL7: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINT K-ANNIE-OAKELEY-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-JEWEL-CASE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The case is bent and twisted where the thief attacked it with the mace."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?LOOK-THRU \FALSE
|
|
EQUAL? GL-PRSI,TH-MAGNIFYING-GLASS \FALSE
|
|
PRINTR "It's been wiped clean."
|
|
|
|
|
|
.FUNCT RT-AC-TH-ELIZAS-MOUTH,CONTEXT
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL3
|
|
ZERO? GL-NOW-PRSI? \?CCL3
|
|
PUTP CH-ELIZA-DOOLITTLE,P?OBJ-NOUN,W?GIRL
|
|
PUTP CH-ELIZA-DOOLITTLE,P?OBJ-ADJ,0
|
|
ICALL RT-PERFORM,V?SHOOT,CH-ELIZA-DOOLITTLE
|
|
RTRUE
|
|
?CCL3: EQUAL? GL-PRSA,V?PUT \FALSE
|
|
ZERO? GL-NOW-PRSI? /FALSE
|
|
FSET? TH-ELIZAS-MOUTH,FL-OPENED /?CCL11
|
|
ICALL1 RT-CTHEI-PRINT
|
|
PRINTR " is not open."
|
|
?CCL11: EQUAL? GL-PRSO,TH-ORANGE-PILL,TH-YELLOW-PILL \?CCL13
|
|
CALL2 RT-CURE-ELIZA,GL-PRSO
|
|
RSTACK
|
|
?CCL13: FSET? GL-PRSO,FL-FOOD /?CCL15
|
|
PRINTI "It's hard to imagine that "
|
|
ICALL1 RT-A-PRINT
|
|
PRINTR " would do your patient much good."
|
|
?CCL15: CALL RT-ROOM-IN-ON-MSG?,GL-PRSO,GL-PRSI
|
|
ZERO? STACK \TRUE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT RT-AC-TH-RUBBINGS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "They are brass rubbings made from various inscriptions around the abbey."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?READ \FALSE
|
|
ICALL2 RT-AC-TH-RUBBINGS,K-M-DESCFCN
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-SOFA
|
|
EQUAL? GL-PRSA,V?ENTER \FALSE
|
|
PRINT K-NO-RESTING-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-MARQUEES,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
ICALL PRINT-SDESC,STR?786,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN /?CCL5
|
|
ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?READ,V?LOOK-INSIDE,V?LOOK-ON \FALSE
|
|
?CCL5: SET 'GL-WINDOW,PT?1507
|
|
ICALL2 RT-WINDOW,GL-WINDOW
|
|
SET 'GL-WINDOW,FALSE-VALUE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-SUPPORTS,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
CALL PRINT-SDESC,STR?787,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RSTACK
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINT K-RICOCHET-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-ASH,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "It is dark, almost black, in colour, and quite flakey."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?BLOW-INTO,V?SHOOT \?CCL7
|
|
REMOVE TH-ASH
|
|
ICALL2 RT-CTHEO-PRINT,TH-ASH
|
|
PRINTR " scatters and disappears."
|
|
?CCL7: EQUAL? GL-PRSA,V?HAUL \?CCL9
|
|
PRINTR "Good idea. Let's get the flake out of here."
|
|
?CCL9: EQUAL? GL-PRSA,V?KISS \?CCL11
|
|
PRINT K-PROFANITY-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL11: CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /FALSE
|
|
REMOVE TH-ASH
|
|
PRINTI "As soon as"
|
|
ICALL RT-YOU-MSG,STR?755,STR?756
|
|
PRINTR "to touch the ash, it crumbles and disappears."
|
|
|
|
|
|
.FUNCT RT-AC-TH-CIGARETTE
|
|
EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINT K-ANNIE-OAKELEY-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-TURBAN
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK \?CTR2
|
|
EQUAL? GL-PRSA,V?LOOK-UNDER,V?LOOK-INSIDE \?CCL3
|
|
?CTR2: FSET? CH-AKBAR,FL-ASLEEP \?CND6
|
|
PRINTR "That's stooping pretty low."
|
|
?CND6: PRINTI "The native of India pulls away from you and says, ""As you must know,"
|
|
FSET? TH-WATSONS-HAT,FL-WORN \?CND8
|
|
PRINTI " honourable sir,"
|
|
?CND8: PRINTR " a man's head should never be uncovered. It is an affront to God."""
|
|
?CCL3: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
ICALL RT-PERFORM,V?SHOOT,CH-AKBAR
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-ANCHOR-CHAIN
|
|
EQUAL? GL-PRSA,V?SHOOT \?CCL3
|
|
PRINT K-RICOCHET-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: IN? CH-PLAYER,TH-BOAT /?CCL5
|
|
PRINT K-MUST-BE-IN-BOAT-MSG
|
|
PRINTR "do that."
|
|
?CCL5: EQUAL? GL-PRSA,V?TAKE \?CCL7
|
|
IN? TH-ANCHOR,TH-BOAT \?CCL10
|
|
PRINTR "Oomph! It's too heavy to carry."
|
|
?CCL10: MOVE TH-ANCHOR,TH-BOAT
|
|
CALL1 RT-SAY-RAISE-ANCHOR
|
|
RSTACK
|
|
?CCL7: EQUAL? GL-PRSA,V?RAISE,V?HAUL,V?WEIGH /?CCL12
|
|
EQUAL? GL-PRSA,V?PULL \FALSE
|
|
?CCL12: IN? TH-ANCHOR,LG-WATER \?CCL17
|
|
MOVE TH-ANCHOR,TH-BOAT
|
|
CALL1 RT-SAY-RAISE-ANCHOR
|
|
RSTACK
|
|
?CCL17: PRINT K-ANCHOR-ALREADY-OUT-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-SAY-LOWER-ANCHOR
|
|
ICALL RT-CYOU-MSG,STR?788,STR?789
|
|
PRINTR "the anchor into the water."
|
|
|
|
|
|
.FUNCT RT-SAY-RAISE-ANCHOR
|
|
ICALL RT-CYOU-MSG,STR?790,STR?791
|
|
PRINTI "the anchor and "
|
|
EQUAL? GL-WINNER,CH-PLAYER \?CCL3
|
|
PRINTI "drop"
|
|
JUMP ?CND1
|
|
?CCL3: PRINTI "drops"
|
|
?CND1: PRINTR " it into the boat."
|
|
|
|
|
|
.FUNCT RT-AC-TH-WAX-OBJECT-1,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
ICALL PRINT-SDESC,STR?792,CLASS,TRUE-VALUE,FALSE-VALUE
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN \?CCL5
|
|
PRINTI "You see nothing unusual about"
|
|
ICALL RT-CLAUSE-PRINT,K-P-NC1,K-P-NC1L
|
|
PRINTR "."
|
|
?CCL5: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-LIBRARY-OBJ,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
ICALL PRINT-SDESC,STR?793,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN \?CCL5
|
|
PRINTI "You see nothing unusual about"
|
|
ICALL RT-CLAUSE-PRINT,K-P-NC1,K-P-NC1L
|
|
PRINTR "."
|
|
?CCL5: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?LOOK-INSIDE,V?LOOK-OUTSIDE,V?LOOK-THRU-SWP /?CCL9
|
|
EQUAL? GL-PRSA,V?LOOK-UNDER,V?LOOK-BEHIND,V?LOOK-ON /?CCL9
|
|
EQUAL? GL-PRSA,V?LOOK-THRU,V?SEARCH,V?READ \FALSE
|
|
?CCL9: PRINTI "You see nothing "
|
|
CALL2 RT-PICK-NEXT,GL-BORING-TXT
|
|
PRINT STACK
|
|
PRINTR "."
|
|
|
|
|
|
.FUNCT RT-AC-TH-RAILING
|
|
EQUAL? GL-PRSA,V?CLIMB-OVER \?CCL3
|
|
PRINT K-SUICIDE-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL3: EQUAL? GL-PRSA,V?CLIMB-ON \FALSE
|
|
PRINTR "It's much too dangerous. Besides, it wouldn't bring you any closer to the clapper."
|
|
|
|
|
|
.FUNCT RT-AC-TH-OPIUM-GAS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "The fumes hang thick in the air."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SMELL \?CCL7
|
|
PRINT K-DIZZY-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL7: EQUAL? GL-PRSA,V?BUY,V?BUY-FROM,V?ASK-FOR /?CTR8
|
|
EQUAL? GL-WINNER,CH-DENKEEPER \?CCL9
|
|
EQUAL? GL-PRSA,V?ASK-FOR,V?GIVE \?CCL9
|
|
?CTR8: PRINTR "The proprietor eyes you for a moment and says, ""A gent the likes of you doesn't buy what I 'ave to sell, mate. What is it you really want?"""
|
|
?CCL9: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-PRODUCE,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \?CCL3
|
|
ICALL PRINT-SDESC,STR?794,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RTRUE
|
|
?CCL3: EQUAL? CONTEXT,K-M-DESCFCN \?CCL5
|
|
PRINTR "All the produce looks good. But the giant peas look especially delicious."
|
|
?CCL5: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?SMELL \?CCL9
|
|
CALL1 RT-TIME-OF-DAY
|
|
ZERO? STACK \?CCL12
|
|
PRINTR "The produce smells country fresh."
|
|
?CCL12: PRINTR "The produce smells like it's been there a while."
|
|
?CCL9: EQUAL? GL-PRSA,V?BUY,V?BUY-FROM \?CCL14
|
|
GET GL-P-NAMW,0
|
|
EQUAL? STACK,W?FRUIT,W?FRUITS \?CCL17
|
|
PRINTI "You"
|
|
JUMP ?CND15
|
|
?CCL17: PRINTI "Although the giant peas look tempting, you"
|
|
?CND15: PRINTR " decide to conserve your capital for more important purchases."
|
|
?CCL14: EQUAL? GL-PRSA,V?TAKE,V?STEAL \?CCL19
|
|
PRINT K-THEFT-MSG
|
|
CRLF
|
|
RTRUE
|
|
?CCL19: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
CALL1 RT-WASTE-OF-BULLETS-MSG
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-TRINKETS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
PRINTR "They're mostly just baubles. He's obviously charging way too much for them."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?BUY,V?BUY-FROM \?CCL7
|
|
IN? TH-TELESCOPE,CH-VENDOR \?CCL10
|
|
PRINTR "The vendor says, ""I've got a loverly telescope you might be interested in, guv'nor."""
|
|
?CCL10: PRINTR "You glance at the rest of the vendor's wares and decide you can live without them."
|
|
?CCL7: EQUAL? GL-PRSA,V?TAKE,V?STEAL \FALSE
|
|
PRINT K-THEFT-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-GUARDS-KEYS,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
ICALL1 RT-CYOU-MSG
|
|
PRINTR "can't see them. They're in the guard's pocket."
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
EQUAL? GL-PRSA,V?LISTEN \FALSE
|
|
ZERO? GL-NOW-PRSI? \FALSE
|
|
ICALL2 RT-CTHEO-PRINT,CH-BANK-GUARD
|
|
PRINTR " is idly jangling some keys in his pocket."
|
|
|
|
|
|
.FUNCT RT-AC-TH-NELSON-EYE,CONTEXT
|
|
EQUAL? CONTEXT,K-M-DESCFCN \?CCL3
|
|
FSET? TH-NELSON-STATUE,FL-OPENED \FALSE
|
|
IN? TH-RUBY,TH-NELSON-STATUE \FALSE
|
|
PRINTC 32
|
|
PRINT K-GLINT-MSG
|
|
RTRUE
|
|
?CCL3: ZERO? CONTEXT \FALSE
|
|
CALL1 RT-TOUCH-VERB?
|
|
ZERO? STACK /?CCL11
|
|
ICALL2 RT-CTHEO-PRINT,TH-NELSON-EYE
|
|
PRINTR " is too high."
|
|
?CCL11: EQUAL? GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL13
|
|
CALL2 RT-AC-TH-NELSON-EYE,K-M-DESCFCN
|
|
ZERO? STACK \FALSE
|
|
PRINTR "It is too high up to get a good look."
|
|
?CCL13: EQUAL? GL-PRSA,V?SHOOT \FALSE
|
|
PRINT K-ANNIE-OAKELEY-MSG
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT RT-AC-TH-PANELLING,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \FALSE
|
|
CALL PRINT-SDESC,STR?795,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-INSTRUMENTS,CONTEXT,CLASS
|
|
EQUAL? CONTEXT,K-M-SDESC \FALSE
|
|
CALL PRINT-SDESC,STR?796,CLASS,FALSE-VALUE,TRUE-VALUE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT RT-AC-TH-PLAYER-BODY
|
|
GET GL-P-NAMW,0
|
|
EQUAL? STACK,W?NOSE \FALSE
|
|
EQUAL? GL-PRSA,V?TAKE \?PRD7
|
|
EQUAL? GL-P-PRSA-WORD,W?HOLD /?CCL3
|
|
?PRD7: EQUAL? GL-PRSA,V?STEAL \FALSE
|
|
EQUAL? GL-P-PRSA-WORD,W?PINCH \FALSE
|
|
?CCL3: ICALL RT-PERFORM,V?TAKE,TH-BREATH
|
|
RTRUE
|
|
|
|
.ENDI
|