.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