historicalsource/plunderedhearts
1
0
Fork 0
mirror of https://github.com/historicalsource/plunderedhearts synced 2024-06-16 15:01:00 +03:00
Code Issues Releases Wiki Activity

Revision 26 (Original Source)

Browse source
This commit is contained in:
historicalsource 2019-04-14 00:37:50 -04:00
commit 54d2e05fcc
28 changed files with 50605 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
README.md Normal file
View file

@ -0,0 +1 @@
# plunderedhearts

788
clothes.zap Normal file
View file

@ -0,0 +1,788 @@
.FUNCT PILE-OF-CLOTHES-F
EQUAL? PRSA,V?PUT-ON,V?EXAMINE,V?TAKE /?CCL3
EQUAL? PRSA,V?WEAR \FALSE
?CCL3: EQUAL? HERE,LANDING,CAPT-QUARTERS \?CCL8
CALL CANT-REACH,PRSO
RSTACK
?CCL8: CALL ITAKE,FALSE-VALUE
EQUAL? STACK,M-FATAL,FALSE-VALUE /FALSE
REMOVE PILE-OF-CLOTHES
FSET PILE-OF-CLOTHES,TOUCHBIT
MOVE SHIRT,PROTAGONIST
MOVE PANTS,PROTAGONIST
FCLEAR SHIRT,NDESCBIT
FCLEAR PANTS,NDESCBIT
FSET SHIRT,TOUCHBIT
FSET PANTS,TOUCHBIT
INC 'SCORE
EQUAL? PRSA,V?EXAMINE \?CCL13
PRINTI "To get a better look, y"
JUMP ?CND11
?CCL13: PRINTC 89
?CND11: PRINTI "ou pick up"
CALL TPRINT,PILE-OF-CLOTHES
PRINTI ". It separates into a pair of "
PRINTD PANTS
PRINTI " and"
CALL ARPRINT,SHIRT
RSTACK
.FUNCT GEN-CLOTHES,?TMP1
GET P-NAMW,0 >?TMP1
GET P-NAMW,1
EQUAL? W?CLOTHES,?TMP1,STACK \?CCL3
EQUAL? HERE,SLEEPING-CUPBOARD \?CCL6
FSET? SHIRT,TOUCHBIT /?CCL6
FSET? PANTS,TOUCHBIT /?CCL6
RETURN PILE-OF-CLOTHES
?CCL6: EQUAL? PRSA,V?TAKE-OFF,V?REMOVE \FALSE
CALL PRE-DOFF
ZERO? STACK /?CCL14
RETURN NOT-HERE-OBJECT
?CCL14: CALL REMOVE-CLOTHES,TRUE-VALUE
RETURN NOT-HERE-OBJECT
?CCL3: GET P-NAMW,0 >?TMP1
GET P-NAMW,1
EQUAL? W?DRESS,?TMP1,STACK \FALSE
EQUAL? PRSA,V?TAKE-OFF,V?REMOVE \?CCL19
CALL PRE-DOFF
ZERO? STACK /?CCL22
RETURN NOT-HERE-OBJECT
?CCL22: CALL REMOVE-CLOTHES,TRUE-VALUE
RETURN NOT-HERE-OBJECT
?CCL19: EQUAL? PRSA,V?DROP \FALSE
FSET? GOWN,WORNBIT \?CCL27
CALL HELD?,DRESS
ZERO? STACK /?CCL27
PRINTC 91
PRINTD DRESS
PRINTC 93
CRLF
RETURN DRESS
?CCL27: FSET? DRESS,WORNBIT \?CCL31
CALL HELD?,GOWN
ZERO? STACK /?CCL31
PRINTC 91
PRINTD GOWN
PRINTC 93
CRLF
RETURN GOWN
?CCL31: CALL DO-FIRST,STR?296
RETURN NOT-HERE-OBJECT
.FUNCT GARMENT-F
EQUAL? PRSA,V?EXAMINE \?CCL3
EQUAL? PRSO,DRESS \?CCL6
ZERO? WET-DRESS /?CCL9
CALL WET-DESC,DRESS
RTRUE
?CCL9: PRINTI "It is your favorite old frock, looking rather bedraggled without its hoops"
FSET? DRESS,EVERYBIT /?CND10
FSET DRESS,EVERYBIT
PRINTI ", which you hadn't time to put on during the pirate attack"
?CND10: PRINTI ". "
FSET? DRESS,MUNGBIT \?CCL14
PRINTI "There is a tear out of the skirt"
JUMP ?CND12
?CCL14: PRINTI "The worn fabric of the skirt often catches on things, tearing"
?CND12: PRINT PCR
RTRUE
?CCL6: EQUAL? PRSO,GOWN \?CCL16
PRINTI "Of cream silk, heavily embroidered on the stiffened skirt and stomacher,"
CALL TPRINT,GOWN
PRINTI " is a work of art"
PRINT PCR
RTRUE
?CCL16: EQUAL? PRSO,SHIRT \?CCL18
CALL CTPRINT,SHIRT
PRINTI " is clean and not too big"
FSET? SHIRT,MUNGBIT \?CND19
PRINT TEAR
?CND19: PRINT PCR
RTRUE
?CCL18: CALL CTPRINT,PANTS
PRINTR " are about your size."
?CCL3: EQUAL? PRSA,V?LOOK-UNDER,V?LOOK-INSIDE \?CCL22
FSET? PRSO,WORNBIT \?CCL22
PRINTI "Just"
CALL APRINT,CHEMISE
PRINTI ", and a couple fleas"
PRINT PCR
RTRUE
?CCL22: EQUAL? PRSA,V?WEAR \?CCL26
EQUAL? PRSO,GOWN,DRESS \?PRD31
FSET? SHIRT,WORNBIT /?CTR28
FSET? PANTS,WORNBIT /?CTR28
?PRD31: EQUAL? PRSO,PANTS,SHIRT \?CCL29
FSET? DRESS,WORNBIT /?CTR28
FSET? GOWN,WORNBIT \?CCL29
?CTR28: CALL CTPRINT,PRSO
PRINTI " doesn't fit over what you are already wearing"
PRINT PCR
RTRUE
?CCL29: ZERO? WET-DRESS /?CCL41
EQUAL? PRSO,DRESS \?CCL41
PRINTR "The clammy cotton makes it too uncomfortable to wear."
?CCL41: FSET PRSO,WORNBIT
MOVE PRSO,PROTAGONIST
EQUAL? PRSO,SHIRT,PANTS \?CND44
IN? PILE-OF-CLOTHES,SLEEPING-CUPBOARD \?CND44
FSET PILE-OF-CLOTHES,TOUCHBIT
REMOVE PILE-OF-CLOTHES
INC 'SCORE
?CND44: EQUAL? PRSO,PANTS \?CCL50
PRINTI "You tuck"
CALL TPRINT,CHEMISE
FSET? SHIRT,WORNBIT \?CND51
SET 'BOY-DRESS?,TRUE-VALUE
FSET CHEMISE,EVERYBIT
PRINTI " and"
CALL TPRINT,SHIRT
?CND51: PRINTI " into the pants. You look a little fat, but now you can move freely"
PRINT PCR
RTRUE
?CCL50: EQUAL? PRSO,SHIRT \?CCL54
FSET? PANTS,WORNBIT \?CND55
FSET CHEMISE,EVERYBIT
SET 'BOY-DRESS?,TRUE-VALUE
?CND55: PRINTI "It fits loosely, masking your figure"
PRINT PCR
RTRUE
?CCL54: FSET CHEMISE,EVERYBIT
ZERO? GOWN-POINT \?CCL59
EQUAL? PRSO,GOWN \?CCL59
SET 'GOWN-POINT,TRUE-VALUE
INC 'SCORE
CALL CTPRINT,GOWN
PRINTI " fits perfectly, the creamy silk bringing a glow to your cheeks. You comb your hair with your fingers and bite your lips to make them red"
PRINT PCR
RTRUE
?CCL59: PRINTI "You don"
CALL TRPRINT,PRSO
RSTACK
?CCL26: EQUAL? PRSA,V?REMOVE,V?TAKE-OFF \?CCL63
FSET? PRSO,WORNBIT \?CCL63
EQUAL? PRSO,DRESS \?CCL68
FCLEAR PRSO,WORNBIT
FCLEAR CHEMISE,EVERYBIT
PRINTI "You take off"
CALL TPRINT,DRESS
PRINT PCR
RTRUE
?CCL68: EQUAL? PRSO,PANTS,SHIRT \?CND69
SET 'BOY-DRESS?,FALSE-VALUE
?CND69: FCLEAR PRSO,WORNBIT
FCLEAR CHEMISE,EVERYBIT
PRINTI "You remove"
CALL TPRINT-PRSO
PRINTI ", exposing your "
EQUAL? PRSO,PANTS \?CCL73
PRINTI "ankles"
JUMP ?CND71
?CCL73: EQUAL? PRSO,SHIRT \?CCL75
PRINTI "elbows"
JUMP ?CND71
?CCL75: PRINTD CHEMISE
?CND71: PRINT PCR
RTRUE
?CCL63: EQUAL? PRSA,V?RIP /?CTR76
EQUAL? PRSA,V?CUT \?CCL77
CALL HELD?,DAGGER
ZERO? STACK /?CCL77
?CTR76: EQUAL? PRSO,DRESS \?CCL84
LOC RAG
ZERO? STACK \?CCL87
MOVE RAG,PROTAGONIST
EQUAL? WET-DRESS,WATER \?CCL90
SET 'WET-RAG,WATER
JUMP ?CND88
?CCL90: EQUAL? WET-DRESS,RUM \?CCL92
SET 'WET-RAG,RUM
JUMP ?CND88
?CCL92: SET 'WET-RAG,FALSE-VALUE
?CND88: FSET RAG,TOUCHBIT
FSET? DRESS,MUNGBIT /?CND93
FSET DRESS,MUNGBIT
?CND93: PRINTI "You "
EQUAL? PRSA,V?CUT \?CCL97
MOVE DAGGER,PROTAGONIST
PRINTI "cut"
JUMP ?CND95
?CCL97: PRINTI "rip"
?CND95: PRINTI " a large rag out of"
CALL TRPRINT,DRESS
RSTACK
?CCL87: CALL HELD?,RAG
ZERO? STACK \?CCL99
PRINTI "There already is a rag around here somewhere"
PRINT PCR
RTRUE
?CCL99: PRINT YOU-HAVE-ALREADY
CALL ARPRINT,RAG
RSTACK
?CCL84: EQUAL? PRSO,GOWN \?CCL101
CALL CTPRINT,GOWN
PRINTI " is too fine to ruin"
PRINT PCR
RTRUE
?CCL101: PRINTI "The fabric is too tightly woven"
PRINT PCR
RTRUE
?CCL77: EQUAL? PRSA,V?TAKE \FALSE
EQUAL? PRSO,PANTS,SHIRT \FALSE
IN? PILE-OF-CLOTHES,HERE \FALSE
CALL PERFORM,V?TAKE,PILE-OF-CLOTHES
RTRUE
.FUNCT RAG-F
EQUAL? PRSA,V?SOAK \?CCL3
EQUAL? HERE,BY-SHIP,LAGOON,SHALLOWS /?CTR5
EQUAL? HERE,BEACH,MAIN-DECK \?CCL6
?CTR5: CALL DIP-DRESS
RSTACK
?CCL6: CALL PROPOSE
RSTACK
?CCL3: CALL ADJ-USED,A?WET
ZERO? STACK /?CCL10
ZERO? WET-RAG \?CCL10
PRINT YOU-CANT-SEE-ANY
PRINTI "wet rag here"
PRINT PCR
RTRUE
?CCL10: EQUAL? PRSA,V?EXAMINE \?CCL14
ZERO? WET-RAG \?CCL17
PRINTI "It is a fairly hefty scrap of fabric"
PRINT PCR
RTRUE
?CCL17: CALL WET-DESC,RAG
RSTACK
?CCL14: EQUAL? PRSA,V?RIP \?CCL19
CALL WASTES
RSTACK
?CCL19: EQUAL? PRSA,V?TIE \?CCL21
PRINTI "It won't stay tied"
PRINT PCR
RTRUE
?CCL21: EQUAL? PRSA,V?PUT \?CCL23
EQUAL? PRSI,GATE,FENCE \?CCL26
CALL WASTES
RSTACK
?CCL26: EQUAL? PRSI,FUSE \FALSE
CALL PROPOSE
RSTACK
?CCL23: EQUAL? PRSA,V?THROW \FALSE
EQUAL? PRSI,FUSE \FALSE
CALL PERFORM,V?THROW-OVER,RAG,FENCE
RTRUE
.FUNCT WET-DESC,OBJ
PRINTI "The "
PRINTD OBJ
PRINTI " is soaked and dripping with "
EQUAL? OBJ,RAG \?PRD5
EQUAL? WET-RAG,RUM /?CTR2
?PRD5: EQUAL? OBJ,DRESS \?CCL3
EQUAL? WET-DRESS,RUM \?CCL3
?CTR2: PRINTI "rum"
JUMP ?CND1
?CCL3: EQUAL? OBJ,RAG \?PRD12
EQUAL? WET-RAG,WATER /?CCL10
?PRD12: EQUAL? OBJ,DRESS \?CND1
EQUAL? WET-DRESS,WATER \?CND1
?CCL10: PRINTI "water"
?CND1: PRINT PCR
RTRUE
.FUNCT CHEMISE-F
EQUAL? PRSA,V?EXAMINE \?CCL3
EQUAL? PRSO,CHEMISE \?CCL6
FSET? CHEMISE,EVERYBIT \?CCL9
PRINTI "It's covered by other clothes"
PRINT PCR
RTRUE
?CCL9: CALL CTPRINT,CHEMISE
PRINTI ", kneelength and sleeveless, clings damply to your legs and torso"
FSET? CHEMISE,MUNGBIT \?CND10
PRINT TEAR
?CND10: PRINT PCR
RTRUE
?CCL6: EQUAL? PRSO,SHOES \FALSE
PRINTI "They are dainty yet practical kidskin shoes"
PRINT PCR
RTRUE
?CCL3: EQUAL? PRSA,V?LOOK-UNDER,V?LOOK-INSIDE \?CCL15
EQUAL? PRSO,CHEMISE \?CCL18
PRINTI "Just you and your "
PRINTD UNMENTIONABLES
PRINT PCR
RTRUE
?CCL18: PRINTI "Your feet are in"
CALL TRPRINT,SHOES
RSTACK
?CCL15: EQUAL? PRSA,V?REMOVE,V?TAKE-OFF \?CCL20
PRINTI "But"
EQUAL? PRSO,SHOES \?CCL23
CALL TPRINT-PRSO
PRINTI " are so comfortable"
JUMP ?CND21
?CCL23: PRINTI " that wouldn't be decent"
?CND21: PRINTR "!"
?CCL20: EQUAL? PRSA,V?CUT,V?RIP \FALSE
PRINT YOU-CANT
PRINTI "bring yourself to ruin"
CALL TRPRINT,CHEMISE
RSTACK
.FUNCT GARTER-F
EQUAL? PRSA,V?WEAR \?CCL3
ZERO? MUZZLED /?CCL6
CALL PERFORM,V?TAKE,GARTER
RTRUE
?CCL6: FSET? PANTS,WORNBIT \?CCL8
PRINTI "One doesn't wear"
CALL APRINT,GARTER
PRINTI " over "
PRINTD PANTS
PRINTR "!"
?CCL8: FSET GARTER,WORNBIT
MOVE GARTER,PROTAGONIST
PRINTI "You slide"
CALL TPRINT,GARTER
PRINTI " up around your thigh"
PRINT PCR
RTRUE
?CCL3: EQUAL? PRSA,V?TAKE,V?REMOVE \?CCL10
ZERO? MUZZLED /?CCL10
ZERO? CROC-SLEEP \?CCL15
PRINTI "The reptile surges forward as you remove"
CALL TPRINT,GARTER
CALL JIGS-UP,STR?329
RSTACK
?CCL15: SET 'MUZZLED,FALSE-VALUE
FCLEAR GARTER,TRYTAKEBIT
FSET GARTER,TAKEBIT
MOVE GARTER,PROTAGONIST
PRINTR "You slip it off the scaly snout."
?CCL10: EQUAL? PRSA,V?TAKE \?CCL17
FSET? GARTER,TOUCHBIT /?CCL20
EQUAL? HERE,KITCHEN \?CCL20
CALL ITAKE,FALSE-VALUE
EQUAL? STACK,M-FATAL,FALSE-VALUE /?CCL20
PRINTI "Taken.
Lucy kisses "
PRINTD HEAD
PRINTI " and returns to the fire, humming"
PRINT PCR
RTRUE
?CCL20: IN? GARTER,DAD \FALSE
MOVE GARTER,PROTAGONIST
PRINTR """Take it, dear,"" Papa says."
?CCL17: EQUAL? PRSA,V?PUT-ON,V?PUT \?CCL27
EQUAL? PRSI,GARTER \?CCL27
IN? GARTER,PROTAGONIST /?CCL32
PRINT YNH
CALL TRPRINT,GARTER
RSTACK
?CCL32: EQUAL? P-PRSA-WORD,W?THROW \?CCL34
EQUAL? PRSO,STONE \?CCL34
CALL PERFORM,V?THROW,STONE,GARTER
RTRUE
?CCL34: EQUAL? PRSO,STONE \?CCL38
FSET? GARTER,WORNBIT \?CCL41
PRINTI "Not while you're wearing"
CALL TRPRINT,GARTER
RSTACK
?CCL41: MOVE STONE,GARTER
ZERO? PENULTIM-POINT \?CND42
SET 'PENULTIM-POINT,TRUE-VALUE
INC 'SCORE
?CND42: PRINTI "You slip"
CALL TPRINT,STONE
PRINTI " into"
CALL TRPRINT,GARTER
RSTACK
?CCL38: PRINTI "It falls through"
CALL TRPRINT,GARTER
RSTACK
?CCL27: EQUAL? PRSA,V?KILL \?CCL45
FSET? PRSO,ACTORBIT /?CTR44
EQUAL? PRSO,CROC \?CCL45
?CTR44: CALL PROPOSE
RSTACK
?CCL45: EQUAL? PRSA,V?SHOOT,V?THROW \?CCL51
IN? STONE,GARTER \?CCL54
ZERO? PRSI \?CCL57
CALL PERFORM,V?SHOOT,STONE
RTRUE
?CCL57: CALL WASTES
RSTACK
?CCL54: ZERO? PRSI \?CCL60
EQUAL? PRSA,V?THROW \?CCL60
MOVE GARTER,HERE
PRINTR "Thrown."
?CCL60: EQUAL? PRSO,STONE \FALSE
CALL DO-FIRST,STR?330,GARTER
RSTACK
?CCL51: EQUAL? PRSA,V?SSHOOT \?CCL66
EQUAL? PRSO,GARTER \?CCL66
CALL HELD?,STONE
ZERO? STACK /?CCL66
CALL PERFORM,V?SHOOT,PRSI,STONE
RTRUE
?CCL66: EQUAL? PRSA,V?EXAMINE \FALSE
CALL CTPRINT,GARTER
PRINTI " is "
ZERO? MUZZLED /?CCL74
PRINTI "stretched taut around the jaws of"
CALL TPRINT,CROC
PRINT PCR
RTRUE
?CCL74: PRINTI "made of abnormally strong, red, stretchy lace"
PRINT PCR
RTRUE
.FUNCT UNMENTIONABLES-F
PRINTI "Shh! Why do you think they're called "
PRINTD UNMENTIONABLES
PRINTR "?"
.FUNCT RETICULE-F
EQUAL? PRSA,V?PUT,V?REMOVE,V?DROP /?PRD5
EQUAL? PRSA,V?PUT-UNDER,V?PUT-THROUGH,V?PUT-ON /?PRD5
EQUAL? PRSA,V?THROW-TO,V?THROW-AT,V?THROW /?PRD5
EQUAL? PRSA,V?GIVE \?CCL3
?PRD5: EQUAL? PRSO,RETICULE \?CCL3
PRINTI "A lady is never without her reticule"
PRINT PCR
RTRUE
?CCL3: EQUAL? PRSA,V?PUT \?CCL11
EQUAL? PRSO,RAPIER,COFFER \?CCL11
CALL CTPRINT,PRSO
PRINTI " won't fit in"
CALL TRPRINT,RETICULE
RSTACK
?CCL11: EQUAL? PRSA,V?EXAMINE \FALSE
PRINTI "You and Mama made the little drawstring bag a few months before she passed on. It's amazing how much it can hold"
PRINT PCR
RTRUE
.FUNCT BANKNOTE-F
EQUAL? PRSA,V?EXAMINE \?CCL3
PRINTI "This is"
CALL TPRINT,BANKNOTE
CALL IN-PACKAGE
RSTACK
?CCL3: EQUAL? PRSA,V?POINT,V?WAVE \FALSE
IN? BUTLER,HERE \FALSE
FSET? BUTLER,DEADBIT /FALSE
CALL BRIBE-BUTLER,PRSO
RSTACK
.FUNCT SALTS-F,PER=0
EQUAL? PRSA,V?SMELL \?CCL3
PRINTI "You jerk"
CALL TPRINT,SALTS
PRINTI " away from your nose after one brief ammoniac whiff. Your burning nostrils make you feel more alert"
PRINT PCR
RTRUE
?CCL3: EQUAL? PRSA,V?WAVE \?CCL5
EQUAL? HERE,DUNGEON \?CCL8
FSET? HERO,DEADBIT \?CCL8
CALL PERFORM,V?ALARM,HERO,SALTS
RTRUE
?CCL8: CALL PERFORM,V?SMELL,SALTS
RTRUE
?CCL5: EQUAL? PRSA,V?USE \?CCL12
ZERO? PRSI \?CCL15
CALL FIND-IN,HERE,ACTORBIT,STR?331 >PER
ZERO? PER /?CCL18
EQUAL? PER,CRULLEY /?CCL18
CALL PERFORM,V?ALARM,PER,SALTS
RTRUE
?CCL18: CALL PERFORM,V?SMELL,SALTS
RTRUE
?CCL15: FSET? PRSI,ACTORBIT \?CCL22
CALL PERFORM,V?ALARM,PRSI,SALTS
RTRUE
?CCL22: PRINT HUH
RTRUE
?CCL12: EQUAL? PRSA,V?PUT-ON,V?PUT-UNDER \?CCL24
FSET? PRSI,ACTORBIT \?CCL24
CALL PERFORM,V?ALARM,PRSI,SALTS
RTRUE
?CCL24: EQUAL? PRSA,V?GIVE \?CCL28
CALL PERFORM,V?ALARM,PRSI,SALTS
RTRUE
?CCL28: EQUAL? PRSA,V?SGIVE,V?ALARM \?CCL30
EQUAL? PRSO,HERO \?CCL33
CALL REVIVE-HERO
RSTACK
?CCL33: EQUAL? PRSO,ME \?CCL35
CALL PERFORM,V?SMELL,SALTS
RTRUE
?CCL35: EQUAL? PRSO,BUTLER \?CCL37
FSET? BUTLER,DEADBIT \?CCL37
PRINT YOU-CANT
PRINTI "wake him"
PRINT PCR
RTRUE
?CCL37: EQUAL? PRSO,CRULLEY \?CCL41
FSET? CRULLEY,DEADBIT \?CCL41
SET 'AWAITING-REPLY,2
CALL QUEUE,I-REPLY,2
PRINTR "Are you sure that's really wise?"
?CCL41: CALL PRONOUN
PRINTI " doesn't need reviving"
PRINT PCR
RTRUE
?CCL30: EQUAL? PRSA,V?EXAMINE \?CCL45
PRINTI "You always carry your "
PRINTD SALTS
PRINTI ", for emergencies. There is a small tag on one side of them"
PRINT PCR
RTRUE
?CCL45: EQUAL? PRSA,V?READ \FALSE
PRINTR "It says, ""For cases of vapors, hysteria or collapse, revive persons with the smelling salts."""
.FUNCT REVIVE-HERO
FSET? HERO,DEADBIT \?CCL3
INC 'SCORE
FCLEAR HERO,DEADBIT
PRINTI "You wave"
CALL TPRINT,SALTS
PRINTI " under Nicholas's nose. He stirs, sneezes and looks at you blearily. ""How --?"" he says, bewildered. ""Lafond, did he --?"" He "
FSET? CHEMISE,EVERYBIT /?CND4
PRINTI "looks at you in growing horror, glancing from your chemise to your face, and "
?CND4: PRINTI "straightens. ""Darling, you are an angel, to have gone through all this and then rescue me. Your ravisher will not go unpunished."" He squares his shoulders. ""For my brother, his wife, and your honor, I will kill Jean Lafond."""
CRLF
IN? HERO,MANACLES \?CCL8
SET 'AWAITING-REPLY,13
CALL QUEUE,I-REPLY,2
PRINT INDENT
PRINTR "He tugs at his chains with a wry smile. ""But I must get free first. Have you the key?"""
?CCL8: CALL NICK-RUNS-OFF
RSTACK
?CCL3: PRINTR "Jamison brushes you away, ""Thank you, but I'm not having the vapors."""
.FUNCT BOTTLE-F
EQUAL? PRSA,V?CLOSE,V?OPEN \?CCL3
PRINTI "This is a squeezable bottle. You don't need to open or close it"
PRINT PCR
RTRUE
?CCL3: EQUAL? PRSA,V?TAKE \?CCL5
FSET? BOTTLE,TOUCHBIT /?CCL5
CALL ITAKE,FALSE-VALUE
EQUAL? STACK,M-FATAL,FALSE-VALUE /?CCL5
INC 'SCORE
PRINTR "Taken."
?CCL5: EQUAL? PRSA,V?PUT,V?POUR \?CCL10
EQUAL? PRSI,BOTTLE \?CCL10
CALL PERFORM,V?FILL,BOTTLE,PRSO
RTRUE
?CCL10: EQUAL? PRSA,V?WRING,V?DRINK-FROM \?CCL14
EQUAL? PRSO,BOTTLE \?CCL14
CALL SQUEEZE-BOTTLE
RSTACK
?CCL14: EQUAL? PRSA,V?WRING,V?POUR-FROM \?CCL18
EQUAL? PRSO,LAUD \?CCL18
CALL SPECIFY-WHAT,STR?332,LAUD
RSTACK
?CCL18: EQUAL? PRSA,V?DRINK-FROM \?CCL22
CALL PERFORM,V?WRING,LAUD,MOUTH
RTRUE
?CCL22: EQUAL? PRSA,V?FILL \?CCL24
EQUAL? PRSI,BOTTLE \?CCL27
CALL PERFORM,V?POUR,PRSI,PRSO
RTRUE
?CCL27: PRINT YOU-CANT
PRINTI "get anything into"
CALL TRPRINT,BOTTLE
RSTACK
?CCL24: EQUAL? PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL29
PRINTI "It's a small leather bottle, with a tiny label on one side"
GRTR? LAUD-LEFT,0 \?CND30
PRINTI ". It appears to be almost empty"
?CND30: PRINT PCR
RTRUE
?CCL29: EQUAL? PRSA,V?READ \FALSE
PRINTR "The label reads, ""Laudanum drops. Squeeze into a glass of wine to sleep free of pain and mental anguish."""
.FUNCT LAUD-F
EQUAL? PRSA,V?WRING,V?PUT,V?POUR /?PRD5
EQUAL? PRSA,V?PUT-ON \?CCL3
?PRD5: EQUAL? PRSO,LAUD \?CCL3
CALL SQUEEZE-BOTTLE
RSTACK
?CCL3: EQUAL? PRSA,V?TAKE \?CCL9
PRINTI "If you intend to drink"
CALL TPRINT,LAUD
PRINTR ", say so."
?CCL9: EQUAL? PRSA,V?DRINK,V?EAT \?CCL11
CALL PERFORM,V?WRING,BOTTLE,ME
RTRUE
?CCL11: EQUAL? PRSO,LAUD \?CCL13
CALL PERFORM-PRSA,BOTTLE,PRSI
RTRUE
?CCL13: EQUAL? PRSI,LAUD \FALSE
CALL PERFORM-PRSA,PRSO,BOTTLE
RTRUE
.FUNCT SQUEEZE-BOTTLE
EQUAL? PRSI,BOTTLE \?CCL3
CALL IMPOSSIBLES
RSTACK
?CCL3: FSET? PRSI,ACTORBIT \?CCL5
PRINT POLITE
RTRUE
?CCL5: EQUAL? PRSI,CROC \?CCL7
CALL PERFORM,V?PUT,BOTTLE,CROC
RTRUE
?CCL7: LESS? LAUD-LEFT,3 \?CCL9
EQUAL? HERE,LAFS-ROOM /?CCL9
PRINTR "You stop, deciding you might need some later."
?CCL9: DEC 'LAUD-LEFT
GRTR? LAUD-LEFT,0 \FALSE
MOVE BOTTLE,PROTAGONIST
EQUAL? PRSI,ME \?CCL16
CALL QUEUE,I-SLEEP,2
PUTP ME,P?CONTENTS,POISONED
PRINT SQUEEZE-DROPS
PRINTI "into"
CALL TPRINT,MOUTH
PRINTC 46
JUMP ?CND14
?CCL16: EQUAL? PRSI,FLAGON \?CCL19
PUTP FLAGON,P?CONTENTS,POISONED
CALL DOPE-WINE
JUMP ?CND14
?CCL19: EQUAL? PRSI,PORK \?CCL21
SET 'PORK-DOPED,TRUE-VALUE
PRINT SQUEEZE-DROPS
PRINTI "onto"
CALL TPRINT,PORK
PRINTI ". A patch of salt dissolves as"
CALL TPRINT,LAUD
PRINTI " absorbs into the meat."
JUMP ?CND14
?CCL21: EQUAL? PRSI,GREEN-GLASS,BLUE-GLASS \?CCL23
GETP PRSI,P?CONTENTS
ADD STACK,POISONED
PUTP PRSI,P?CONTENTS,STACK
CALL DOPE-WINE
JUMP ?CND14
?CCL23: PRINT SQUEEZE-DROPS
PRINTI "into"
CALL TPRINT-PRSI
PRINTC 46
FSET? PRSI,WEARBIT \?CND14
PRINTI " It evaporates quickly."
?CND14: ZERO? LAUD-LEFT \?CND26
PRINTR " From the feel of it, the bottle is now empty."
?CND26: CRLF
RTRUE
.FUNCT DOPE-WINE
SET 'USED-LAUD,TRUE-VALUE
PRINT SQUEEZE-DROPS
PRINTI "into"
CALL TPRINT-PRSI
PRINTC 46
IN? LAFOND,HERE \TRUE
PRINTI " You sense Lafond hesitate, then continue primping."
RTRUE
.FUNCT JEWEL-F
EQUAL? PRSA,V?WEAR /?CTR2
EQUAL? PRSA,V?PUT-ON \?CCL3
EQUAL? PRSI,ME \?CCL3
?CTR2: CALL CTPRINT,JEWEL
PRINTI " won't stay clasped"
PRINT PCR
RTRUE
?CCL3: EQUAL? PRSA,V?EXAMINE \?CCL9
PRINTI "All diamonds winking fire, tears of sapphire and crushed rubies in an oval setting, it is a pity that the clasp of"
CALL TPRINT,JEWEL
PRINTI " has broken. The gold pin at the back swings about uselessly"
PRINT PCR
RTRUE
?CCL9: EQUAL? PRSA,V?FIX \FALSE
PRINTR "That will have to be done by a goldsmith."
.FUNCT HAT-F,OARG=0
ZERO? OARG /?CCL3
FSET? HAT,EVERYBIT \FALSE
EQUAL? OARG,M-DESC? /TRUE
PRINT INDENT
PRINTI "An expensive hat is hanging on"
CALL APRINT,KNOB
PRINTC 46
RTRUE
?CCL3: EQUAL? PRSA,V?EXAMINE \?CCL10
CALL NOUN-USED,W?QUILL,HAT
ZERO? STACK /?CCL13
PRINTR "It's a curling ostrich plume."
?CCL13: PRINTR "It is a crimson tricorne with a curling ostrich plume stuck in the crown."
?CCL10: EQUAL? PRSA,V?WEAR,V?TAKE \?CCL15
CALL NOUN-USED,W?QUILL,HAT
ZERO? STACK /?CCL18
CALL CTPRINT,HAT
PRINTR " looks so drab without its plume that you cannot bear to."
?CCL18: FSET? HAT,EVERYBIT \FALSE
FCLEAR KNOB,DEADBIT
FSET KNOB,EVERYBIT
FCLEAR HAT,EVERYBIT
MOVE HAT,PROTAGONIST
FSET HAT,TOUCHBIT
EQUAL? PRSA,V?WEAR \?CND21
FSET HAT,WORNBIT
?CND21: CALL KNOB-CAUSES-TINGLE,STR?333
RSTACK
?CCL15: EQUAL? PRSA,V?TAKE-OFF,V?REMOVE \?CCL24
FSET? HAT,WORNBIT \?CCL24
FCLEAR HAT,WORNBIT
PRINTI "Doffed"
PRINT PCR
RTRUE
?CCL24: EQUAL? PRSA,V?PUT-ON \FALSE
EQUAL? PRSO,HAT \FALSE
EQUAL? PRSI,HEAD,ME \?CCL33
CALL PERFORM,V?WEAR,HAT
RTRUE
?CCL33: FSET? PRSI,ACTORBIT \?CCL35
FSET? PRSI,DEADBIT \?CCL38
PRINTR "It slides off."
?CCL38: CALL CTPRINT,HAT
PRINTI " doesn't go with what "
EQUAL? PRSI,LUCY \?CND39
PRINTC 115
?CND39: PRINTR "he's wearing."
?CCL35: CALL WASTES
RSTACK
.FUNCT KNOB-CAUSES-TINGLE,STRING
PRINT STRING
PRINTI " knob on the wall, a low vibration tingles up your legs from the floor"
PRINT PCR
RTRUE
.ENDI

1079
clothes.zil Normal file
View file

File diff suppressed because it is too large Load diff

1966
extras.zap Normal file
View file

File diff suppressed because it is too large Load diff

2303
extras.zil Normal file
View file

File diff suppressed because it is too large Load diff

1807
globals.zap Normal file
View file

File diff suppressed because it is too large Load diff

2275
globals.zil Normal file
View file

File diff suppressed because it is too large Load diff

706
hero.zap Normal file
View file

@ -0,0 +1,706 @@
.FUNCT HERO-F,OARG=0
ZERO? OARG /?CCL3
EQUAL? OARG,M-DESC? /TRUE
EQUAL? HERE,FOLLY /?CND6
PRINT INDENT
?CND6: EQUAL? HERE,CABIN \?CCL10
PRINT CTHE-PIRATE-CAPTAIN
PRINTI "is studying you"
JUMP ?CND8
?CCL10: EQUAL? HERE,DEUX-DECK \?CCL12
PRINT CTHE-PIRATE-CAPTAIN
PRINTI "stands protectively a few steps behind you"
JUMP ?CND8
?CCL12: EQUAL? HERE,CAPT-QUARTERS \?CCL14
PRINTD HERO
PRINTI " is adjusting his clothes"
JUMP ?CND8
?CCL14: CALL RUNNING?,I-DUEL
ZERO? STACK /?CCL16
PRINTI "Battered and bruised, Nicholas can hardly stand"
JUMP ?CND8
?CCL16: FSET? HERO,DEADBIT \?CCL18
PRINT HERO-EYES-CLOSED
JUMP ?CND8
?CCL18: EQUAL? HERE,BEACH \?CCL20
PRINTI "Nicholas "
FSET? LAFOND,DEADBIT \?CCL23
PRINTI "walks toward you, smiling wearily"
JUMP ?CND8
?CCL23: GRTR? LAFOND-CTR,4 \?CCL25
PRINTI "and Lafond are fighting"
JUMP ?CND8
?CCL25: PRINTI "stands alone at one edge of the beach"
JUMP ?CND8
?CCL20: CALL QUEUED?,I-ENDGAME
ZERO? STACK /?CCL27
PRINTI "Nicholas stands, half-supported by Lucy and"
CALL TPRINT,DAD
JUMP ?CND8
?CCL27: EQUAL? HERE,BALLROOM \FALSE
PRINTI "Nicholas looks quite rakish, in red velvet and white, his rapier flashing in the light of the "
PRINTD CHANDELIER
?CND8: PRINTC 46
RTRUE
?CCL3: EQUAL? HERO,WINNER \?CCL31
CALL RUNNING?,I-DUEL
ZERO? STACK /?CCL34
EQUAL? HERE,GALLERY,STAIRTOP \?CCL34
PRINT SPEECHLESS
RTRUE
?CCL34: EQUAL? HERE,BEACH \?CCL38
CALL RUNNING?,I-ENDGAME
ZERO? STACK /?CCL38
FSET? LAFOND,DEADBIT /?CCL43
GRTR? LAFOND-CTR,4 \?CCL43
PRINT SPEECHLESS
RTRUE
?CCL43: EQUAL? PRSA,V?WALK,V?LOOK-INSIDE,V?HALT /?CTR46
EQUAL? PRSA,V?CLIMB-DOWN \?CCL47
?CTR46: CALL H-JIGS-UP,STR?316
RSTACK
?CCL47: CALL FAILS-TO-NOTICE
RSTACK
?CCL38: FSET? HERO,DEADBIT \?CCL51
PRINT DOESNT-RESPOND
RTRUE
?CCL51: EQUAL? PRSA,V?FOLLOW \?CCL53
EQUAL? PRSO,ME \?CCL53
CALL RUNNING?,I-HDANCE
ZERO? STACK /?CCL53
FSET? DAD,TOUCHBIT \?CCL53
SET 'HDAD-SPEECH,TRUE-VALUE
PRINTR """I will follow you anywhere you please, but first I must kill Lafond."""
?CCL53: EQUAL? PRSA,V?I-LOVE-YOU \?CCL59
EQUAL? PRSO,HERO,MAN \?CCL62
PRINTR "He smiles at you warmly, his eyes full of passion."
?CCL62: EQUAL? PRSO,LAFOND \?CCL64
CALL RUNNING?,I-HFOLLY
ZERO? STACK \?CTR66
CALL RUNNING?,I-HDANCE
ZERO? STACK /?CCL67
?CTR66: REMOVE HERO
CALL STOP-QUEUES
PRINTR "He looks at you in disgust and walks away."
?CCL67: PRINTR """Don't jest,"" he says."
?CCL64: PRINTR "He isn't all that interested."
?CCL59: EQUAL? PRSA,V?LEAVE \?CCL71
FSET? BEACH,TOUCHBIT \?CCL74
SET 'AWAITING-REPLY,4
CALL QUEUE,I-REPLY,2
PRINTR "He catches your arm, ""Nay, can you mean that?"""
?CCL74: PRINTR """I have business to attend to here, and have no intention of leaving."""
?CCL71: EQUAL? PRSA,V?READ \?CCL76
EQUAL? PRSO,LETTER \?CCL76
CALL PERFORM,V?TELL-ABOUT,ME,LETTER
RTRUE
?CCL76: EQUAL? PRSA,V?TELL-ABOUT \?CCL80
EQUAL? PRSO,ME \?CCL80
EQUAL? PRSI,LETTER \?CCL85
PRINTI """Your father wrote it for you."""
CRLF
JUMP ?CND83
?CCL85: EQUAL? PRSI,HRING \?CCL87
SET 'WINNER,PROTAGONIST
CALL PERFORM,V?TAKE,HRING
RTRUE
?CCL87: EQUAL? PRSI,LAFOND \?CCL89
PRINTI """I abhor the fiend."" He clenches a fist."
CRLF
JUMP ?CND83
?CCL89: EQUAL? PRSI,DAD \?CCL91
CALL RUNNING?,I-HDANCE
ZERO? STACK /?CCL94
SET 'HDAD-SPEECH,TRUE-VALUE
GET HERO-SPEECHES,0
PRINT STACK
PRINT PCR
JUMP ?CND83
?CCL94: CALL RUNNING?,I-HFOLLY
ZERO? STACK /?CCL96
PRINTI """Let's not discuss"
CALL TPRINT,DAD
PRINTI " just now,"" he says, kissing your neck"
PRINT PCR
JUMP ?CND83
?CCL96: PRINTI """I admire and respect your father greatly."""
CRLF
JUMP ?CND83
?CCL91: CALL FAILS-TO-NOTICE
?CND83: CALL STOP
RSTACK
?CCL80: EQUAL? PRSA,V?TAKE \?CCL98
EQUAL? PRSO,FLOWER \?CCL98
SET 'WINNER,PROTAGONIST
CALL PERFORM,V?GIVE,FLOWER,HERO
SET 'WINNER,HERO
RTRUE
?CCL98: CALL COM-CHECK,HERO >OARG
ZERO? OARG /FALSE
EQUAL? OARG,M-FATAL /FALSE
RTRUE
?CCL31: EQUAL? PRSA,V?EXAMINE \?CCL107
FSET? HERO,DEADBIT \?CCL110
CALL RUNNING?,I-DUEL
ZERO? STACK /?CCL113
PRINTR "He lies in a pool of blood."
?CCL113: PRINT HERO-EYES-CLOSED
RTRUE
?CCL110: EQUAL? HERE,CAPT-QUARTERS,BALLROOM,FOLLY \?CCL115
ZERO? ENDGAME \?CCL115
PRINTI "Jamison is finely dressed, in red velvet coat and full breeches, with a long gold embroidered vest and waterfalls of white lace at his neck, wrists and boottops. His rapier is bedecked with a fringed gold ribbon. He wears no wig, his unpowdered hair tied neatly at the back of his neck"
PRINT PCR
RTRUE
?CCL115: PRINTI "Jamison carries an aura of power unusual in men so slim and tall, the strength of a willow in his hard seaworn body, straight shouldered and resilient. "
PRINT NUTBROWN
PRINTI "A jagged scar etches one cheek, harsh against the warmth of his limpid blue eyes"
PRINT PCR
RTRUE
?CCL107: EQUAL? PRSA,V?ROLL,V?SAVE-SOMETHING \?CCL119
CALL RUNNING?,I-ENDGAME
ZERO? STACK /?CCL119
SET 'WINNER,HERO
CALL PERFORM,V?HALT,ROOMS
SET 'WINNER,PROTAGONIST
RTRUE
?CCL119: FSET? HERO,DEADBIT \?CCL123
EQUAL? PRSA,V?GIVE \?CCL126
EQUAL? PRSO,SALTS \?CCL126
CALL REVIVE-HERO
RSTACK
?CCL126: EQUAL? PRSA,V?THROW-AT,V?PUT-ON,V?BLOW \?CCL130
EQUAL? PRSO,SPICES \?CCL130
PRINTR "He sneezes involuntarily, unconscious."
?CCL130: EQUAL? PRSA,V?MUNG,V?KICK,V?KILL \?CCL134
CALL MAN-IS-DOWN
RSTACK
?CCL134: EQUAL? PRSA,V?MOVE \?CCL136
PRINTR "He's too heavy."
?CCL136: EQUAL? PRSA,V?EMBRACE,V?KISS \?CCL138
PRINTI "You press your lips to his cold mouth. "
PRINT DOESNT-RESPOND
RTRUE
?CCL138: EQUAL? PRSA,V?ASK-ABOUT,V?TELL-ABOUT,V?TELL \?PRD142
EQUAL? PRSO,HERO \?CTR139
?PRD142: CALL TOUCHING?,HERO
ZERO? STACK /FALSE
?CTR139: PRINT DOESNT-RESPOND
RTRUE
?CCL123: EQUAL? PRSA,V?GIVE \?CCL146
EQUAL? PRSO,SALTS \?CCL149
CALL REVIVE-HERO
RSTACK
?CCL149: EQUAL? PRSO,BANKNOTE \?CCL151
PRINTD HERO
PRINTI " returns"
CALL TPRINT,BANKNOTE
PRINTI " to you"
PRINT PCR
RTRUE
?CCL151: EQUAL? PRSO,FLOWER \?CCL153
PRINTR "He prevents you, smiling. ""It looks much too pretty against your hair. Keep it."""
?CCL153: EQUAL? PRSO,COFFER \FALSE
CALL FAILS-TO-NOTICE
RSTACK
?CCL146: EQUAL? PRSA,V?ALARM \?CCL157
EQUAL? PRSI,SALTS /?CCL160
PRINT YOU-CANT
PRINTR "revive him with that!"
?CCL160: CALL HELD?,SALTS
ZERO? STACK /?CCL162
CALL REVIVE-HERO
RSTACK
?CCL162: PRINTD HERO
PRINTI " is not asleep"
PRINT PCR
RTRUE
?CCL157: EQUAL? PRSA,V?UNTIE \?CCL164
EQUAL? P-PRSA-WORD,W?FREE \?CCL164
IN? HERO,MANACLES \?CCL169
SET 'AWAITING-REPLY,2
CALL QUEUE,I-REPLY,2
PRINTR "You have the key, maybe?"
?CCL169: PRINTI "Jamison is free enough as it is"
PRINT PCR
RTRUE
?CCL164: EQUAL? PRSA,V?MUNG,V?KICK,V?KILL \?CCL171
PRINTI """Please, I'm not trying to hurt you,"""
EQUAL? HERE,CABIN \?CCL174
PRINTI " the stranger"
JUMP ?CND172
?CCL174: CALL TPRINT,HERO
?CND172: PRINTI " says, casually deflecting the blow"
PRINT PCR
RTRUE
?CCL171: EQUAL? PRSA,V?KISS \?CCL176
EQUAL? WINNER,PROTAGONIST \?CCL176
EQUAL? HERE,CABIN,DEUX-DECK \?CCL181
PRINTR "You are not so pert as to kiss a stranger, and a pirate, at that!"
?CCL181: CALL SHIP-BOARD,HERE
ZERO? STACK /?CCL183
PRINTI "That thought has occurred to you before, but now does not seem appropriate"
PRINT PCR
RTRUE
?CCL183: EQUAL? HERE,FOLLY \?CCL185
SET 'REACTION,REACTION-POSITIVE
PRINTI "You lean into his arms, face lifted"
PRINT PCR
RTRUE
?CCL185: CALL RUNNING?,I-DUEL
ZERO? STACK \?CTR186
CALL RUNNING?,I-ENDGAME
ZERO? STACK /?CCL187
?CTR186: PRINTI "You would only distract"
CALL TRPRINT,HERO
RSTACK
?CCL187: CALL RUNNING?,I-HDANCE
ZERO? STACK /?CCL191
PRINTI "In view of all"
CALL TPRINT,DANCERS
PRINTI "s, you exchange only a peck on the cheek"
PRINT PCR
RTRUE
?CCL191: PRINTI "He kisses you back"
PRINT PCR
RTRUE
?CCL176: EQUAL? PRSA,V?TELL-ABOUT \?CCL193
CALL NOUN-USED,W?LIBRARY,HOUSE
ZERO? STACK \?CTR195
CALL NOUN-USED,W?CELL,CELL-4
ZERO? STACK \?CTR195
EQUAL? PRSI,DUNGEON,PORTRAIT \?CCL196
?CTR195: PRINTR "He nods. ""That area is guarded well."""
?CCL196: EQUAL? PRSI,DAD \?CCL201
IN? DAD,CELL-4 \?CCL204
PRINTR "He smiles fondly at your reminiscing. ""I never knew my father -- he died when I was a boy."""
?CCL204: SET 'HDAD-SPEECH,TRUE-VALUE
PRINTR """Such bravery joined with such beauty!"""
?CCL201: EQUAL? PRSI,CRULLEY \FALSE
FSET? BEACH,TOUCHBIT \FALSE
PRINTR """Crulley?! God's blood!"""
?CCL193: EQUAL? PRSA,V?TOUCH,V?EMBRACE \?CCL210
EQUAL? HERE,FOLLY \?CCL210
CALL PERFORM,V?KISS,HERO
RTRUE
?CCL210: EQUAL? PRSA,V?DANCE \?CCL214
EQUAL? HERE,BALLROOM \?CCL217
EQUAL? PARTNER,HERO \?CCL217
PRINT PACE
RTRUE
?CCL217: CALL RUNNING?,I-HDANCE
ZERO? STACK /FALSE
MOVE PROTAGONIST,BALLROOM
MOVE HERO,BALLROOM
SET 'PARTNER,HERO
PRINTI "You whirl back out to"
PRINT DANCE-FLOOR
PRINT PCR
RTRUE
?CCL214: EQUAL? PRSA,V?SHOW \FALSE
EQUAL? PRSO,JEWEL \FALSE
IN? HERO,MANACLES \FALSE
PRINTR "Nick smiles dazzlingly, ""Of course! Now pick the locks."""
.FUNCT GEN-PIRATE
ZERO? ENDGAME /?CCL3
EQUAL? HERE,BALLROOM \?CCL3
RETURN CREW
?CCL3: FSET? CAPT-QUARTERS,TOUCHBIT \FALSE
RETURN CRULLEY
.FUNCT I-MEET-HERO
SET 'AWAITING-REPLY,5
CALL QUEUE,I-REPLY,1
SET 'QUESTIONER,HERO
PRINT INDENT
EQUAL? HERO-CTR,1 \?CCL3
MOVE HERO,HERE
CALL QUEUE,I-MEET-HERO,-1
LESS? ATTACK-C,2 \?CCL6
CALL DEQUEUE,I-CRULLEY
FSET CRULLEY,DEADBIT
PRINTD CRULLEY
PRINTI " drags you, despite your resistance, to"
LOC PROTAGONIST
EQUAL? STACK,CABIN-BED \?CCL9
MOVE PROTAGONIST,HERE
PRINTI " your feet"
JUMP ?CND7
?CCL9: PRINTI "wards him"
?CND7: PRINTI ". Then suddenly he grunts, stiffens and slumps into your arms. "
PRINT STUNNED-THE-SAILOR
PRINTI ".
A tall form blocks the shattered door, one fist still raised from striking your attacker"
JUMP ?CND4
?CCL6: CALL CTPRINT,DOOR
PRINTI " creaks slightly as a tall form bends through its smashed remains. ""You seem to have this situation well in hand,"" timbers a well-bred voice"
?CND4: PRINTI ". You catch a glimpse of the hard masculinity of his broad shoulders, the implied power in the scar that etches the stranger's jaw, and feel tremors course through your veins. Then you realize how ragged are his shirt, patched breeches and high boots. Intuitively, you understand -- he is the dreaded Falcon, scourge of the sea! Alas, your fate is sealed. Resigned, you meet his sea-blue eyes."
CRLF
JUMP ?CND1
?CCL3: EQUAL? HERO-CTR,2 \?CCL11
MOVE LETTER,PROTAGONIST
CALL THIS-IS-IT,LETTER
PRINT SURPRISE
PRINTI "the stranger bows. ""Well met, my lady."" His accent is cultured, his smile vibrant. ""I am Captain Nicholas Jamison, known in these waters as 'The Falcon'. Your father has sent me."" He chuckles at your glare of distrust. ""Yes, you are like your sire. You needn't believe me untried -- I carry this."" He hands you"
CALL ARPRINT,LETTER
JUMP ?CND1
?CCL11: EQUAL? HERO-CTR,3 \?CCL13
FSET DOOR,OPENBIT
PRINT CTHE-PIRATE-CAPTAIN
PRINTI "glances around the empty room, then notices the coffer"
IN? COFFER,PROTAGONIST \?CND14
PRINTI " in your arms"
?CND14: MOVE COFFER,HERO
PRINTI ". ""Davis's safety box -- my men were hoping I'd find it."" He takes it and nudges the unconscious man on the floor, ""I wonder how "
PRINTD CRULLEY
PRINTI " knew you were here? Just his bad luck? He'll be flogged when he wakes.""
The pirate bows. ""My lady, may I offer my protection and my ship until your father is free?"""
CRLF
JUMP ?CND1
?CCL13: EQUAL? HERO-CTR,4,5 \?CND1
EQUAL? HERO-CTR,4 \?CCL19
ZERO? REACTION \?CCL19
SET 'QUESTIONER,HERO
PRINTI """We haven't time to waste. Will you come willingly or not?"" says"
CALL TRPRINT,HERO
JUMP ?CND1
?CCL19: CALL DEQUEUE,I-MEET-HERO
CALL DEQUEUE,I-PIRATE-ATTACK
EQUAL? REACTION,REACTION-POSITIVE \?CCL24
PRINTI "He chuckles. ""Brave lady, to trust a stranger -- and a pirate. Who knows, perhaps I forged your father's signature? Keep by my side as we go to my ship -- few sailors respect a lady's dignity."" He helps you through"
CALL TRPRINT,DOOR
CRLF
JUMP ?CND22
?CCL24: PRINTI "He sighs, ""You share"
CALL TPRINT,DAD
PRINTI "'s stubborn streak. I wished not to do this."" He leaps to your side, hauling you up onto his shoulder, and carries you out of the room."
CALL TPRINT,HERO
PRINTI " sets you on your feet again on the horror of the deck"
PRINT PCR
CRLF
?CND22: FSET HERO,NDESCBIT
MOVE HERO,DEUX-DECK
CALL GOTO,DEUX-DECK
?CND1: INC 'HERO-CTR
RETURN HERO-CTR
.FUNCT I-HSHIP
PRINT INDENT
GET HERO-SHIP-SPEECHES,HERO-CTR
PRINT STACK
CRLF
EQUAL? HERO-CTR,2 \?CCL3
REMOVE HERO
CALL QUEUE,I-HSECOND-BYE,8
JUMP ?CND1
?CCL3: CALL QUEUE,I-HSHIP,1
?CND1: INC 'HERO-CTR
RETURN HERO-CTR
.FUNCT I-HSECOND-BYE
CALL RUNNING?,I-OVERHEAR-CRULLEY
ZERO? STACK \?CTR2
EQUAL? HERE,SLEEPING-CUPBOARD \?CCL3
?CTR2: CALL QUEUE,I-HSECOND-BYE,2
RSTACK
?CCL3: MOVE JEWEL,PROTAGONIST
PRINT INDENT
PRINTI "You hear"
EQUAL? HERE,CAPT-QUARTERS \?CCL8
CALL TPRINT,CUPBOARD-OBJECT
PRINTI " scrape"
JUMP ?CND6
?CCL8: EQUAL? HERE,LANDING \?CCL10
CALL TPRINT,DOOR
PRINTI " being unbarred"
JUMP ?CND6
?CCL10: PRINTI " a footstep"
?CND6: PRINTI ", "
FSET? CHEMISE,EVERYBIT /?CCL13
PRINTI "turn, and cover "
PRINTD ME
PRINTI " as best you can with what you are holding, for Jamison stands there, his eyes burning through your lightweight chemise. He chuckles, ""I am not sorry in the least that I surprised you."
JUMP ?CND11
?CCL13: ZERO? BOY-DRESS? /?CCL15
PRINTI "and"
CALL TPRINT,HERO
PRINTI "'s startled laugh. ""For a moment I thought you were Matthew, the boy who used to sleep in the cupboard. He ran off last port."
JUMP ?CND11
?CCL15: PRINTI "and turn to see"
CALL TPRINT,HERO
PRINTI ". ""Hello!"
?CND11: EQUAL? HERE,CAPT-QUARTERS /?CND16
PRINTI " How did you escape? Don't stutter, I won't lock you up again -- you are safe as long as you remain below-decks."
?CND16: PRINTI " I came down to give you this -- my allotment from"
CALL TPRINT,COFFER
PRINTI "."" He nods at the box in his arms.
Jamison starts to pin"
CALL APRINT,JEWEL
PRINTI " on your clothes, but, ""Devil take it, the clasp is broken. I'll have it repaired."" He folds the pretty thing into "
PRINTD HANDS
PRINTI ". ""And I meant to reassure you that if the men suddenly abandon ship, they are off to help me. Rodney will stay behind with you."" He "
EQUAL? HERE,CAPT-QUARTERS \?CCL20
MOVE COFFER,HERE
PRINTI "drops"
CALL TPRINT,COFFER
PRINTI " on the floor, smiling in farewell,"
JUMP ?CND18
?CCL20: MOVE COFFER,PROTAGONIST
PRINTI "hands"
CALL TPRINT,COFFER
PRINTI " to you. ""Please return this to my quarters for me, will you?"""
?CND18: PRINTI " and walks swiftly "
EQUAL? HERE,LANDING \?CCL23
PRINTI "up the stairs to the deck, barring the door a moment later"
JUMP ?CND21
?CCL23: PRINTI "away"
?CND21: PRINT PCR
CALL QUEUE,I-SMELL-SMOKE,3
CALL QUEUE,I-HERO-TO-ISLAND,5
RETURN 8
.FUNCT I-HDANCE
EQUAL? HERO-CTR,1 \?CCL3
EQUAL? BALLROOM,HERE \?CCL3
MOVE HERO,HERE
SET 'LAFOND-CTR,1
CALL QUEUE,I-LDANCE,7
SET 'PARTNER,HERO
SET 'QUESTIONER,HERO
SET 'AWAITING-REPLY,14
CALL QUEUE,I-REPLY,2
SET 'DANCED-WITH,HERO
PRINT INDENT
PRINTD HERO
PRINTI " moves up to you, saying, ""May I have this dance?"" He doesn't await an answer, sweeping you out onto"
PRINT DANCE-FLOOR
PRINT PCR
JUMP ?CND1
?CCL3: EQUAL? HERO-CTR,2 \?CCL7
SET 'QUESTIONER,HERO
ZERO? MET-ALREADY \?CCL10
SET 'MET-ALREADY,TRUE-VALUE
PRINT INDENT
PRINTC 34
PRINT FIRST-SIGHTING
PRINTI "smiles suddenly. ""Why should I complain? You are quite safe, since no one expects you here. And you are looking lovely."""
CRLF
JUMP ?CND8
?CCL10: CALL HERO-TALKS
?CND8: EQUAL? HERE,BALLROOM \?CND1
PRINT INDENT
PRINTI "The steps of the dance separate you a moment, as you twirl around and curtsey to another dancer. You glide back into the captain's arms"
PRINT PCR
JUMP ?CND1
?CCL7: EQUAL? HERO-CTR,3 \?CCL14
SET 'QUESTIONER,HERO
CALL HERO-TALKS
EQUAL? HERE,BALLROOM \?CND1
PRINT INDENT
PRINTI "Your hands linked tightly with his and held high over "
PRINTD HEAD
PRINTI "s, a line of dancers files between you and Jamison"
PRINT PCR
JUMP ?CND1
?CCL14: EQUAL? HERO-CTR,4 \?CCL18
SET 'QUESTIONER,HERO
CALL HERO-TALKS
EQUAL? HERE,BALLROOM \?CND1
PRINT INDENT
PRINTI "Together you whirl around the ballroom, his arm snug around your waist, leading you gracefully, masterfully.
Nicholas's grip tenses as he nods to a bewigged man staring at you. You turn, and the man moves on"
PRINT PCR
JUMP ?CND1
?CCL18: EQUAL? HERO-CTR,5 \FALSE
REMOVE HERO
SET 'PARTNER,FALSE-VALUE
CALL DEQUEUE,I-HDANCE
CALL HERO-TALKS
PRINT INDENT
PRINTI "The music ends with a flourish"
EQUAL? HERE,BALLROOM \?CCL25
PRINTI " and you pirouette once more before curtseying to Jamison. As you move"
JUMP ?CND23
?CCL25: PRINTI ". As he guides you back"
?CND23: PRINTI " to the side of"
PRINT DANCE-FLOOR
PRINTI ", Nick adds, ""We should separate -- I'm sure I am being watched. You would be safer aboard"
CALL TPRINT,SHIP
PRINTI ". If you slip out the veranda doors, no one will notice you leaving."" He touches "
PRINTD HANDS
PRINTI " and dissolves into the crowd"
PRINT PCR
EQUAL? HERE,BALLROOM /?CND1
CALL GOTO,BALLROOM
?CND1: INC 'HERO-CTR
RETURN HERO-CTR
.FUNCT I-HARRESTED,FROM-LDANCE=0
SET 'HERO-ARRESTED,TRUE-VALUE
PRINT INDENT
PRINTI "There is a commotion from the west. A woman screams and a man yells, ""Stop, Pirate!"" "
ZERO? FROM-LDANCE \?CCL3
EQUAL? HERE,FOYER /?CCL3
CALL HELD?,HAT
ZERO? STACK /?CND6
FCLEAR HAT,WORNBIT
MOVE HAT,LIBRARY
?CND6: PRINTI "You run to the foyer in time to see two dragoons dragging out the battered frame of"
CALL TPRINT,HERO
JUMP ?CND1
?CCL3: PRINTI "and Jamison is dragged out of the ballroom by two burly dragoons"
?CND1: PRINT PCR
PRINTI " An officer quiets the guests, ""This is the buccaneer who has been pirating our ships. He had the audacity to come here tonight intending to assassinate our dear governor. Do not worry, ladies, he was arrogant enough to come alone."" The officer marches after his men. "
CALL CTPRINT,DANCERS
PRINTI "s return to their banal conversations"
PRINT PCR
ZERO? FROM-LDANCE \?CCL10
CRLF
CALL GOTO,FOYER
RSTACK
?CCL10: CALL QUEUE,I-LDANCE,1
SET 'PARTNER,LAFOND
PRINT INDENT
PRINTI "Only the painful grip"
CALL TPRINT,LAFOND
PRINTR " has on your arm prevents you from swooning away. ""Ah, so that's the way of it,"" he purrs, noticing your sudden pallor. ""All the better for me."" He pulls you unresisting into a dance."
.FUNCT I-HFOLLY,CALLED-BY-HERO-F=0
EQUAL? HERE,FOLLY \FALSE
SET 'QUESTIONER,HERO
ZERO? CALLED-BY-HERO-F \?CND4
PRINT INDENT
?CND4: EQUAL? HERO-CTR,1 \?CCL8
CALL QUEUE,I-HFOLLY,-1
MOVE HERO,FOLLY
PRINTD HERO
PRINTI " enters"
CALL TPRINT,FOLLY-OBJECT
PRINTI ", stooping to avoid the flowers dangling over the door. ""I thought I heard someone."
ZERO? MET-ALREADY \?CCL11
SET 'MET-ALREADY,TRUE-VALUE
PRINTC 32
PRINT FIRST-SIGHTING
JUMP ?CND9
?CCL11: PRINTI """ Jamison "
?CND9: PRINTI "sighs. ""What an astonishing girl you are, my dear. "
FSET? CHEMISE,EVERYBIT /?CCL14
PRINTI "If --"""
PRINT EYES-RAKE
PRINTI ", ""somewhat underdressed"
JUMP ?CND12
?CCL14: ZERO? BOY-DRESS? /?CCL16
PRINTI "And so ingeniously dressed"
JUMP ?CND12
?CCL16: PRINTI "And looking more lovely than ever"
?CND12: PRINTI "."" He plucks"
CALL APRINT,FLOWER
PRINTI " from the tangle above the door, and sets it in your hair. ""The beauty of this blossom is nothing to yours."""
CRLF
MOVE FLOWER,PROTAGONIST
FCLEAR FLOWER,NDESCBIT
FSET FLOWER,TAKEBIT
JUMP ?CND1
?CCL8: EQUAL? REACTION,REACTION-NEGATIVE /?PRD20
EQUAL? HERO-CTR,6 \?CCL18
?PRD20: IN? HERO,HERE \?CCL18
CALL DEQUEUE,I-HFOLLY
SET 'QUESTIONER,FALSE-VALUE
REMOVE HERO
PRINTI "Jamison backs away from you, smiling wistfully"
PRINTC 46
PRINT HERO-LEAVES-FOLLY
JUMP ?CND1
?CCL18: EQUAL? HERO-CTR,2 \?CCL24
PRINTI "Catching his breath, Jamison pulls you against him, his hands circling your waist"
IN? FLOWER,PROTAGONIST \?CND25
PRINTI ", crushing"
CALL TPRINT,FLOWER
PRINTI " between you"
?CND25: PRINTI ". ""Darling,"" he whispers, leaning over you, ""oh, my angel ..."""
CRLF
JUMP ?CND1
?CCL24: EQUAL? HERO-CTR,3 \?CCL28
SET 'AWAITING-REPLY,15
CALL QUEUE,I-REPLY,2
PRINTI """My lovely,"" Jamison says huskily. His eyes burn intently, their blue like the sea on a summer day. A shiver of warmth flows through you, and you tremble at his touch. The pirate's hands, warm and exciting, caress you, searing through the thin linen of your chemise. His lips near yours, his breath softly scented. ""May I kiss you?"""
CRLF
JUMP ?CND1
?CCL28: EQUAL? HERO-CTR,4 \?CCL30
PRINTI "Tender is his kiss, soft his lips as his body presses hard against you. You drown in the tide of your passion, swept like the sea against the rocks of the shore."
CRLF
JUMP ?CND1
?CCL30: EQUAL? HERO-CTR,5 \?CND1
REMOVE HERO
PRINTI "With a pent-up sigh, Nicholas forces himself away from you. ""Now is not the time or the place to advance my suit,"" he says, wistfully. ""But the night is still young and you are so beautiful! I must be gone, lest I lose my soul in you."""
PRINT HERO-LEAVES-FOLLY
?CND1: INC 'HERO-CTR
RETURN HERO-CTR
.FUNCT HERO-TALKS
PRINT INDENT
RANDOM 100
LESS? 65,STACK /?CCL3
LESS? WHAT-HERO-SAYS,3 \?CCL3
ZERO? WHAT-HERO-SAYS \?CCL8
ZERO? HDAD-SPEECH /?CCL8
CALL PICK-ONE,MANNERISMS
PRINT STACK
PRINT PCR
RTRUE
?CCL8: GET HERO-SPEECHES,WHAT-HERO-SAYS
PRINT STACK
PRINT PCR
INC 'WHAT-HERO-SAYS
RETURN WHAT-HERO-SAYS
?CCL3: CALL PICK-ONE,MANNERISMS
PRINT STACK
PRINT PCR
RTRUE
.FUNCT RAPIER-F,OARG=0
ZERO? OARG /?CCL3
EQUAL? HERE,DUNGEON \FALSE
EQUAL? OARG,M-DESC? /TRUE
PRINT INDENT
PRINTI "A rapier lies in the half-dark of a corner."
RTRUE
?CCL3: EQUAL? PRSA,V?TAKE \?CCL10
FSET? HERO,DEADBIT /?CCL13
IN? HERO,HERE \?CCL13
PRINTR "Jamison prevents you, ""This is not a weapon for ladies."""
?CCL13: EQUAL? HERE,DUNGEON \?CCL17
IN? CRULLEY,DUNGEON \?CCL17
FSET? RAPIER,TOUCHBIT /?CCL17
CALL ITAKE,FALSE-VALUE
EQUAL? STACK,M-FATAL,FALSE-VALUE /?CCL17
PRINTI "Taken. "
PRINTD CRULLEY
PRINTR " snorts, ""Be careful, you might hurt yer dearie."""
?CCL17: IN? RAPIER,COOKIE \FALSE
PRINTD COOKIE
PRINTR " objects. ""It ain't fer a lady."""
?CCL10: EQUAL? PRSA,V?PUT-THROUGH,V?PUT,V?THROW \?CCL25
EQUAL? PRSI,TRAP /?CTR24
EQUAL? PRSI,CRULLEY \?CCL25
FSET? CRULLEY,MUNGBIT \?CCL25
?CTR24: PRINTR "But you might need it later!"
?CCL25: EQUAL? PRSA,V?EXAMINE \FALSE
PRINTI "Jamison's rapier is a dangerous looking sword with a narrow pointed blade"
EQUAL? HERE,CABIN,DEUX-DECK /?CND34
PRINTI ". It is decorated with a big floppy ribbon"
?CND34: PRINT PCR
RTRUE
.ENDI

916
hero.zil Normal file
View file

@ -0,0 +1,916 @@
"HERO for
PLUNDERED HEARTS
(c) Copyright 1987 Infocom, Inc. All Rights Reserved."
<OBJECT HERO ;"MUNGBIT: unconscious."
(IN CAPT-QUARTERS)
(DESC "Captain Jamison")
(DESCFCN HERO-F)
(SYNONYM HERO PIRATE JAMISON CAPTAIN)
(ADJECTIVE NICHOLAS NICK CAPTAIN FALCON)
(SIZE 10)
(FLAGS ACTORBIT NARTICLEBIT CONTBIT OPENBIT SEARCHBIT)
(GENERIC GEN-PIRATE)
(ACTION HERO-F)>
<GLOBAL HERO-CTR 1>
<GLOBAL HDAD-SPEECH <>> ;"You've told him about freeing Dad,"
;"(which you can do by NICK, FOLLOW ME - dance)"
;"OR he's answered your question about Dad."
;"(To prevent his dance speech happening twice)"
<ROUTINE HERO-F ("OPTIONAL" (OARG <>))
<COND (.OARG
<COND (<EQUAL? .OARG ,M-DESC?>
<RTRUE>)>
<COND (<NOT <EQUAL? ,HERE ,FOLLY>>
<TELL ,INDENT>)> ;"To prevent indent in folly"
<COND (<EQUAL? ,HERE ,CABIN>
<TELL ,CTHE-PIRATE-CAPTAIN "is studying you">)
(<EQUAL? ,HERE ,DEUX-DECK>
<TELL ,CTHE-PIRATE-CAPTAIN
"stands protectively a few steps behind you">)
(<EQUAL? ,HERE ,CAPT-QUARTERS>
<TELL D ,HERO " is adjusting his clothes">)
(<RUNNING? ,I-DUEL>
<TELL
"Battered and bruised, Nicholas can hardly stand">)
;(<IN? ,HERO ,MANACLES>
<RTRUE>) ;"TOLD in MANACLES-DESC"
(<FSET? ,HERO ,DEADBIT>
<TELL ,HERO-EYES-CLOSED>)
(<EQUAL? ,HERE ,BEACH>
<TELL "Nicholas ">
<COND (<FSET? ,LAFOND ,DEADBIT>
<TELL "walks toward you, smiling wearily">)
(<G? ,LAFOND-CTR <- ,FIGHTING 1>>
<TELL "and Lafond are fighting">)
(T
<TELL
"stands alone at one edge of the beach">)>)
(<QUEUED? ,I-ENDGAME>
<TELL
"Nicholas stands, half-supported by Lucy and" T ,DAD>)
(<EQUAL? ,HERE ,BALLROOM>
<TELL
"Nicholas looks quite rakish, in red velvet and white,
his rapier flashing in the light of the " D ,CHANDELIER>)
(T
<RFALSE>)>
<TELL ".">)
(<EQUAL? ,HERO ,WINNER>
<COND (<AND <RUNNING? ,I-DUEL>
<EQUAL? ,HERE ,GALLERY ,STAIRTOP>>
<TELL ,SPEECHLESS>)
(<AND <EQUAL? ,HERE ,BEACH>
<RUNNING? ,I-ENDGAME>>
<COND (<AND <NOT <FSET? ,LAFOND ,DEADBIT>>
<G? ,LAFOND-CTR <- ,FIGHTING 1>>>
<TELL ,SPEECHLESS>)
(<VERB? HALT LOOK-INSIDE WALK CLIMB-DOWN>
<H-JIGS-UP
"Nicholas stops at your cry, and turns, curious, to face Crulley
just as the pistol sprays shot into his chest.">)
(T
<FAILS-TO-NOTICE>)>)
(<FSET? ,HERO ,DEADBIT>
<TELL ,DOESNT-RESPOND>)
(<AND <VERB? FOLLOW>
<PRSO? ,ME>
<RUNNING? ,I-HDANCE> ;"Dad told you to"
<FSET? ,DAD ,TOUCHBIT>> ;" fetch Nick"
<SETG HDAD-SPEECH T>
<TELL
"\"I will follow you anywhere you please,
but first I must kill Lafond.\"" CR>)
(<VERB? I-LOVE-YOU>
<COND (<PRSO? ,MAN ,HERO>
<TELL
"He smiles at you warmly, his eyes full of passion." CR>)
(<PRSO? ,LAFOND>
<COND (<OR <RUNNING? ,I-HFOLLY>
<RUNNING? ,I-HDANCE>>
<REMOVE ,HERO>
<STOP-QUEUES>
<TELL
"He looks at you in disgust and walks away." CR>)
(T
<TELL "\"Don't jest,\" he says." CR>)>)
(T
<TELL "He isn't all that interested." CR>)>)
(<VERB? LEAVE>
<COND (<FSET? ,BEACH ,TOUCHBIT>
<SETG AWAITING-REPLY 4>
<QUEUE I-REPLY 2>
<TELL
"He catches your arm, \"Nay, can you mean that?\"" CR>)
(T
<TELL
"\"I have business to attend to here,
and have no intention of leaving.\"" CR>)>
<RTRUE>)
(<AND <VERB? READ>
<PRSO? ,LETTER>>
<PERFORM ,V?TELL-ABOUT ,ME ,LETTER>
<RTRUE>)
(<AND <VERB? TELL-ABOUT>
<PRSO? ,ME>>
<COND (<PRSI? ,LETTER>
<TELL "\"Your father wrote it for you.\"" CR>)
(<PRSI? ,HRING>
<SETG WINNER ,PROTAGONIST>
<PERFORM ,V?TAKE ,HRING>
<RTRUE>)
(<PRSI? ,LAFOND>
<TELL
"\"I abhor the fiend.\" He clenches a fist." CR>)
(<PRSI? ,DAD>
<COND (<RUNNING? ,I-HDANCE>
<SETG HDAD-SPEECH T>
<TELL <GET ,HERO-SPEECHES 0> ,PCR>)
(<RUNNING? ,I-HFOLLY>
<TELL
"\"Let's not discuss" T ,DAD " just now,\"
he says, kissing your neck" ,PCR>)
(T
<TELL
"\"I admire and respect your father greatly.\"" CR>)>)
(T
<FAILS-TO-NOTICE>)>
<STOP>)
;(<AND <VERB? RAISE>
<PRSO? ,ME>
<EQUAL? <LOC ,PROTAGONIST> ,TREE-HOLE ,CLOSET>>
<SETG WINNER ,PROTAGONIST>
<PERFORM ,V?CLIMB-ON ,SIDEKICK>
<SETG WINNER ,SIDEKICK>
<RTRUE>)
(<AND <VERB? TAKE>
<PRSO? ,FLOWER>>
<SETG WINNER ,PROTAGONIST>
<PERFORM ,V?GIVE ,FLOWER ,HERO>
<SET WINNER ,HERO>
<RTRUE>)
(<SET OARG <COM-CHECK ,HERO>>
<COND (<==? .OARG ,M-FATAL>
<RFALSE>)
(T
<RTRUE>)>)
;(T
<FAILS-TO-NOTICE>
<STOP>)>)
(<VERB? EXAMINE>
<COND (<FSET? ,HERO ,DEADBIT>
<COND (<RUNNING? ,I-DUEL>
<TELL "He lies in a pool of blood." CR>)
(T
<TELL ,HERO-EYES-CLOSED>)>)
(<AND <EQUAL? ,HERE ,CAPT-QUARTERS ,BALLROOM ,FOLLY>
<NOT ,ENDGAME>>
<TELL
"Jamison is finely dressed, in red velvet coat and full breeches, with a
long gold embroidered vest and waterfalls of white lace at his neck, wrists
and boottops. His rapier is bedecked with a fringed gold ribbon. He wears no
wig, his unpowdered hair tied neatly at the back of his neck" ,PCR>)
(T
<TELL
"Jamison carries an aura of power unusual in men so slim and tall,
the strength of a willow in his hard seaworn body, straight shouldered and
resilient. " ,NUTBROWN "A jagged scar etches one cheek, harsh against
the warmth of his limpid blue eyes" ,PCR>)>)
(<AND <VERB? SAVE-SOMETHING ROLL>
<RUNNING? ,I-ENDGAME>>
<SETG WINNER ,HERO>
<PERFORM ,V?HALT ,ROOMS>
<SETG WINNER ,PROTAGONIST>
<RTRUE>)
(<FSET? ,HERO ,DEADBIT>
<COND (<AND <VERB? GIVE>
<PRSO? ,SALTS>>
<REVIVE-HERO>)
(<AND <VERB? BLOW PUT-ON THROW-AT>
<PRSO? ,SPICES>>
<TELL "He sneezes involuntarily, unconscious." CR>)
(<VERB? KILL KICK MUNG>
<MAN-IS-DOWN>)
(<VERB? MOVE>
<TELL "He's too heavy." CR>)
(<VERB? KISS EMBRACE>
<TELL
"You press your lips to his cold mouth. " ,DOESNT-RESPOND>)
(<OR <AND <VERB? TELL TELL-ABOUT ASK-ABOUT>
<NOT <PRSO? ,HERO>>>
<TOUCHING? ,HERO>>
<TELL ,DOESNT-RESPOND>)
(T
<RFALSE>)>)
(<VERB? GIVE>
<COND (<PRSO? ,SALTS>
<REVIVE-HERO>)
(<PRSO? ,BANKNOTE>
<TELL D ,HERO " returns" T ,BANKNOTE " to you" ,PCR>)
(<PRSO? ,FLOWER>
<TELL
"He prevents you, smiling. \"It looks much
too pretty against your hair. Keep it.\"" CR>)
(<PRSO? ,COFFER>
<FAILS-TO-NOTICE>)
(T
<RFALSE>)>)
(<VERB? ALARM>
<COND ;(<NOT ,PRSI>
<PROPOSE>)
(<NOT <PRSI? SALTS>>
<TELL ,YOU-CANT "revive him with that!" CR>)
(<HELD? ,SALTS>
<REVIVE-HERO>)
;(<HELD? ,QUILL>
<PERFORM ,V?ALARM ,HERO ,QUILL>
<RTRUE>)
(T
<TELL D ,HERO " is not asleep" ,PCR>)>)
(<AND <VERB? UNTIE>
<EQUAL? ,P-PRSA-WORD ,W?FREE>>
<COND (<IN? ,HERO ,MANACLES>
<SETG AWAITING-REPLY 2>
<QUEUE I-REPLY 2>
<TELL "You have the key, maybe?" CR>)
(T
<TELL "Jamison is free enough as it is" ,PCR>)>)
(<VERB? KILL KICK MUNG>
<TELL "\"Please, I'm not trying to hurt you,\"">
<COND (<EQUAL? ,HERE ,CABIN>
<TELL " the stranger">)
(T
<TELL T ,HERO>)>
<TELL " says, casually deflecting the blow" ,PCR>)
(<AND <VERB? KISS>
<EQUAL? ,WINNER ,PROTAGONIST>>
<COND (<EQUAL? ,HERE ,CABIN ,DEUX-DECK>
<TELL
"You are not so pert as to kiss a stranger, and a pirate, at that!">
<CRLF>)
(<SHIP-BOARD ,HERE>
<TELL
"That thought has occurred to you before,
but now does not seem appropriate" ,PCR>)
(<EQUAL? ,HERE ,FOLLY>
<SETG REACTION ,REACTION-POSITIVE>
<TELL "You lean into his arms, face lifted" ,PCR>)
(<OR <RUNNING? ,I-DUEL>
<RUNNING? ,I-ENDGAME>>
<TELL "You would only distract" TR ,HERO>)
(<RUNNING? ,I-HDANCE>
<TELL
"In view of all" T ,DANCERS "s, you exchange
only a peck on the cheek" ,PCR>)
(T
<TELL "He kisses you back" ,PCR>)>)
(<VERB? TELL-ABOUT>
<COND ;(<EQUAL? ,WINNER ,PROTAGONIST>
<TELL ,DOESNT-RESPOND>)
(<OR <NOUN-USED ,W?LIBRARY ,HOUSE>
<NOUN-USED ,W?CELL ,CELL-4>
<PRSI? ,PORTRAIT ,DUNGEON>>
<TELL "He nods. \"That area is guarded well.\"" CR>)
(<PRSI? ,DAD>
<COND (<IN? ,DAD ,CELL-4>
<TELL
"He smiles fondly at your reminiscing.
\"I never knew my father -- he died when I was a boy.\"" CR>)
(T
<SET HDAD-SPEECH T>
<TELL
"\"Such bravery joined with such beauty!\"" CR>)>)
(<AND <PRSI? ,CRULLEY>
<FSET? ,BEACH ,TOUCHBIT>>
<TELL "\"Crulley?! God's blood!\"" CR>)
(T
<RFALSE>)>)
(<AND <VERB? EMBRACE TOUCH>
<EQUAL? ,HERE ,FOLLY>>
<PERFORM ,V?KISS ,HERO>
<RTRUE>)
;(<AND <VERB? WALK FOLLOW>
<EQUAL? ,HERE ,CABIN>
<IN? ,HERO ,HERE>>
<TELL D ,HERO " guides you through" TR ,DOOR CR>
<GOTO ,DEUX-DECK>)
(<VERB? DANCE>
<COND (<AND <EQUAL? ,HERE ,BALLROOM>
<EQUAL? ,PARTNER ,HERO>>
<TELL ,PACE>)
(<RUNNING? ,I-HDANCE>
<MOVE ,PROTAGONIST ,BALLROOM>
<MOVE ,HERO ,BALLROOM>
<SETG PARTNER ,HERO>
<TELL "You whirl back out to" ,DANCE-FLOOR ,PCR>)
(T
<RFALSE>)>)
(<AND <VERB? SHOW>
<PRSO? ,JEWEL>
<IN? ,HERO ,MANACLES>>
<TELL
"Nick smiles dazzlingly, \"Of course! Now pick the locks.\"" CR>)>>
<GLOBAL NUTBROWN
"Chestnut hair, tousled by the wind, frames the tanned oval of his face. ">
<ROUTINE GEN-PIRATE ()
<COND (<AND ,ENDGAME
<EQUAL? ,HERE ,BALLROOM>>
,CREW)
(<FSET? ,CAPT-QUARTERS ,TOUCHBIT>
,CRULLEY)
(T
<RFALSE>)>>
;<GLOBAL HEROS-NAME " Captain Nicholas Brent Charles Lancelot Richard
Blaise Peaceable Jamison -- a mouthful, so my friends call me Nick">
<GLOBAL CTHE-PIRATE-CAPTAIN "The pirate captain ">
<GLOBAL HERO-EYES-CLOSED
"Eyes closed, his skin with the pallor of death, Nick looks entirely spent.|">
;"1st meeting with hero in Cabin, (14-11-86)"
<ROUTINE I-MEET-HERO ()
<SETG AWAITING-REPLY 5>
<QUEUE I-REPLY 1>
<SETG QUESTIONER ,HERO>
<TELL ,INDENT>
<COND (<EQUAL? ,HERO-CTR 1>
<MOVE ,HERO ,HERE>
<QUEUE I-MEET-HERO -1>
<COND (<L? ,ATTACK-C 2>
<DEQUEUE I-CRULLEY>
<FSET ,CRULLEY ,DEADBIT>
<TELL
D ,CRULLEY " drags you, despite your resistance, to">
<COND (<EQUAL? <LOC ,PROTAGONIST> ,CABIN-BED>
<MOVE ,PROTAGONIST ,HERE>
<TELL " your feet">)
(T
<TELL "wards him">)>
<TELL
". Then suddenly he grunts, stiffens and slumps into your arms. "
,STUNNED-THE-SAILOR ".|
A tall form blocks the shattered door, one fist still raised from
striking your attacker">)
(T
<TELL CTHE ,DOOR " creaks slightly as a tall
form bends through its smashed remains. \"You seem to have this situation
well in hand,\" timbers a well-bred voice">)>
<TELL
". You catch a glimpse of the hard masculinity of his broad shoulders,
the implied power in the scar that etches the stranger's jaw,
and feel tremors course through your veins. Then you realize how ragged are
his shirt, patched breeches and high boots. Intuitively, you understand -- he
is the dreaded Falcon, scourge of the sea! Alas, your fate is sealed.
Resigned, you meet his sea-blue eyes." CR>)
;[Under the impact of his gaze, the hard masculinity
of his broad shoulders, the implied power in the scar that etches his
jaw, you discover yourself blind to the dangers of this infamous pirate,
aware only of the tremors that course your veins, of that flutter deep
in your stomach as he draws near you. In this most unlikely of places,
you have met the man you have been waiting for all these years.]
(<EQUAL? ,HERO-CTR 2>
<MOVE ,LETTER ,PROTAGONIST>
<THIS-IS-IT ,LETTER>
<TELL ,SURPRISE
"the stranger bows. \"Well met, my lady.\" His accent
is cultured, his smile vibrant. \"I am Captain Nicholas Jamison, known
in these waters as 'The Falcon'. Your father has sent me.\" He chuckles
at your glare of distrust. \"Yes, you are like your sire. You needn't
believe me untried -- I carry this.\" He hands you" AR ,LETTER>
;<TELL
"To your surprise, the stranger bows. \"My lady, thank God I have found you.\"
His accent is cultured, his smile vibrant. \"I am Captain Nicholas Jamison,
known in these waters as 'The Falcon'. Your father sent me.\" He chuckles
at your glare of distrust. \"Yes, you are like your sire. You needn't believe
me untried -- I carry this.\" He hands you" AR ,LETTER>)
(<EQUAL? ,HERO-CTR 3>
<FSET ,DOOR ,OPENBIT>
<TELL ,CTHE-PIRATE-CAPTAIN
"glances around the empty room, then notices the coffer">
<COND ;(<IN? ,COFFER ,RETICULE>
<TELL ", outlined in" T ,RETICULE>)
(<IN? ,COFFER ,PROTAGONIST>
<TELL " in your arms">)>
<MOVE ,COFFER ,HERO>
<TELL
". \"Davis's safety box -- my men were hoping I'd
find it.\" He takes it and nudges the unconscious man on the floor, \"I
wonder how " D ,CRULLEY " knew you were here? Just his bad luck? He'll
be flogged when he wakes.\"|
The pirate bows. \"My lady, may I offer my protection and my
ship until your father is free?\"" CR>)
(<EQUAL? ,HERO-CTR 4 5>
<COND (<AND <EQUAL? ,HERO-CTR 4>
<EQUAL? ,REACTION ,REACTION-NEUTRAL>>
<SETG QUESTIONER ,HERO>
<TELL
"\"We haven't time to waste. Will you come willingly or not?\"
says" TR ,HERO>)
(T
<DEQUEUE I-MEET-HERO>
<DEQUEUE I-PIRATE-ATTACK>
<COND (<EQUAL? ,REACTION ,REACTION-POSITIVE>
<TELL
"He chuckles. \"Brave lady, to trust a stranger -- and a pirate.
Who knows, perhaps I forged your father's signature? Keep by my
side as we go to my ship -- few sailors respect a lady's dignity.\"
He helps you through" TR ,DOOR CR>)
(T
<TELL "He sighs, \"You share" T ,DAD "'s
stubborn streak. I wished not to do this.\" He leaps to your side,
hauling you up onto his shoulder, and carries you out of the room." T
,HERO " sets you on your feet again on the horror of the deck" ,PCR CR>)>
<FSET ,HERO ,NDESCBIT>
<MOVE ,HERO ,DEUX-DECK>
<GOTO ,DEUX-DECK>)>)>
<SETG HERO-CTR <+ ,HERO-CTR 1>>>
;"2nd meeting, in his quarters. Covers three turns."
<ROUTINE I-HSHIP ()
<TELL ,INDENT <GET ,HERO-SHIP-SPEECHES ,HERO-CTR> CR>
<COND (<EQUAL? ,HERO-CTR 2>
<REMOVE ,HERO>
<QUEUE I-HSECOND-BYE 8>)
(T
<QUEUE I-HSHIP 1>)>
<SETG HERO-CTR <+ ,HERO-CTR 1>>>
<GLOBAL HERO-SHIP-SPEECHES
<TABLE
"\"We have anchored off St. Sinistra,\" says Captain Jamison,
\"and I must look like a guest at Lafond's dance tonight. I will find and
free your father, and then finally wreak my revenge on Lafond.\" He half
draws his rapier from its scabbard."
"\"I am sorry you have been confined down here, but I don't trust my
lonely crew with such beauty. Crulley isn't the only man aboard with
few principles.\" He smiles at you, eyes lingering, and takes your hand. You
feel your color rising. \"If anything goes wrong, turn to Cookie. He is quite
deaf, but capable. He'll see you through.\""
"His look darkens. \"You should know why I hate Lafond:
Some years ago, as my brother and his bride sailed to a new life in
Virginia, pirates struck. Their ship was boarded, looted and burned, the
women taken, never to be seen again. A sailor, the one survivor, watched
as a man of Lafond's description shot my brother in the back as he tried
to save the women. Lafond has now bought respectability, but he shall
never buy peace.\" Jamison straightens resolutely, bows, and departs.">>
;<ROUTINE I-HSHIP ()
<COND (<EQUAL? ,HERO-CTR 1>
<QUEUE I-HSHIP 1>
<TELL ,INDENT
"\"We have anchored off " D ,ISLAND ",\" says " D ,HERO ", \"and I am
inviting myself to the ball at Lafond's mansion tonight. I hope to find and
rescue your father, and then to wreak final revenge against Lafond.\" He
half draws his rapier from its scabbard" ,PCR>)
(<EQUAL? ,HERO-CTR 2>
<QUEUE I-HSHIP 1>
<TELL ,INDENT
"\"I am sorry you have been confined down here, but I don't trust my
lonely crew with such beauty. " D ,CRULLEY " isn't the only man aboard with
few principles.\" He smiles at you, eyes lingering, \"Perhaps I just wanted
to keep the sight of you to myself.\"|
He takes " D ,HANDS ". \"I should return in a few hours with your
father. If all should not go well, turn to Rodney --" T ,COOKIE ", as he is
known to the men. He is gruff, but trustworthy. He'll see you through.\"" CR>)
(<EQUAL? ,HERO-CTR 3>
<REMOVE ,HERO>
<QUEUE I-HSECOND-BYE 8>
<TELL ,INDENT
"Jamison bows and deftly twists " D ,HANDS " so his lips brush hotly
against the inside of your wrist. As he leaves, he pushes" A ,CUPBOARD-OBJECT
" up against the doorway, one corner jutting somewhat through
the curtain. You hear a soft, \"Fare thee well,\" and he climbs the
steps to the quarterdeck" ,PCR>)
(T
<RFALSE>)>
<SETG HERO-CTR <+ ,HERO-CTR 1>>>
<ROUTINE I-HSECOND-BYE ()
<COND (<OR <RUNNING? ,I-OVERHEAR-CRULLEY>
<EQUAL? ,HERE ,SLEEPING-CUPBOARD>>
<QUEUE I-HSECOND-BYE 2>)
(T
<MOVE ,JEWEL ,PROTAGONIST>
<TELL ,INDENT "You hear">
<COND (<EQUAL? ,HERE ,CAPT-QUARTERS>
<TELL T ,CUPBOARD-OBJECT " scrape">)
(<EQUAL? ,HERE ,LANDING>
<TELL T ,DOOR " being unbarred">)
(T
<TELL " a footstep">)>
<TELL ", ">
<COND (<NOT <FSET? ,CHEMISE ,EVERYBIT>>
<TELL
"turn, and cover " D ,ME " as best you can with what you are holding,
for Jamison stands there, his eyes burning through your lightweight chemise.
He chuckles, \"I am not sorry in the least that I surprised you.">)
(,BOY-DRESS?
<TELL
"and" T ,HERO "'s startled laugh. \"For a moment I thought you were Matthew,
the boy who used to sleep in the cupboard. He ran off last port.">)
(T
<TELL
"and turn to see" T ,HERO ". \"Hello!">)>
<COND (<NOT <EQUAL? ,HERE ,CAPT-QUARTERS>>
<TELL
" How did you escape? Don't stutter, I won't lock you up again -- you are
safe as long as you remain below-decks.">)>
<TELL
" I came down to give you this -- my allotment from" T ,COFFER ".\" He nods
at the box in his arms.|
Jamison starts to pin" A ,JEWEL " on your clothes, but, \"Devil take it,
the clasp is broken. I'll have it repaired.\" He folds the pretty thing into "
D ,HANDS ". \"And I meant to reassure you that if the men suddenly abandon
ship, they are off to help me. Rodney will stay behind with you.\" He ">
;[He takes a white card from" T ,COFFER "]
<COND (<EQUAL? ,HERE ,CAPT-QUARTERS>
<MOVE ,COFFER ,HERE>
<TELL
"drops" T ,COFFER " on the floor, smiling in farewell,">)
(T
<MOVE ,COFFER ,PROTAGONIST>
<TELL
"hands" T ,COFFER " to you. \"Please return
this to my quarters for me, will you?\"">)>
<TELL " and walks swiftly ">
<COND (<EQUAL? ,HERE ,LANDING>
<TELL
"up the stairs to the deck, barring the door a moment later">)
(T
<TELL "away">)>
<TELL ,PCR>
<QUEUE I-SMELL-SMOKE 3>
<QUEUE I-HERO-TO-ISLAND 5>
<RFATAL>)>>
<GLOBAL PARTNER <>>
<ROUTINE I-HDANCE ()
<COND (<AND <EQUAL? ,HERO-CTR 1>
<EQUAL? ,BALLROOM ,HERE>>
<MOVE ,HERO ,HERE>
<SETG LAFOND-CTR 1>
<QUEUE I-LDANCE 7>
<SETG PARTNER ,HERO>
<SETG QUESTIONER ,HERO>
<SETG AWAITING-REPLY 14>
<QUEUE I-REPLY 2>
<SETG DANCED-WITH ,HERO>
<TELL
,INDENT D ,HERO " moves up to you, saying, \"May I have this dance?\"
He doesn't await an answer, sweeping you out onto" ,DANCE-FLOOR ,PCR>)
(<EQUAL? ,HERO-CTR 2>
<SETG QUESTIONER ,HERO>
<COND (<NOT ,MET-ALREADY>
<SETG MET-ALREADY T>
<TELL ,INDENT "\"" ,FIRST-SIGHTING
"smiles suddenly. \"Why should I complain? You are quite safe, since
no one expects you here. And you are looking lovely.\"" CR>)
(T
<HERO-TALKS>)>
<COND (<EQUAL? ,HERE ,BALLROOM>
<TELL ,INDENT
"The steps of the dance separate you a moment, as you twirl around and
curtsey to another dancer. You glide back into the captain's arms" ,PCR>)>)
(<EQUAL? ,HERO-CTR 3>
<SETG QUESTIONER ,HERO>
<HERO-TALKS>
<COND (<EQUAL? ,HERE ,BALLROOM>
<TELL ,INDENT
"Your hands linked tightly with his and held high over " D ,HEAD "s, a
line of dancers files between you and Jamison" ,PCR>)>)
(<EQUAL? ,HERO-CTR 4>
<SETG QUESTIONER ,HERO>
<HERO-TALKS>
<COND (<EQUAL? ,HERE ,BALLROOM>
<TELL ,INDENT
"Together you whirl around the ballroom, his arm snug around your waist,
leading you gracefully, masterfully.|
Nicholas's grip tenses as he nods to a bewigged man staring at you.
You turn, and the man moves on" ,PCR>)>)
(<EQUAL? ,HERO-CTR 5>
<REMOVE ,HERO>
<SETG PARTNER <>>
<DEQUEUE I-HDANCE>
<HERO-TALKS>
<TELL ,INDENT
"The music ends with a flourish">
<COND (<EQUAL? ,HERE ,BALLROOM>
<TELL
" and you pirouette once more before curtseying to Jamison. As you move">)
(T
<TELL ". As he guides you back">)>
<TELL " to the side of" ,DANCE-FLOOR ", Nick adds, \"We
should separate -- I'm sure I am being watched. You would be safer
aboard" T ,SHIP ". If you slip out the veranda doors, no one will notice
you leaving.\" He touches " D ,HANDS " and dissolves into the crowd" ,PCR>
<COND (<NOT <EQUAL? ,HERE ,BALLROOM>>
<GOTO ,BALLROOM>)>)
(T
<RFALSE>)>
<SETG HERO-CTR <+ ,HERO-CTR 1>>>
<ROUTINE I-HARRESTED ("OPTIONAL" (FROM-LDANCE <>))
<SETG HERO-ARRESTED T>
<TELL ,INDENT
"There is a commotion from the west. A woman screams and a man yells,
\"Stop, Pirate!\" ">
<COND (<AND <NOT .FROM-LDANCE>
<NOT <EQUAL? ,HERE ,FOYER>>>
<COND (<HELD? ,HAT>
<FCLEAR ,HAT ,WORNBIT>
<MOVE ,HAT ,LIBRARY>)>
<TELL
"You run to the foyer in time to see two dragoons dragging out
the battered frame of" T ,HERO>)
(T
<TELL
"and Jamison is dragged out of the ballroom by two burly dragoons">)>
<TELL ,PCR
" An officer quiets the guests, \"This is the buccaneer who has been
pirating our ships. He had the audacity to come here tonight intending
to assassinate our dear governor. Do not worry, ladies, he was arrogant
enough to come alone.\" The officer marches after his men. "
CTHE ,DANCERS "s return to their banal conversations" ,PCR>
<COND (<NOT .FROM-LDANCE>
<CRLF>
<GOTO ,FOYER>)
(T
<QUEUE I-LDANCE 1>
<SETG PARTNER ,LAFOND>
<TELL ,INDENT
"Only the painful grip" T ,LAFOND " has on your arm prevents you from
swooning away. \"Ah, so that's the way of it,\" he purrs, noticing your
sudden pallor. \"All the better for me.\" He pulls you unresisting into
a dance." CR>)>>
<GLOBAL MET-ALREADY <>> ;"gets set by first meeting on land."
<GLOBAL FIRST-SIGHTING "What the devil are you doing here!
Lafond is a dangerous man to play with!\" Jamison ">
<GLOBAL HERO-LEAVES-FOLLY
" With an engaging smile he bows and leaves the folly.|">
<ROUTINE I-HFOLLY ("OPTIONAL" (CALLED-BY-HERO-F <>))
<COND (<NOT <EQUAL? ,HERE ,FOLLY>>
<RFALSE>)
(T
<SETG QUESTIONER ,HERO>
<COND (<NOT .CALLED-BY-HERO-F>
<TELL ,INDENT>)>
<COND (<EQUAL? ,HERO-CTR 1>
<QUEUE I-HFOLLY -1>
<MOVE ,HERO ,FOLLY>
<TELL D ,HERO
" enters" T ,FOLLY-OBJECT ", stooping to avoid the flowers dangling over
the door. \"I thought I heard someone.">
<COND (<NOT ,MET-ALREADY>
<SETG MET-ALREADY T>
<TELL " " ,FIRST-SIGHTING>)
(T
<TELL "\" Jamison ">)>
<TELL
"sighs. \"What an astonishing girl you are, my dear. ">
<COND (<NOT <FSET? ,CHEMISE ,EVERYBIT>>
<TELL
"If --\"" ,EYES-RAKE ", \"somewhat underdressed">)
(,BOY-DRESS?
<TELL "And so ingeniously dressed">)
(T
<TELL "And looking more lovely than ever">)>
<TELL
".\" He plucks" A ,FLOWER " from the tangle above the door, and sets it
in your hair. \"The beauty of this blossom is nothing to yours.\"" CR>
<MOVE ,FLOWER ,PROTAGONIST>
<FCLEAR ,FLOWER ,NDESCBIT>
<FSET ,FLOWER ,TAKEBIT>)
(<AND <OR <EQUAL? ,REACTION ,REACTION-NEGATIVE>
<EQUAL? ,HERO-CTR 6>>
<IN? ,HERO ,HERE>>
<DEQUEUE I-HFOLLY>
<SETG QUESTIONER <>>
<REMOVE ,HERO>
<TELL
"Jamison backs away from you, smiling wistfully">
<TELL "." ,HERO-LEAVES-FOLLY>)
(<EQUAL? ,HERO-CTR 2>
<TELL
"Catching his breath, Jamison pulls you against
him, his hands circling your waist">
<COND (<IN? ,FLOWER ,PROTAGONIST>
<TELL
", crushing" T ,FLOWER " between you">)>
<TELL
". \"Darling,\" he whispers, leaning over you, \"oh, my angel ...\"" CR>)
(<EQUAL? ,HERO-CTR 3>
<SETG AWAITING-REPLY 15>
<QUEUE I-REPLY 2>
<TELL
"\"My lovely,\" Jamison says huskily. His eyes burn intently, their blue
like the sea on a summer day. A shiver of warmth flows through you, and
you tremble at his touch. The pirate's hands, warm and exciting, caress
you, searing through the thin linen of your chemise. His lips
near yours, his breath softly scented. \"May I kiss you?\"" CR>
;<COND (,BOY-DRESS?
<TELL "inside the loose shirt">)
(<OR <FSET? ,GOWN ,WORNBIT>
<FSET? ,DRESS ,WORNBIT>>
<TELL "into your bodice">)
(T
<TELL "up">)>)
(<EQUAL? ,HERO-CTR 4>
<TELL
"Tender is his kiss, soft his lips as his body presses hard against you.
You drown in the tide of your passion, swept like the sea against the rocks
of the shore." CR>)
(<EQUAL? ,HERO-CTR 5>
<REMOVE ,HERO>
;<SETG QUESTIONER <>>
;<DEQUEUE I-HFOLLY>
<TELL
"With a pent-up sigh, Nicholas forces himself away from you. \"Now is not the
time or the place to advance my suit,\" he says, wistfully. \"But the night
is still young and you are so beautiful! I must be gone, lest I lose my soul
in you.\"" ,HERO-LEAVES-FOLLY>)>)>
<SETG HERO-CTR <+ ,HERO-CTR 1>>>
;<ROUTINE I-HFOLLY ("OPTIONAL" (CALLED-BY-HERO-F <>))
<COND (<NOT <EQUAL? ,HERE ,FOLLY>>
<RFALSE>)
(T
<SETG QUESTIONER ,HERO>
<COND (<NOT .CALLED-BY-HERO-F>
<TELL ,INDENT>)>
<COND (<EQUAL? ,HERO-CTR 1>
<QUEUE I-HFOLLY -1>
<MOVE ,HERO ,FOLLY>
<TELL D ,HERO
" enters the folly, stooping to avoid the flowers dangling over the door.
\"I thought I heard someone.">
<COND (<NOT ,MET-ALREADY>
<SETG MET-ALREADY T>
<TELL " "
,FIRST-SIGHTING " Jamison sighs. \"What an astonishing girl you are, my dear.
And ">
<COND (,BOY-DRESS?
<TELL "rather ingeniously dressed, too">)
(<FSET? ,GOWN ,WORNBIT>
<TELL "looking more lovely than ever">)
(<NOT <FSET? ,CHEMISE ,EVERYBIT>>
<TELL
"--\"" ,EYES-RAKE ", \"ahem, somewhat underdressed">)
(T
<TELL "that is that">)>
<TELL ".\" " <PICK-ONE ,MANNERISMS> ,PCR>)
(T
<MOVE ,FLOWER ,PROTAGONIST>
<FCLEAR ,FLOWER ,NDESCBIT>
<FSET ,FLOWER ,TAKEBIT>
<TELL
"\" He plucks" A ,FLOWER " from the tangle above the door, and sets it in your
hair. \"The beauty of this " D ,FLOWER " is nothing to yours.\"" CR>)>)
(<EQUAL? ,REACTION ,REACTION-NEGATIVE>
<TELL
"Jamison backs away from you, smiling wistfully">
<COND (<EQUAL? ,HERO-CTR 5>
<REMOVE ,HERO>
<TELL "." ,HERO-LEAVES-FOLLY>)
(T
<TELL ,PCR>)>)
(<EQUAL? ,HERO-CTR 2>
<TELL
"Catching his breath, Jamison pulls you against
him, his hands circling your waist">
<COND (<IN? ,FLOWER ,PROTAGONIST>
<TELL
", crushing" T ,FLOWER " between you">)>
<TELL
". \"Darling,\" he whispers, leaning over you, \"oh, my angel ...\"" CR>)
(<EQUAL? ,HERO-CTR 3>
<SETG AWAITING-REPLY 15>
<QUEUE I-REPLY 2>
<TELL
"\"My lovely,\" Jamison says huskily. His eyes burn intently, their blue
like the sea on a summer day. A shiver of warmth flows through you, and
you tremble at his touch. The pirate's hands, warm and exciting, caress
you, searing through the thin linen of your chemise. His lips
near yours, his breath softly scented. \"May I kiss you?\"" CR>
;<COND (,BOY-DRESS?
<TELL "inside the loose shirt">)
(<OR <FSET? ,GOWN ,WORNBIT>
<FSET? ,DRESS ,WORNBIT>>
<TELL "into your bodice">)
(T
<TELL "up">)>)
(<EQUAL? ,HERO-CTR 4>
<TELL
"Tender is his kiss, soft his lips, yet his body presses hard against you.
You drown in the tide of your passion, swept like the sea against the rocks
of the shore." CR>)
(<EQUAL? ,HERO-CTR 5>
<REMOVE ,HERO>
<SETG QUESTIONER <>>
<DEQUEUE I-HFOLLY>
<TELL
"With a pent-up sigh, Nicholas forces himself away from you. \"Now is not the
time or the place to advance my suit,\" he says, wistfully. \"But the night
is still young and you are so beautiful! I must be gone, lest I lose my soul
in you.\"" ,HERO-LEAVES-FOLLY>)>)>
<SETG HERO-CTR <+ ,HERO-CTR 1>>>
<ROUTINE HERO-TALKS ()
<TELL ,INDENT>
<COND (<AND <PROB 65>
<L? ,WHAT-HERO-SAYS 3>>
<COND (<AND <EQUAL? ,WHAT-HERO-SAYS 0>
,HDAD-SPEECH>
<TELL <PICK-ONE ,MANNERISMS> ,PCR>)
(T
<TELL <GET ,HERO-SPEECHES ,WHAT-HERO-SAYS> ,PCR>
<SETG WHAT-HERO-SAYS <+ ,WHAT-HERO-SAYS 1>>)>)
(T
<TELL <PICK-ONE ,MANNERISMS> ,PCR>)>>
<GLOBAL WHAT-HERO-SAYS 0>
<GLOBAL HERO-SPEECHES
<TABLE
"\"I haven't found your father. We've long suspected a passage
under the library, but I cannot find an entrance,\" says Jamison"
"\"If there is any trouble, and I am unable to help -- a signal from
an upstairs seaward window will bring my men. They can be here in moments,\"
the Captain says"
"\"I wish you would call me 'Nicholas' -- I feel I know you much
better than our brief acquaintance would allow.\" He presses your hand">>
<GLOBAL MANNERISMS
<LTABLE
0
"Jamison touches your hair softly"
"Jamison grins down at you, a dazzling white smile"
"The blue of the captain's eyes seems to deepen, looking at you"
"His eyes twinkle, like moonlight on the sea"
"Nicholas's hands are smooth and cool">>
<OBJECT RAPIER
(IN HERO)
(DESC "rapier")
(DESCFCN RAPIER-F)
(SYNONYM SWORD RAPIER)
(ADJECTIVE SHARP)
(FLAGS TRYTAKEBIT TAKEBIT)
(ACTION RAPIER-F)>
<ROUTINE RAPIER-F ("OPTIONAL" (OARG <>))
<COND (.OARG
<COND (<EQUAL? ,HERE ,DUNGEON>
<COND (<EQUAL? .OARG ,M-DESC?>
<RTRUE>)>
<TELL ,INDENT
"A rapier lies in the half-dark of a corner.">)
(T
<RFALSE>)>)
(<VERB? TAKE>
<COND (<AND <NOT <FSET? ,HERO ,DEADBIT>>
<IN? ,HERO ,HERE>>
<TELL
"Jamison prevents you, \"This is not a weapon for ladies.\"" CR>)
(<AND <EQUAL? ,HERE ,DUNGEON>
<IN? ,CRULLEY ,DUNGEON>
<NOT <FSET? ,RAPIER ,TOUCHBIT>>
<NOT <EQUAL? <ITAKE <>> ,M-FATAL <>>>>
<TELL "Taken. "
D ,CRULLEY " snorts, \"Be careful, you might hurt yer dearie.\"" CR>)
(<IN? ,RAPIER ,COOKIE>
<TELL D ,COOKIE
" objects. \"It ain't fer a lady.\"" CR>)>)
(<AND <VERB? THROW PUT PUT-THROUGH>
<OR <PRSI? ,TRAP>
<AND <PRSI? ,CRULLEY>
<FSET? ,CRULLEY ,MUNGBIT>>>>
<TELL "But you might need it later!" CR>)
(<VERB? EXAMINE>
<TELL
"Jamison's rapier is a dangerous looking sword with a narrow pointed blade">
<COND (<NOT <EQUAL? ,HERE ,CABIN ,DEUX-DECK>>
<TELL ". It is decorated with a big floppy ribbon">)>
<TELL ,PCR>)>>

2503
island.zap Normal file
View file

File diff suppressed because it is too large Load diff

3501
island.zil Normal file
View file

File diff suppressed because it is too large Load diff

562
misc.zap Normal file
View file

@ -0,0 +1,562 @@
.FUNCT PICK-ONE,TBL,LENGTH,CNT,RND,MSG,RFROB
GET TBL,0 >LENGTH
GET TBL,1 >CNT
DEC 'LENGTH
ADD TBL,2 >TBL
MUL CNT,2
ADD TBL,STACK >RFROB
SUB LENGTH,CNT
RANDOM STACK >RND
GET RFROB,RND >MSG
GET RFROB,1
PUT RFROB,RND,STACK
PUT RFROB,1,MSG
INC 'CNT
EQUAL? CNT,LENGTH \?CND1
SET 'CNT,0
?CND1: PUT TBL,0,CNT
RETURN MSG
.FUNCT APRINT,OBJ
FSET? OBJ,NARTICLEBIT /?CTR2
EQUAL? OBJ,PANTS,RUM,SALTS \?CCL3
?CTR2: PRINTC 32
JUMP ?CND1
?CCL3: FSET? OBJ,VOWELBIT \?CCL7
PRINTI " an "
JUMP ?CND1
?CCL7: PRINTI " a "
?CND1: PRINTD OBJ
RTRUE
.FUNCT TPRINT,OBJ
FSET? OBJ,NARTICLEBIT \?CCL3
PRINTC 32
JUMP ?CND1
?CCL3: PRINTI " the "
?CND1: PRINTD OBJ
RTRUE
.FUNCT CTPRINT,OBJ
PRINTI "The "
PRINTD OBJ
RTRUE
.FUNCT TPRINT-PRSO
CALL TPRINT,PRSO
RSTACK
.FUNCT TPRINT-PRSI
CALL TPRINT,PRSI
RSTACK
.FUNCT ARPRINT,OBJ
CALL APRINT,OBJ
PRINT PCR
RTRUE
.FUNCT TRPRINT,OBJ
CALL TPRINT,OBJ
PRINT PCR
RTRUE
.FUNCT GO
START::
?FCN: PRINTI ">SHOOT THE PIRATE
Trembling, you fire the heavy arquebus. You hear its loud report over the roaring wind, yet the dark figure still approaches. The gun falls from your nerveless hands.
""You won't kill me,"" he says, stepping over the weapon. ""Not when I am the only protection you have from Jean Lafond.""
"
PRINT NUTBROWN
PRINTI "Lips curving,"
PRINT EYES-RAKE
PRINTI ". You are intensely aware of the strength of his hard seaworn body, of the deep sea blue of his eyes. And then his mouth is on yours, lips parted, demanding, and you arch into his kiss...
He presses you against him, head bent. ""But who, my dear,"" he whispers into your hair, ""will protect you from me?""
"
CRLF
PRINT HIT-RETURN
PRINTI "begin.]"
CRLF
READ P-INBUF,P-LEXV
USL
CALL CLEAR-SCREEN,11
SET 'HERE,CABIN
USL
CALL V-VERSION
CRLF
PRINTI "LATE ONE SPRING NIGHT IN THE WEST INDIES...
A crash overhead! Pirates are boarding the Lafond Deux! The first mate hurries you into Captain Davis's cabin.
""Good, you brought the girl,"" Davis smirks. ""She'll keep the pirates busy. She was only a tool of Lafond's, anyway. Let me just find that cof--"" A man on deck screams in agony and Davis starts. ""Let's go."" The captain thrusts you on the bed and walks out, locking the door.
His laugh echoes. ""Best get comfortable, girl. You're likely to be there for the rest of your life."""
CRLF
CRLF
CALL V-LOOK
CALL MAIN-LOOP
JUMP ?FCN
.FUNCT CLEAR-SCREEN,CNT=24
?PRG1: CRLF
DEC 'CNT
ZERO? CNT \?PRG1
RTRUE
.FUNCT MAIN-LOOP,TRASH
?PRG1: CALL MAIN-LOOP-1 >TRASH
JUMP ?PRG1
.FUNCT MAIN-LOOP-1,ICNT,OCNT,NUM,CNT=0,OBJ=0,TBL,V,PTBL=1,OBJ1,TMP,ONUM,?TMP1
CALL PARSER >P-WON
ZERO? P-WON /?CCL3
GETB P-PRSI,P-MATCHLEN >ICNT
GETB P-PRSO,P-MATCHLEN >OCNT
ZERO? P-IT-OBJECT /?CND4
CALL ACCESSIBLE?,P-IT-OBJECT
ZERO? STACK /?CND4
SET 'TMP,FALSE-VALUE
?PRG8: IGRTR? 'CNT,ICNT /?REP9
GETB P-PRSI,CNT
EQUAL? STACK,IT \?PRG8
CALL TOO-DARK-FOR-IT?
ZERO? STACK \TRUE
PUTB P-PRSI,CNT,P-IT-OBJECT
SET 'TMP,TRUE-VALUE
?REP9: ZERO? TMP \?CND17
SET 'CNT,0
?PRG19: IGRTR? 'CNT,OCNT /?CND17
GETB P-PRSO,CNT
EQUAL? STACK,IT \?PRG19
CALL TOO-DARK-FOR-IT?
ZERO? STACK \TRUE
PUTB P-PRSO,CNT,P-IT-OBJECT
?CND17: SET 'CNT,0
?CND4: GETB P-SYNTAX,P-SBITS
BAND STACK,P-SONUMS >ONUM
ZERO? OCNT /?CTR29
ZERO? ICNT \?CCL30
EQUAL? ONUM,2 \?CCL30
?CTR29: SET 'NUM,0
JUMP ?CND28
?CCL30: GRTR? OCNT,1 \?CCL36
SET 'TBL,P-PRSO
ZERO? ICNT \?CCL39
SET 'OBJ,FALSE-VALUE
JUMP ?CND37
?CCL39: GETB P-PRSI,1 >OBJ
?CND37: SET 'NUM,OCNT
JUMP ?CND28
?CCL36: GRTR? ICNT,1 \?CCL41
SET 'PTBL,FALSE-VALUE
SET 'TBL,P-PRSI
GETB P-PRSO,1 >OBJ
SET 'NUM,ICNT
JUMP ?CND28
?CCL41: SET 'NUM,1
?CND28: ZERO? OBJ \?CND42
EQUAL? ICNT,1 \?CND42
GETB P-PRSI,1 >OBJ
?CND42: EQUAL? PRSA,V?WALK \?CCL48
CALL PERFORM-PRSA,PRSO >V
JUMP ?CND46
?CCL48: ZERO? NUM \?CCL50
GETB P-SYNTAX,P-SBITS
BAND STACK,P-SONUMS
ZERO? STACK \?CCL53
CALL PERFORM-PRSA >V
SET 'PRSO,FALSE-VALUE
JUMP ?CND46
?CCL53: PRINTI "There isn't anything to "
GET P-ITBL,P-VERBN >TMP
EQUAL? PRSA,V?TELL \?CCL56
PRINTI "talk to"
JUMP ?CND54
?CCL56: ZERO? P-OFLAG \?CTR57
ZERO? P-MERGED /?CCL58
?CTR57: GET TMP,0
PRINTB STACK
JUMP ?CND54
?CCL58: GETB TMP,2 >?TMP1
GETB TMP,3
CALL WORD-PRINT,?TMP1,STACK
?CND54: PRINTC 33
CRLF
SET 'V,FALSE-VALUE
CALL STOP
JUMP ?CND46
?CCL50: SET 'P-NOT-HERE,0
SET 'P-MULT,FALSE-VALUE
GRTR? NUM,1 \?CND61
SET 'P-MULT,TRUE-VALUE
?CND61: SET 'TMP,FALSE-VALUE
?PRG63: IGRTR? 'CNT,NUM \?CCL67
GRTR? P-NOT-HERE,0 \?CCL70
PRINTI "[The "
EQUAL? P-NOT-HERE,NUM /?CND71
PRINTI "other "
?CND71: PRINTI "object"
EQUAL? P-NOT-HERE,1 /?CND73
PRINTC 115
?CND73: PRINTI " that you mentioned "
EQUAL? P-NOT-HERE,1 /?CCL77
PRINTI "are"
JUMP ?CND75
?CCL77: PRINTI "is"
?CND75: PRINTI "n't here.]"
CRLF
JUMP ?CND46
?CCL70: ZERO? TMP \?CND46
CALL REFERRING
JUMP ?CND46
?CCL67: ZERO? PTBL /?CCL81
GETB P-PRSO,CNT >OBJ1
JUMP ?CND79
?CCL81: GETB P-PRSI,CNT >OBJ1
?CND79: ZERO? PTBL /?CCL84
SET 'PRSO,OBJ1
JUMP ?CND82
?CCL84: SET 'PRSO,OBJ
?CND82: ZERO? PTBL /?CCL87
SET 'PRSI,OBJ
JUMP ?CND85
?CCL87: SET 'PRSI,OBJ1
?CND85: GRTR? NUM,1 /?CCL89
GET P-ITBL,P-NC1
GET STACK,0
EQUAL? STACK,W?ALL,W?EVERYT \?CND88
?CCL89: CALL DONT-ALL,OBJ1
ZERO? STACK \?PRG63
EQUAL? OBJ1,IT \?CCL97
PRINTD P-IT-OBJECT
JUMP ?CND95
?CCL97: EQUAL? OBJ1,HIM \?CCL99
PRINTD P-HIM-OBJECT
JUMP ?CND95
?CCL99: EQUAL? OBJ1,HER \?CCL101
PRINTD P-HER-OBJECT
JUMP ?CND95
?CCL101: PRINTD OBJ1
?CND95: PRINTI ": "
?CND88: SET 'TMP,TRUE-VALUE
CALL PERFORM-PRSA,PRSO,PRSI >V
EQUAL? V,M-FATAL \?PRG63
?CND46: EQUAL? V,M-FATAL \?CND104
SET 'P-CONT,FALSE-VALUE
?CND104: CALL CLOCKER-VERB?
ZERO? STACK /?CND1
EQUAL? PRSA,V?TELL /?CND1
ZERO? P-WON /?CND1
GETP HERE,P?ACTION
CALL STACK,M-END >V
JUMP ?CND1
?CCL3: SET 'P-CONT,FALSE-VALUE
?CND1: ZERO? P-WON /FALSE
CALL CLOCKER-VERB?
ZERO? STACK /?CND114
CALL CLOCKER >V
?CND114: SET 'PRSA,FALSE-VALUE
SET 'PRSO,FALSE-VALUE
SET 'PRSI,FALSE-VALUE
RETURN PRSI
.FUNCT TOO-DARK-FOR-IT?
ZERO? LIT \FALSE
CALL HELD?,P-IT-OBJECT,WINNER
ZERO? STACK \FALSE
IN? WINNER,P-IT-OBJECT /FALSE
PRINT TOO-DARK
CRLF
RTRUE
.FUNCT DONT-ALL,OBJ1,L
LOC OBJ1 >L
EQUAL? OBJ1,NOT-HERE-OBJECT \?CCL3
INC 'P-NOT-HERE
RTRUE
?CCL3: EQUAL? PRSA,V?TAKE \?CCL5
ZERO? PRSI /?CCL5
IN? PRSO,PRSI \TRUE
?CCL5: CALL ACCESSIBLE?,OBJ1
ZERO? STACK /TRUE
EQUAL? P-GETFLAGS,P-ALL \FALSE
ZERO? PRSI /?CCL15
EQUAL? PRSO,PRSI /TRUE
?CCL15: EQUAL? PRSA,V?TAKE \?CCL19
FSET? OBJ1,TAKEBIT /?CCL22
FSET? OBJ1,TRYTAKEBIT \TRUE
?CCL22: EQUAL? L,WINNER,HERE,PRSI /?CCL26
LOC WINNER
EQUAL? L,STACK /?CCL26
FSET? L,SURFACEBIT \TRUE
FSET? L,TAKEBIT /TRUE
RFALSE
?CCL26: EQUAL? OBJ1,BOOKS-GLOBAL,POWER /TRUE
ZERO? PRSI \FALSE
CALL HELD?,PRSO
ZERO? STACK /FALSE
RTRUE
?CCL19: EQUAL? PRSA,V?PUT-ON,V?PUT,V?DROP /?PRD43
EQUAL? PRSA,V?SGIVE,V?GIVE \?CCL41
?PRD43: IN? OBJ1,WINNER \TRUE
?CCL41: EQUAL? PRSA,V?PUT-ON,V?PUT \FALSE
IN? PRSO,WINNER /FALSE
CALL HELD?,PRSO,PRSI
ZERO? STACK \TRUE
RFALSE
.FUNCT CLOCKER-VERB?
EQUAL? PRSA,V?$RECORD,V?HELP,V?VERSION /FALSE
EQUAL? PRSA,V?$RANDOM,V?$COMMAND,V?$UNRECORD /FALSE
EQUAL? PRSA,V?RESTART,V?RESTORE,V?SAVE /FALSE
EQUAL? PRSA,V?UNSCRIPT,V?SCRIPT,V?QUIT /FALSE
EQUAL? PRSA,V?VERBOSE,V?SUPER-BRIEF,V?BRIEF /FALSE
EQUAL? PRSA,V?SCORE /FALSE
RTRUE
.FUNCT FAKE-ORPHAN,IT-WAS-USED=0,TMP,?TMP1
CALL ORPHAN,P-SYNTAX,FALSE-VALUE
GET P-OTBL,P-VERBN >TMP
PRINTI "[Be specific: Wh"
ZERO? IT-WAS-USED /?CCL3
PRINTI "at object"
JUMP ?CND1
?CCL3: PRINTC 111
?CND1: PRINT DO-YOU-WANT
ZERO? TMP \?CCL6
PRINTI "tell"
JUMP ?CND4
?CCL6: GETB P-VTBL,2
ZERO? STACK \?CCL8
GET TMP,0
PRINTB STACK
JUMP ?CND4
?CCL8: GETB TMP,2 >?TMP1
GETB TMP,3
CALL WORD-PRINT,?TMP1,STACK
PUTB P-VTBL,2,0
?CND4: SET 'P-OFLAG,TRUE-VALUE
SET 'P-WON,FALSE-VALUE
GETB P-SYNTAX,P-SPREP1
CALL PREP-PRINT,STACK
PRINTR "?]"
.FUNCT PERFORM-PRSA,O=0,I=0
CALL PERFORM,PRSA,O,I
RTRUE
.FUNCT PERFORM,A,O=0,I=0,V,OA,OO,OI
SET 'OA,PRSA
SET 'OO,PRSO
SET 'OI,PRSI
SET 'PRSA,A
EQUAL? IT,O,I \?CND1
EQUAL? A,V?WALK /?CND1
CALL VISIBLE?,P-IT-OBJECT
ZERO? STACK /?CCL7
EQUAL? IT,O \?CCL10
SET 'O,P-IT-OBJECT
JUMP ?CND1
?CCL10: SET 'I,P-IT-OBJECT
?CND1: EQUAL? HIM,O,I \?CND16
EQUAL? A,V?WALK /?CND16
CALL VISIBLE?,P-HIM-OBJECT
ZERO? STACK /?CCL22
EQUAL? HIM,O \?CCL25
SET 'O,P-HIM-OBJECT
JUMP ?CND16
?CCL7: ZERO? I \?CCL13
CALL FAKE-ORPHAN,TRUE-VALUE
RETURN 8
?CCL13: CALL REFERRING
RETURN 8
?CCL25: SET 'I,P-HIM-OBJECT
?CND16: EQUAL? HER,O,I \?CND31
EQUAL? A,V?WALK /?CND31
CALL VISIBLE?,P-HER-OBJECT
ZERO? STACK /?CCL37
EQUAL? HER,O \?CCL40
SET 'O,P-HER-OBJECT
JUMP ?CND31
?CCL22: ZERO? I \?CCL28
CALL FAKE-ORPHAN
RETURN 8
?CCL28: CALL REFERRING,TRUE-VALUE
RETURN 8
?CCL40: SET 'I,P-HER-OBJECT
?CND31: SET 'PRSO,O
SET 'PRSI,I
EQUAL? A,V?WALK /?CCL48
EQUAL? NOT-HERE-OBJECT,PRSO,PRSI \?CCL48
CALL D-APPLY,STR?232,NOT-HERE-OBJECT-F >V
ZERO? V /?CCL48
SET 'P-WON,FALSE-VALUE
JUMP ?CND46
?CCL37: ZERO? I \?CCL43
CALL FAKE-ORPHAN
RETURN 8
?CCL43: CALL REFERRING,TRUE-VALUE
RETURN 8
?CCL48: SET 'O,PRSO
SET 'I,PRSI
CALL THIS-IS-IT,PRSI
CALL THIS-IS-IT,PRSO
GETP WINNER,P?ACTION
CALL D-APPLY,STR?233,STACK >V
ZERO? V \?CND46
LOC WINNER
GETP STACK,P?ACTION
CALL D-APPLY,STR?234,STACK,M-BEG >V
ZERO? V \?CND46
GET PREACTIONS,A
CALL D-APPLY,STR?235,STACK >V
ZERO? V \?CND46
ZERO? I /?CCL60
GETP I,P?ACTION
CALL D-APPLY,STR?236,STACK >V
ZERO? V \?CND46
?CCL60: ZERO? O /?CCL64
EQUAL? A,V?WALK /?CCL64
GETP O,P?ACTION
CALL D-APPLY,STR?237,STACK >V
ZERO? V \?CND46
?CCL64: GET ACTIONS,A
CALL D-APPLY,FALSE-VALUE,STACK >V
ZERO? V /?CND46
?CND46: SET 'PRSA,OA
SET 'PRSO,OO
SET 'PRSI,OI
RETURN V
.FUNCT D-APPLY,STR,FCN,FOO=0,RES
ZERO? FCN /FALSE
ZERO? FOO /?CCL6
CALL FCN,FOO >RES
RETURN RES
?CCL6: CALL FCN >RES
RETURN RES
.FUNCT DEQUEUE,RTN
CALL QUEUED?,RTN >RTN
ZERO? RTN /FALSE
PUT RTN,C-RTN,0
RTRUE
.FUNCT QUEUED?,RTN,C,E
ADD C-TABLE,C-TABLELEN >E
ADD C-TABLE,C-INTS >C
?PRG1: EQUAL? C,E /FALSE
GET C,C-RTN
EQUAL? STACK,RTN \?CND3
GET C,C-TICK
ZERO? STACK /FALSE
RETURN C
?CND3: ADD C,C-INTLEN >C
JUMP ?PRG1
.FUNCT RUNNING?,RTN,C
CALL QUEUED?,RTN >C
ZERO? C /FALSE
GET C,C-TICK
GRTR? STACK,1 \TRUE
RFALSE
.FUNCT QUEUE,RTN,TICK,C,E,INT=0
ADD C-TABLE,C-TABLELEN >E
ADD C-TABLE,C-INTS >C
?PRG1: EQUAL? C,E \?CCL5
ZERO? INT /?CCL8
SET 'C,INT
JUMP ?CND6
?CCL8: LESS? C-INTS,C-INTLEN \?CND9
PRINTI "**Too many ints!**"
CRLF
?CND9: SUB C-INTS,C-INTLEN >C-INTS
LESS? C-INTS,C-MAXINTS \?CND11
SET 'C-MAXINTS,C-INTS
?CND11: ADD C-TABLE,C-INTS >INT
?CND6: PUT INT,C-RTN,RTN
JUMP ?REP2
?CCL5: GET C,C-RTN
EQUAL? STACK,RTN \?CCL14
SET 'INT,C
?REP2: ZERO? CLOCK-HAND /?CND16
GRTR? INT,CLOCK-HAND \?CND16
ADD TICK,3
SUB 0,STACK >TICK
?CND16: PUT INT,C-TICK,TICK
RETURN INT
?CCL14: GET C,C-RTN
ZERO? STACK \?CND3
SET 'INT,C
?CND3: ADD C,C-INTLEN >C
JUMP ?PRG1
.FUNCT CLOCKER,E,TICK,RTN,FLG=0,Q?=0,OWINNER
ZERO? CLOCK-WAIT /?CND1
SET 'CLOCK-WAIT,FALSE-VALUE
RFALSE
?CND1: ADD C-TABLE,C-INTS >CLOCK-HAND
ADD C-TABLE,C-TABLELEN >E
SET 'OWINNER,WINNER
SET 'WINNER,PROTAGONIST
?PRG3: EQUAL? CLOCK-HAND,E \?CCL7
SET 'CLOCK-HAND,E
INC 'MOVES
SET 'WINNER,OWINNER
RETURN FLG
?CCL7: GET CLOCK-HAND,C-RTN
ZERO? STACK /?CND5
GET CLOCK-HAND,C-TICK >TICK
LESS? TICK,-1 \?CCL11
SUB 0,TICK
SUB STACK,3
PUT CLOCK-HAND,C-TICK,STACK
SET 'Q?,CLOCK-HAND
JUMP ?CND5
?CCL11: ZERO? TICK /?CND5
GRTR? TICK,0 \?CND13
DEC 'TICK
PUT CLOCK-HAND,C-TICK,TICK
?CND13: ZERO? TICK /?CND15
SET 'Q?,CLOCK-HAND
?CND15: GRTR? TICK,0 /?CND5
GET CLOCK-HAND,C-RTN >RTN
ZERO? TICK \?CND19
PUT CLOCK-HAND,C-RTN,0
?CND19: CALL RTN
ZERO? STACK /?CND21
SET 'FLG,TRUE-VALUE
?CND21: ZERO? Q? \?CND5
GET CLOCK-HAND,C-RTN
ZERO? STACK /?CND5
SET 'Q?,TRUE-VALUE
?CND5: ADD CLOCK-HAND,C-INTLEN >CLOCK-HAND
ZERO? Q? \?PRG3
ADD C-INTS,C-INTLEN >C-INTS
JUMP ?PRG3
.ENDI

775
misc.zil Normal file
View file

@ -0,0 +1,775 @@
"MISC for
PLUNDERED HEARTS
(c) Copyright 1987 Infocom, Inc. All Rights Reserved."
;"macros"
<TELL-TOKENS (CRLF CR) <CRLF>
D * <PRINTD .X>
A * <APRINT .X>
T ,PRSO <TPRINT-PRSO>
T ,PRSI <TPRINT-PRSI>
T * <TPRINT .X>
AR * <ARPRINT .X>
TR * <TRPRINT .X>
N * <PRINTN .X>
C * <PRINTC .X>
CTHE * <CTPRINT .X>>
<DEFMAC VERB? ("ARGS" ATMS)
<MULTIFROB PRSA .ATMS>>
<DEFMAC PRSO? ("ARGS" ATMS)
<MULTIFROB PRSO .ATMS>>
<DEFMAC PRSI? ("ARGS" ATMS)
<MULTIFROB PRSI .ATMS>>
<DEFMAC ROOM? ("ARGS" ATMS)
<MULTIFROB HERE .ATMS>>
<DEFINE MULTIFROB (X ATMS "AUX" (OO (OR)) (O .OO) (L ()) ATM)
<REPEAT ()
<COND (<EMPTY? .ATMS>
<RETURN!- <COND (<LENGTH? .OO 1> <ERROR .X>)
(<LENGTH? .OO 2> <NTH .OO 2>)
(ELSE <CHTYPE .OO FORM>)>>)>
<REPEAT ()
<COND (<EMPTY? .ATMS> <RETURN!->)>
<SET ATM <NTH .ATMS 1>>
<SET L
(<COND (<TYPE? .ATM ATOM>
<CHTYPE <COND (<==? .X PRSA>
<PARSE
<STRING "V?"
<SPNAME .ATM>>>)
(ELSE .ATM)> GVAL>)
(ELSE .ATM)>
!.L)>
<SET ATMS <REST .ATMS>>
<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
<SET O <REST <PUTREST .O
(<FORM EQUAL? <CHTYPE .X GVAL> !.L>)>>>
<SET L ()>>>
<DEFMAC BSET ('OBJ "ARGS" BITS)
<MULTIBITS FSET .OBJ .BITS>>
<DEFMAC BCLEAR ('OBJ "ARGS" BITS)
<MULTIBITS FCLEAR .OBJ .BITS>>
<DEFMAC BSET? ('OBJ "ARGS" BITS)
<MULTIBITS FSET? .OBJ .BITS>>
<DEFINE MULTIBITS (X OBJ ATMS "AUX" (O ()) ATM)
<REPEAT ()
<COND (<EMPTY? .ATMS>
<RETURN!- <COND (<LENGTH? .O 1> <NTH .O 1>)
(<EQUAL? .X FSET?> <FORM OR !.O>)
(ELSE <FORM PROG () !.O>)>>)>
<SET ATM <NTH .ATMS 1>>
<SET ATMS <REST .ATMS>>
<SET O
(<FORM .X
.OBJ
<COND (<TYPE? .ATM FORM> .ATM)
(ELSE <FORM GVAL .ATM>)>>
!.O)>>>
<DEFMAC RFATAL ()
'<PROG () <PUSH 8> <RSTACK>>>
<DEFMAC PROB ('BASE?)
<FORM NOT <FORM L? .BASE? '<RANDOM 100>>>>
<DEFMAC GET/B ('TBL 'PTR)
<COND ;(<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
<FORM GET .TBL .PTR>)
(T <FORM GETB .TBL .PTR>)>>
<DEFMAC PUT/B ('TBL 'PTR 'OBJ)
<COND ;(<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
<FORM PUT .TBL .PTR .OBJ>)
(T <FORM PUTB .TBL .PTR .OBJ>)>>
<DEFMAC ZMEMQ/B ('OBJ 'TBL)
<COND ;(<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
<FORM ZMEMQ .OBJ .TBL>)
(T <FORM ZMEMQB .OBJ .TBL>)>>
;<ROUTINE ;PICK-ONE (FROB)
<GET .FROB <RANDOM <GET .FROB 0>>>>
;"this new PICK-ONE won't begin repeating any of the items in the table until
they've all been used."
<ROUTINE PICK-ONE (TBL "AUX" LENGTH CNT RND MSG RFROB)
<SET LENGTH <GET .TBL 0>>
<SET CNT <GET .TBL 1>>
<SET LENGTH <- .LENGTH 1>>
<SET TBL <REST .TBL 2>>
<SET RFROB <REST .TBL <* .CNT 2>>>
<SET RND <RANDOM <- .LENGTH .CNT>>>
<SET MSG <GET .RFROB .RND>>
<PUT .RFROB .RND <GET .RFROB 1>>
<PUT .RFROB 1 .MSG>
<SET CNT <+ .CNT 1>>
<COND (<==? .CNT .LENGTH>
<SET CNT 0>)>
<PUT .TBL 0 .CNT>
.MSG>
;<ROUTINE DPRINT (OBJ)
<COND ;(<EQUAL? .OBJ ,SULTANS-WIFE>
<TELL "Sultan">
<COND (,MALE
<TELL "'s wife #">)
(T
<TELL "ess' husband #">)>
<PRINTN ,CHOICE-NUMBER>)
;(<FSET? .OBJ ,UNTEEDBIT>
<TELL <GETP .OBJ ,P?NO-T-DESC>>)
(<GETP .OBJ ,P?SDESC>
<TELL <GETP .OBJ ,P?SDESC>>)
(T
<PRINTD .OBJ>)>>
;<ROUTINE DPRINT-SIDEKICK ()
<DPRINT ,SIDEKICK>>
<ROUTINE APRINT (OBJ)
<COND (<OR <FSET? .OBJ ,NARTICLEBIT>
<EQUAL? .OBJ ,PANTS ,RUM ,SALTS>>
<TELL " ">)
(<FSET? .OBJ ,VOWELBIT>
<TELL " an ">)
(T
<TELL " a ">)>
<PRINTD .OBJ>>
<ROUTINE TPRINT (OBJ)
<COND (<FSET? .OBJ ,NARTICLEBIT>
<TELL " ">)
(T
<TELL " the ">)>
<PRINTD .OBJ>>
<ROUTINE CTPRINT (OBJ)
<TELL "The ">
<PRINTD .OBJ>>
<ROUTINE TPRINT-PRSO ()
<TPRINT ,PRSO>>
<ROUTINE TPRINT-PRSI ()
<TPRINT ,PRSI>>
<ROUTINE ARPRINT (OBJ)
<APRINT .OBJ>
<TELL ,PCR>>
<ROUTINE TRPRINT (OBJ)
<TPRINT .OBJ>
<TELL ,PCR>>
<DEFINE PSEUDO ("TUPLE" V)
<MAPF ,PLTABLE
<FUNCTION (OBJ)
<COND (<N==? <LENGTH .OBJ> 3>
<ERROR BAD-THING .OBJ>)>
<MAPRET <COND (<NTH .OBJ 2>
<VOC <SPNAME <NTH .OBJ 2>> NOUN>)>
<COND (<NTH .OBJ 1>
<VOC <SPNAME <NTH .OBJ 1>> ADJECTIVE>)>
<3 .OBJ>>>
.V>>
;"MAIN-LOOP and associated routines"
<CONSTANT M-BEG 1>
<CONSTANT M-ENTER 2>
<CONSTANT M-LOOK 3>
<CONSTANT M-FLASH 4>
<CONSTANT M-OBJDESC 5>
<CONSTANT M-END 6>
;<CONSTANT M-SMELL 7>
<CONSTANT M-FATAL 8>
<CONSTANT M-DESC? 9>
<CONSTANT M-EXDESC 10>
<ROOM FRONTISPIECE
(IN ROOMS)
;(DESC "THE CARIBBEAN, 16--")
;(DESC ">SHOOT THE PIRATE")
(DESC "Plundered Hearts")
(NW "You can't go that way.")
(SW "You can't go that way.")
(SYNONYM ZZMGCK) ;"No, this synonym doesn't need to exist... sigh">
<GLOBAL EYES-RAKE " his eyes rake over your inadequately dressed body, the
damp chemise clinging to your legs and heaving bosom, your gleaming hair">
<ZSTART GO> ;"else, ZIL gets confused between verb-word GO and routine GO"
<ROUTINE GO () ;"NOTE: this routine CANNOT have any local variables"
;<SETG HERE ,FRONTISPIECE>
<TELL
">SHOOT THE PIRATE|
Trembling, you fire the heavy arquebus. You hear its loud report over the
roaring wind, yet the dark figure still approaches. The gun falls from your
nerveless hands.|
\"You won't kill me,\" he says, stepping over the weapon. \"Not when I am
the only protection you have from Jean Lafond.\"|
" ,NUTBROWN "Lips curving," ,EYES-RAKE ". You are intensely aware of the
strength of his hard seaworn body, of the deep sea blue of his eyes. And
then his mouth is on yours, lips parted, demanding, and you arch into his
kiss...|
He presses you against him, head bent. \"But who, my dear,\" he whispers
into your hair, \"will protect you from me?\"|">
;<CLEAR-SCREEN 5>
<TELL CR ,HIT-RETURN "begin.]" CR>
<READ ,P-INBUF ,P-LEXV>
<USL>
<CLEAR-SCREEN 11>
;<SETG WINNER ,PROTAGONIST>
<SETG HERE ,CABIN>
;<MOVE ,PROTAGONIST ,CABIN-BED>
<USL>
<V-VERSION>
<CRLF>
<TELL "LATE ONE SPRING NIGHT IN THE WEST INDIES...||
A crash overhead! Pirates are boarding the Lafond Deux!
The first mate hurries you into Captain Davis's cabin.|
\"Good, you brought the girl,\" Davis smirks. \"She'll keep the
pirates busy. She was only a tool of Lafond's, anyway. Let me just find
that cof--\" A man on deck screams in agony and Davis starts. \"Let's
go.\" The captain thrusts you on the bed and walks out, locking the door.|
His laugh echoes. \"Best get comfortable, girl. You're likely to be
there for the rest of your life.\"" CR CR>
<V-LOOK>
;<QUEUE I-PIRATE-ATTACK -1>
;<QUEUE I-COFFER 5>
;<QUEUE I-CRULLEY 9>
;<QUEUE I-JIGS-UP-SNAFU 25>
<MAIN-LOOP>
<AGAIN>>
<ROUTINE CLEAR-SCREEN ("OPTIONAL" (CNT 24))
<REPEAT ()
<CRLF>
<SET CNT <- .CNT 1>>
<COND (<0? .CNT>
<RETURN>)>>>
<ROUTINE MAIN-LOOP ("AUX" TRASH)
<REPEAT ()
<SET TRASH <MAIN-LOOP-1>>>>
<ROUTINE MAIN-LOOP-1 ("AUX" ICNT OCNT NUM (CNT 0) (OBJ <>) TBL
V (PTBL T) OBJ1 TMP ONUM)
<COND (<SETG P-WON <PARSER>>
<SET ICNT <GET/B ,P-PRSI ,P-MATCHLEN>>
<SET OCNT <GET/B ,P-PRSO ,P-MATCHLEN>>
<COND (<AND ,P-IT-OBJECT
<ACCESSIBLE? ,P-IT-OBJECT>>
<SET TMP <>>
<REPEAT ()
<COND (<G? <SET CNT <+ .CNT 1>> .ICNT>
<RETURN>)
(T
<COND (<EQUAL? <GET/B ,P-PRSI .CNT> ,IT>
<COND (<TOO-DARK-FOR-IT?> <RTRUE>)>
<PUT/B ,P-PRSI .CNT ,P-IT-OBJECT>
<SET TMP T>
<RETURN>)>)>>
<COND (<NOT .TMP>
<SET CNT 0>
<REPEAT ()
<COND (<G? <SET CNT <+ .CNT 1>> .OCNT>
<RETURN>)
(T
<COND (<EQUAL? <GET/B ,P-PRSO .CNT> ,IT>
<COND (<TOO-DARK-FOR-IT?> <RTRUE>)>
<PUT/B ,P-PRSO .CNT ,P-IT-OBJECT>
<RETURN>)>)>>)>
<SET CNT 0>)>
<SET ONUM <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
<SET NUM
<COND (<OR <ZERO? .OCNT>
<AND <ZERO? .ICNT>
<EQUAL? .ONUM 2>>>
0)
(<G? .OCNT 1>
<SET TBL ,P-PRSO>
<COND (<ZERO? .ICNT> <SET OBJ <>>)
(T <SET OBJ <GET/B ,P-PRSI 1>>)>
.OCNT)
(<G? .ICNT 1>
<SET PTBL <>>
<SET TBL ,P-PRSI>
<SET OBJ <GET/B ,P-PRSO 1>>
.ICNT)
(T 1)>>
;<SET NUM <COND (<0? .OCNT>
.OCNT)
(<G? .OCNT 1>
<SET TBL ,P-PRSO>
<COND (<0? .ICNT>
<SET OBJ <>>)
(T
<SET OBJ <GET/B ,P-PRSI 1>>)>
.OCNT)
(<G? .ICNT 1>
<SET PTBL <>>
<SET TBL ,P-PRSI>
<SET OBJ <GET/B ,P-PRSO 1>>
.ICNT)
(T
1 ;.ICNT)>>
<COND (<AND <NOT .OBJ>
<1? .ICNT>>
<SET OBJ <GET/B ,P-PRSI 1>>)>
<COND (<EQUAL? ,PRSA ,V?WALK>
<SET V <PERFORM-PRSA ,PRSO>>)
(<0? .NUM>
<COND (<0? <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
<SET V <PERFORM-PRSA>>
<SETG PRSO <>>)
;(<NOT ,LIT>
<TELL ,TOO-DARK CR>
<STOP>)
(T
<TELL "There isn't anything to ">
<SET TMP <GET ,P-ITBL ,P-VERBN>>
<COND (<VERB? TELL>
<TELL "talk to">)
(<OR ,P-OFLAG ,P-MERGED>
<PRINTB <GET .TMP 0>>)
(T
<WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
<TELL "!" CR>
<SET V <>>
<STOP>)>)
(T
<SETG P-NOT-HERE 0>
<SETG P-MULT <>>
<COND (<G? .NUM 1>
<SETG P-MULT T>)>
<SET TMP <>>
<REPEAT ()
<COND (<G? <SET CNT <+ .CNT 1>> .NUM>
<COND (<G? ,P-NOT-HERE 0>
<TELL "[The ">
<COND (<NOT <EQUAL? ,P-NOT-HERE .NUM>>
<TELL "other ">)>
<TELL "object">
<COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
<TELL "s">)>
<TELL " that you mentioned ">
<COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
<TELL "are">)
(T
<TELL "is">)>
<TELL "n't here.]" CR>)
(<NOT .TMP>
<REFERRING>)>
<RETURN>)
(T
<COND (.PTBL
<SET OBJ1 <GET/B ,P-PRSO .CNT>>)
(T
<SET OBJ1 <GET/B ,P-PRSI .CNT>>)>
<SETG PRSO <COND (.PTBL
.OBJ1)
(T
.OBJ)>>
<SETG PRSI <COND (.PTBL
.OBJ)
(T
.OBJ1)>>
<COND (<OR <G? .NUM 1>
<EQUAL? <GET <GET ,P-ITBL ,P-NC1> 0>
,W?ALL
,W?EVERYT>>
<COND (<DONT-ALL .OBJ1>
<AGAIN>)
(T
<COND (<EQUAL? .OBJ1 ,IT>
<TELL D ,P-IT-OBJECT>)
(<EQUAL? .OBJ1 ,HIM>
<TELL D ,P-HIM-OBJECT>)
(<EQUAL? .OBJ1 ,HER>
<TELL D ,P-HER-OBJECT>)
(T
<TELL D .OBJ1>)>
<TELL ": ">)>)>
<SET TMP T>
<SET V <PERFORM-PRSA ,PRSO ,PRSI>>
<COND (<EQUAL? .V ,M-FATAL>
<RETURN>)>)>>)>
<COND (<EQUAL? .V ,M-FATAL>
<SETG P-CONT <>>)>
<COND (<AND <CLOCKER-VERB?>
<NOT <VERB? TELL>>
,P-WON ;"fake YOU CANT SEE responses set P-WON to false">
<SET V <APPLY <GETP ,HERE ,P?ACTION> ,M-END>>)>)
(T
<SETG P-CONT <>>)>
<COND (,P-WON
<COND (<CLOCKER-VERB?>
<SET V <CLOCKER>>)>
<SETG PRSA <>>
<SETG PRSO <>>
<SETG PRSI <>>)>
;<COND (<AND ,AWAITING-FAKE-ORPHAN
<NOT ,P-OFLAG>>
<ORPHAN-VERB>)>>
<ROUTINE TOO-DARK-FOR-IT? ()
<COND (<AND <NOT ,LIT>
<NOT <HELD? ,P-IT-OBJECT ,WINNER>>
<NOT <IN? ,WINNER ,P-IT-OBJECT>>>
<TELL ,TOO-DARK CR>
<RTRUE>)>>
<ROUTINE DONT-ALL (OBJ1 "AUX" (L <LOC .OBJ1>))
;"RFALSE if OBJ1 should be included in the ALL, otherwise RTRUE"
<COND (<EQUAL? .OBJ1 ,NOT-HERE-OBJECT>
<SETG P-NOT-HERE <+ ,P-NOT-HERE 1>>
<RTRUE>)
(<AND <VERB? TAKE>;"TAKE prso FROM prsi and prso isn't in prsi"
,PRSI
<NOT <IN? ,PRSO ,PRSI>>>
<RTRUE>)
(<NOT <ACCESSIBLE? .OBJ1>> ;"can't get at object"
<RTRUE>)
(<EQUAL? ,P-GETFLAGS ,P-ALL> ;"cases for ALL"
<COND (<AND ,PRSI
<PRSO? ,PRSI>>
<RTRUE>)
(<VERB? TAKE>
;"TAKE ALL and object not accessible or takeable"
<COND (<AND <NOT <FSET? .OBJ1 ,TAKEBIT>>
<NOT <FSET? .OBJ1 ,TRYTAKEBIT>>>
<RTRUE>)
(<AND <NOT <EQUAL? .L ,WINNER ,HERE ,PRSI>>
<NOT <EQUAL? .L <LOC ,WINNER>>>>
<COND (<AND <FSET? .L ,SURFACEBIT>
<NOT <FSET? .L ,TAKEBIT>>> ;"tray"
<RFALSE>)
(T
<RTRUE>)>)
(<EQUAL? .OBJ1 ,BOOKS-GLOBAL ,POWER>
<RTRUE>)
(<AND <NOT ,PRSI>
<HELD? ,PRSO>> ;"already have it"
<RTRUE>)
(T
<RFALSE>)>)
(<AND <VERB? DROP PUT PUT-ON GIVE SGIVE>
;"VERB ALL, object not held"
<NOT <IN? .OBJ1 ,WINNER>>>
<RTRUE>)
(<AND <VERB? PUT PUT-ON> ;"PUT ALL IN X,obj already in x"
<NOT <IN? ,PRSO ,WINNER>>
<HELD? ,PRSO ,PRSI>>
<RTRUE>)>)>>
<ROUTINE CLOCKER-VERB? ()
<COND (<VERB? VERSION HELP $RECORD $UNRECORD $COMMAND $RANDOM
;$DEBUG SAVE RESTORE RESTART QUIT SCRIPT UNSCRIPT
BRIEF SUPER-BRIEF VERBOSE SCORE>
<RFALSE>)
(T
<RTRUE>)>>
<GLOBAL P-WON <>>
<GLOBAL P-MULT <>>
<GLOBAL P-NOT-HERE 0>
<ROUTINE FAKE-ORPHAN ("OPTIONAL" (IT-WAS-USED <>) "AUX" TMP)
<ORPHAN ,P-SYNTAX <>>
<SET TMP <GET ,P-OTBL ,P-VERBN>>
<TELL "[Be specific: Wh">
<COND (.IT-WAS-USED
<TELL "at object">)
(T
<TELL "o">)>
<TELL ,DO-YOU-WANT>
<COND (<EQUAL? .TMP 0>
<TELL "tell">)
(<0? <GETB ,P-VTBL 2>>
<PRINTB <GET .TMP 0>>)
(T
<WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>
<PUTB ,P-VTBL 2 0>)>
<SETG P-OFLAG T>
<SETG P-WON <>>
<PREP-PRINT <GETB ,P-SYNTAX ,P-SPREP1>>
<TELL "?]" CR>>
<ROUTINE PERFORM-PRSA ("OPTIONAL" (O <>) (I <>))
<PERFORM ,PRSA .O .I>
<RTRUE>>
<ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI)
;<COND (,DEBUG
<TELL "[Perform: ">
%<COND (<GASSIGNED? ZILCH>
'<TELL N .A>)
(T
'<PRINC <NTH ,ACTIONS <+ <* .A 2> 1>>>)>
<COND (.O
<TELL " / PRSO = ">
<COND (<NOT <EQUAL? .A ,V?WALK>>
<TELL D .O>)
(T
<TELL N .O>)>)>
<COND (.I <TELL " / PRSI = " D .I>)>
<TELL "]" CR>)>
<SET OA ,PRSA>
<SET OO ,PRSO>
<SET OI ,PRSI>
<SETG PRSA .A>
<COND (<AND <EQUAL? ,IT .O .I>
<NOT <EQUAL? .A ,V?WALK>>>
<COND (<VISIBLE? ,P-IT-OBJECT>
<COND (<EQUAL? ,IT .O>
<SET O ,P-IT-OBJECT>)
(T
<SET I ,P-IT-OBJECT>)>)
(T
<COND (<NOT .I>
<FAKE-ORPHAN T>)
(T
<REFERRING>)>
<RFATAL>)>)>
<COND (<AND <EQUAL? ,HIM .O .I>
<NOT <EQUAL? .A ,V?WALK>>>
<COND (<VISIBLE? ,P-HIM-OBJECT>
<COND (<EQUAL? ,HIM .O>
<SET O ,P-HIM-OBJECT>)
(T
<SET I ,P-HIM-OBJECT>)>)
(T
<COND (<NOT .I>
<FAKE-ORPHAN>)
(T
<REFERRING T>)>
<RFATAL>)>)>
<COND (<AND <EQUAL? ,HER .O .I>
<NOT <EQUAL? .A ,V?WALK>>>
<COND (<VISIBLE? ,P-HER-OBJECT>
<COND (<EQUAL? ,HER .O>
<SET O ,P-HER-OBJECT>)
(T
<SET I ,P-HER-OBJECT>)>)
(T
<COND (<NOT .I>
<FAKE-ORPHAN>)
(T
<REFERRING T>)>
<RFATAL>)>)>
<SETG PRSO .O>
<SETG PRSI .I>
<COND (<AND <NOT <EQUAL? .A ,V?WALK>>
<EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
<SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>>
<SETG P-WON <>>)
(T
<SET O ,PRSO>
<SET I ,PRSI>
<THIS-IS-IT ,PRSI>
<THIS-IS-IT ,PRSO>
<COND (<SET V <D-APPLY "Actor" <GETP ,WINNER ,P?ACTION>>>
T)
(<SET V <D-APPLY "M-Beg" <GETP <LOC ,WINNER> ,P?ACTION>
,M-BEG>>
T)
(<SET V <D-APPLY "Preaction" <GET ,PREACTIONS .A>>>
T)
(<AND .I <SET V <D-APPLY "PRSI" <GETP .I ,P?ACTION>>>>
T)
;(<AND .O
<NOT <EQUAL? .A ,V?WALK>>
<LOC .O>
<GETP <LOC .O> ,P?CONTFCN>
<SET V <D-APPLY "Cont" <GETP <LOC .O> ,P?CONTFCN>>>>
T)
(<AND .O
<NOT <EQUAL? .A ,V?WALK>>
<SET V <D-APPLY "PRSO" <GETP .O ,P?ACTION>>>>
T)
(<SET V <D-APPLY <> <GET ,ACTIONS .A>>>
T)>)>
<SETG PRSA .OA>
<SETG PRSO .OO>
<SETG PRSI .OI>
.V>
<ROUTINE D-APPLY (STR FCN "OPTIONAL" (FOO <>) "AUX" RES)
<COND (<NOT .FCN> <>)
(T
;<COND (,DEBUG
<COND (<NOT .STR>
<TELL " Default ->" CR>)
(T
<TELL " " .STR " -> ">)>)>
<SET RES <COND (.FOO
<APPLY .FCN .FOO>)
(T
<APPLY .FCN>)>>
;<COND (<AND ,DEBUG
.STR>
<COND (<EQUAL? .RES ,M-FATAL>
<TELL "Fatal" CR>)
(<NOT .RES>
<TELL "Not handled">)
(T <TELL "Handled" CR>)>)>
.RES)>>
;"CLOCKER and related routines"
<GLOBAL C-TABLE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
I-CRULLEY 9
I-COFFER 5
I-PIRATE-ATTACK -1> ;30
;%<COND (<GASSIGNED? ZILCH>
'<ITABLE NONE 30>)
(T
'<ITABLE NONE 60>)>>
<GLOBAL CLOCK-WAIT <>>
<GLOBAL C-INTS <- 60 <* 3 4>>>
<GLOBAL C-MAXINTS 60>
<GLOBAL CLOCK-HAND <>>
<CONSTANT C-TABLELEN 60>
<CONSTANT C-INTLEN 4> ;"length of an interrupt entry"
<CONSTANT C-RTN 0> ;"offset of routine name"
<CONSTANT C-TICK 1> ;"offset of count"
<ROUTINE DEQUEUE (RTN)
<COND (<SET RTN <QUEUED? .RTN>>
<PUT .RTN ,C-RTN 0>)>>
<ROUTINE QUEUED? (RTN "AUX" C E)
<SET E <REST ,C-TABLE ,C-TABLELEN>>
<SET C <REST ,C-TABLE ,C-INTS>>
<REPEAT ()
<COND (<EQUAL? .C .E>
<RFALSE>)
(<EQUAL? <GET .C ,C-RTN> .RTN>
<COND (<ZERO? <GET .C ,C-TICK>>
<RFALSE>)
(T
<RETURN .C>)>)>
<SET C <REST .C ,C-INTLEN>>>>
<ROUTINE RUNNING? (RTN "AUX" C)
<COND (<AND <SET C <QUEUED? .RTN>>
<NOT <G? <GET .C ,C-TICK> 1>>>
<RTRUE>)>>
;<ROUTINE RUNNING? (RTN "AUX" C E)
<SET E <REST ,C-TABLE ,C-TABLELEN>>
<SET C <REST ,C-TABLE ,C-INTS>>
<REPEAT ()
<COND (<EQUAL? .C .E>
<RFALSE>)
(<EQUAL? <GET .C ,C-RTN> .RTN>
<COND (<OR <ZERO? <GET .C ,C-TICK>>
<G? <GET .C ,C-TICK> 1>>
<RFALSE>)
(T
<RTRUE>)>)>
<SET C <REST .C ,C-INTLEN>>>>
<ROUTINE QUEUE (RTN TICK "AUX" C E (INT <>)) ;"automatically enables as well"
<SET E <REST ,C-TABLE ,C-TABLELEN>>
<SET C <REST ,C-TABLE ,C-INTS>>
<REPEAT ()
<COND (<EQUAL? .C .E>
<COND (.INT
<SET C .INT>)
(T
<COND (<L? ,C-INTS ,C-INTLEN>
<TELL "**Too many ints!**" CR>)>
<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
<COND (<L? ,C-INTS ,C-MAXINTS>
<SETG C-MAXINTS ,C-INTS>)>
<SET INT <REST ,C-TABLE ,C-INTS>>)>
<PUT .INT ,C-RTN .RTN>
<RETURN>)
(<EQUAL? <GET .C ,C-RTN> .RTN>
<SET INT .C>
<RETURN>)
(<ZERO? <GET .C ,C-RTN>>
<SET INT .C>)>
<SET C <REST .C ,C-INTLEN>>>
<COND (<AND ,CLOCK-HAND
%<COND (<GASSIGNED? ZILCH>
'<G? .INT ,CLOCK-HAND>)
(T
'<L? <LENGTH .INT> <LENGTH ,CLOCK-HAND>>)>>
<SET TICK <- <+ .TICK 3>>>)>
<PUT .INT ,C-TICK .TICK>
.INT>
<ROUTINE CLOCKER ("AUX" E TICK RTN (FLG <>) (Q? <>) OWINNER)
<COND (,CLOCK-WAIT
<SETG CLOCK-WAIT <>>
<RFALSE>)>
<SETG CLOCK-HAND <REST ,C-TABLE ,C-INTS>>
<SET E <REST ,C-TABLE ,C-TABLELEN>>
<SET OWINNER ,WINNER>
<SETG WINNER ,PROTAGONIST>
<REPEAT ()
<COND (<EQUAL? ,CLOCK-HAND .E>
<SETG CLOCK-HAND .E>
<SETG MOVES <+ ,MOVES 1>>
<SETG WINNER .OWINNER>
<RETURN .FLG>)
(<NOT <ZERO? <GET ,CLOCK-HAND ,C-RTN>>>
<SET TICK <GET ,CLOCK-HAND ,C-TICK>>
<COND (<L? .TICK -1>
<PUT ,CLOCK-HAND ,C-TICK <- <- .TICK> 3>>
<SET Q? ,CLOCK-HAND>)
(<NOT <ZERO? .TICK>>
<COND (<G? .TICK 0>
<SET TICK <- .TICK 1>>
<PUT ,CLOCK-HAND ,C-TICK .TICK>)>
<COND (<NOT <ZERO? .TICK>>
<SET Q? ,CLOCK-HAND>)>
<COND (<NOT <G? .TICK 0>>
<SET RTN
%<COND (<GASSIGNED? ZILCH>
'<GET ,CLOCK-HAND ,C-RTN>)
(ELSE
'<NTH ,CLOCK-HAND
<+ <* ,C-RTN 2>
1>>)>>
<COND (<ZERO? .TICK>
<PUT ,CLOCK-HAND ,C-RTN 0>)>
<COND (<APPLY .RTN>
<SET FLG T>)>
<COND (<AND <NOT .Q?>
<NOT
<ZERO?
<GET ,CLOCK-HAND
,C-RTN>>>>
<SET Q? T>)>)>)>)>
<SETG CLOCK-HAND <REST ,CLOCK-HAND ,C-INTLEN>>
<COND (<NOT .Q?>
<SETG C-INTS <+ ,C-INTS ,C-INTLEN>>)>>>
;<GLOBAL TOD 0>
;<ROUTINE I-TIME ()
<COND (<G? <SETG TOD <+ ,TOD 1>> 127>
<SETG TOD 0>
<TELL "TOD just went to 128. Whoopee!"CR>)>>

1871
parser.zap Normal file
View file

File diff suppressed because it is too large Load diff

1876
parser.zil Normal file
View file

File diff suppressed because it is too large Load diff

29
r1.errors Normal file
View file

@ -0,0 +1,29 @@
Assembling R1.ZAP.35 on Thursday, July 30, 1987 13:58:39
Release: 26
64 Inserting R1FREQ.XZAP.3 (610 bytes)
674 Inserting R1DAT.ZAP.28 (19294 bytes)
19968 Inserting R1PUR.ZAP.27 (0 bytes)
19968 Inserting MISC.ZAP.31 (2702 bytes)
22670 Inserting PARSER.ZAP.30 (7624 bytes)
30294 Inserting VERBS.ZAP.31 (14399 bytes)
44693 Inserting GLOBALS.ZAP.32 (9580 bytes)
54273 Inserting SHIP.ZAP.31 (15519 bytes)
69792 Inserting HERO.ZAP.30 (7252 bytes)
77044 Inserting ISLAND.ZAP.30 (17758 bytes)
94802 Inserting CLOTHES.ZAP.29 (4745 bytes)
99547 Inserting EXTRAS.ZAP.28 (18641 bytes)
118188 Inserting R1STR.ZAP.27 (10774 bytes)
Symbols unused:
SORE
223 objects.
239 globals.
816 word vocabulary.
128962 bytes (126K).
19968 bytes of preload.
9715 bytes of impure.
Outputting symbol tables

50
r1.zap Normal file
View file

@ -0,0 +1,50 @@
; Low core locations
%ZVERSION:: .BYTE 0
.BYTE FLAGS
%ZORKID:: ZORKID
%ENDLOD:: ENDLOD
%START:: START
%VOCAB:: VOCAB
%OBJECT:: OBJECT
%GLOBAL:: GLOBAL
%PURBOT:: IMPURE
%FLAGS:: .WORD 0
%SERIAL:: .WORD 0
%SERI1:: .WORD 0
%SERI2:: .WORD 0
%FWORDS:: WORDS
%PLENTH:: .WORD 0
%PCHKSM:: .WORD 0
%INTWRD:: .WORD 0
%SCRWRD:: .WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.WORD 0
.INSERT "PS:<R1>R1FREQ" ;Frequent word table
.INSERT "PS:<R1>R1DAT" ; Data file
.INSERT "PS:<R1>R1PUR"
.INSERT "PS:<R1>MISC"
.INSERT "PS:<R1>PARSER"
.INSERT "PS:<R1>VERBS"
.INSERT "PS:<R1>GLOBALS"
.INSERT "PS:<R1>SHIP"
.INSERT "PS:<R1>HERO"
.INSERT "PS:<R1>ISLAND"
.INSERT "PS:<R1>CLOTHES"
.INSERT "PS:<R1>EXTRAS"
.INSERT "PS:<R1>R1STR"
.END

42
r1.zil Normal file
View file

@ -0,0 +1,42 @@
"R1
for
PLUNDERED HEARTS
(c) Copyright 1987 Infocom, Inc. All Rights Reserved."
<PRINC "
*** R1: PLUNDERED HEARTS ***
">
ON!-INITIAL
OFF!-INITIAL ;"makes debugging possible -- pdl"
<FREQUENT-WORDS?>
;<COND (<GASSIGNED? MUDDLE>
<GC 0 T 5>
<BLOAT 90000 0 0 3300 0 0 0 0 0 256>)>
<SET REDEFINE T>
<OR <GASSIGNED? ZILCH>
<SETG WBREAKS <STRING !\" !,WBREAKS>>>
<COND (<GASSIGNED? ZILCH>
<ID 0>)>
<SETG NEW-VOC? T>
<INSERT-FILE "MISC" T>
<INSERT-FILE "PARSER" T>
<INSERT-FILE "SYNTAX" T>
<INSERT-FILE "VERBS" T>
<INSERT-FILE "GLOBALS" T>
<INSERT-FILE "SHIP" T>
<INSERT-FILE "HERO" T>
<INSERT-FILE "ISLAND" T>
<INSERT-FILE "CLOTHES" T>
<INSERT-FILE "EXTRAS" T>
<PROPDEF SIZE 5>
<PROPDEF CAPACITY 5>
<PROPDEF CONTENTS 0>

BIN
r1.zip Normal file
View file

Binary file not shown.

13736
r1dat.zap Normal file
View file

File diff suppressed because it is too large Load diff

200
r1freq.xzap Normal file
View file

@ -0,0 +1,200 @@
.FSTR FSTR?1,"the " ;1994 998
.FSTR FSTR?2,", " ;1167 1168
.FSTR FSTR?3,"You " ;942 315
.FSTR FSTR?4,"you " ;720 361
.FSTR FSTR?5,"your " ;714 239
.FSTR FSTR?6,"and " ;702 352
.FSTR FSTR?7,". " ;624 625
.FSTR FSTR?8,"The " ;477 160
.FSTR FSTR?9,"to " ;476 477
.FSTR FSTR?10,"of " ;379 380
.FSTR FSTR?11,"into " ;360 121
.FSTR FSTR?12,"from " ;348 117
.FSTR FSTR?13,"Lafond " ;348 59
.FSTR FSTR?14,"with " ;306 103
.FSTR FSTR?15,"is " ;299 300
.FSTR FSTR?16,"his " ;286 144
.FSTR FSTR?17,"that " ;255 86
.FSTR FSTR?18,"He " ;234 118
.FSTR FSTR?19,"Nicholas " ;232 30
.FSTR FSTR?20,"in " ;220 221
.FSTR FSTR?21,"have " ;210 71
.FSTR FSTR?22,"are " ;202 102
.FSTR FSTR?23,"Jamison " ;196 29
.FSTR FSTR?24,"through " ;186 32
.FSTR FSTR?25,"around " ;175 36
.FSTR FSTR?26,"not " ;168 85
.FSTR FSTR?27,"this " ;162 55
.FSTR FSTR?28,"Your " ;156 40
.FSTR FSTR?29,"against " ;150 26
.FSTR FSTR?30,"down " ;147 50
.FSTR FSTR?31,"It " ;146 74
.FSTR FSTR?32,"Lafond's " ;144 17
.FSTR FSTR?33,"you" ;139 140
.FSTR FSTR?34,"out " ;138 70
.FSTR FSTR?35,"over " ;129 44
.FSTR FSTR?36,"I " ;128 129
.FSTR FSTR?37,"for " ;118 60
.FSTR FSTR?38,"but " ;116 59
.FSTR FSTR?39,"on " ;111 112
.FSTR FSTR?40,"already " ;108 19
.FSTR FSTR?41,"A " ;106 107
.FSTR FSTR?42,"haven't " ;105 16
.FSTR FSTR?43,"would " ;104 27
.FSTR FSTR?44,"can't " ;100 21
.FSTR FSTR?45,"Jamison's " ;100 11
.FSTR FSTR?46,"This " ;96 25
.FSTR FSTR?47,"isn't " ;95 20
.FSTR FSTR?48,"It's " ;95 20
.FSTR FSTR?49,"back " ;93 32
.FSTR FSTR?50,"That " ;92 24
.FSTR FSTR?51,"doesn't " ;91 14
.FSTR FSTR?52,"one " ;88 45
.FSTR FSTR?53,"looks " ;88 23
.FSTR FSTR?54,"at " ;87 88
.FSTR FSTR?55,"will " ;87 30
.FSTR FSTR?56,"There " ;85 18
.FSTR FSTR?57,"ballroom" ;84 15
.FSTR FSTR?58,"You're " ;84 13
.FSTR FSTR?59,"too " ;82 42
.FSTR FSTR?60,"There's " ;80 11
.FSTR FSTR?61,"Jamison" ;78 14
.FSTR FSTR?62,"like " ;75 26
.FSTR FSTR?63,"father " ;75 16
.FSTR FSTR?64,"don't " ;75 16
.FSTR FSTR?65,"other " ;72 19
.FSTR FSTR?66,"about " ;72 19
.FSTR FSTR?67,"it " ;70 71
.FSTR FSTR?68,"here" ;70 36
.FSTR FSTR?69,"Lafond" ;70 15
.FSTR FSTR?70,"only " ;69 24
.FSTR FSTR?71,"been " ;69 24
.FSTR FSTR?72,"has " ;68 35
.FSTR FSTR?73,"he " ;66 67
.FSTR FSTR?74,"as " ;66 67
.FSTR FSTR?75,"Don't " ;66 12
.FSTR FSTR?76,"Cookie " ;66 12
.FSTR FSTR?77,"enough " ;65 14
.FSTR FSTR?78,"across " ;65 14
.FSTR FSTR?79,"seems " ;64 17
.FSTR FSTR?80,"north " ;64 17
.FSTR FSTR?81,"They " ;64 17
.FSTR FSTR?82,"I'm " ;64 17
.FSTR FSTR?83,"floor" ;63 22
.FSTR FSTR?84,"eyes " ;63 22
.FSTR FSTR?85,"get " ;60 31
.FSTR FSTR?86,"just " ;60 21
.FSTR FSTR?87,"after " ;60 16
.FSTR FSTR?88,"With " ;60 16
.FSTR FSTR?89,"stands " ;60 13
.FSTR FSTR?90,"looking " ;60 11
.FSTR FSTR?91,"be " ;58 59
.FSTR FSTR?92,"see " ;58 30
.FSTR FSTR?93,"by " ;56 57
.FSTR FSTR?94,"can " ;56 29
.FSTR FSTR?95,"something " ;56 8
.FSTR FSTR?96,"no " ;55 56
;word frequency table of 96 most common words
WORDS:: .TABLE
FSTR?1
FSTR?2
FSTR?3
FSTR?4
FSTR?5
FSTR?6
FSTR?7
FSTR?8
FSTR?9
FSTR?10
FSTR?11
FSTR?12
FSTR?13
FSTR?14
FSTR?15
FSTR?16
FSTR?17
FSTR?18
FSTR?19
FSTR?20
FSTR?21
FSTR?22
FSTR?23
FSTR?24
FSTR?25
FSTR?26
FSTR?27
FSTR?28
FSTR?29
FSTR?30
FSTR?31
FSTR?32
FSTR?33
FSTR?34
FSTR?35
FSTR?36
FSTR?37
FSTR?38
FSTR?39
FSTR?40
FSTR?41
FSTR?42
FSTR?43
FSTR?44
FSTR?45
FSTR?46
FSTR?47
FSTR?48
FSTR?49
FSTR?50
FSTR?51
FSTR?52
FSTR?53
FSTR?54
FSTR?55
FSTR?56
FSTR?57
FSTR?58
FSTR?59
FSTR?60
FSTR?61
FSTR?62
FSTR?63
FSTR?64
FSTR?65
FSTR?66
FSTR?67
FSTR?68
FSTR?69
FSTR?70
FSTR?71
FSTR?72
FSTR?73
FSTR?74
FSTR?75
FSTR?76
FSTR?77
FSTR?78
FSTR?79
FSTR?80
FSTR?81
FSTR?82
FSTR?83
FSTR?84
FSTR?85
FSTR?86
FSTR?87
FSTR?88
FSTR?89
FSTR?90
FSTR?91
FSTR?92
FSTR?93
FSTR?94
FSTR?95
FSTR?96
.ENDT
.ENDI

8
r1pur.zap Normal file
View file

@ -0,0 +1,8 @@
; PURE TABLES ARE DEFINED HERE
PURTBL::
PURTND::
.ENDI

413
r1str.zap Normal file
View file

@ -0,0 +1,413 @@
; STRINGS ARE DEFINED HERE
STRBEG::
.GSTR STR?15," has no desirable effect."
.GSTR STR?20,"You have lost your mind."
.GSTR STR?74,"You haven't the strength.
"
.GSTR STR?136,"Chestnut hair, tousled by the wind, frames the tanned oval of his face. "
.GSTR STR?146,"""I wish you would call me 'Nicholas' -- I feel I know you much better than our brief acquaintance would allow."" He presses your hand"
.GSTR STR?158,"Death lies that way, my lady."
.GSTR STR?166,"A tall hedge prevents you from going around the east wing of the house."
.GSTR STR?193," has a small pool of liquid at the bottom"
.GSTR STR?225,"You hear metal scrape metal. A woman gasps."
.GSTR STR?227,"You hear a piece of furniture being knocked over."
.GSTR STR?230,"You hear a duellist leap forward, and swords clash, parrying."
.GSTR STR?237,"PRSO"
.GSTR STR?311," The tides are against you, however, and carry you out to sea. Days later you collapse, exhausted, to wake in the heaven on earth of a Swedish merchant marine. A midshipman, an ice-eyed blond with Viking physique and no English, nurses you back to health; in a moment of weakness you thank him in the only language all men and women share."
.GSTR STR?86,".
"
.GSTR STR?88,"Nothing happens.
"
.GSTR STR?235,"Preaction"
.GSTR STR?183,"A lace-covered table crouches beside a wing-backed chair in one corner."
.GSTR STR?264,"sound"
.GSTR STR?269,"Pulling"
.GSTR STR?276,"pick"
.GSTR STR?12,"
*** You have died ***
"
.GSTR STR?62,"rief descriptions.
"
.GSTR STR?63," Lafond smacks you hard across the face with the back of his hand, ""Fool."" He casts aside all formalities."
.GSTR STR?66,"Dragoons surround you. "
DRAGOONS-SURROUND=STR?66
.GSTR STR?80,"He laughs triumphantly and pulls you into the dance.
"
.GSTR STR?105,"""It's not safe down there,"" the Falcon calls."
.GSTR STR?126,"With a creak and a crash, somewhere a mast falls to the deck"
.GSTR STR?168,"Dragoons guard the gate."
.GSTR STR?231,"Dragoons, conversing quietly, patrol the other side of the gate."
.GSTR STR?239,"words"
.GSTR STR?267,"with"
.GSTR STR?341,"Dragoons surround you, appearing from nowhere. They show you no mercy, though they let you survive."
.GSTR STR?8,"""Help me!"" you cry, hoping someone will help you."
.GSTR STR?61,"It doesn't look like"
DOESNT-LOOK=STR?61
.GSTR STR?87,"...
"
.GSTR STR?266,"look inside"
.GSTR STR?288,"Dagger sharpening"
.GSTR STR?55," the edge of"
THE-EDGE=STR?55
.GSTR STR?60," the dance floor"
DANCE-FLOOR=STR?60
.GSTR STR?108,"You might be able to squeeze past it.
"
SQUEEZE-AROUND=STR?108
.GSTR STR?156,"You might fight your way a few feet into the thorns but you'd only tear your clothes."
.GSTR STR?244,"ends"
.GSTR STR?313," and collapses.
You were warned, of course, but did not listen. A stray keg pushes you off the deck into the sea."
.GSTR STR?5,"Love Transcending Death"
.GSTR STR?22,"That is a waste of time."
.GSTR STR?25,"That seems a useless idea."
.GSTR STR?39,"That is thoroughly unladylike behavior.
"
UNLADY=STR?39
.GSTR STR?71,"That wouldn't be polite.
"
.GSTR STR?93,"They already are.
"
ALREADY-ARE=STR?93
.GSTR STR?171,"No expense has been spared to make this long dim hallway anything but a servant's corridor. The foyer is east, a kitchen north of you."
.GSTR STR?214,"They calls me Andy, but I'm really randy"
.GSTR STR?252,"drop"
.GSTR STR?308," Lafond's dragoons deal with you quickly."
.GSTR STR?327,"They clamp shut"
.GSTR STR?340,". Visiting that Neptune you tol' me about. Gone to sea, poor man,"" he laughs, and returns to lurking around the doorway."
.GSTR STR?16,"Think again, guv'nor."
.GSTR STR?51,"You'll have to "
.GSTR STR?57,"The ballroom is a "
.GSTR STR?134,"You'll have to row that way."
.GSTR STR?149,"The blue of the captain's eyes seems to deepen, looking at you"
.GSTR STR?248,"Biting"
.GSTR STR?294,"wear"
.GSTR STR?295,"posi"
.GSTR STR?296,"remove"
.GSTR STR?297," Suddenly, an offshore current pulls you past the reefs into the open sea. You haven't the strength to row back."
.GSTR STR?304,"finely woven"
.GSTR STR?17,"This is no time to get hysterical."
.GSTR STR?21,"What an odd thing to attempt."
.GSTR STR?43,"You pace out the steps.
"
PACE=STR?43
.GSTR STR?53,"You pull the cloth aside momentarily."
.GSTR STR?94," do you want to "
DO-YOU-WANT=STR?94
.GSTR STR?99,"This reveals nothing new.
"
.GSTR STR?109,"This is a gloomy, damp area at the bottom of the Helena Louise. To the fore there seems to be a little more light, or you can climb up some steep stairs."
.GSTR STR?120,"This tiny kitchen smells of old stew and yeast. A low door to starboard shows the way out."
.GSTR STR?121,"You perch on a platform high above the deck, giving a view of the endless sea and the southernmost cliffs of the island, where a house pokes out of the vegetation. It gives off a general glow, but no lights can be seen in any of the second story windows. A tiny beach nestles into the base of the cliff."
.GSTR STR?142,"What the devil are you doing here! Lafond is a dangerous man to play with!"" Jamison "
.GSTR STR?176,"The carpeted hallway turns from west to north here, extending into the east wing. A long table blocks the way south."
.GSTR STR?178,"Lit only with moonlight through the open window, tonight this room is serving as a ladies' dressing room. An exit lies to the north."
.GSTR STR?180,"This room is exotically furnished with a Turkey divan and chairs. The exit is south."
.GSTR STR?201,"This tiny cell is airless and shivering cold, entirely empty of anything but darkness. A wooden door leads west."
.GSTR STR?204,"This short passage turns from east to north to stop abruptly at an iron door."
.GSTR STR?242,"talk to characters."
.GSTR STR?243,"begins"
.GSTR STR?263,"Knocking on"
.GSTR STR?290,"talk to"
.GSTR STR?299,"be holding"
.GSTR STR?107,"The door at the top of the stairs won't open."
.GSTR STR?115,"The door is barred."
.GSTR STR?249,"blow"
.GSTR STR?328,"The door creaks open to reveal a black well, water hushing deep within"
.GSTR STR?30,"Completely common looking "
.GSTR STR?127,"You recognize a voice from far away, ""Don't take that! Look in the cabin at the stern -- you'll find some fun there!"" It sounds like Davis"
.GSTR STR?153,"A bench is built into the wall, circling the folly."
.GSTR STR?3,"You shake your head"
SHAKE-HEAD=STR?3
.GSTR STR?76,"A sinewy arm encircles you, ""Stay, my lady."""
.GSTR STR?103,"A bit of canvas sail "
.GSTR STR?135,"You stop at a steep cliff-face."
.GSTR STR?165,"The front door stands open to the south, light splayed out onto a drive stretching north into the jungle. A path leads around the western wing of the house; jutting out from the east wing is a tall hedge."
.GSTR STR?179,"You stand in a carpeted hallway, leading east to a stair landing. Rooms lie north and south of you."
.GSTR STR?182,"You stand in a carpeted hallway, leading west to a stair landing. To the north is an ornately carved door. From the south comes the impression of light and air."
.GSTR STR?188,"You stare into space for a long, thoughtless moment. It seems very hard to think, you think, but you aren't sure."
.GSTR STR?210,"You squeeze three colorless drops "
.GSTR STR?218,"Ye're a tasty doxy to let slip, but no 'elp fer it."
.GSTR STR?232,"Not Here"
.GSTR STR?323,"You sweep down into the ballroom, felling dancer and pirate alike. Unfortunately, one of Jamison's crew, mistaking your shortcut for an attack, greets you with a sharpened dagger."
.GSTR STR?9,"mutters something to himself. You hear an occasional ""Zounds!"""
.GSTR STR?77," squeeze through the opening between cupboard and wall"
.GSTR STR?89,"Failed.
"
.GSTR STR?119,"The grate is too small."
.GSTR STR?125,"""The Falcon! The Falcon conquers!"" yells someone"
.GSTR STR?247,"ask"
.GSTR STR?42,"You're not holding"
.GSTR STR?58,"You're already "
.GSTR STR?70,"That's not done in polite society.
"
.GSTR STR?83,"You're holding it!
"
.GSTR STR?98," calls after you.
"
CALLS-AFTER=STR?98
.GSTR STR?154,"One bamboo slat at the back seems to be loose."
.GSTR STR?196,"A strong wet breeze blows from a low doorway to the east. A circle of light leads west. The passageway continues south."
.GSTR STR?219,"Out of the smoke staggers Davis, tugging a bloodied knife from the back of a pirate. Davis's eyes gleam white from a face blackened and bloody, his lips dark red as if he has been drinking blood. He turns to face you."
.GSTR STR?260,"look"
.GSTR STR?281,"to"
.GSTR STR?79,"Look around you.
"
.GSTR STR?95,"But it's such a beautiful night!
"
.GSTR STR?124,"""Cap'n Jamison! We've got 'em!"" cries a rough voice"
.GSTR STR?223,", shrugging off your lack of cooperation"
.GSTR STR?301," It's been rather a long time since any of the crew have dealt with the fairer sex, and they are a bit rough, despite Rodney Quick's exhortations."
.GSTR STR?329,". You are pulled struggling into the pool."
.GSTR STR?65,"Something cracks over your head, knocking you unconscious.
You awaken, cuddled in a huge purple and gold curtained bed, with a shocking migraine. The man lying next to you pays no heed to your complaints, and commands you in French when you try to defend yourself. He tires of you within a few weeks, but lets you work the streets of Santa Ananas."
.GSTR STR?110,"A grate blocks your way."
.GSTR STR?172,"A grandiose staircase splits and twists up to the next floor here, framing the entrance south to the ballroom. Long hallways lead east and west; cool night air drifts in through the front door, north of you."
.GSTR STR?278,"Pushing"
.GSTR STR?101,"A plank of wood "
.GSTR STR?192," is brimming with wine"
.GSTR STR?31," only darkness beyond"
.GSTR STR?33," is closed"
.GSTR STR?54," only the back of"
.GSTR STR?97," walks up to you. ""M. Lafond requests your presence in his room immediately, Miss."" He points "
.GSTR STR?113,"A dagger is driven into the wooden floorboards."
.GSTR STR?207,"Draped across the bed is a lovely cream colored watered silk gown. It looks about your size."
.GSTR STR?233,"Actor"
.GSTR STR?312,"A large one rolls into you, stumbling you through the railing into the sea."
.GSTR STR?68,"PLUNDERED HEARTS"
.GSTR STR?202,"The monster lunges at you, chain rattling, roaring and angry. "
.GSTR STR?139,"""We have anchored off St. Sinistra,"" says Captain Jamison, ""and I must look like a guest at Lafond's dance tonight. I will find and free your father, and then finally wreak my revenge on Lafond."" He half draws his rapier from its scabbard."
.GSTR STR?206,"Kicked into a far corner is a pile of clothes."
.GSTR STR?250,"get into"
.GSTR STR?275,"light"
.GSTR STR?283,"get in"
.GSTR STR?300,"stand up"
.GSTR STR?18,"It's Bedlam for you!"
.GSTR STR?24,"It's not worth it. Believe me."
.GSTR STR?29," A tangled mass of rigging hangs down from the mast, like many rope ladders woven together."
.GSTR STR?36,"It's too dark to see a thing."
.GSTR STR?41," halfway up the cliff stairs."
.GSTR STR?216,"What, afrighted of a lick o' the whip?"
.GSTR STR?229,"Rapiers click and slide. ""Bad parry, Captain,"" Lafond says."
.GSTR STR?11,"enters just a few steps behind you."
.GSTR STR?137,"The pirate captain "
.GSTR STR?152,"Perfumed by the heady odor of the night-blooming jasmine entwined in the bamboo latticework, this folly is a cool, dark haven."
.GSTR STR?167,"A rutted drive runs north-south here, from a high spiked gate through the jungle to Lafond's mansion. You hide in the bushes nearby."
.GSTR STR?256,"close"
.GSTR STR?284,"search"
.GSTR STR?326,"put anything into"
.GSTR STR?334,"dainty fists"
.GSTR STR?343,"The pistol fires with a deafening roar, spraying shot into Nicholas. Time stops as he falls, reaching for you, your name his last breath.
The battle afterwards is short and bloody. Spurred by grief, you fight hard, yet greet benumbing death thankfully."
.GSTR STR?254,"climb into"
.GSTR STR?255,"climb onto"
.GSTR STR?265,"open"
.GSTR STR?270,"move"
.GSTR STR?48,"way to do that.
"
.GSTR STR?56,"To your surprise, "
SURPRISE=STR?56
.GSTR STR?129,"The reefs seem a little larger than you thought before"
.GSTR STR?130,"The reefs are definitely getting larger"
.GSTR STR?147,"Jamison touches your hair softly"
.GSTR STR?148,"Jamison grins down at you, a dazzling white smile"
.GSTR STR?151,"Nicholas's hands are smooth and cool"
.GSTR STR?175,"One long table set across the north entrance indicates that supper was served here earlier. West of you is the ballroom."
.GSTR STR?222,", his wig awry, sprawls across the parquet floor."
LAF-MUNGED=STR?222
.GSTR STR?234,"M-Beg"
.GSTR STR?240,"letters"
.GSTR STR?262,"Kicking"
.GSTR STR?286,"Shaking"
.GSTR STR?316,"Nicholas stops at your cry, and turns, curious, to face Crulley just as the pistol sprays shot into his chest."
.GSTR STR?14," accomplishes nothing."
.GSTR STR?128,"The ship is floating midway between the island and a line of reefs"
.GSTR STR?133,"The sound of splintering wood reverberates through the ship as it drifts onto the reefs"
.GSTR STR?159,"The steps lead south."
.GSTR STR?220,"He kisses your forehead.
"
.GSTR STR?337,"The study of Latin"
.GSTR STR?37,"Although the lagoon is warm and clear, it is much too deep.
"
TOO-DEEP=STR?37
.GSTR STR?44,"There's nothing "
.GSTR STR?102,"Some bloodied flesh "
.GSTR STR?140,"""I am sorry you have been confined down here, but I don't trust my lonely crew with such beauty. Crulley isn't the only man aboard with few principles."" He smiles at you, eyes lingering, and takes your hand. You feel your color rising. ""If anything goes wrong, turn to Cookie. He is quite deaf, but capable. He'll see you through."""
.GSTR STR?215,"Would yer like a taste o' water?"
.GSTR STR?251,"get onto"
.GSTR STR?253,"burn"
.GSTR STR?298,"get on"
.GSTR STR?303,"get off"
.GSTR STR?310,"get out of"
.GSTR STR?106,"The Falcon follows a step behind."
.GSTR STR?161,"The undergrowth is much too thick to enter."
.GSTR STR?169,"The underbrush is much too thick to enter."
.GSTR STR?181,"A pair of duelling pistols is mounted high on one wall."
.GSTR STR?306," Suddenly you appreciate what it is to be a ball in an exploding cannon. The intense heat, the push of fire, and the sense of release when spit from the cannon's mouth -- these you feel when the lighted fuse finally burns up to the largest keg of gunpowder in the hold."
.GSTR STR?338,"steal jewelry"
.GSTR STR?28," drips off your fingers.
"
.GSTR STR?32,"He doesn't respond.
"
.GSTR STR?170,"A firepit in the floor smokes badly, fogging up the depths of this large kitchen, somehow not escaping through either the south or west doors."
.GSTR STR?241,"AGAIN"
.GSTR STR?280,"read"
.GSTR STR?282,"return it to"
.GSTR STR?317,"As you fiddle with the"
.GSTR STR?333,"As you lift the hat from its"
.GSTR STR?38," is not flush against the doorsill. "
.GSTR STR?131,"Bswish! Waves smash against the reefs nearby"
.GSTR STR?164,"The west wall of the house is that way."
.GSTR STR?174,"The windows overlooking the veranda do not open."
.GSTR STR?177," Cookie harrumphs, surprised."
.GSTR STR?198,"Once a cell, now, with the door missing, made into a guard's bunkroom, this room is distinctly uncomfortable. Gasps of air are forced through a crack in the seaward wall of the room. The way out is west of you."
.GSTR STR?258,"drink"
.GSTR STR?259,"drink from"
.GSTR STR?279,"Playing in this way with"
.GSTR STR?10,"follows you."
.GSTR STR?112,"An eerie battle cry arises on the wind, from all sides of the house"
.GSTR STR?185,"'s eyes are getting heavier"
.GSTR STR?186," collapses, head back, snoring loudly"
.GSTR STR?191," is ornate and expensive"
.GSTR STR?224,"Swords engage and disengage."
.GSTR STR?245,"leave the game"
.GSTR STR?257,"have hysterics"
.GSTR STR?289,"Swimming"
.GSTR STR?291,"do that to"
.GSTR STR?150,"His eyes twinkle, like moonlight on the sea"
.GSTR STR?228,"""You must ... pay ... for your actions!"" Nicholas gasps."
.GSTR STR?331,"on"
.GSTR STR?143," With an engaging smile he bows and leaves the folly.
"
.GSTR STR?144,"""I haven't found your father. We've long suspected a passage under the library, but I cannot find an entrance,"" says Jamison"
.GSTR STR?195,"Flickering torchlight lights the bottom of a spiral staircase. A draft blows from the east; a passage leads south."
.GSTR STR?261,"Fiddling with"
.GSTR STR?271,"Trying to destroy"
.GSTR STR?272,"Trying to muzzle"
.GSTR STR?309,"Firing cannon"
.GSTR STR?315,"launch"
.GSTR STR?116,"If you wish to go to the Poop, go AFT."
.GSTR STR?184," seems to be having some problems stifling a yawn"
.GSTR STR?190,"Sleep overtakes you and you slump into unconsiousness."
.GSTR STR?318," Roaring anger and revenge, Lafond runs in, pouncing upon you. Your death, when it comes, is wished for."
.GSTR STR?45,"It seems that"
.GSTR STR?34,"Steep stairs descend "
.GSTR STR?211,"Stunned, Crulley collapses at your feet, his eyes rolling"
.GSTR STR?2," his eyes rake over your inadequately dressed body, the damp chemise clinging to your legs and heaving bosom, your gleaming hair"
.GSTR STR?7,"Happily Ever After"
.GSTR STR?40,"It is thoroughly unladylike to "
.GSTR STR?78,"Suicide is not the answer.
"
.GSTR STR?141,"His look darkens. ""You should know why I hate Lafond: Some years ago, as my brother and his bride sailed to a new life in Virginia, pirates struck. Their ship was boarded, looted and burned, the women taken, never to be seen again. A sailor, the one survivor, watched as a man of Lafond's description shot my brother in the back as he tried to save the women. Lafond has now bought respectability, but he shall never buy peace."" Jamison straightens resolutely, bows, and departs."
.GSTR STR?145,"""If there is any trouble, and I am unable to help -- a signal from an upstairs seaward window will bring my men. They can be here in moments,"" the Captain says"
.GSTR STR?187,"Your face convulses in a prodigious yawn."
.GSTR STR?189,"Your eyes are extraordinarily dry. You blink to moisten them, and snort awake a minute later, drool dripping down your chin."
.GSTR STR?277,"pour"
.GSTR STR?285,"Turning"
.GSTR STR?302,"Your battered hands can take no more. Your grip loosens and the sea comes up to break your fall."
.GSTR STR?69,"[Press RETURN or ENTER to "
.GSTR STR?73,"Sorry, no loitering,"" says the butler"
.GSTR STR?274,"extinguish"
.GSTR STR?292,"Caressing"
.GSTR STR?6,"Pirate Queen"
.GSTR STR?35,"A tiny glow of fire creeps across a stretch of floor -- inside the cage full of ammunition"
.GSTR STR?162,"Buried in the subtropical undergrowth, you lose all sense of being on someone's private estate; jungle seems to extend for miles on all sides of you. A footworn path curves from east to north here, and the vegetation lessens to the northeast."
.GSTR STR?213,"Avast me, but ain't ye a beauty"
.GSTR STR?217,"Leave yer honey be, wench. He'll join ye anon."
.GSTR STR?273,"nega"
.GSTR STR?332,"put"
.GSTR STR?335,"slippered toes"
.GSTR STR?19,"Don't be absurd."
.GSTR STR?23,"Don't dally around."
.GSTR STR?26,"Don't bother."
.GSTR STR?50,"You aren't "
.GSTR STR?52,"You already have"
.GSTR STR?84,"[There seems to be a noun missing in that sentence.]
"
.GSTR STR?91,"Pardon?
"
.GSTR STR?92,"It already is.
"
.GSTR STR?100,"[There was no verb in that sentence!]
"
.GSTR STR?104,"You are in an officer's cabin, lit by the firelight glowing through a porthole. A door is to starboard. Except for the built-in bed, the room seems to have been emptied thoroughly, if hurriedly."
.GSTR STR?117,"Cannon line the deck, aimed at open sea and the island."
.GSTR STR?122,"Don't push your luck too far."
.GSTR STR?132,"You are misted in the spray of waves hitting the reefs. The island is far away"
.GSTR STR?160,"You are on a well-trampled lawn at the side of the house, one low doorway leading in to the east. Gravelled paths lead north and south into the undergrowth."
.GSTR STR?163,"You are in a small clearing under the western side of the house. Heavy vines creep up the wall past a second floor window, open to the night air. Southwest is an opening in the bushes."
.GSTR STR?200,"You are at the far end of a dank passageway heading north. A wooden door leads east."
.GSTR STR?209,"A small bottle has been dropped nearby."
.GSTR STR?293,"in front of"
.GSTR STR?320,"You awake too late to save the ship -- or rather, you never wake at all."
.GSTR STR?322,"Startled, Lafond raises his sword and you fly onto the blade. You fall over your lover's body and expire, your lips on his in a kiss outlasting death."
.GSTR STR?324,"Other cries rise to match yours as you sweep down the center of the ballroom in an avalanche of dancers, knocking yourself unconscious against the far wall. You awaken the next morning, in the village, embarrassed and alone."
.GSTR STR?330,"put the stone in"
.GSTR STR?111,"A chipped piece of mirror sits propped on a shoulder-high timber."
.GSTR STR?118,". ""Hey, boy! Get away from those. It ain't safe!"" yells a sailor."
.GSTR STR?173,""" The butler points up the stairs.
"
.GSTR STR?236,"PRSI"
.GSTR STR?238,"OOPS"
.GSTR STR?1,"You can't go that way."
.GSTR STR?46,"You can see"
.GSTR STR?47,"You can't see any "
.GSTR STR?49,"You can't "
.GSTR STR?81,"You can't do that from here.
"
.GSTR STR?82,"You can't go that way.
"
.GSTR STR?85," "
.GSTR STR?114,"You can't swim, and decide not to jump."
.GSTR STR?155,"You crouch in the green rustlings of the hedge. Not far east, wind keens up the cliff, high above swells breaking against a rocky shore. You know the folly is somewhere to the west. North, the hedge is somewhat less dense."
.GSTR STR?157,"You can't see any way to get past into the folly."
.GSTR STR?194,"Cool salt air, blowing past a torch on a spiral staircase below you, ruffles your hair and circles south into the library."
.GSTR STR?246,"restart"
.GSTR STR?4,"Orphan"
.GSTR STR?27,"You dip the oars and pull them towards you. The "
.GSTR STR?59," over the head with"
.GSTR STR?96," over your white linen chemise. Mama would say you belonged in a brothel.
"
.GSTR STR?138,"Eyes closed, his skin with the pallor of death, Nick looks entirely spent.
"
.GSTR STR?197,"A canvas cot is shoved against a wall."
.GSTR STR?203,". The monster snorts in its sleep"
.GSTR STR?208,". There is a tear at the bottom"
TEAR=STR?208
.GSTR STR?212,"Me name's Andy Crulley, and ladies learn to love me"
.GSTR STR?221,"Lafond grabs your hair and pulls your head sharply back, clinching your arms to your sides. "
.GSTR STR?226,"Lafond's voice is cold, lazy, ""You will die, you know, Jamison."""
.GSTR STR?314,". The next few minutes last forever as havoc breaks out. Grabbing a plank, you manage to stay afloat, but you are washed out to sea. A brig, Portuguese by its sails, rescues you. The sailors are brown skinned and smooth, and the first mate, the ship's and yours, is gentle. They leave you in Rio, alone and forgotten."
.GSTR STR?321,". The governor of St. Sinistra provides you with food and shelter; at least, until he grows tired of your body and your presence."
.GSTR STR?336,"Lafond hits you back. The end is not sweet and not fast."
.GSTR STR?339,"Lafond pulls the sheets up to cover you both, pressing his long flaccid body against yours. Waves crash against the base of the cliff."
.GSTR STR?342,"Lafond cries, ""No deal then. Take them, men!"" The dragoons pour down the cliff."
.GSTR STR?64," The fall to the bottom of the well is endless; you've lost consciousness by the time the water overtakes you."
.GSTR STR?75,", pushing you out of the house.
"
.GSTR STR?90,"Aye-aye.
"
.GSTR STR?268,"marrying"
.GSTR STR?287,"soak"
.GSTR STR?307," The blade bites less then you expected."
.GSTR STR?319,"Too drugged to keep your grip on the ropes, you slip into the sea."
.GSTR STR?13," doesn't do anything."
.GSTR STR?67,"You find yourself speechless with dread.
"
.GSTR STR?123,"""Aaieeee!"" echoes a scream, followed by several grunts and thumps"
.GSTR STR?205,"Hewn from dense rock, the cell is a stagnant burrow. Except for the tiniest glow of light from the torch two rooms away, it is pitch black."
.GSTR STR?325,"untie it"
.GSTR STR?72,"Mama would have been shocked.
"
.GSTR STR?199,"A powder horn hangs on a long strap from the wall."
.GSTR STR?305,"thick"
.ENDI

2148
ship.zap Normal file
View file

File diff suppressed because it is too large Load diff

3017
ship.zil Normal file
View file

File diff suppressed because it is too large Load diff

893
syntax.zil Normal file
View file

@ -0,0 +1,893 @@
"SYNTAX for
PLUNDERED HEARTS
(c) Copyright 1987 Infocom, Inc. All Rights Reserved."
<BUZZ A AN THE IS ARE AM AND OF THEN ALL BUT ONE EXCEPT \. \, \" PLEASE
THIS THAT HERE SOME MORE G AGAIN OOPS SEX> ;PRY
;"the following are all to make BODY-PARTS-HANDLER work"
;<VOC "SHAPE" ADJ>
;<VOC "SCIENTIST" ADJ>
;<VOC "MONKEY" ADJ>
;<VOC "GUARD" ADJ>
;<VOC "MAN\'S" ADJ>
;<VOC "WOMAN" ADJ>
<PREP-SYNONYM TO TOWARD>
<PREP-SYNONYM WITH USING>
<PREP-SYNONYM THROUGH THRU>
<PREP-SYNONYM ON ONTO>
<PREP-SYNONYM OUT OUTSIDE>
<PREP-SYNONYM IN INSIDE INTO>
<PREP-SYNONYM UNDER BELOW BENEATH UNDERNEATH>
;<PREP-SYNONYM BEFORE NEAR BY>
<PREP-SYNONYM AROUND ALONG>
<SYNONYM ALL BOTH EVERYT>
<SYNONYM NORTH N FORE F FORWARD>
;<DIR-SYNONYM NORTH FORE F FORWARD>
<SYNONYM SOUTH S>
<DIR-SYNONYM SOUTH AFT>
<SYNONYM EAST E>
<DIR-SYNONYM EAST STARBOARD SB>
<SYNONYM WEST W>
<DIR-SYNONYM WEST PORT P>
<SYNONYM DOWN D DOWNSTAIRS>
<SYNONYM UP U UPSTAIRS>
<SYNONYM NW NORTHWEST>
<SYNONYM NE NORTHE>
<SYNONYM SW SOUTHWEST>
<SYNONYM SE SOUTHE>
^L
;"game commands"
<SYNTAX VERBOSE = V-VERBOSE>
<SYNTAX BRIEF = V-BRIEF>
<SYNTAX SUPER = V-SUPER-BRIEF>
<VERB-SYNONYM SUPER SUPERBRIEF>
;<SYNTAX DIAGNOSE = V-DIAGNOSE>
<SYNTAX INVENT = V-INVENTORY>
<SYNTAX INVENT LOVE OBJECT = V-I-LOVE-YOU>
<VERB-SYNONYM INVENT I>
<SYNTAX QUIT = V-QUIT>
<VERB-SYNONYM QUIT Q>
<SYNTAX RESTAR = V-RESTART>
<SYNTAX RESTOR = V-RESTORE>
<SYNTAX SAVE = V-SAVE>
<SYNTAX SCRIPT = V-SCRIPT>
<SYNTAX UNSCRIPT = V-UNSCRIPT>
<SYNTAX VERSION = V-VERSION>
<SYNTAX \#RANDOM OBJECT = V-$RANDOM>
<SYNTAX \#COMMAND = V-$COMMAND>
<SYNTAX \#RECORD = V-$RECORD>
<SYNTAX \#UNRECORD = V-$UNRECORD>
;<SYNTAX $CAPT = V-$CAPT>
;<SYNTAX $SHIP = V-$SHIP>
;<SYNTAX $BEACH = V-$BEACH>
;<SYNTAX $DUNGEON = V-$DUNGEON>
;<SYNTAX $BUTLER = V-$BUTLER>
;<SYNTAX $MUZZLED = V-$MUZZLED>
;<SYNTAX $GARTER = V-$GARTER>
;<SYNTAX $SEDUCTION = V-$SEDUCTION>
;<SYNTAX $END = V-$END>
<SYNTAX $VERIFY = V-$VERIFY>
<SYNTAX $VERIFY OBJECT = V-$VERIFY>
;<SYNTAX $DEBUG = V-$DEBUG>
;"subtitle real verbs"
;<SYNTAX ANSWER = V-ANSWER>
;<SYNTAX ANSWER OBJECT = V-USE-QUOTES>
;<VERB-SYNONYM ANSWER REPLY GUESS>
<SYNTAX APPLAUD = V-APPLAUD>
<SYNTAX APPLAUD OBJECT = V-APPLAUD>
<VERB-SYNONYM APPLAUD CLAP>
;<SYNTAX APPLY OBJECT (HELD TAKE) = V-APPLY>
;<SYNTAX APPLY OBJECT (HELD MANY) TO OBJECT = V-PUT-ON PRE-PUT>
<SYNTAX APPROA OBJECT = V-WALK-TO>
<SYNTAX ASK OBJECT (FIND ACTORBIT) ABOUT OBJECT = V-ASK-ABOUT ;PRE-SPEAK>
<SYNTAX ASK OBJECT (FIND ACTORBIT) TO OBJECT (FIND RLANDBIT) = V-ASK-FOR>
;<SYNTAX ASK OBJECT (FIND ACTORBIT) ON OBJECT = V-ASK-ABOUT ;PRE-SPEAK>
<SYNTAX ASK OBJECT (FIND ACTORBIT) FOR OBJECT = V-ASK-FOR ;PRE-SPEAK>
<SYNTAX ASK FOR OBJECT = V-ASK-NO-ONE-FOR>
<SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KILL>
<SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM)
WITH OBJECT (CARRIED HAVE) = V-KILL>
<VERB-SYNONYM ATTACK KILL MURDER FIGHT HIT WHACK SLAP STRIKE BASH PUNCH>
;<SYNTAX BARTER WITH OBJECT (FIND ACTORBIT) = V-BARTER-WITH>
;<SYNTAX BARTER FOR OBJECT = V-BARTER-FOR>
;<SYNTAX BARTER OBJECT (HELD CARRIED HAVE) FOR OBJECT = V-BARTER-FOR>
;<VERB-SYNONYM BARTER BARGAIN TRADE SWAP EXCHANGE>
;<SYNTAX BEND OBJECT = V-BEND>
;<VERB-SYNONYM BEND SPREAD>
<SYNTAX BITE OBJECT = V-BITE>
<SYNTAX BLOW OBJECT = V-BLOW>
<SYNTAX BLOW OBJECT (HELD) AT OBJECT (FIND ACTORBIT) = V-BLOW>
<SYNTAX BLOW OBJECT (HELD) ON OBJECT (FIND ACTORBIT) = V-BLOW>
;<SYNTAX BLOW UP OBJECT = V-INFLATE>
<SYNTAX BLOW OUT OBJECT (FIND ONBIT) = V-OFF PRE-TOUCH>
<SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
;<SYNTAX BOARD OBJECT OBJECT = V-BOARD-DIR> ;"ride horse west"
<VERB-SYNONYM BOARD RIDE MOUNT>
<SYNTAX BRIBE OBJECT = V-BRIBE>
<SYNTAX BRIBE OBJECT WITH OBJECT = V-BRIBE>
<SYNTAX BURN OBJECT (FIND BURNBIT) = V-BURN PRE-TOUCH>
<SYNTAX BURN UP OBJECT (FIND BURNBIT) = V-BURN PRE-TOUCH>
<SYNTAX BURN OBJECT (FIND BURNBIT) IN OBJECT = V-BURN PRE-TOUCH>
;<SYNTAX BURN UP OBJECT (FIND BURNBIT) WITH OBJECT (HAVE) = V-BURN PRE-TOUCH>
<SYNONYM BURN MELT>
;<SYNTAX BUY OBJECT = V-BUY>
;<SYNTAX BUY OBJECT FROM OBJECT = V-BUY>
;<SYNTAX BUY OBJECT WITH OBJECT = V-BUY-WITH>
;<VERB-SYNONYM BUY ORDER PURCHASE>
;<SYNTAX CALL OBJECT = V-CALL>
;<SYNTAX CALL OUT OBJECT (FIND ACTORBIT) = V-CALL>
;<SYNTAX CALL TO OBJECT = V-CALL>
;<SYNTAX CAST OFF OBJECT (FIND RLANDBIT) = V-CAST-OFF>
;<SYNTAX CATCH OBJECT (ON-GROUND IN-ROOM) = V-CATCH>
;<SYNTAX CATCH OBJECT (ON-GROUND IN-ROOM) IN OBJECT = V-CATCH>
;<SYNTAX CATCH OBJECT (ON-GROUND IN-ROOM) WITH OBJECT = V-CATCH>
;<VERB-SYNONYM CATCH TRAP>
;<SYNTAX CHEER OBJECT (FIND ACTORBIT) = V-CHEER>
;<SYNTAX CHEER UP OBJECT (FIND RLANDBIT) = V-CHEER>
;<VERB-SYNONYM CHEER COMFORT ENTERTAIN>
<SYNTAX CIRCLE OBJECT = V-WALK-AROUND>
;<SYNTAX CLICK OBJECT = V-CLICK>
<SYNTAX CLIMB OBJECT (ON-GROUND IN-ROOM) = V-CLIMB>
<SYNTAX CLIMB ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
<SYNTAX CLIMB UP OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-CLIMB>
<SYNTAX CLIMB DOWN OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
<SYNTAX CLIMB OUT OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
<SYNTAX CLIMB OFF OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
<SYNTAX CLIMB OVER OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-OVER>
<SYNTAX CLIMB IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
<SYNTAX CLIMB THROUGH OBJECT = V-ENTER>
<SYNTAX CLIMB UNDER OBJECT = V-CRAWL-UNDER>
<VERB-SYNONYM CLIMB CRAWL SCALE>
<SYNTAX CLOSE OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
= V-CLOSE PRE-TOUCH>
<SYNTAX CLOSE OFF OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
= V-OFF PRE-TOUCH>
<SYNTAX CLOSE UP OBJECT (FIND RLANDBIT) = V-SHUT-UP>
<SYNTAX CLOSE OBJECT ON OBJECT (FIND ACTORBIT) = V-CLOSE PRE-TOUCH>
<VERB-SYNONYM CLOSE SHUT>
;<SYNTAX COME = V-COME>
<SYNTAX COME WITH OBJECT = V-FOLLOW>
;<VERB-SYNONYM COME>
;<SYNTAX COPULATE = V-COPULATE>
<SYNTAX COVER OBJECT WITH OBJECT (HELD MANY) = V-SPUT-ON>
<VERB-SYNONYM COVER ;PLUG>
;<SYNTAX COUNT OBJECT = V-COUNT>
;<SYNTAX CROSS OBJECT = V-WALK-AROUND <> CROSS>
;<VERB-SYNONYM CROSS FORD>
<SYNTAX CRY = V-CRY>
;<SYNTAX CRY OUT OBJECT (FIND RLANDBIT) = V-CALL>
<VERB-SYNONYM CRY WEEP SOB GASP>
;<SYNTAX DANCE = V-DANCE>
<SYNTAX DANCE OBJECT (FIND RLANDBIT) = V-DANCE>
<SYNTAX DANCE WITH OBJECT (FIND ACTORBIT) = V-DANCE>
<SYNONYM DANCE PIROUETTE TWIRL>
;<SYNTAX DEFLATE OBJECT = IMPOSSIBLES <> V-DEFLATE>
;<SYNTAX DEFLATE OBJECT WITH OBJECT (HAVE) = V-DEFLATE>
;<VERB-SYNONYM DEFLATE POP>
<SYNTAX DEMOLI OBJECT (ON-GROUND IN-ROOM) = V-MUNG>
<SYNTAX DEMOLI OBJECT WITH OBJECT (HELD CARRIED TAKE) = V-MUNG>
<SYNTAX DEMOLI OUT OBJECT (FIND RLANDBIT) = V-MUNG>
<SYNTAX DEMOLI DOWN OBJECT = V-KILL>
<VERB-SYNONYM DEMOLI DESTRO DAMAGE BREAK SMASH WRECK CRUSH TRAMPLE>
<SYNTAX DESCEN OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
<SYNTAX DIG IN OBJECT = WASTES <> DIG>
<SYNTAX DIG THROUGH OBJECT = WASTES <> DIG>
<SYNTAX DISEMBARK = V-DISEMBARK>
<SYNTAX DISEMBARK OBJECT (ON-GROUND IN-ROOM) = V-DISEMBARK>
<VERB-SYNONYM DISEMBARK DEBARK>
<SYNTAX DRESS = V-DRESS>
<SYNTAX DRESS OBJECT = V-DRESS>
<SYNTAX DRINK OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-DRINK>
<SYNTAX DRINK FROM OBJECT (HELD CARRIED) = V-DRINK-FROM>
<SYNTAX DRINK OBJECT FROM OBJECT (HELD) (HAVE) = V-DRINK-FROM>
<VERB-SYNONYM DRINK SIP SWALLOW QUAFF>
<SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP IDROP>
<SYNTAX DROP OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
<SYNTAX DROP OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
<SYNTAX DROP OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
<SYNTAX DROP OBJECT (HELD MANY HAVE) OUT OBJECT = V-PUT-THROUGH IDROP>
<SYNTAX DROP OBJECT (HELD MANY HAVE) THROUGH OBJECT = V-PUT-THROUGH IDROP>
;<SYNTAX DROP OBJECT (HELD CARRIED) BEFORE OBJECT = V-PUT-NEAR IDROP>
;<SYNTAX DROP OBJECT (HELD CARRIED) AT OBJECT = V-PUT-NEAR IDROP>
<VERB-SYNONYM DROP DUMP>
<SYNTAX EAT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EAT>
<VERB-SYNONYM EAT DEVOUR TASTE NIBBLE>
<SYNTAX EMPTY OBJECT ;(HAVE TAKE) = V-EMPTY PRE-TOUCH>
<SYNTAX EMPTY OUT OBJECT ;(HAVE TAKE) = V-EMPTY PRE-TOUCH>
;<SYNTAX EMPTY OBJECT (HAVE TAKE) OVER OBJECT = V-EMPTY PRE-TOUCH>
<SYNTAX EMPTY OBJECT ;(HAVE TAKE) ON OBJECT = V-EMPTY PRE-TOUCH>
<SYNTAX EMPTY OBJECT ;(HAVE TAKE) IN OBJECT = V-EMPTY PRE-TOUCH>
;<SYNTAX EMPTY OBJECT (HAVE TAKE) TO OBJECT = V-EMPTY PRE-TOUCH>
<SYNTAX EMPTY OBJECT (MANY) FROM OBJECT ;(HAVE TAKE) = V-EMPTY-FROM>
;<SYNTAX EMPTY OBJECT (MANY) OUT OBJECT (HAVE TAKE) = V-EMPTY-FROM>
;<SYNTAX EMPTY OBJECT (HAVE TAKE) THROUGH OBJECT = V-EMPTY-FROM>
<SYNTAX ENTER = V-IN>
<SYNTAX ENTER OBJECT = V-ENTER>
<SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EXAMINE ;PRE-LOOK>
;<SYNTAX EXAMINE FOR OBJECT = V-FIND>
<VERB-SYNONYM EXAMINE X INSPECT DESCRIBE STUDY OBSERVE>
<SYNTAX EXIT = V-EXIT>
<SYNTAX EXIT OBJECT = V-EXIT>
<VERB-SYNONYM EXIT DEPART WITHDR>
<SYNTAX EXTINGUISH OBJECT (FIND ONBIT) = V-OFF PRE-TOUCH>
<VERB-SYNONYM EXTINGUISH DEACTIVATE DOUSE>
; "See HAND OBJECT stuff."
<SYNTAX FEED OBJECT (FIND ACTORBIT) = V-FEED>
<SYNTAX FEED OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
= V-GIVE PRE-GIVE>
<SYNTAX FEED OBJECT (FIND ACTORBIT) (ON-GROUND) OBJECT (MANY HELD HAVE)
= V-SGIVE>
<SYNTAX FEED OBJECT (FIND ACTORBIT) WITH OBJECT (MANY HELD HAVE) = V-SGIVE>
<SYNTAX FIDDLE WITH OBJECT = V-FIDDLE>
<SYNONYM FIDDLE JOGGLE WIGGLE>
<SYNTAX FILL OBJECT (FIND CONTBIT) (HELD CARRIED HAVE) = V-FILL>
<SYNTAX FILL OBJECT (FIND CONTBIT) (HELD CARRIED HAVE) WITH OBJECT = V-FILL>
<SYNTAX FILL OBJECT (HELD CARRIED HAVE) IN OBJECT = V-SFILL>
<VERB-SYNONYM FILL LOAD> ; "LOAD SHOT INTO PISTOL"
<SYNTAX FIND OBJECT = V-FIND>
<SYNTAX FIND OBJECT ON OBJECT = V-FIND>
<VERB-SYNONYM FIND SEEK LOCATE>
<SYNTAX FIX OBJECT (HELD CARRIED) (HAVE) = V-FIX>
<VERB-SYNONYM FIX REPAIR SHARPEN WHET>
<SYNTAX FOLLOW OBJECT = V-FOLLOW>
<VERB-SYNONYM FOLLOW PURSUE CHASE>
<SYNTAX GO (DUCK) OBJECT (FIND RLANDBIT) = V-WALK> ; "NICK, DUCK !"
<SYNTAX GO (WADE) IN OBJECT = V-ENTER>
;<SYNTAX GO (DUCK) OUT OBJECT = V-ENTER>
<SYNTAX GO THROUGH OBJECT = V-ENTER>
<SYNTAX GO AROUND OBJECT (FIND RLANDBIT) = V-WALK-AROUND>
<SYNTAX GO (DUCK) UNDER OBJECT = V-CRAWL-UNDER>
<SYNTAX GO (DUCK) BEHIND OBJECT = V-HIDE>
<SYNTAX GO UP OBJECT (ON-GROUND IN-ROOM) = V-CLIMB>
<SYNTAX GO (DUCK) DOWN OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
<SYNTAX GO TO OBJECT = V-WALK-TO>
<SYNTAX GO AWAY OBJECT (FIND RLANDBIT) = V-LEAVE>
<SYNTAX GO WITH OBJECT = V-FOLLOW>
<SYNTAX GO OVERBOARD = V-LEAP-OVERBOARD>
<SYNTAX STOP OBJECT (FIND RLANDBIT) = V-HALT>
<SYNTAX HAND OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
= V-GIVE PRE-GIVE>
<SYNTAX HAND OBJECT (FIND ACTORBIT) (ON-GROUND) OBJECT (MANY ;HELD HAVE)
= V-SGIVE>
<SYNTAX HAND OBJECT (FIND ACTORBIT) WITH OBJECT (MANY ;HELD HAVE) = V-SGIVE>
;<SYNTAX HAND UP OBJECT (FIND RLANDBIT) = V-GIVE-UP>
;<SYNTAX HAND OBJECT (HELD CARRIED HAVE) FOR OBJECT = V-BARTER-FOR>
;<SYNTAX HAND BACK OBJECT (HELD CARRIED HAVE) = V-RETURN>
;<SYNTAX HAND OBJECT (MANY HELD HAVE) BACK OBJECT (FIND ACTORBIT) (ON-GROUND)
= V-GIVE PRE-GIVE>
<VERB-SYNONYM HAND GIVE OFFER PRESENT>
<SYNTAX HEAR OBJECT = V-LISTEN ;PRE-LISTEN>
<SYNTAX HELLO = V-HELLO>
<SYNTAX HELLO OBJECT = V-HELLO>
<VERB-SYNONYM HELLO HI GREET>
<SYNTAX HELP = V-HELP>
<SYNTAX HELP (WARN) OBJECT = V-SAVE-SOMETHING>
<VERB-SYNONYM HELP HINT>
<SYNTAX HIDE = V-HIDE>
<SYNTAX HIDE UNDER OBJECT = V-HIDE>
<SYNTAX HIDE BEHIND OBJECT = V-HIDE>
<SYNTAX HUG OBJECT = V-EMBRACE>
<SYNONYM HUG EMBRACE>
;<SYNTAX INFLATE OBJECT = V-INFLATE>
<SYNTAX JUMP = V-LEAP>
<SYNTAX JUMP OVER OBJECT = V-LEAP>
<SYNTAX JUMP ACROSS OBJECT = V-LEAP>
<SYNTAX JUMP IN OBJECT = V-ENTER>
;<SYNTAX JUMP FROM OBJECT = V-LEAP-OFF>
<SYNTAX JUMP OFF OBJECT = V-LEAP-OFF>
;<SYNTAX JUMP ON OBJECT = WASTES <> STAND-ON>
<SYNTAX JUMP ACROSS OBJECT = V-LEAP>
<SYNTAX JUMP OUT OBJECT = V-LEAP-OFF>
<SYNTAX JUMP THROUGH OBJECT = V-ENTER>
<SYNTAX JUMP UP OBJECT (FIND RLANDBIT) = V-LEAP>
<SYNTAX JUMP DOWN OBJECT (FIND RLANDBIT) = V-LEAP>
<SYNTAX JUMP TO OBJECT = V-LEAP>
<SYNTAX JUMP OVERBOARD OBJECT (FIND RLANDBIT) = V-LEAP-OVERBOARD>
<VERB-SYNONYM JUMP LEAP DIVE VAULT>
<SYNTAX KICK OBJECT = V-KICK>
<SYNTAX KISS OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KISS PRE-TOUCH>
<SYNTAX CURTSEY TO OBJECT (FIND ACTORBIT) = V-CURTSEY>
;<SYNTAX KNEEL BEFORE OBJECT (FIND ACTORBIT) = V-KNEEL>
;<SYNTAX KNEEL FOR OBJECT (FIND ACTORBIT) = V-KNEEL>
<VERB-SYNONYM CURTSEY BOW CURTSY>
<SYNTAX KNOCK ON OBJECT (FIND DOORBIT) = V-KNOCK>
<SYNTAX KNOCK AT OBJECT (FIND DOORBIT) = V-KNOCK>
<SYNTAX KNOCK DOWN OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KILL>
<SYNTAX KNOCK OVER OBJECT = V-ROLL PRE-TOUCH>
<VERB-SYNONYM KNOCK RAP POUND>
;<SYNTAX KWEEPA = V-KWEEPA>
;<SYNTAX LAND = V-LAND>
;<SYNTAX LAND OBJECT (FIND VEHBIT) = V-LAND>
;<VERB-SYNONYM LAND>
<SYNTAX LAUGH = V-LAUGH>
<SYNTAX LAUGH AT OBJECT = V-LAUGH>
<VERB-SYNONYM LAUGH SMILE>
<SYNTAX LAUNCH OBJECT = V-LAUNCH>
;<SYNTAX LEAN OBJECT (HAVE) ON OBJECT = V-PUT-AGAINST>
;<SYNTAX LEAN OBJECT (HAVE) AGAINST OBJECT = V-PUT-AGAINST>
<SYNTAX LEAN AGAINST OBJECT = V-EMBRACE>
<SYNTAX LEAVE = V-LEAVE>
<SYNTAX LEAVE OBJECT = V-LEAVE>
<SYNTAX LEAVE OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
<SYNTAX LEAVE OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
;<SYNTAX LEAVE OBJECT (HELD CARRIED) BEFORE OBJECT = V-PUT-NEAR IDROP>
;<SYNTAX LEAVE OBJECT (HELD CARRIED) AT OBJECT = V-PUT-NEAR IDROP>
<SYNTAX LET GO OBJECT (MANY ;HAVE) = V-DROP IDROP>
;<SYNTAX LICK OBJECT = V-LICK>
<SYNTAX LIE ON OBJECT (FIND VEHBIT) = V-LIE-DOWN>
<SYNTAX LIE IN OBJECT (FIND VEHBIT) = V-LIE-DOWN>
<SYNTAX LIE DOWN OBJECT (FIND RLANDBIT) = V-LIE-DOWN>
<SYNTAX LIGHT OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
= V-ON PRE-TOUCH>
<SYNTAX LIGHT OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
IN OBJECT = V-ON PRE-TOUCH>
<SYNTAX LIGHT OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
WITH OBJECT = V-ON PRE-TOUCH>
<SYNTAX LIGHT OBJECT (ON-GROUND IN-ROOM) ON OBJECT = V-ON PRE-TOUCH>
<SYNTAX LISTEN = V-LISTEN ;PRE-LISTEN>
<SYNTAX LISTEN TO OBJECT = V-LISTEN ;PRE-LISTEN>
<SYNTAX LOCK OBJECT = WASTES PRE-LOCK LOCK>
<SYNTAX LOCK OBJECT (ON-GROUND IN-ROOM) WITH OBJECT = WASTES PRE-LOCK LOCK>
<SYNTAX LOOK = V-LOOK>
<SYNTAX LOOK AROUND OBJECT (FIND RLANDBIT) = V-LOOK>
<SYNTAX LOOK DOWN OBJECT (FIND RLANDBIT) = V-LOOK-DOWN>
<SYNTAX LOOK UP OBJECT (FIND RLANDBIT) = V-LOOK-UP>
<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EXAMINE>
<SYNTAX LOOK THROUGH OBJECT = V-LOOK-INSIDE>
<SYNTAX LOOK OUT OBJECT (FIND RLANDBIT) = V-LOOK-INSIDE>
<SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER>
<SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND>
<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM)
= V-LOOK-INSIDE>
<SYNTAX LOOK ON OBJECT = V-EXAMINE>
<SYNTAX LOOK TO OBJECT = V-EXAMINE>
<SYNTAX LOOK FOR OBJECT = V-FIND>
<SYNTAX LOOK OVER OBJECT = V-EXAMINE ;<> ;LOOK-OVER>
<SYNTAX LOOK OBJECT = V-CHASTISE>
<VERB-SYNONYM LOOK L WATCH>
;<SYNTAX LOVE OBJECT (FIND ACTORBIT) = V-LOVE>
<SYNTAX LOWER OBJECT = V-RAISE PRE-TOUCH LOWER>
<SYNTAX LOWER OBJECT THROUGH OBJECT = V-PUT-THROUGH IDROP>
<SYNTAX LOWER OBJECT OUT OBJECT = V-PUT-THROUGH IDROP>
;<SYNTAX MAKE OBJECT = V-MAKE>
<SYNTAX MAKE OUT OBJECT (FIND RLANDBIT) = V-MAKE-OUT>
<SYNTAX MAKE LOVE OBJECT (FIND ACTORBIT) = V-MAKE-OUT <> MAKE-LOVE>
;<SYNTAX MAKE OBJECT WITH OBJECT = V-MAKE <> MAKE-WITH>
;<SYNTAX MAKE HAPPY OBJECT = V-CHEER>
;<SYNTAX MAKE OBJECT TO OBJECT (FIND ACTORBIT) = V-MAKE-LOVE>
<SYNTAX MANACLE OBJECT (FIND ACTORBIT) = V-PUT-ON PRE-PUT>
<SYNONYM MANACLE FETTER SHACKLE HOBBLE BIND>
<SYNTAX MARRY OBJECT (FIND ACTORBIT) = V-MARRY>
<VERB-SYNONYM MARRY WED>
;<SYNTAX MEASURE OBJECT = V-MEASURE>
<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-TOUCH>
;<SYNTAX MOVE APART OBJECT = V-BEND>
<SYNTAX MOVE OBJECT OBJECT = V-PUSH-DIR>
<SYNTAX MOVE OBJECT UP OBJECT (FIND RLANDBIT) = V-RAISE PRE-TOUCH>
<SYNTAX MOVE OBJECT DOWN OBJECT (FIND RLANDBIT) = V-RAISE PRE-TOUCH LOWER>
<SYNTAX MOVE AROUND OBJECT (FIND RLANDBIT) = V-WALK-AROUND>
<SYNTAX MOVE UP OBJECT (ON-GROUND IN-ROOM) = V-RAISE PRE-TOUCH>
<SYNTAX MOVE DOWN OBJECT (ON-GROUND IN-ROOM) = V-RAISE PRE-TOUCH LOWER>
<SYNTAX MOVE IN OBJECT = V-MOVE PRE-TOUCH>
<SYNTAX MOVE OBJECT TO OBJECT = V-MOVE PRE-TOUCH>
<VERB-SYNONYM MOVE PULL>
<SYNTAX MUZZLE OBJECT WITH OBJECT (HELD CARRIED) = V-MUZZLE>
<SYNTAX NO = V-NO>
<VERB-SYNONYM NO NAY NEVER NOPE>
<SYNTAX OPEN OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
= V-OPEN PRE-TOUCH>
<SYNTAX OPEN UP OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
= V-OPEN PRE-TOUCH>
<SYNTAX OPEN OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
WITH OBJECT (ON-GROUND IN-ROOM HELD CARRIED HAVE) = V-OPEN PRE-TOUCH>
<SYNONYM OPEN>
;<SYNTAX PASS OBJECT = V-PASS>
<SYNTAX PASS OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
= V-GIVE PRE-GIVE>
;<SYNTAX PAY OBJECT (FIND ACTORBIT) = V-PAY>
;<SYNTAX PAY FOR OBJECT = V-BUY>
<SYNTAX PAY OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
= V-GIVE PRE-GIVE>
;<SYNTAX PEE = V-PEE>
;<SYNTAX PEE IN OBJECT = V-PEE-IN>
;<SYNTAX PEE ON OBJECT = V-PEE-IN>
;<VERB-SYNONYM PEE LEAK PISS URINATE PIDDLE TINKLE PEE-PEE WEE WEE-WEE>
;<SYNTAX PHONE OBJECT = V-PHONE>
<SYNTAX PICK OBJECT = V-PICK PRE-LOCK>
<SYNTAX PICK OBJECT WITH OBJECT = V-PICK PRE-LOCK>
<SYNTAX PICK UP OBJECT (FIND TAKEBIT) (ON-GROUND MANY) = V-TAKE PRE-TAKE>
;<SYNTAX PIN OBJECT = V-PIN>
;<SYNTAX PIN OBJECT TO OBJECT = V-PIN>
<SYNTAX PLAY WITH OBJECT = V-TOUCH PRE-TOUCH>
;<SYNTAX POINT AT OBJECT = V-POINT>
;<SYNTAX POINT TO OBJECT = V-POINT>
<SYNTAX POINT OBJECT FROM OBJECT = V-SPOINT>
<SYNTAX POINT OBJECT = V-POINT>
<SYNTAX POINT OBJECT (HELD) AT OBJECT = V-POINT>
<SYNTAX POINT OBJECT (HELD) ON OBJECT = V-POINT>
<SYNTAX POINT OBJECT WITH OBJECT (HELD) (TAKE) = V-SPOINT>
<SYNTAX POINT OBJECT (HELD) OUT OBJECT = V-POINT>
<SYNTAX POINT OBJECT (HELD) IN OBJECT = V-POINT>
<VERB-SYNONYM POINT SHINE AIM SIGNAL>
<SYNTAX WRING (DRY SQUEEZE) OBJECT (HELD CARRIED) = V-WRING PRE-POUR>
<SYNTAX WRING (SQUEEZE) OBJECT FROM OBJECT = V-WRING PRE-POUR>
<SYNTAX WRING (SQUEEZE) OBJECT OUT OBJECT = V-WRING PRE-POUR>
<SYNTAX WRING (SQUEEZE) OBJECT IN OBJECT = V-WRING PRE-POUR>
<SYNTAX WRING (SQUEEZE) OBJECT ON OBJECT = V-WRING PRE-POUR>
;<SYNTAX WRING (SQUEEZE) OBJECT FROM OBJECT = V-POUR-FROM <> WRING>
;<SYNTAX WRING (SQUEEZE) OBJECT OUT OBJECT = V-POUR-FROM <> WRING>
<SYNTAX POUR (SPILL) OBJECT (HELD CARRIED) = WASTES PRE-POUR POUR>
<SYNTAX POUR OBJECT (HELD CARRIED) ON OBJECT = WASTES PRE-POUR POUR>
<SYNTAX POUR OBJECT (HELD CARRIED) IN OBJECT = WASTES PRE-POUR POUR>
<SYNTAX POUR (SPILL) OBJECT (HELD CARRIED)
FROM OBJECT = V-EMPTY-FROM <> POUR-FROM>
<SYNTAX POUR (SPILL) OBJECT (HELD CARRIED)
OUT OBJECT = V-EMPTY-FROM <> POUR-FROM>
;<SYNTAX POUR (SPILL) OBJECT (HELD CARRIED) FROM OBJECT = V-POUR-FROM>
;<SYNTAX POUR (SPILL) OBJECT (HELD CARRIED) OUT OBJECT = V-POUR-FROM>
<SYNTAX PUSH OBJECT = V-PUSH>
<SYNTAX PUSH OBJECT DOWN OBJECT (FIND RLANDBIT) = V-RAISE PRE-TOUCH LOWER>
<SYNTAX PUSH OBJECT IN OBJECT = V-PUSH>
<SYNTAX PUSH OBJECT OBJECT = V-PUSH-DIR>
<SYNTAX PUSH OBJECT ON OBJECT = V-PUSH>
<SYNTAX PUSH OBJECT TO OBJECT = V-PUSH>
<SYNTAX PUSH OBJECT UNDER OBJECT = WASTES <> PUT-UNDER>
<SYNTAX PUSH OBJECT UP OBJECT (FIND RLANDBIT) = V-RAISE PRE-TOUCH>
<SYNTAX PUSH DOWN OBJECT = V-RAISE PRE-TOUCH LOWER>
<SYNTAX PUSH ON OBJECT (IN-ROOM ON-GROUND) = V-PUSH>
<SYNTAX PUSH UP OBJECT = V-RAISE PRE-TOUCH>
;<SYNTAX PUSH OFF OBJECT (FIND RLANDBIT) = V-PUSH-OFF>
;<SYNTAX PUSH OBJECT IN OBJECT = V-PUT>
<VERB-SYNONYM PUSH PRESS>
<SYNTAX RAISE OBJECT = V-RAISE PRE-TOUCH>
<SYNTAX RAISE UP OBJECT = V-RAISE PRE-TOUCH>
<VERB-SYNONYM RAISE LIFT BOOST>
;<SYNTAX RAKE OBJECT = V-RAKE PRE-RAKE>
;<SYNTAX RAKE OBJECT WITH OBJECT (HAVE) = V-RAKE PRE-RAKE>
;<SYNTAX RAKE OBJECT IN OBJECT = V-PUT PRE-PUT>
<SYNTAX RAPE OBJECT (FIND ACTORBIT) = V-RAPE>
<SYNTAX REACH IN OBJECT (ON-GROUND IN-ROOM) = V-REACH-IN>
<SYNTAX READ OBJECT = V-READ ;PRE-LOOK>
<SYNTAX READ THROUGH OBJECT = V-READ ;PRE-LOOK>
<SYNTAX READ OBJECT THROUGH OBJECT = V-READ ;PRE-LOOK>
<SYNTAX READ OBJECT WITH OBJECT = V-READ ;PRE-LOOK>
<VERB-SYNONYM READ SKIM BROWSE>
<SYNTAX REFLECT OBJECT IN OBJECT (HELD) = V-REFLECT>
<SYNTAX REMOVE OBJECT (FIND WORNBIT) = V-REMOVE PRE-DOFF>
<SYNTAX REMOVE OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
FROM OBJECT = V-TAKE PRE-TAKE>
<VERB-SYNONYM REMOVE ;UNWRAP>
<SYNTAX RETURN OBJECT (HELD CARRIED HAVE) = V-RETURN>
<SYNTAX RETURN OBJECT (HELD CARRIED HAVE) TO OBJECT (ON-GROUND) = V-RETURN>
<SYNTAX RIP OBJECT = V-RIP>
<SYNTAX RIP OBJECT IN OBJECT = V-RIP>
<SYNTAX RIP UP OBJECT = V-RIP>
<SYNTAX RIP OBJECT WITH OBJECT = V-RIP>
<VERB-SYNONYM RIP TEAR>
<SYNTAX ROLL OBJECT TO OBJECT = V-PUSH>
<SYNTAX ROLL OBJECT = V-ROLL PRE-TOUCH>
<SYNONYM ROLL TIP>
;<SYNTAX ROLL OUT OBJECT (FIND RLANDBIT) = V-WALK>
;<SYNTAX ROLL OUT TO OBJECT = V-WALK-TO> ;"ROLL OUT TO THE FORE"
;<SYNTAX ROLL UP OBJECT = V-ROLL PRE-TOUCH>
;<SYNTAX ROLL OBJECT ON OBJECT = V-PUT-ON PRE-PUT> ;"for ROLL SOD ON CIRCLE"
;<SYNTAX ROLL OBJECT OVER OBJECT = V-PUT-ON PRE-PUT> ;"ditto"
<SYNTAX ROW OBJECT = V-ROW>
<SYNTAX ROW OBJECT OBJECT = V-ROW-DIR>
<SYNTAX ROW TO OBJECT = V-ROW-TO>
<SYNTAX ROW OBJECT TO OBJECT = V-ROW-TO>
<SYNONYM ROW OAR>
<SYNTAX SAVE (RESCUE) OBJECT (FIND ACTORBIT) = V-SAVE-SOMETHING>
;<VERB-SYNONYM SAVE RESCUE>
;<SYNTAX SAY = V-SAY>
;<SYNTAX SAY OBJECT = V-USE-QUOTES>
;<SYNONYM SAY ANSWER REPLY>
;<SYNTAX SCAT = V-SCAT>
;<VERB-SYNONYM SCAT SHOO BOO SCRAM>
<SYNTAX SCORE = V-SCORE>
<SYNTAX SEARCH OBJECT = V-SEARCH>
<SYNTAX SEARCH UNDER OBJECT = V-LOOK-UNDER ;PRE-LOOK>
<SYNTAX SEARCH IN OBJECT = V-SEARCH>
<SYNTAX SEARCH FOR OBJECT = V-FIND>
<SYNTAX SEARCH THROUGH OBJECT = V-SEARCH>
<VERB-SYNONYM SEARCH RUMMAG>
<SYNTAX SHAKE OBJECT = V-SHAKE>
<SYNTAX SHAKE OBJECT WITH OBJECT = V-SHAKE-WITH>
<VERB-SYNONYM SHAKE BOUNCE>
;<SYNTAX SHIT = V-SHIT>
;<VERB-SYNONYM SHIT DEFECATE CRAP POO-POO>
<SYNTAX SHOOT OBJECT = V-SHOOT>
<SYNTAX SHOOT OBJECT WITH OBJECT (HELD HAVE) = V-SHOOT>
<SYNTAX SHOOT OBJECT AT OBJECT = V-SSHOOT PRE-SSHOOT>
<SYNTAX SHOOT AT OBJECT = V-SSHOOT PRE-SSHOOT>
<SYNTAX SHOOT OBJECT IN OBJECT = V-SSHOOT PRE-SSHOOT> ;"FIRE GUN IN AIR"
<SYNONYM SHOOT SLING FIRE>
<SYNTAX SHOW OBJECT (HELD MANY) TO OBJECT (FIND ACTORBIT) = V-SHOW>
<SYNTAX SHOW OBJECT (FIND ACTORBIT) OBJECT (HELD MANY) = V-SSHOW>
<SYNTAX SIGH = V-SIGH>
<VERB-SYNONYM SIGH MOAN>
<SYNTAX SINK OBJECT = IMPOSSIBLES <> SINK>
<SYNTAX SIT ON OBJECT ;(FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
<SYNTAX SIT DOWN OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-SIT>
<SYNTAX SIT IN OBJECT ;(FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
;<SYNTAX SKIP = V-SKIP>
;<VERB-SYNONYM SKIP HOP>
<SYNTAX SLEEP = V-SLEEP>
<SYNTAX SLEEP IN OBJECT (IN-ROOM ON-GROUND) = V-BOARD PRE-BOARD>
<SYNTAX SLEEP ON OBJECT (IN-ROOM ON-GROUND) = V-BOARD PRE-BOARD>
;<SYNTAX SLEEP WITH OBJECT (FIND ACTORBIT) = V-FUCK PRE-FUCK>
<VERB-SYNONYM SLEEP DOZE NAP SNOOZE>
<SYNTAX SLICE OBJECT = V-CUT>
<SYNTAX SLICE OBJECT WITH OBJECT (CARRIED HELD) = V-CUT>
<SYNTAX SLICE THROUGH OBJECT WITH OBJECT (CARRIED HELD) = V-CUT>
<VERB-SYNONYM SLICE CUT STAB>
<SYNTAX SLIDE DOWN OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
;<SYNTAX SMEAR OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
<SYNTAX SMELL = V-SMELL ;PRE-SMELL>
<SYNTAX SMELL OBJECT = V-SMELL ;PRE-SMELL>
<VERB-SYNONYM SMELL SNIFF WHIFF>
<SYNTAX SOAK OBJECT = V-SOAK>
<SYNTAX SOAK OBJECT (HELD) IN OBJECT = V-SOAK>
<SYNTAX SOAK OBJECT (HELD) WITH OBJECT = V-SOAK>
<SYNONYM SOAK WET>
<SYNTAX STAND = V-STAND>
<SYNTAX STAND UP OBJECT (FIND RLANDBIT) = V-STAND>
<SYNTAX STAND ON OBJECT = WASTES <> STAND-ON>
<SYNTAX STAND IN OBJECT = WASTES <> STAND-ON>
<SYNTAX STAND BEHIND OBJECT = V-HIDE>
<VERB-SYNONYM STAND RISE>
;<SYNTAX START OBJECT = V-ON PRE-TOUCH>
;<VERB-SYNONYM START ACTIVA>
<SYNTAX STICK OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
<SYNTAX STICK OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
;<SYNTAX STICK OBJECT (HELD MANY) DOWN OBJECT = V-PUT-ON PRE-PUT>
<SYNTAX STICK OBJECT (HELD MANY) AROUND OBJECT = V-PUT-ON PRE-PUT>
<SYNTAX STICK OBJECT (HELD MANY) OVER OBJECT = V-PUT-ON PRE-PUT>
;<SYNTAX STICK OBJECT ;(HELD MANY) ACROSS OBJECT = V-PUT-ON PRE-PUT>
<SYNTAX STICK DOWN OBJECT (HELD MANY HAVE) = V-DROP IDROP>
<SYNTAX STICK OBJECT UNDER OBJECT = WASTES <> PUT-UNDER>
<SYNTAX STICK ON OBJECT (FIND WEARBIT) (TAKE) = V-WEAR PRE-WEAR>
<SYNTAX STICK OBJECT BEHIND OBJECT = WASTES <> PUT-BEHIND>
<SYNTAX STICK OBJECT (MANY) THROUGH OBJECT = V-PUT-THROUGH IDROP>
<SYNTAX STICK OBJECT (HELD MANY HAVE) OUT OBJECT = V-PUT-THROUGH IDROP>
<SYNTAX STICK OUT OBJECT (FIND ONBIT) = V-OFF PRE-TOUCH>
;<SYNTAX STICK OBJECT (HELD CARRIED) BEFORE OBJECT = V-PUT-NEAR IDROP>
;<SYNTAX STICK OBJECT (HELD CARRIED) AT OBJECT = V-PUT-NEAR IDROP>
;<SYNTAX STICK OBJECT TO OBJECT = V-PUT-TO> ;"for PUT BABY TO SLEEP"
;<SYNTAX STICK OBJECT (HAVE) AGAINST OBJECT = V-PUT-AGAINST>
<VERB-SYNONYM STICK PUT INSERT PLACE DIP HANG LAY SPRINKLE>
<SYNTAX SWIM = V-SWIM>
<SYNTAX SWIM IN OBJECT = V-SWIM>
<SYNTAX SWING ON OBJECT (TAKE) = V-SWING> ;"Amy adds 17.12.86"
<SYNTAX SWING DOWN OBJECT (FIND RLANDBIT) (TAKE) = V-SWING> ;"Amy adds 12.6"
<SYNTAX SWING FROM OBJECT (TAKE) = V-SWING>
<SYNTAX SWING OBJECT (HELD CARRIED HAVE) = V-SWING>
<SYNTAX SWING OBJECT (HELD CARRIED HAVE) AT OBJECT (FIND ACTORBIT) = V-SWING>
<SYNTAX SWOON OBJECT (FIND RLANDBIT) = V-SWOON>
<SYNONYM SWOON FAINT>
<SYNTAX TAKE OBJECT (FIND TAKEBIT) (ON-GROUND IN-ROOM MANY) = V-TAKE PRE-TAKE>
<SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
<SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
<SYNTAX TAKE UP OBJECT (FIND RLANDBIT) = V-STAND>
<SYNTAX TAKE OBJECT (CARRIED IN-ROOM MANY) OUT OBJECT = V-TAKE PRE-TAKE>
<SYNTAX TAKE OBJECT (CARRIED IN-ROOM MANY) OFF OBJECT = V-TAKE PRE-TAKE>
<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) FROM OBJECT = V-TAKE PRE-TAKE>
<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) IN OBJECT = V-TAKE PRE-TAKE>
<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) ON OBJECT = V-TAKE PRE-TAKE>
<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) WITH OBJECT (HAVE) = V-TAKE-WITH>
<SYNTAX TAKE OFF OBJECT = V-TAKE-OFF PRE-DOFF>
<SYNTAX TAKE DRESSE OBJECT (FIND RLANDBIT) = V-GET-DRESSED>
<SYNTAX TAKE UNDRES OBJECT (FIND RLANDBIT) = V-GET-UNDRESSED PRE-DOFF>
<SYNTAX TAKE OUT OBJECT (FIND VEHBIT) (ON-GROUND) = V-DISEMBARK>
<SYNTAX TAKE DOWN OBJECT (FIND VEHBIT) (ON-GROUND) = V-DISEMBARK>
<SYNTAX TAKE DRUNK OBJECT (FIND RLANDBIT) = V-GET-DRUNK>
<VERB-SYNONYM TAKE GET GRAB HOLD CARRY>
<SYNTAX TALK TO OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TELL ;PRE-SPEAK>
<VERB-SYNONYM TALK SPEAK ;SAY>
<SYNTAX TAP OBJECT = V-TOUCH PRE-TOUCH>
<SYNTAX TAP ON OBJECT = V-KNOCK>
;<SYNTAX TASTE OBJECT = V-TASTE>
;<VERB-SYNONYM TASTE NIBBLE>
<SYNTAX TELL OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TELL ;PRE-SPEAK>
<SYNTAX TELL OBJECT (FIND ACTORBIT) ABOUT OBJECT = V-TELL-ABOUT ;PRE-SPEAK>
<SYNTAX TELL OBJECT OBJECT = V-STELL>
<SYNTAX THANKS OBJECT = V-THANK>
<SYNTAX THANKS = V-THANK>
<VERB-SYNONYM THANKS THANK>
<SYNTAX THROW OBJECT (;HELD CARRIED) = V-THROW IDROP>
<SYNTAX THROW AWAY OBJECT (;HELD CARRIED) = V-THROW IDROP>
<SYNTAX THROW OVERBOARD OBJECT (;HELD CARRIED) = V-THROW-OVERBOARD IDROP>
<SYNTAX THROW OBJECT (HELD CARRIED) IN OBJECT = V-THROW IDROP ;PRE-PUT>
<SYNTAX THROW OBJECT (;HELD CARRIED) DOWN OBJECT = V-THROW IDROP>
<SYNTAX THROW OBJECT (;HELD CARRIED) AT OBJECT (ON-GROUND IN-ROOM)
= V-THROW-AT ;V-THROW IDROP>
<SYNTAX THROW OBJECT (;HELD CARRIED) ON OBJECT (ON-GROUND IN-ROOM)
= V-THROW IDROP>
<SYNTAX THROW OBJECT (;HELD CARRIED) TO OBJECT (ON-GROUND IN-ROOM)
= V-THROW-TO IDROP>
<SYNTAX THROW OBJECT (FIND ACTORBIT)
(ON-GROUND IN-ROOM) OBJECT (HELD CARRIED) = V-STHROW>
<SYNTAX THROW OBJECT (;HELD CARRIED) THROUGH OBJECT (ON-GROUND IN-ROOM)
= V-PUT-THROUGH IDROP>
<SYNTAX THROW OBJECT (;HELD CARRIED) OUT OBJECT = V-PUT-THROUGH IDROP>
<SYNTAX THROW OBJECT (;HELD CARRIED) OVER OBJECT = V-THROW-OVER IDROP>
<SYNTAX THROW OBJECT (HELD CARRIED) WITH OBJECT = V-SHOOT>
<VERB-SYNONYM THROW HURL TOSS>
<SYNTAX TIE OBJECT (HELD) TO OBJECT = WASTES <> TIE>
<SYNTAX TIE OBJECT (HELD) AROUND OBJECT = WASTES <> TIE>
<SYNTAX TIE UP OBJECT WITH OBJECT (HELD) = V-TIE-WITH>
<SYNTAX TIE OBJECT WITH OBJECT (HELD) = V-TIE-WITH>
;<SYNTAX TIE TOGETHER OBJECT = V-TIE-TOGETHER>
<VERB-SYNONYM TIE FASTEN SECURE ATTACH MOOR WEAVE>
<SYNTAX TOUCH OBJECT = V-TOUCH PRE-TOUCH>
<SYNTAX TOUCH OBJECT WITH OBJECT = V-TOUCH PRE-TOUCH>
<SYNTAX TOUCH OBJECT ON OBJECT = V-STOUCH PRE-TOUCH>
<SYNTAX TOUCH THROUGH OBJECT (FIND CONTBIT) = V-TOUCH PRE-TOUCH>
<VERB-SYNONYM TOUCH FEEL SMOOTH RUB GRIP>
<SYNTAX TURN OBJECT = V-SET>
<SYNTAX TURN AROUND OBJECT (FIND RLANDBIT) = V-SET>
<SYNTAX TURN OBJECT TO OBJECT = V-SET>
;<SYNTAX TURN OBJECT OBJECT = V-SET>
<SYNTAX TURN ON OBJECT (FIND LIGHTBIT) = V-ON PRE-TOUCH>
<SYNTAX TURN OFF OBJECT (FIND LIGHTBIT) = V-OFF PRE-TOUCH>
<VERB-SYNONYM TURN SET SPIN SWITCH ROTATE FLIP FLICK>
;<SYNTAX UNBAR OBJECT (FIND DOORBIT) = V-UNBAR>
;<SYNTAX UNCOVER OBJECT = V-UNCOVER>
;<VERB-SYNONYM UNCOVER UNBLOCK UNPIN UNPLUG>
<SYNTAX UNDRES = V-UNDRESS PRE-DOFF>
<SYNTAX UNDRES OBJECT = V-UNDRESS PRE-DOFF>
<VERB-SYNONYM UNDRES STRIP DISROBE>
<SYNTAX UNLOCK OBJECT = V-UNLOCK PRE-LOCK>
<SYNTAX UNLOCK OBJECT WITH OBJECT (HAVE) = V-UNLOCK PRE-LOCK>
<SYNONYM UNLOCK UNBAR>
<SYNTAX UNROLL OBJECT = IMPOSSIBLES <> UNROLL>
<SYNTAX UNTIE OBJECT (ON-GROUND IN-ROOM) = IMPOSSIBLES <> UNTIE>
<VERB-SYNONYM UNTIE FREE UNATTA UNKNOT LOOSEN UNWEAVE>
<SYNTAX USE OBJECT = MORE-SPECIFIC <> USE>
<SYNTAX USE OBJECT ON OBJECT (FIND ACTORBIT) = WASTES <> USE>
;<SYNTAX VOMIT = V-VOMIT>
;<VERB-SYNONYM VOMIT PUKE REGURGITATE BARF>
<SYNTAX WAIT = V-WAIT>
<VERB-SYNONYM WAIT Z>
<SYNTAX WAKE OBJECT (FIND RLANDBIT) = V-ALARM>
<SYNTAX WAKE UP OBJECT (FIND RLANDBIT) = V-ALARM>
<SYNTAX WAKE OBJECT (FIND ACTORBIT) WITH OBJECT = V-ALARM>
<VERB-SYNONYM WAKE AWAKE ROUSE REVIVE>
<SYNTAX WALK = V-WALK-AROUND>
<SYNTAX WALK OBJECT = V-WALK>
<SYNTAX WALK IN OBJECT = V-ENTER>
<SYNTAX WALK OUT OBJECT = V-ENTER>
<SYNTAX WALK ACROSS OBJECT = V-ENTER>
;<SYNTAX WALK ON OBJECT = WASTES <> STAND-ON>
<SYNTAX WALK OVER OBJECT = V-ENTER> ;"formerly V-LEAP"
<SYNTAX WALK THROUGH OBJECT = V-ENTER>
<SYNTAX WALK AROUND OBJECT (FIND RLANDBIT) = V-WALK-AROUND>
;<SYNTAX WALK UNDER OBJECT = V-CRAWL-UNDER>
<SYNTAX WALK BEHIND OBJECT = V-HIDE>
<SYNTAX WALK UP OBJECT (ON-GROUND IN-ROOM) = V-CLIMB>
<SYNTAX WALK DOWN OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
<SYNTAX WALK TO OBJECT = V-WALK-TO>
<SYNTAX WALK AWAY OBJECT (FIND RLANDBIT) = V-LEAVE>
<VERB-SYNONYM WALK SIDLE RUN PROCEE STEP>
<SYNTAX WASH OBJECT = V-CLEAN>
<SYNTAX WASH UP OBJECT (FIND RLANDBIT) = V-CLEAN>
<SYNTAX WASH OFF OBJECT = V-CLEAN>
<VERB-SYNONYM WASH CLEAN WIPE>
<SYNTAX WAVE OBJECT (HELD CARRIED) (HAVE) = V-WAVE>
<SYNTAX WAVE AT OBJECT (FIND ACTORBIT) = V-WAVE-AT>
<SYNTAX WAVE OBJECT (HELD CARRIED) (HAVE) IN OBJECT = V-POINT>
<SYNTAX WAVE OBJECT (HELD CARRIED) (HAVE) AT OBJECT = V-POINT>
<SYNTAX WEAR OBJECT (FIND WEARBIT) (TAKE) = V-WEAR PRE-WEAR>
<VERB-SYNONYM WEAR DON>
<SYNTAX WHAT OBJECT = V-WHAT>
<VERB-SYNONYM WHAT WHATS WHAT\' WHO WHOS>
<SYNTAX WHERE OBJECT = V-WHERE>
<VERB-SYNONYM WHERE WHERES WHITHER>
;<SYNTAX WHIP OBJECT = V-WHIP>
;<SYNTAX WHIP OBJECT WITH OBJECT (HAVE) = V-WHIP>
;<VERB-SYNONYM WHIP SNAP CRACK>
<SYNTAX WRAP OBJECT (HELD MANY) AROUND OBJECT = WASTES PRE-PUT WRAP>
<SYNTAX WRAP OBJECT IN OBJECT (HELD MANY) = V-SWRAP>
<SYNTAX YELL = V-YELL>
<SYNTAX YELL AT OBJECT = V-YELL>
<SYNTAX YELL TO OBJECT = V-YELL>
<VERB-SYNONYM YELL SHRIEK SCREAM SHOUT AAIEEE>
<SYNTAX YES = V-YES>
<VERB-SYNONYM YES Y YUP OK OKAY SURE NOD>
<SYNTAX ZZMGCK OBJECT = V-ANSWER-KLUDGE>

3441
verbs.zap Normal file
View file

File diff suppressed because it is too large Load diff

3699
verbs.zil Normal file
View file

File diff suppressed because it is too large Load diff